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)