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 );
|
}
|
}
|
}
|
*]
|
}
|
