yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
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
Quintiq file version 2.0
#parent: #root
Method MPSyncTransportAvailablility (
  Boolean isoverwritemanualconfig,
  IOTransportAvailabilitys iotransportavailabilitys
)
{
  Description: 'Synchronization of TransportAvailability for MPSync'
  TextBody:
  [*
    // Select a set of existing TransportAvailability
    existing := selectset( this, Unit.TransportAvailability, item, true );
    updates := construct( TransportAvailabilitys );
    
    // Traverse the new set of valid TransportAvailability
    traverse( iotransportavailabilitys , Elements, io, io.IsValid() )
    {
      // Find existing TransportAvailability
      objectinstance := TransportAvailability::FindTransportAvailabilityTypeIndex( io.UnitID(), io.Start().DateTime() );
      // Find existing Unit
      unit := Unit::FindUnitTypeIndex( io.UnitID() );
      
      // Check if there's valid Unit
      if( not isnull( unit ) )
      {
        // If no existing TransportAvailability is found, create one
        if( isnull( objectinstance ) )
        {   
            objectinstance := TransportAvailability::Create( unit, 
                                                             io.Start().DateTime(), 
                                                             io.TimeUnit(),
                                                             io.Maintenance(),
                                                             io.NumberOfUnit(),
                                                             io.LotSize(),
                                                             io.MinimumPerLot(),
                                                             io.MaximumQuantity(),
                                                             ShiftPattern::FindShiftPatternTypeIndex( io.ShiftPatternName() ),
                                                             true );
        }
        // Else if the TransportAvailability is not manually configured or the imported instance should overwrite manual configuration,
        // update the existing TransportAvailability
        else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
        {
          // Update TransportAvailability
          objectinstance.Update( unit,
                                 io.Start().DateTime(), 
                                 io.TimeUnit(), 
                                 io.Maintenance(),
                                 io.NumberOfUnit(),
                                 io.LotSize(), 
                                 io.MinimumPerLot(), 
                                 io.MaximumQuantity(),
                                 ShiftPattern::FindShiftPatternTypeIndex( io.ShiftPatternName() ),
                                 true );
          updates.Add( objectinstance );
        }
        
        if( not isnull( objectinstance ) )
        {
          objectinstance.CustomUpdate( io, isoverwritemanualconfig );  
        }
      }
    }
    
    // Get the set of old TransportAvailability to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of TransportAvailability to be deleted
    // Only delete TransportAvailability that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}