hongji.li
2023-11-03 aefafd2142478d4fb07d6b8b45c3047e247389e0
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
Quintiq file version 2.0
#parent: #root
Method MPSyncSubsetEntityOptimizerPuzzle (
  Boolean isoverwritemanualconfig,
  IOOptimizerPuzzle iooptimizerpuzzle,
  OptimizerPuzzle mpoptimizerpuzzle
)
{
  Description: 'Synchronization of Subset entity for MPSync'
  TextBody:
  [*
    // Select a set of existing SubsetEntity
    existing := selectset( mpoptimizerpuzzle, SubsetEntityInOptimizerPuzzle, op, true );
    updates := construct( SubsetEntityInOptimizerPuzzles );
    
    // Traverse the new set of valid SubsetEntity
    traverse( iooptimizerpuzzle, IOSubsetEntityInOptimizerPuzzle, io, io.IsValid() )
    {
      optimizername := io.OptimizerPuzzleName();
      entityid := io.EntityID();
      entitytype := io.EntityType();
    
      // Find existing SubsetEntity
      objectinstance := SubsetEntityInOptimizerPuzzle::FindSubsetEntityOptimizerPuzzleTypeIndices( optimizername, entityid, entitytype );
      
      if( not isnull( mpoptimizerpuzzle ) )
      { 
        // If no existing SubsetEntity is found, create one
        if( isnull( objectinstance ) )
        {
          
            objectinstance := SubsetEntityInOptimizerPuzzle::Create( mpoptimizerpuzzle,
                                                                     io,
                                                                     true );                                                                                        
        }
        // Else if the SubsetEntity is not manually configured or the imported instance should overwrite manual configuration,
        // update the existing SubsetEntity
        else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
        {
          // Update OptimizerPuzzle
          objectinstance.Update( io.IsIncluded(), true /* IsUserAction */ );
                                 
          updates.Add( objectinstance );
        }
          
        // If SubsetEntity is created or found, synchronize SubsetEntity
        if( not isnull( objectinstance ) )
        {
          // CustomUpdate method is extended
          objectinstance.CustomUpdate( io, isoverwritemanualconfig ); 
        }
      }
    }
      
    // Get the set of old SubsetEntity to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of SubsetEntity to be deleted
    // Only delete SubsetEntity that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig ) 
    {
      ele.Delete();
    }
  *]
}