Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml =================================================================== diff -u -r37311 -r38154 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml (.../UitsparingValidator.cls.xml) (revision 37311) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml (.../UitsparingValidator.cls.xml) (revision 38154) @@ -30,7 +30,7 @@ Do Exceptions.Insert(Exception) } - If (Product.Klasse="SY2")&&(Product.UitsparingDataAantalUitsparingen=1)&&$$$HasLength(Product.UitsparingDataBreedteM_Product.UitsparingDataBreedteZ2) { + If (Product.Klasse="SY2")&&(Product.UitsparingDataAantalUitsparingen=1)&&(+Product.UitsparingDataBreedteM_+Product.UitsparingDataBreedteZ2>0) { Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New() Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse) Do Exception.AddCombination($classname(Product),"UitsparingDataAantalUitsparingen",Product.UitsparingDataAantalUitsparingen) Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml =================================================================== diff -u -r38148 -r38154 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml (.../Test.cls.xml) (revision 38148) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml (.../Test.cls.xml) (revision 38154) @@ -283,6 +283,23 @@ ]]> + + + +