Quintiq file version 2.0
#parent: #root
Method UpdateFormsToReadOnly () id:Method_ApplicationLibMacroPlanner_UpdateFormsToReadOnly
{
  #keys: '[127238.1.80072845]'
  Body:
  [*
    // Update all the manual planning form to read only if exceed sizing parameter value
    string:= 'FormProductPlanning;FormProductPlanningMatrix;FormSupplyPlanning;FormTripPlanning;FormPeriodTasks';
    strings := string.Tokenize( ";" );
    isenable := ValueHolderSizing.Data();
    
    traverse( strings, Elements, formname ) 
    { 
      form := Application.Frame().FindChildObject( formname );
     
      if ( not isnull( form ) )
      {
        form.GrantEditSecurity( isenable );
        imageWarning := guard( ApplicationLibMacroPlanner.FindComponentRecursively( form, 'ImageWarningSizing' ).astype( Image ), null( Image ) );
        if( not isnull( imageWarning ) )
        {
          imageWarning.Visible( not isenable );
        }
      }
    }
  *]
}