Quintiq file version 2.0
#parent: ListTransportCapacity
Response OnClick () id:Response_ListTransportCapacity_MenuRemoveRedundant_OnClick
{
  #keys: '[121458.0.773739334]'
  Body:
  [*
    // Remove redundant transport capacities
    units := selectset( MacroPlan, Unit, unit, unit.TransportCapacity( relsize ) > 0 );
    TransportCapacity::RemoveRedundant( units );
  *]
  CanBindMultiple: false
  DefinitionID => /ListTransportCapacity/Responsedef_ListTransportCapacity_Menu_OnClick
  Initiator: 'MenuRemoveRedundant'
  Precondition:
  [*
    return MacroPlan::HasMacroPlan( MacroPlan, feedback );
  *]
}