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 New () id:Method_DialogCreateEditExternalSupply_New
{
  #keys: '[136682.1.2082707088]'
  Body:
  [*
    //Create New Inventory Supply
    
    id := MacroPlan.IDHolder().GetInventorySupplyID();
    stockingpoint := select( DataHolderStockingPoint.Data(), Elements, e, not e.IsSystem() );
    owner := select( DataHolderProduct.Data(), Elements, product, not product.IsSystem() and product.IsLeaf() );
    // directly trying to use StartOfPlanningPeriod.StartDate could give errors
    // if none of the periods are used for planning. Thus, added a guard and a local variable.
    startOfPlanningPeriod := MacroPlan.StartOfPlanningPeriod();
    date := guard( startOfPlanningPeriod.StartDate(), Date::MinDate() );
    min_mfgdate := date;
    
    
    data := owner.InventorySupply( relshadow,
                                   ID := id,
                                   StockingPoint_MP := stockingpoint,
                                   Date := date,
                                   ManufacturedDate := min_mfgdate );
                                     
    
    DataHolderExternalSupply.Data( &data );
    pnlContent.OnUserUpdateUI( owner, stockingpoint, Form.IsBatchEdit() );
    ApplicationMacroPlanner.ShowFormModal( Form );
  *]
}