OperationCost调整

yy

2023-10-08 442085ac020c63de4101ae72263e95273cb1d17c

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Quintiq file version 2.0
#parent: #root
Method MPSyncLaneLeg (
  Boolean isoverwritemanualconfig,
  IOLane iolane,
  Lane mplane
)
{
  Description: 'Synchronization of LaneLeg for MPSync'
  TextBody:
  [*
    // Select a set of existing LaneLeg
    existing := selectset( mplane, LaneLeg, item, true );
    updates := construct( LaneLegs );
    
    // Traverse the new set of valid LaneLeg
    traverse( iolane , IOLaneLeg, io, io.IsValid() )
    {
      orispid := io.OriginStockingPointID();
      destspid := io.DestinationStockingPointID();
      // Find existing LaneLeg
      objectinstance := LaneLeg::FindLaneLegTypeIndex( mplane.ID(), orispid, destspid );
      
      // If no existing LaneLeg is found, and the passed in Lane is not null, create one
      if( isnull( objectinstance ) )
      {
        if( not isnull( mplane ) )
        {
          objectinstance := LaneLeg::Create( mplane,
                                             orispid,
                                             destspid,
                                             io.IsEnabled(),
                                             io.Start(),
                                             io.End(),
                                             io.Name(),
                                             io.HasUserLeadTime(),
                                             io.UserLeadTime(),
                                             io.HasStandardDeviationLeadTimeLaneLeg(),
                                             io.StandardDeviationLeadTimeLaneLeg(),
                                             io.PreferenceBonus(),
                                             io.CO2Emission(),
                                             true );
        } 
      }
      // Else if the LaneLeg is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing LaneLeg
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        // Update LaneLeg
        if( not isnull( mplane ) )
        {
          objectinstance.Update( orispid,
                                 destspid,
                                 io.IsEnabled(),
                                 io.Start(),
                                 io.End(),
                                 io.Name(),
                                 io.HasUserLeadTime(),
                                 io.UserLeadTime(),
                                 io.HasStandardDeviationLeadTimeLaneLeg(),
                                 io.StandardDeviationLeadTimeLaneLeg(),
                                 io.PreferenceBonus(),
                                 io.CO2Emission(),
                                 true );
          updates.Add( objectinstance );
        }
      }
      
      // Extended method
      if( not isnull( objectinstance ) )
      {  
        objectinstance.CustomUpdate( io, isoverwritemanualconfig );
      }
    }
    
    // Get the set of old LaneLeg to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of LaneLeg to be deleted
    // Only delete LaneLeg that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}