yanyuan
2023-11-10 143ef74e2eeee697ac8fda3d9032a790fbb4e146
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Quintiq file version 2.0
#parent: #root
StaticMethod CreateTransitionMessage (
  MacroPlan macroplan
)
{
  Description: 'Create sanity check message for transitions.'
  TextBody:
  [*
    // Get the limit for number of sanity check messages
    messagelimit := macroplan.GlobalParameters_MP().SanityCheckLimit();
    
    // Get Campaign_MP that has sanity check violation(s)
    invalidtransitions := selectsortedset( macroplan, 
                                           SanityCheckGroup.astype( SanityCheckGroupCampaign ).InvalidTransition, 
                                           invalidobject,
                                           true,
                                           invalidobject.SanityCheckTransitionMostSevere() );
    
                                   
    objcount := 0;
    
    // Traverse the set of Transition_MP and create sanity check message
    // as long as the number of Transition_MP processed doesn't exceed the limit of number of messages
    traverse( invalidtransitions,
              Elements,
              invalidobject,
              objcount <= messagelimit )
    {
      objcount := objcount + 1;
    
      feedbacks := construct( Strings );
      sanitycheckfeedbacks := construct( Strings );
      
      // Get sanity check violation messages and categories
      invalidobject.DoSanityCheckGroupTransition( feedbacks, sanitycheckfeedbacks );
      
      i := 0;
      // Traverse each sanity check violation feedbacks
      traverse( feedbacks, Elements, fb )
      { 
        // Check if there're any SanityCheckMessageCampaign with the same description, if there's none, create one
        if( not exists( invalidobject, SanityCheckMessageCampaign, msg, msg.Description() = fb ) )
        {
          //tokenize msg to retrieve category level and seperate the actual feedback
          sanitycheckmessage := SanityCheckMessageCampaign::Create( invalidobject.SanityCheckGroupCampaign(), 
                                                                    fb, 
                                                                    true,
                                                                    sanitycheckfeedbacks.Element( i ) );
                                                                    
                                                           
          sanitycheckmessage.Transition_MP( relset, invalidobject );
    
        }
        i := i + 1;
      } 
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}