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();
|
}
|
*]
|
}
|
