| 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' } |  | } | 
 |