Quintiq file version 2.0
#parent: #root
Response OnClick () id:Response_ListStockingPoint_MenuNew_OnClick
{
  #keys: '[11660.0.15299429]'
  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 => /Responsedef_ListStockingPoint_Menu_OnClick
  Initiator: 'MenuNew'
  Precondition:
  [*
    return MacroPlan::HasMacroPlan( MacroPlan, feedback );
  *]
}
