Quintiq file version 2.0
#parent: GanttChartUnitCalendar/MenuIsPlannedInfinite
Response OnPopupUpdateUI (
  structured[UnitPeriod] selections
) id:Response_GanttChartUnitCalendar_MenuIsPlannedInfinite_OnPopupUpdateUI
{
  #keys: '[131962.0.9746568]'
  Body:
  [*
    // Update menu text and image
    element := selections.Element( 0 );
    isInfinite := element.IsPlannedInfinite();
    
    text := "&Plan as infinite";
    image := "CLOCK_REFRESH";
    
    if( isInfinite )
    {
      text := "&Plan as finite";
      
      if( element.Unit().HasCapacityTypeTransportBase() )
      {
        image := "TRUCK_RED";  
      }
      else if( element.Unit().HasCapacityTypeTimeBase() )
      {
        image := "CLOCK";
      }
      else if( element.Unit().HasCapacityTypeQuantityBase() )
      {
        image := "WEIGHT";   
      }  
    }
    
    this.Text( text );
    this.SetProperty( "Image", image );
  *]
  CanBindMultiple: false
  DefinitionID => /GanttChartUnitCalendar/Responsedef_GanttChartUnitCalendar_MenuIsPlannedInfinite_OnPopupUpdateUI
}