hongji.li
2023-10-17 d8f04d282d35a4b9f8244405573ddf2e6a4b5310
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' }
}