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 @@
]]>
+
+
+
+