Quintiq file version 2.0
#parent: ListEntityTreeInPanel
Response OnClick () id:Response_ListEntityTreeInPanel_MenuNewStockingPoint_OnClick
{
  #keys: '[127710.1.1015000751]'
  Body:
  [*
    // Create new stocking points
    dlg := construct ( DialogCreateEditStockingPoint );
    sp := dlg.NewStockingPoint( this, null( Unit ), DataHolderSelectedGroup.Data(), GlobalParameters_MP::GetDefaultGridX(), GlobalParameters_MP::GetDefaultGridY() ); 
    
    if( not isnull( sp ) )
    {
      objects := construct( StockingPoint_MPs ); 
      objects.Add( sp );
      ApplicationLibMacroPlanner.ExpandNavigationSelection( objects );
    }
  *]
  DefinitionID => //ListUnitTree/Responsedef_ListUnitTree_Menu_OnClick
  Initiator: 'MenuNewStockingPoint'
  Precondition:
  [*
    return MacroPlan::HasMacroPlan( MacroPlan, feedback );
  *]
}