同步逻辑由MacroPlan移到MPSync

yypsybs

2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Quintiq file version 2.0
#parent: #root
MethodOverride InitVariablesForPostponedSalesDemands (
  const CapacityPlanningSuboptimizer subopt,
  CapacityPlanningSuboptimizer_CapacityPlanningAlgorithm program,
  const LibOpt_Scope scope,
  Number optminpostponementperiod,
  Boolean shelflifevaronly
) const
{
  TextBody:
  [*
    lsdip := this; 
    
    if( lsdip.CanBePostponed() and lsdip.NeedsToBePlanned() )
    {
      nextpispip := lsdip.AsPlanningBaseSalesDemandInPeriod().NextPlanningPISPIP();
      
      for( i := 2;
           i <= optminpostponementperiod
           and not isnull( nextpispip );
           i++
         )
      {
        nextpispip := nextpispip.NextPlanningPISPIP();
      }
      
      for( i := optminpostponementperiod;
           i <= lsdip.MaxPostponementPeriod()                                           // within the maximum number of postponement periods
           and not isnull( nextpispip );                                          // the next pispip exists
           i++ )
      {
        if( scope.Contains(  nextpispip.PISPIPInOptimizerRun() ) )
        {
          // DelayedSalesDemandQty variable UoM: PISP
          // look if variable is already defined, because we also init variable for the extra shelf life pispips prior to horizon
          var := ifexpr( shelflifevaronly, program.DelayedSalesDemandQtyVariables().Find( lsdip, nextpispip.Period_MP() ), null(  MPVariable ) );
          if ( isnull( var ) )
          {
            var := program.DelayedSalesDemandQtyVariables().New( lsdip, nextpispip.Period_MP() );
            upperbound := maxvalue( 0.0, lsdip.GetQuantityForOptimizer( scope ) );
            subopt.FreezeVariableUpperBound( var, upperbound );
          } 
               
          if ( nextpispip.ProductInStockingPoint_MP().IsOptShelfLife() ) 
          {
            traverse( nextpispip, ProductInStockingPoint_MP.IncomingShelfLifeDay, islday ) 
            {
              // look if variable is already defined, because we also init variable for the extra shelf life pispips prior to horizon
              dvar := program.DelayedSalesDemandShelfLifeQtyVariables().Find( lsdip, nextpispip.Period_MP(), islday ); 
              if ( isnull( dvar ) )
              {
                program.DelayedSalesDemandShelfLifeQtyVariables().New( lsdip, nextpispip.Period_MP(), islday );
              }
            }
          }
        }
        nextpispip := nextpispip.NextPlanningPISPIP();
      }
    }
  *]
}