Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml =================================================================== diff -u -r38154 -r39850 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml (.../UitsparingValidator.cls.xml) (revision 38154) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml (.../UitsparingValidator.cls.xml) (revision 39850) @@ -8,8 +8,16 @@ %Boolean 0 - Quit:$$$Not(HeeftUitsparingData) $$$True + Quit:$$$Not(HeeftUitsparingData) $$$True + If ((Product.Klasse="SY2") && ##class(TECH.StringUtils).Equals(Product.UitsparingDataAantalUitsparingen,"1","2") && $$$Not($$$HasLength(Product.TussenrugMateriaal))) || + ((Product.Klasse="SP2")&& (Product.RugwandMateriaal="")){ + Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New() + Do Exception.AddCombination($classname(Product),"TussenrugMateriaal",Product.TussenrugMateriaal) + Do Exception.AddCombination($classname(Product),"UitsparingDataAantalUitsparingen",Product.UitsparingDataAantalUitsparingen) + Do Exceptions.Insert(Exception) + } + If (Product.Klasse="L")&&(HeeftUitsparingData) { Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New() Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse) Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml =================================================================== diff -u -r38154 -r39850 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml (.../Test.cls.xml) (revision 38154) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml (.../Test.cls.xml) (revision 39850) @@ -287,6 +287,7 @@ + + + +