优先级因子菜单

limj

2023-09-28 33be9f1e7cc38511f2bb4329fde8e14cc0cc1f09

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
Quintiq file version 2.0
#parent: #root
Method MPSyncDisaggregationFactor (
  Boolean isoverwitemanualconfig,
  IODisaggregationFactors iodisaggregationfactors
)
{
  Description: 'Synchronization of DisaggregationFactor for MPSync'
  TextBody:
  [*
    // Select a set of existing DisaggregationFactor
    existing := selectset( this, Product_MP.DisaggregationFactor, item, true );
    updates := construct( DisaggregationFactors );
    
    // Traverse the new set of valid DisaggregationFactor
    traverse( iodisaggregationfactors , Elements, io, io.IsValid() )
    {
      productid := io.ProductID();
      spid := io.StockingPointID();
      start := io.Start();
      // Find existing DisaggregationFactor
      objectinstance := DisaggregationFactor::FindDisaggregationTypeIndex( productid, spid, start );
      // Find existing Product_MP
      product := Product_MP::FindProductTypeIndex( productid );
      // Find existing StockingPoint_MP
      stockingpoint := StockingPoint_MP::FindStockingPointTypeIndex( spid );
      
      // If no existing DisaggregationFactor is found, and both Product_MP and StockingPoint_MP is valid, create one
      if( isnull( objectinstance ) )
      {
        if( not ( isnull( product ) or isnull( stockingpoint ) ) )
        {
          objectinstance := DisaggregationFactor::Create( product, stockingpoint, start, io.Factor(), true );
        }
      }
      // Else if the DisaggregationFactor is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing DisaggregationFactor
      else if( not objectinstance.IsManuallyConfigured() or isoverwitemanualconfig )
      {
        // Update DisaggregationFactor
        if( not ( isnull( product ) or isnull( stockingpoint ) ) )
        {
          objectinstance.Update( product, stockingpoint, start, io.Factor(), true );
          updates.Add( objectinstance );
        }
      }
    }
    
    // Get the set of old DisaggregationFactor to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of DisaggregationFactor to be deleted
    // Only delete DisaggregationFactor that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele, not ele.IsManuallyConfigured() or isoverwitemanualconfig)
    {
      ele.Delete();
    }
  *]
}