admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
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 );
  *]
}