bugfix

yypsybs

2023-09-22 585b0c8daf1305c498186609fb82b79c12a02e29

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
Quintiq file version 2.0
#parent: #root
Method MPSyncStockingPointCost (
  Boolean isoverwritemanualconfig,
  IOStockingPointCosts iostockingpointcosts
)
{
  Description: 'Synchronization of StockingPointCost for MPSync'
  TextBody:
  [*
    // Select a set of existing StockingPointCost
    existing := selectset( this, StockingPoint_MP.StockingPointCost, item, true );
    updates := construct( StockingPointCosts );
    
    // Traverse the new set of valid StockingPointCost
    traverse( iostockingpointcosts , Elements, io, io.IsValid() )
    {
      indexkey := io.ID();
      // Find existing StockingPointCost
      objectinstance := StockingPointCost::FindStockingPointCostTypeIndex( indexkey );
      // Find existing StockingPoint_MP
      sp := StockingPoint_MP::FindStockingPointTypeIndex( io.StockingPointID() );
      // Find existing Account_MP
      account := Account_MP::FindAccountTypeIndex( io.AccountName() );
      
      // Check if there's valid StockingPoint_MP and Account_MP
      if( not ( isnull( sp ) or isnull( account ) ) )
      {
        // If no existing StockingPointCost is found, create one
        if( isnull( objectinstance ) )
        {    
          objectinstance := StockingPointCost::Create( indexkey,
                                                       sp,
                                                       account,
                                                       io.CostDriver(),
                                                       io.Start(),
                                                       io.TimeUnit(),
                                                       io.LengthOfTime(),
                                                       io.Cost(),
                                                       true ).astype( StockingPointCost );
        }
        // Else if the StockingPointCost is not manually configured or the imported instance should overwrite manual configuration,
        // update the existing StockingPointCost
        else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
        {
          // Update StockingPointCost
          objectinstance.Update( account, io.CostDriver(), io.Start(),  io.TimeUnit(), io.LengthOfTime(), io.Cost() ,true );
          
          updates.Add( objectinstance );
        }
        
        if( not isnull( objectinstance ) )
        {
          // Extended method
          objectinstance.CustomUpdate( io, isoverwritemanualconfig ); 
        }
      }
    }
    
    // Get the set of old StockingPointCost to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of StockingPointCost to be deleted
    // Only delete StockingPointCost that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}