Quintiq file version 2.0
#parent: DataHolderPeriods
Response OnDataChanged () id:Response_BaseFormCapacityPlanning_DataHolderPeriods_OnDataChanged
{
  #keys: '[136682.2.891024112]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebComponent_OnDataChanged'
  QuillAction
  {
    Body:
    [*
      //Zoom based on selected granularity in navigation panel
      data :=  ApplicationMacroPlanner.DataHolderPeriods().Data().Copy(); // refer to global dataholder as this.Data seems referring to old data 
      totalfutureperiods := counter( data, Elements, period, true, not period.IsHistorical() ); 
      level :=1;
      // when total period more than 10, zoomlevel will be 10% of the total future periods bucket 
      if ( totalfutureperiods > 10 )
      {
        level := floor( 0.1 * totalfutureperiods ) ;  
      }
      // sort by time unit level, 1-Hour, 2-Day, 3-Week, 4-Month, 5-Quarter, 6-Year
      timeunits := selectuniquevalues( data, Elements, period, true, [String]period.TimeUnitLevel() + "-" + period.TimeUnit() ); 
      timeunits := selectsortedset( timeunits, Elements, e, true, e.Tokenize( "-" ).Element( 0 ) );// tokenized to sort by time unit level from Day->Week->Month->Quarter->Year  
      customzoomrange := JSON::Array();
      
      traverse( timeunits, Elements, element )
      {
        timeunit := element.Tokenize( "-" ).Element( 1 );
          
        isquarter := timeunit = Translations::MP_GlobalParameters_Quarter();
        size := counter( data, Elements, period, true, not period.IsHistorical() and period.TimeUnit() = timeunit );
        maxloop := size/ level;
        unit := ifexpr( isquarter, Translations::MP_GlobalParameters_Month(), timeunit ) ; //Quarter is not supported, replace with month
        //minimum keep 2 buckets - if zoom in
        for ( i := 2; i <= maxloop; i++ )
        {
          loop := i;
          
          if ( i > 2 )
          {
             loop := loop * level;
          }
          
          loop := loop * ifexpr( isquarter, 3, 1 ) // time 3 if is in quarter, default * 1;
          // Core Tech granularity is plural thus we add "s" to it
          zoomLevel := unit + "s";
          zoom1 := JSON::Object();
          zoom1.Add( 'unit', zoomLevel );
          zoom1.Add( 'count', loop );
          customzoomrange.Add( zoom1);
        }
      }
      
      GanttChartCapacityPlanning.NavigationRange( customzoomrange.Build() );
      
      //Snap to gantt chart
      Form.SnapToGanttChart();
    *]
    GroupServerCalls: false
  }
}