Quintiq file version 2.0
|
#parent: #root
|
Method MPSyncSafetyStocks (
|
Boolean isoverwritemanualconfig,
|
IOSafetyStocks iosafetystocks
|
)
|
{
|
Description: 'Synchronization of Safety stocks for MPSync'
|
TextBody:
|
[*
|
// Select a set of existing SafetyStock
|
existing := selectset( this, Product_MP.SafetyStock, item, true );
|
updates := construct( SafetyStocks );
|
|
// Traverse the new set of valid InventorySpecification
|
traverse( iosafetystocks , Elements, io, io.IsValid() )
|
{
|
productid := io.ProductID();
|
spid := io.StockingPointID();
|
start := io.Start();
|
|
// Find existing SafetyStock
|
objectinstance := SafetyStock::FindTypeIndexSafetyStock( 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 := SafetyStock::Create( product,
|
sp,
|
start,
|
io.HasTargetInDays(),
|
io.TargetInDays(),
|
io.TargetInQuantity(),
|
false, // IsCalculated = false
|
true, // HasUserTarget = true
|
true );
|
|
objectinstance.UpdatePISPSpecification( product.ID(), sp.ID(), true );
|
}
|
}
|
// Else if the Safety is not manually configured or the imported instance should overwrite manual configuration,
|
// update the existing InventorySpecification
|
else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
|
{
|
// Update Safetystock
|
if( not ( isnull( sp ) or isnull( product ) ) )
|
{
|
objectinstance.Update( product,
|
sp,
|
start,
|
io.HasTargetInDays(),
|
io.TargetInDays(),
|
io.TargetInQuantity(),
|
false, //IsCalculated = false
|
true, // HasUserTarget = true
|
true );
|
|
objectinstance.UpdatePISPSpecification( product.ID(), sp.ID(), 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();
|
}
|
*]
|
}
|
