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
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
Quintiq file version 2.0
#parent: #root
StaticMethod ValidateInput (
  output String feedback_o,
  output String sanitycheckfeedback_o,
  Product_MP product,
  StockingPoint_MP stockingpoint,
  Date start,
  Boolean hastargetindays,
  Real targetindays,
  Real targetinquantity,
  SafetyStock safetystock,
  Boolean checkunique
) declarative remote as Boolean
{
  Description: 'Check for input obtained from UI'
  TextBody:
  [*
    feedback_o := '';
    sanitycheckfeedback_o := '';
    
    // Has product
    if( isnull( product ) )
    {
      feedback_o := Translations::MP_SafeftyStock_ValidateInput_IsNullProduct();
      sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    
    
    // Is unique
    else if( checkunique
             and not SafetyStock::IsPrimaryKeysUnique( product, stockingpoint, start, safetystock ) )
    {
      feedback_o := Translations::MP_SafetyStock_ValidateInput_IsNotUnique();
      sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // Has target in day > 0
    else if( hastargetindays
             and targetindays < 0 )
    {
      feedback_o := Translations::MP_SafetyStock_ValidateInput_IsNegativeTargetInDays( targetindays );
      sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    // Has target in quantity > 0
    else if( not hastargetindays
             and targetinquantity < 0.0 )
    {
      feedback_o := Translations::MP_SafetyStock_ValidateInput_IsNegativeTargetInQuantity( targetinquantity );
      sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    
    // Has stocking point
    else if( isnull( stockingpoint ) )
    {
      feedback_o := Translations::MP_SafetyStock_ValidateInput_IsNullStockingPoint();
      sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataIssue();
    }
    
    else if ( not isnull( product ) and not isnull( stockingpoint ) )
    {
      pispspec:= select(  product, PISPSpecification, spec, spec.StockingPointID() = stockingpoint.ID() ); 
      
      if( not guard( pispspec.IsSafetyStockKept(), false ) )
      {
        feedback_o := Translations::MP_ProductInStockingPoint_ValidateIsSafetyStockKept();
        sanitycheckfeedback_o := SanityCheckCategoryLevel::GetSanityCheckCategoryDataWarning();   
      }
       
    }
    
    
    
    if( feedback_o <> '' )
    {
      name := MacroPlan::GetSubstituteName( guard( product.Name(), '' ) );
      instance := Translations::MP_SafetyStock_Instance( name, start );
    
      feedback_o := SanityCheckMessage::GetFormattedMessage( instance, feedback_o );
    }
    
    return feedback_o = '';
  *]
}