Quintiq file version 2.0
|
#parent: #root
|
Method FixDecisionVariablesToCurrentPlanBasedOnLevel (
|
CapacityPlanningSuboptimizer_CapacityPlanningAlgorithm program,
|
const RunContextForCapacityPlanning runcontext,
|
const LibOpt_Scope scope
|
) const
|
{
|
TextBody:
|
[*
|
/*
|
subopt := this;
|
mustfixduetocurrentlevel := (subopt.CurrentLevel() + 1 < subopt.FocusLevel() );
|
|
msg := 'Must fix decision vars:' + [String] mustfixduetocurrentlevel + ' level = '+ [String] (subopt.CurrentLevel()+1) + String::NewLine();
|
userperiodtasks := selectset( runcontext, UserPeriodTask, pto, true, true );
|
nrfixed := 0;
|
nrunfixed := 0;
|
traverse( this.GetOperationInOptimizerRun(), Elements, operation )
|
{
|
periods := subopt.GetPeriodsForOperation( scope, operation );
|
traverse( periods, Elements, period )
|
{
|
var := program.PTQtyVariables().Get( operation, period );
|
if ( mustfixduetocurrentlevel )
|
{
|
// Freeze the user planning period tasks
|
|
pt := select( operation, PeriodTaskOperation, po, true, po.UnitPeriod().Period_MP() = period );
|
valuetofix := guard( pt.Quantity(), 0.0 );
|
subopt.FixVariableStyleGuide( var, valuetofix );
|
nrfixed++;
|
}
|
else
|
{
|
this.SetPTQtyVariableProperties( scope, runcontext, userperiodtasks, operation, period, var );
|
nrunfixed++;
|
}
|
}
|
}
|
|
this.FixUserPeriodTask( userperiodtasks, program ); // don't alter the user period task operations
|
|
msg := msg + 'ops fixed, unfixed= ' + [String]nrfixed + ','+ [String] nrunfixed + String::NewLine();
|
|
// fixing trips
|
nrfixed := 0;
|
nrunfixed := 0;
|
traverse( scope.GetProductInTripInOptimizerRun(), Elements, productintrip )
|
{
|
var := program.TripNewSupplyVariables().Get( productintrip );
|
if ( mustfixduetocurrentlevel )
|
{
|
subopt.FixVariableStyleGuide( var, productintrip.Quantity() );
|
nrfixed++;
|
}
|
else
|
{
|
var.LowerBound( productintrip.PITVarInitLowerBound() );
|
var.UpperBound( productintrip.PITVarInitUpperBound() );
|
nrunfixed++;
|
}
|
}
|
msg := msg + 'trips fixed, unfixed= ' + [String]nrfixed + ','+ [String] nrunfixed + String::NewLine();
|
|
// Freeze variables for SalesDemands
|
nrfixed := 0;
|
nrunfixed := 0;
|
traverse( scope.GetLeafSalesDemandInPeriodInRun(), Elements, lsdip, scope.Contains( lsdip.ProductInStockingPoint_MP().PISPInOptimizerRun() ) )
|
{
|
var := program.SalesDemandQtyVariables().Get( lsdip ); // Fulfilled quantity
|
if ( mustfixduetocurrentlevel )
|
{
|
subopt.FixVariableStyleGuide( var, lsdip.FulfilledQuantity() );
|
nrfixed++;
|
}
|
else
|
{
|
var.LowerBound( lsdip.SalesDemandQtyVarInitLowerBound() );
|
var.UpperBound( lsdip.SalesDemandQtyVarInitUpperBound() );
|
nrunfixed++;
|
}
|
}
|
|
traverse( scope.GetAggregatedSalesDemandInPeriodInRun(), Elements, asdip )
|
{
|
traverse ( asdip, DisaggregatedSalesDemandInPeriod, dasdip,
|
scope.Contains( dasdip.AsPlanningBaseSalesDemandInPeriod().PISPIPInOptimizerRun() ) )
|
{
|
var := program.DisaggregatedSalesDemandQtyVariables().Get( dasdip );
|
if ( mustfixduetocurrentlevel )
|
{
|
subopt.FixVariableStyleGuide( var, dasdip.FulfilledQuantity() );
|
nrfixed++;
|
}
|
else
|
{
|
var.LowerBound( dasdip.SalesDemandQtyVarInitLowerBound() );
|
var.UpperBound( dasdip.SalesDemandQtyVarInitUpperBound() );
|
nrunfixed++;
|
}
|
}
|
}
|
msg := msg + 'sales demands fixed, unfixed= ' + [String]nrfixed + ','+ [String] nrunfixed;
|
debuginfo( msg );
|
*]
|
InterfaceProperties { Accessibility: 'Module' }
|
}
|
