换型损失设置新增编辑完成

lazhen

2024-06-06 4eb6f16a70cbb5c5dff4d8994fb8c042d25dbac2

 _Main/BL/Type_ChangeLossSetting/StaticMethod_ValidateInput.qbl

@@ -1,6 +1,7 @@
Quintiq file version 2.0
#parent: #root
StaticMethod ValidateInput (
  output String feedback,
  MacroPlan owner,
  ChangeLossSetting old,
  Unit unit,
@@ -13,13 +14,19 @@
  [*
    // 甄兰鸽 Jun-5-2024 (created)
    feedback := '';
    
    if( isnull( unit ) or isnull( product1 ) or isnull( product2 ) or number < 1 ){
      feedback := Translations::MP_ChangeLossSetting_CheckNull();
    }
    if( exists( owner, ChangeLossSetting, cls, cls <> old and cls.Unit() = unit and cls.ProductFirst() = product1 and cls.ProductSecond() = product2 ) ){
    if( product1 = product2 ){
      feedback := Translations::MP_ChangeLossSetting_SameProduct();
    }
    if( exists( owner, ChangeLossSetting, cls, cls <> old and cls.Unit() = unit 
                and ( ( cls.ProductFirst() = product1 and cls.ProductSecond() = product2 ) 
                      or ( cls.ProductFirst() = product2 and cls.ProductSecond() = product1 ) ) ) ){
      feedback := Translations::MP_ChangeLossSetting_Exist()
    }
        
    
    return feedback = '';
  *]
}