Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml
===================================================================
diff -u -r36239 -r38025
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml (.../Test.cls.xml) (revision 36239)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml (.../Test.cls.xml) (revision 38025)
@@ -3,7 +3,7 @@
vhUnitTest.TestCase
-
+
-
+
-
+
-
+
-
+
-
+
+
+
+
+
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml
===================================================================
diff -u -r36238 -r38025
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 36238)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 38025)
@@ -7,7 +7,12 @@
%Boolean
3) {
+ Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("Input", $classname(Product), "FrontOndersteuningAantal", Product.FrontOndersteuningAantal,"","")
+ Do Exceptions.Insert(Exception)
+ }
+
+ If ((Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()) || (Product.Klasse = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum()) || (Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon()) && (+Product.FrontOndersteuningAantal > 0)) {
Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse)
Do Exception.AddCombination($classname(Product),"FrontOndersteuningAantal",Product.FrontOndersteuningAantal)