Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Quintiq file version 2.0
#parent: #root
StaticMethod ValidateInput (
  output String feedback_o,
  MacroPlan macroplan,
  String priorityname,
  Priority priority,
  Boolean checkunique,
  output String sanitycheckfb
) declarative remote as Boolean
{
  Description: 'Check if creation of priority is allowed. Called by designer'
  TextBody:
  [*
       feedback_o := '';
       
       namelengthlimit := GlobalParameters_MP::GetLengthOfNames();
       name := MacroPlan::GetSubstituteName( priorityname );
       
       instance := Translations::MP_Priority_Instance( name );
       
    if( checkunique
                and exists( macroplan, Priority, p, p <> priority, p.Name() = priorityname ) )
       {
         feedback_o := SanityCheckMessage::GetFormattedMessage( instance,
                                                                Translations::MP_Priority_ValidateInput_IsNameExists() );
         sanitycheckfb := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue() ;                                                         
       }
       
       else if( priorityname = '' or priorityname.Length() > namelengthlimit )
       {
         feedback_o := SanityCheckMessage::GetFormattedMessage( instance,
                                                                Translations::MP_Priority_ValidateInput_IsNameEmptyAndExceedLengthLimit( namelengthlimit ) );
         sanitycheckfb := SanityCheckCategoryLevel::GetSanityCheckCategoryDataWarning() ;                                                         
       }
       
       return feedback_o = '';
  *]
}