renhao
2023-09-21 1aa9f2bb83dd9e4b7517f1cbf06b0db53979bb31
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
Quintiq file version 2.0
#parent: #root
Method SyncMPSPlanFromMacroPlan (
  MacroPlan macroplan,
  String mpsplanid,
  DateTime timestamp
)
{
  Description: 'Create mpsplans from from macroplan.'
  TextBody:
  [*
    existing := this.IOMPSPlan( relget );
    updates := construct( IOMPSPlans );
    
    iompsplan := IOMPSPlan::Create( this, mpsplanid, timestamp );
    
    updates.Add( iompsplan );
    
    // Get the set of old mps plans to be deleted
    tobedeleteset := existing.Difference( updates );
    
    traverse( tobedeleteset, Elements, ele )
    {
      ele.Delete();
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}