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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Quintiq file version 2.0
#parent: #root
StaticMethod ValidateInput (
  output String feedback_o,
  Unit unit,
  DateTime start,
  String timeunit,
  Real lotsize,
  Real minimumquantity,
  Real maximumquantity,
  Boolean hassecondarycapacity,
  Real secondarylotsize,
  Real secondarymincapacity,
  Real secondarymaxcapacity,
  UnitOfMeasure_MP secondaryuom,
  TransportCapacity transportcapacity,
  Boolean checkunique,
  output String sanitycheckfb_o
) declarative remote as Boolean
{
  Description: 'Check for input obtained from UI.'
  TextBody:
  [*
    // Validate input for TransportCapacity
    feedback_o := '';
    sanitycheckfb_o := '';
    gp := guard( unit.MacroPlan().GlobalParameters_MP(), null( GlobalParameters_MP ) );
    
    // Check if the unit availability has unique primary keys
    if( checkunique
        and not TransportCapacity::IsPrimaryKeysUnique( unit, start, transportcapacity ) )
    {
      feedback_o := Translations::MP_TransportCapacity_ValidateInput_IsNotUnique();
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check if lot size is larger than zero
    else if( lotsize < 0 )
    {
      feedback_o := Translations::MP_ValidateInput_IsNegativeLotSize( lotsize );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check for user capacity
    // check if min quantity is larger than zero
    else if( minimumquantity < 0.0 )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_IsNegativeMinCapacity( minimumquantity );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check if max quantity is larger than zero
    else if( maximumquantity < 0.0 )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_IsNegativeMaxCapacity( maximumquantity );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check if max quantity is larger than lot size
    else if( maximumquantity < lotsize )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_IsMaxCapacityLessThanLotSize( maximumquantity, lotsize );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check if max quantity is within the allowed range
    else if( not isnull( gp ) and maximumquantity <> 0
             and not GlobalParameters_MP::GetIsValueWithinRange( maximumquantity,
                                                                 gp.AbsoluteUpperLimit(),
                                                                 gp.AbsoluteLowerLimit() ) )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_InvalidMaxCapacity( maximumquantity,
                                                                                             gp.AbsoluteUpperLimit(),
                                                                                             gp.AbsoluteLowerLimit() );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();                                                                                     
    }
    // check if min quantity is within the allowed range
    else if( not isnull( gp ) and  minimumquantity <> 0
             and not GlobalParameters_MP::GetIsValueWithinRange( minimumquantity,
                                                                 gp.AbsoluteUpperLimit(),
                                                                 gp.AbsoluteLowerLimit() ) )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_IsInvalidMinCapacity( minimumquantity,
                                                                                           gp.AbsoluteUpperLimit(),
                                                                                           gp.AbsoluteLowerLimit() );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();                                                                                       
    }
    // check if min & max quantity conbination is valid
    else if( minimumquantity > maximumquantity )
    {
      feedback_o := Translations::MP_TransportAvailability_ValidateInput_IsMaxCapacityLessThanMinCpacity( maximumquantity, minimumquantity );
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // check if unit is provided
    else if( isnull( unit ) )
    {
      feedback_o := Translations::MP_TransportCapacity_ValidateInput_IsNullUnit();
      sanitycheckfb_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataWarning();
    }
    
    // if previous has no error and has secondary capacity is checked, we need to validate the secondary capacity field
    if( feedback_o = '' and hassecondarycapacity )
    {
      TransportCapacity::GetHasValidSecondaryCapacityFields( feedback_o, 
                                                             sanitycheckfb_o,  
                                                             secondarylotsize, 
                                                             secondarymincapacity,
                                                             secondarymaxcapacity,
                                                             secondaryuom,
                                                             unit.UnitOfMeasureName(),
                                                             gp );
    }
    
    // Add instance text if any of the preconditions above are violated
    if( feedback_o <> '' )
    {
      unitname := MacroPlan::GetSubstituteName( guard( unit.Name(), '' ) );
      feedback_o :=  SanityCheckMessage::GetFormattedMessage( Translations::MP_TransportCapacity_Instance( unitname, start ),
                                                              feedback_o );
    }
    
    return feedback_o = '';
  *]
}