Quintiq file version 2.0
#parent: #root
Method NewUnit (
  Unit parentUnit,
  FormEntities formEntities
) id:Method_DialogCreateEditUnit_NewUnit
{
  #keys: '[135040.0.213312472]'
  Body:
  [*
    // To create a new unit
    owner := MacroPlan;
    obj   := owner.Unit( relshadow, 
                         Parent           := parentUnit,
                         Currency_MP      := MacroPlan.BaseCurrency(),
                         UnitOfMeasure_MP := MacroPlan.DefaultUnitOfMeasure(),
                         StartDate        := Date::MinDate(),
                         EndDate          := Date::MaxDate(),
                         ID               := '',
                         CapacityType     := GlobalParameters_MP::GetCapacityTypeInfinite()
                        );
    
    DataHolderForm.Data( formEntities );
    
    // Set data to dataholder because Form cannot bind to shadow yet
    DataHolderDialogData.Data( &obj );
    
    Form.SetDefaultValue();
    
    ApplicationMacroPlanner.ShowFormModal( this );
  *]
}