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