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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Quintiq file version 2.0
#parent: #root
Method MPSyncForecast (
  Boolean isoverwritemanualconfig,
  IOForecasts iosalesdemands
)
{
  Description: 'Synchronization of Forecast for MPSync'
  TextBody:
  [*
    // Select a set of existing Forecast
    existing := selectset( this, SalesDemand.astype( Forecast ), item, true );
    updates := construct( Forecasts );
    
    // Traverse the new set of valid Forecast
    traverse( iosalesdemands , Elements, io, io.IsValid() )
    {
      indexkey := io.ID();
      // Find existing Forecast
      objectinstance := Forecast::FindSalesDemandIndex( indexkey );
      
      // Find existing Product_MP
      product := Product_MP::FindProductTypeIndex( io.ProductID() );
      // Find existing StockingPoint_MP
      sp := StockingPoint_MP::FindStockingPointTypeIndex( io.StockingPointID() );
      // Find existing Currency_MP
      currency := Currency_MP::FindCurrencyTypeIndex( io.CurrencyID() );
      // Find existing SalesSegment_MP
      salessegment := SalesSegment_MP::FindSalesSegmentTypeIndex( io.SalesSegmentName() );
      
      // Check if no existing SalesDemand is found
      if( isnull( objectinstance ) )
      {
        // If there's valid Product_MP, StockingPoint_MP, Currency_MP, and SalesSegment_MP, create SalesDemand
        if( not ( isnull( product ) or isnull( sp ) or isnull( currency ) or isnull( salessegment ) ) )
        {
          objectinstance := Forecast::Create( product,
                                                 sp,
                                                 io.ID(), 
                                                 io.StartDate(),
                                                 io.EndDate(),
                                                 io.Quantity(),
                                                 io.Price(),
                                                 io.PriorityName(),
                                                 io.SalesSegmentName(),
                                                 io.CurrencyID(),
                                                 io.UnitOfMeasureName(),
                                                 io.DemandUncertaintyPercentage(),
                                                 io.IsExcludedFromFulfillmentKPIUser(),
                                                 true );
        }
      }
      // Else if the SalesDemand is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing SalesDemand
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        if( not ( isnull( product ) or isnull( sp ) or isnull( currency ) or isnull( salessegment ) ) )
        {
          // Update SalesDemand
          objectinstance.Update( product,
                                 sp,
                                 io.StartDate(),
                                 io.EndDate(),
                                 io.Quantity(),
                                 io.Price(),
                                 io.PriorityName(),
                                 io.DemandUncertaintyPercentage(),
                                 io.SalesSegmentName(),
                                 io.CurrencyID(),
                                 io.UnitOfMeasureName(),
                                 io.IsExcludedFromFulfillmentKPIUser(),
                                 true );
          updates.Add( objectinstance );
        }
      }
      if( not isnull( objectinstance ) )
      {
        objectinstance.CustomUpdate( io, isoverwritemanualconfig );
      }
      
    }
    
    // Get the set of old SalesDemand to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of SalesDemand to be deleted
    // Only delete SalesDemand that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}