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
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
Quintiq file version 2.0
#parent: #root
Method MPSyncInventorySpecification (
  Boolean isoverwritemanualconfig,
  IOInventorySpecifications ioinventoryspecifications
)
{
  Description: 'Synchronization of InventorySpecification for MPSync'
  TextBody:
  [*
    // Select a set of existing InventorySpecification
    existing := selectset( this, Product_MP.InventorySpecification, item, true );
    updates := construct( InventorySpecifications );
    
    // Traverse the new set of valid InventorySpecification
    traverse( ioinventoryspecifications , Elements, io, io.IsValid() )
    {
      productid := io.ProductID();
      spid := io.StockingPointID();
      start := io.Start();
      
      // Find existing InventorySpecification
      objectinstance := InventorySpecification::FindInventorySpecificationTypeIndex( productid,
                                                                                     spid,
                                                                                     start );
      // Find existing StockingPoint_MP
      sp := StockingPoint_MP::FindStockingPointTypeIndex( spid );
      // Find existing Product_MP
      product := Product_MP::FindProductTypeIndex( productid );
      
      // If no existing InventorySpecification is found, and there is valid StockingPoint_MP and Product_MP, create one
      if( isnull( objectinstance ) )
      {
        if( not ( isnull( sp ) or isnull( product ) ) )
        {
          objectinstance := InventorySpecification::Create( product,
                                                            sp,
                                                            start,
                                                            io.HasTargetInDays(),
                                                            io.TargetInDays(),
                                                            io.TargetInQuantity(),
                                                            io.HasMinLevelInDays(),
                                                            io.MinLevelInDays(),
                                                            io.MinLevelInQuantity(),
                                                            io.HasMaxLevel(),
                                                            io.HasMaxLevelInDays(),
                                                            io.MaxLevelInDays(),
                                                            io.MaxLevelInQuantity(),
                                                            false,
                                                            true );
        }
      }
      // Else if the InventorySpecification is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing InventorySpecification
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        // Update InventorySpecification
        if( not ( isnull( sp ) or isnull( product ) ) )
        {
          objectinstance.Update( product,
                                 sp,
                                 start,
                                 io.HasTargetInDays(),
                                 io.TargetInDays(),
                                 io.TargetInQuantity(),
                                 io.HasMinLevelInDays(),
                                 io.MinLevelInDays(),
                                 io.MinLevelInQuantity(),
                                 io.HasMaxLevel(),
                                 io.HasMaxLevelInDays(),
                                 io.MaxLevelInDays(),
                                 io.MaxLevelInQuantity(),
                                 false,
                                 true );
                                 
          updates.Add( objectinstance );
        }
      }
      
      if( not isnull( objectinstance ) )
      {
        objectinstance.CustomUpdate( io, isoverwritemanualconfig );
      }
    }
    
    // Get the set of old InventorySpecification to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of InventorySpecification to be deleted
    // Only delete InventorySpecification that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}