admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
95
96
97
98
99
100
101
102
103
Quintiq file version 2.0
#parent: #root
Method MPSyncCustomerOrder (
  Boolean isoverwritemanualconfig,
  IOCustomerOrders iocustomerorders
)
{
  Description: 'Synchronization of CustomerOrder for MPSync'
  TextBody:
  [*
    // Select a set of existing CustomerOrder
    existing := selectset( this, SalesDemand.astype( CustomerOrder ), item, true );
    updates := construct( CustomerOrders );
    
    // Traverse the new set of valid CustomerOrder
    traverse( iocustomerorders , Elements, io, io.IsValid() )
    {
      indexkey := io.ID();
      // Find existing CustomerOrder
      objectinstance := CustomerOrder::FindCustomerOrderTypeIndex( 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 CustomerOrder is found
      if( isnull( objectinstance ) )
      {
        // If there's valid Product_MP, StockingPoint_MP, Currency_MP, and SalesSegment_MP, create CustomerOrder
        if( not ( isnull( product ) or isnull( sp ) or isnull( currency ) or isnull( salessegment ) ) )
        {
          objectinstance := CustomerOrder::Create( product,
                                                   sp,
                                                   io.ID(), 
                                                   io.StartDate(),
                                                   io.Quantity(),
                                                   io.Price(),
                                                   io.PriorityName(),
                                                   io.SalesSegmentName(),
                                                   io.CurrencyID(),
                                                   io.UnitOfMeasureName(),
                                                   io.IsExcludedFromFulfillmentKPIUser(),
                                                   io.CustomerName(),
                                                   io.CustomerID(),
                                                   io.OrderID(),
                                                   io.OrderLineID(),
                                                   io.IsEligibleForNetting(),
                                                   io.IsFirmed(),
                                                   true );
        }
      }
      // Else if the CustomerOrder is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing CustomerOrder
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        if( not ( isnull( product ) or isnull( sp ) or isnull( currency ) or isnull( salessegment ) ) )
        {
          // Update CustomerOrder
          objectinstance.Update( product,
                                 sp,
                                 io.StartDate(),
                                 io.Quantity(),
                                 io.Price(),
                                 io.PriorityName(),
                                 io.SalesSegmentName(),
                                 io.CurrencyID(),
                                 io.UnitOfMeasureName(),
                                 io.IsExcludedFromFulfillmentKPIUser(),
                                 io.CustomerName(),
                                 io.CustomerID(),
                                 io.OrderID(),
                                 io.OrderLineID(),
                                 io.IsEligibleForNetting(),
                                 io.IsFirmed(),
                                 true );
                                 
          updates.Add( objectinstance );
        }
      }
      if( not isnull( objectinstance ) )
      {
        objectinstance.CustomUpdate( io, isoverwritemanualconfig );
      }
      
    }
    
    // Get the set of old CustomerOrder to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of CustomerOrder to be deleted
    // Only delete CustomerOrder that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele, not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}