bugfix

yypsybs

2023-09-22 585b0c8daf1305c498186609fb82b79c12a02e29

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
Quintiq file version 2.0
#parent: #root
Method CreateScaleFactors (
  StrategyLevelMacroPlan slm
)
{
  TextBody:
  [*
    strategymp := this.MacroPlan().StrategyMacroPlan();
    invholding := strategymp.InventoryHoldingScalingFactor()
    mass := strategymp.MassScalingFactor(); 
    money := strategymp.MonetaryScalingFactor(); 
    time := strategymp.TimeScalingFactor(); 
    timeaccount := strategymp.TimeAccountScalingFactor(); 
    
    
    if ( not isnull( slm ) and slm.MetaLastAutoScalingRun().IsFinite() ) // when providing slm we use level specific factors instead 
    {
      invholding := slm.MetaScalingFactorInventoryHolding(); 
      mass := slm.MetaScalingFactorMass(); 
      money := slm.MetaScalingFactorMonetary(); 
      time := slm.MetaScalingFactorTime(); 
      timeaccount := slm.MetaScalingFactorTimeAccount(); 
      assert( invholding > 0 and mass > 0 and money > 0 and time > 0 and timeaccount > 0, 'Unexpected scaling factor <=0. For level ', slm.Level() ); 
    }
    
    scalingalgorithm := this.AlgorithmScaling();  
    
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameInventoryHolding(), invholding  ); 
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameMass(), mass ); 
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameMonetary(), money ); 
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameNone(), 1.0 ); 
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameTime(), time ); 
    scalingalgorithm.SetScaleFactor( Optimization::ScalingTypeNameTimeAccount(), timeaccount );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}