Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

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
Quintiq file version 2.0
#parent: #root
Method MPSyncPISPSpecification_MP (
  Boolean isoverwitemanualconfig,
  IOPISPSpecifications iopispspecifications
)
{
  Description: 'Synchronization of PISP Specification for MPSync'
  TextBody:
  [*
    // Select a set of existing PISPSpecification
    existing := selectset( this, PISPSpecification, item, true );
    updates := construct( PISPSpecifications );
    
    // Traverse the new set of valid PISPSpecification
    traverse( iopispspecifications , Elements, io, io.IsValid() )
    {
      // Find existing PISPSpecification
      objectinstance := PISPSpecification::FindPISPSpecificationTypeIndex( io.ProductID(), io.StockingPointID() );
      // Find existing Product_MP
      product := Product_MP::FindProductTypeIndex( io.ProductID() );
      // Find existing StockingPoint_MP
      sp := StockingPoint_MP::FindStockingPointTypeIndex( io.StockingPointID() );
      
      // If no existing PISPSpecification is found, and there's valid Product_MP and StockingPoint_MP, create one
      if( not ( isnull( product ) or isnull( sp ) ) )
      {
        if( isnull( objectinstance ) )
        {
          objectinstance := PISPSpecification::Create( product,
                                                       sp,
                                                       io.HasUserUnitOfMeasurement(),
                                                       io.UnitOfMeasurementName(),
                                                       io.IsNegativeInventoryAllowed(),
                                                       io.IsExcluded(),
                                                       io.IsExcludedFromBalancing(),
                                                       io.IsSafetyStockKept(),
                                                       io.InputLotSize(),
                                                       io.IsExcludeShelfLifeAndMaturation(),
                                                       true );
        }
        // Else if the PISPSpecification is not manually configured or the imported instance should overwrite manual configuration,
        // update the existing PISPSpecification
        else if( not objectinstance.IsManuallyConfigured() or isoverwitemanualconfig )
        {
          // Update PISPSpecification
          objectinstance.Update( io.HasUserUnitOfMeasurement(),
                                 io.UnitOfMeasurementName(),
                                 io.IsNegativeInventoryAllowed(),
                                 io.IsExcluded(),
                                 io.IsExcludedFromBalancing(),
                                 io.IsSafetyStockKept(),
                                 io.InputLotSize(),
                                 io.IsExcludeShelfLifeAndMaturation(),
                                 true );
          updates.Add( objectinstance );
        }
        
        if( not isnull( objectinstance ) )
        {
          objectinstance.CustomUpdate( io, isoverwitemanualconfig );  
        }
      }
    }
    
    // Get the set of old PISPSpecification to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of PISPSpecification to be deleted
    // Only delete PISPSpecification that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwitemanualconfig )
    {
      ele.Delete();
    }
  *]
}