Merge branch 'dev_hrh_global'

yy

2023-09-25 ab6a21c73e6507923beb22611af772641321c256

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
38
39
40
41
42
43
44
45
46
47
48
Quintiq file version 2.0
#parent: #root
Method DebugWriteVariables (
  CapacityPlanningSuboptimizer_CapacityPlanningAlgorithm program,
  LibOpt_Scope scope,
  ProductInStockingPointInPeriodPlannings pispipsinrun
)
{
  TextBody:
  [*
    if ( this.MacroPlan().Optimization().DebugMode() ) 
    {
      traverse(  scope.GetStockingPointInPeriodInOptimizerRun(), Elements, spip, not spip.StockingPoint_MP().IsPlannedInfinite() ) 
      {
        invvar := program.SPInvQtyVariables().Get( spip );
        overloadvar := program.StockingPointCapacityOverloadedVariables().Get( spip ); 
        spip.DebugSPCapacityOverloadedVariable( overloadvar.OptimalValue() ); 
        spip.DebugSPInventoryQtyVariable( invvar.OptimalValue() ); 
      }
      
      traverse( pispipsinrun, Elements.astype( ProductInStockingPointInPeriodPlanningLeaf ), pleaf ) 
      {
        pleaf.DebugInventoryEndVariable( program.InvQtyVariables().Get( pleaf ).OptimalValue() ); 
        
        if ( pleaf.ProductInStockingPoint_MP().IsOptShelfLife() or pleaf.ProductInStockingPoint_MP().IsOptMaturation() )
        {
          cwstr := ''; 
          cpstr := ''; 
          cdstr := ''; 
          traverse( pleaf, ProductInStockingPoint_MP.IncomingShelfLifeDay, islday ) 
          {
            varcd := program.CumulativeDemandVariables().Get( pleaf, islday );
            varcw := program.CumulativeWasteVariables().Get( pleaf,islday );
            varcp := program.CumulativeProductionVariables().Get( pleaf, islday ); 
            
            cwstr := cwstr + ',' + [String] varcw.OptimalValue() + '[' + [String] islday.ShelfLifeDays() + ']'; 
            cpstr := cpstr + ',' + [String] varcp.OptimalValue() + '[' + [String] islday.ShelfLifeDays() + ']'; 
            cdstr := cdstr + ',' + [String] varcd.OptimalValue() + '[' + [String] islday.ShelfLifeDays() + ']'; 
          }
          pleaf.DebugOptimizerCumulProduction(cpstr); 
          pleaf.DebugOptimizerCumulDemand(cdstr); 
          pleaf.DebugOptimizerWaste(cwstr);
        } 
      }
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}