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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  StaticMethod MenuNewAllowed ( 
 |    LibUTF_IterationRun run, 
 |    MacroPlan macroplan, 
 |    Boolean checkallowed, 
 |    NamedValueTree nvt_postponedspec 
 |  ) 
 |  { 
 |    TextBody: 
 |    [* 
 |      dto := DTO_PostponementSpecification::ConstructNew( run, nvt_postponedspec ); 
 |       
 |      feedback := '';                                  
 |      sanitycheckfeedback := ''; 
 |      salessegment := macroplan.FindSalesSegment( dto.SalesSegmentName() ) 
 |      allowed := PostponementSpecification::ValidateInput( feedback, 
 |                                                           sanitycheckfeedback, 
 |                                                           true, 
 |                                                           null( PostponementSpecification ), 
 |                                                           salessegment, 
 |                                                           dto.HorizonTimeUnit(), 
 |                                                           dto.HorizonNrOfTimeUnit(), 
 |                                                           dto.MaxTimeUnit(), 
 |                                                           dto.MaxNrOfTimeUnit() ); 
 |       
 |      text := 'Create PostponementSpecification Precondition check: ' + dto.SalesSegmentName(); 
 |       
 |      UI_Utility::ValidateTrue( run, checkallowed, allowed, text ); 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |