Quintiq file version 2.0
|
#parent: #root
|
Method MPSyncServiceLevel (
|
Boolean isoverwritemanualconfig,
|
IOServiceLevels ioservicelevels
|
)
|
{
|
Description: 'Synchronization of ServiceLevel for MPSync'
|
TextBody:
|
[*
|
// Select a set of existing ServiceLevel
|
existing := selectset( this, ServiceLevel, item, true );
|
updates := construct( ServiceLevels );
|
|
// Traverse the new set of valid ServiceLevel
|
traverse( ioservicelevels , Elements, io, io.IsValid() )
|
{
|
id := io.ID();
|
productid := io.ProductID();
|
spid := io.StockingPointID();
|
|
// Find existing ServiceLevel
|
objectinstance := ServiceLevel::FindServiceLevelTypeIndex( id );
|
|
// Find existing Product_MP
|
product := Product_MP::FindProductTypeIndex( productid );
|
// Find existing StockingPoint_MP
|
stockingpoint := StockingPoint_MP::FindStockingPointTypeIndex( spid );
|
// Find existing SalesSegment_MP
|
salessegment := SalesSegment_MP::FindSalesSegmentTypeIndex( io.SalesSegmentName() );
|
|
// Check if there's valid Product_MP and StockingPoint_MP
|
if( not isnull( product )
|
or not isnull( stockingpoint ) )
|
{
|
// If no existing ServiceLevel is found, create one
|
if( isnull( objectinstance ) )
|
{
|
objectinstance := ServiceLevel::Create( this,
|
id,
|
io.IsEnabled(),
|
io.Name(),
|
product,
|
stockingpoint,
|
salessegment,
|
io.TargetPercentage(),
|
io.Start(),
|
io.End(),
|
io.IsUsedForSafetyStockCalculation(),
|
io.IsUsedForPlanningFulfillment(),
|
true )
|
}
|
// Else if the ServiceLevel is not manually configured or the imported instance should overwrite manual configuration,
|
// update the existing ServiceLevel
|
else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
|
{
|
// Update ServiceLevel
|
objectinstance.Update( io.IsEnabled(),
|
io.Name(),
|
product,
|
stockingpoint,
|
salessegment,
|
io.TargetPercentage(),
|
io.Start(),
|
io.End(),
|
io.IsUsedForSafetyStockCalculation(),
|
io.IsUsedForPlanningFulfillment(),
|
true );
|
updates.Add( objectinstance );
|
}
|
|
if( not isnull( objectinstance ) )
|
{
|
objectinstance.CustomUpdate( io, isoverwritemanualconfig );
|
}
|
}
|
}
|
|
// Get the set of old ServiceLevel to be deleted
|
tobedeleteset := existing.Difference( updates );
|
|
// Traverse the set of ServiceLevel to be deleted
|
// Only delete ServiceLevel that is not manually configured or the imported instance should overwrite manual configuration
|
traverse( tobedeleteset, Elements, ele,
|
not ele.IsManuallyConfigured() or isoverwritemanualconfig )
|
{
|
ele.Delete();
|
}
|
*]
|
}
|
