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
Quintiq file version 2.0
#parent: #root
StaticMethod CreateAlgorithmRunMessage (
  MacroPlan macroplan
)
{
  Description: 'Create sanity check message for algorithm run.'
  TextBody:
  [*
    // Adhi Aug-11-2015 (created)
    traverse( macroplan, SanityCheckGroup.astype( SanityCheckGroupAlgorithmRun ).InvalidAlgorithmRun,
              invalidobject )
    {
     feedbacks := construct( Strings );
     sanitycheckfeedbacks  := construct( Strings )
     invalidobject.DoSanityCheckGroupAlgorithmRun( feedbacks,sanitycheckfeedbacks );
       
     i := 0;
     traverse( feedbacks, Elements, fb )
     {
      if( not exists( invalidobject, SanityCheckMessageAlgorithmRun, msg, msg.Description() = fb ) )
      {
        //tokenize msg to retrieve category level and seperate the actual feedback
        sanitycheckmessage := SanityCheckMessageAlgorithmRun::Create( invalidobject.SanityCheckGroupAlgorithmRun(),
                                                                     fb,
                                                                     true,
                                                                     sanitycheckfeedbacks.Element( i ) );
        sanitycheckmessage.AlgorithmRun( relset, invalidobject );
      }
      i ++;
     }
    }
  *]
}