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 );
  *]
}