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