chenqinghong
2024-05-07 3ec06a830367465068963156dcc1d8e522571c13
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
Quintiq file version 2.0
#parent: #root
Method CreatePostponement (
  MacroPlan macroplan
)
{
  TextBody:
  [*
    salessegmentname := 'Carrefour Austria'; 
    salessegment := select( macroplan, SalesSegment_MP, s, true, s.Name() = salessegmentname ); 
    if ( isnull( salessegment.PostponementSpecification() ) ) 
    {
      PostponementSpecification::Create( salessegment, 'Month', 3, 'Month', 3, false ); 
    }
    sopyear := macroplan.StartOfPlanning().Year(); 
    startdate := Date::Construct( sopyear, 1, 1 );  
    product := select( macroplan, Product_MP, p, true, p.Name() = 'Lowfat Vanilla 6 pk' ); 
    
    lsdip := select( salessegment, 
                     SalesDemandInPeriod.astype( LeafSalesDemandInPeriod ), 
                     lsdip,
                     lsdip.ProductID() = product.ID()
                     and lsdip.StartDate() = startdate ); 
    
    topispip := lsdip.ProductInStockingPointInPeriodPlanning().NextPlanningPISPIP().astype( ProductInStockingPointInPeriodPlanningLeaf ); 
    ismanual := true; 
    
    lsdip.Postpone( 100.0, ismanual, topispip);
  *]
  InterfaceProperties { Accessibility: 'Module' }
}