1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method PlanSupply ( 
 |    MacroPlan macroplan, 
 |    String productid, 
 |    Unit unit, 
 |    String routingid, 
 |    Real supplyquantity 
 |  ) 
 |  { 
 |    TextBody: 
 |    [* 
 |      products := construct( Product_MPs ); 
 |      product := macroplan.FindProduct( productid ); 
 |      products.Add( product ); 
 |       
 |      operation := select( unit, Operation, op, op.RoutingID() = routingid ); 
 |      periodtaskoperation := operation.FindPeriodTaskOperation( macroplan.StartOfPlanning(), operation.ID() ); 
 |       
 |      newsupply := select(  periodtaskoperation, NewSupply, supply, supply.IsForProduct(  products ) ); 
 |      newsupply.Update( supplyquantity, true ); 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |