Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml
===================================================================
diff -u -r36079 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36079)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -6,10 +6,10 @@
 <Method name="Test: Niets ingevuld">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -18,10 +18,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = "L"
 	Set Product.UitsparingDataBreedteM = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -30,10 +30,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = "SP2"
 	Set Product.UitsparingDataBreedteM = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -42,10 +42,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = "SP2"
 	Set Product.UitsparingDataBreedteZ2 = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -55,10 +55,10 @@
 	Set Product.Klasse = "SY2"
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ2 = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -68,10 +68,10 @@
 	Set Product.Klasse = "SY2"
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ2 = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -84,10 +84,10 @@
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
 	Set Product.UitsparingDataBreedteZ1 = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -98,10 +98,10 @@
 	Set Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ1 = 150
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -112,10 +112,10 @@
 	Set Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ1 = 250
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -126,10 +126,10 @@
 	Set Product.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ1 = 42
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -140,10 +140,10 @@
 	Set Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
 	Set Product.UitsparingDataAantalUitsparingen = 1
 	Set Product.UitsparingDataBreedteZ1 = 42
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -158,10 +158,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -176,10 +176,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -194,10 +194,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -212,10 +212,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -230,10 +230,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -248,10 +248,10 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -266,17 +266,17 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
-	
 	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = "SP2"
 	Set Product.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	Set Product.UitsparingDataAantalUitsparingen = 2
 	Set Product.UitsparingDataBreedteZ1 = 150
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -287,10 +287,10 @@
 	Set Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 	Set Product.UitsparingDataAantalUitsparingen = 2
 	Set Product.UitsparingDataBreedteZ1 = 150
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
-	
 	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = "SY2"
 	Set Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
@@ -300,8 +300,8 @@
 	Set Product.UitsparingDataBreedteM = 1
 	Set Product.UitsparingDataBreedteX = 1
 	Set Product.UitsparingDataBreedteY = 1
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New(Product)
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/ZijkantHoogteValidator/Test.cls.xml
===================================================================
diff -u -r36082 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/ZijkantHoogteValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36082)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/ZijkantHoogteValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -6,67 +6,70 @@
 <Method name="Test: Niets ingevuld">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijkantHoogte N enkel voor klasse L">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.ZijkantHoogte = "N"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	
 	Set Product.Klasse = "L"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SP2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SY2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijkantHoogte K enkel voor klasse L">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.ZijkantHoogte = "K"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	
 	Set Product.Klasse = "L"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SP2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SY2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertFalse(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijkantHoogte M voor alle klassen">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.ZijkantHoogte = "M"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	
 	Set Product.Klasse = "L"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SP2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 	
 	Set Product.Klasse = "SY2"
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New(Product)	
-	Do $$$AssertTrue(Validator.IsValid())
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/GreepEnMeenemerValidator/Test.cls.xml
===================================================================
diff -u -r36085 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/GreepEnMeenemerValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36085)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/GreepEnMeenemerValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -8,10 +8,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "K"
 	Set Product.HeeftGreepEnMeenemer = "HandleAndLatch"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -20,10 +20,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "C"
 	Set Product.HeeftGreepEnMeenemer = "HandleAndLatch"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -32,10 +32,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "K"
 	Set Product.HeeftGreepEnMeenemer = "No"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -44,10 +44,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "C"
 	Set Product.HeeftGreepEnMeenemer = "No"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/OpvullijstValidator/Test.cls.xml
===================================================================
diff -u -r35882 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/OpvullijstValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 35882)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/OpvullijstValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -9,10 +9,10 @@
 	Set Product.HeeftOpvullijstLinks = $$$True
 	Set Product.HeeftOpvullijstRechts = $$$True
 	Set Product.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -21,10 +21,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftOpvullijstLinks = $$$True
 	Set Product.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -33,56 +33,55 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftOpvullijstRechts = $$$True
 	Set Product.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Opvullijst R maar geen kleur aanwezig">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftOpvullijstRechts = $$$True
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Opvullijst L maar geen kleur aanwezig">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftOpvullijstLinks = $$$True
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Geen Opvullijst maar wel kleur aanwezig">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Geen Opvullijst en -kleur aanwezig">
 <Implementation><![CDATA[
-	w !,"test"
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftOpvullijstLinks = $$$False
 	Set Product.HeeftOpvullijstRechts = $$$False
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.OpvullijstValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/CorpusWandDikteValidator/Test.cls.xml
===================================================================
diff -u -r35878 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/CorpusWandDikteValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 35878)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/CorpusWandDikteValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -7,21 +7,21 @@
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.CorpusWandDikte = 16
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.CorpusWandDikteValidator).%New()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.CorpusWandDikteValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: CorpusWandDikte fout">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.CorpusWandDikte = 42
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.CorpusWandDikteValidator).%New()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.CorpusWandDikteValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml
===================================================================
diff -u -r35879 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 35879)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -8,10 +8,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Lade()
 	Set Product.FrontOndersteuningAantal = "2"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -20,10 +20,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Lade()
 	Set Product.FrontOndersteuningAantal = ""
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -32,10 +32,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Lade()
 	Set Product.FrontOndersteuningAantal = "42"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -44,10 +44,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()
 	Set Product.FrontOndersteuningAantal = "1"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -56,10 +56,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()
 	Set Product.FrontOndersteuningAantal = ""
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -68,10 +68,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()
 	Set Product.FrontOndersteuningAantal = "42"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.FrontOndersteuningValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/InschuifElementValidator/Test.cls.xml
===================================================================
diff -u -r36089 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/InschuifElementValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36089)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/InschuifElementValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -10,10 +10,10 @@
 	Set Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
 	Set Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
 	Set Product.ZijwandVerhogingType = "SimpleGallery"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -22,10 +22,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "K"
 	Set Product.ZijwandVerhogingType = "SimpleGallery"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -34,10 +34,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "K"
 	Set Product.ZijwandVerhogingType = "DesignElement"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -46,10 +46,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.RugHoogte = "K"
 	Set Product.ZijwandVerhogingType = "NoGallery"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -60,10 +60,10 @@
 	Set Product.ZijwandVerhogingType = "DesignElement"
 	Set Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
 	Set Product.ZijwandVerhogingKleur = ""
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -74,10 +74,10 @@
 	Set Product.ZijwandVerhogingType = "DesignElement"
 	Set Product.ZijwandVerhogingMateriaal = ""
 	Set Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -88,10 +88,10 @@
 	Set Product.ZijwandVerhogingType = "NoGallery"
 	Set Product.ZijwandVerhogingMateriaal = ""
 	Set Product.ZijwandVerhogingKleur = ""
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -102,21 +102,21 @@
 	Set Product.ZijwandVerhogingType = "SimpleGallery"
 	Set Product.ZijwandVerhogingMateriaal = ""
 	Set Product.ZijwandVerhogingKleur = ""
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijwandVerhogingType onbekend">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.ZijwandVerhogingType = "onbekend"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/MatValidator/Test.cls.xml
===================================================================
diff -u -r36233 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/MatValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36233)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/MatValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -9,21 +9,21 @@
 	Set Product.HeeftMat = $$$True
 	Set Product.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
 	Set Product.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: HeeftMat ingevuld, maar geen kleur">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftMat = $$$True
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -33,21 +33,21 @@
 	Set Product.HeeftMat = $$$False
 	Set Product.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
 	Set Product.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Niets ingevuld">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftMat = $$$False
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -57,10 +57,10 @@
 	Set Product.HeeftMat = $$$True
 	Set Product.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
 	Set Product.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -70,10 +70,10 @@
 	Set Product.HeeftMat = $$$True
 	Set Product.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
 	Set Product.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml
===================================================================
diff -u -r36127 -r36239
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36127)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
@@ -8,10 +8,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftDwarsverdeling = $$$True
 	Set Product.AantalDwarsverdelingen = 2
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -20,10 +20,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftDwarsverdeling = $$$False
 	Set Product.AantalDwarsverdelingen = 2
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -32,10 +32,10 @@
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.HeeftDwarsverdeling = $$$True
 	Set Product.AantalDwarsverdelingen = 42
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -46,10 +46,10 @@
 	Set Product.AantalDwarsverdelingen = 4
 	Set Product.Klasse = "SP2"
 	Set Product.RugHoogte = "C"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -60,10 +60,10 @@
 	Set Product.AantalDwarsverdelingen = 4
 	Set Product.Klasse = "SP2"
 	Set Product.RugHoogte = "K"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
@@ -73,20 +73,20 @@
 	Set Product.HeeftDwarsverdeling = $$$True
 	Set Product.AantalDwarsverdelingen = 4
 	Set Product.Klasse = "L"
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertFalse(Validator.IsValid())
+	Do $$$AssertFalse(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Niets ingevuld">
 <Implementation><![CDATA[
 	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	
-	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(Product)
-	
-	Do $$$AssertTrue(Validator.IsValid())
+	Do $$$AssertTrue(Validator.IsValid(Product,.Exceptions))
 ]]></Implementation>
 </Method>
 </Class>