Quintiq file version 2.0
#parent: #root
Method NewStockingPoint (
  Unit parentUnit,
  FormEntities formEntities
) id:Method_DialogCreateEditStockingPoint_NewStockingPoint
{
  #keys: '[135040.0.213312472]'
  Body:
  [*
    // To create a new stocking point
    obj := MacroPlan.StockingPoint_MP( relshadow,
                                       ID := '',
                                       Unit := parentUnit,
                                       Currency_MP := MacroPlan.BaseCurrency(),
                                       IsPlannedInfinite := true,
                                       Start := Date::MinDate(),
                                       End := Date::MaxDate(),
                                       UnitOfMeasure_MP := MacroPlan.DefaultUnitOfMeasure() );
    
    DataHolderForm.Data( formEntities );
    
    // Set data to dataholder because Form cannot bind to shadow yet
    DataHolderDialogData.Data( &obj );
    
    Form.SetDefaultValue();
    
    ApplicationMacroPlanner.ShowFormModal( this );
  *]
}
