Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35783 -r35793
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35783)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35793)
@@ -19,16 +19,7 @@
 
 <Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
-	Set TeConverterenProduct.LadeDiepte = "350"
-	Set TeConverterenProduct.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
-	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
-	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
-	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
-	Set TeConverterenProduct.CorpusBreedte = "1000"
-	Set TeConverterenProduct.CorpusWandDikte = "16"
-	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -73,7 +64,7 @@
 
 <Method name="Test: ProductFeatures: CorpusWandDikte -&gt; ItemWD als IsInteriorCabinetWidth = false">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.CorpusWandDikte = "18"
 	Set TeConverterenProduct.IsBinnenbreedte = $$$False
 	
@@ -86,8 +77,7 @@
 
 <Method name="Test: ProductFeatures: CorpusWandDikte: &apos;B&apos; -&gt; ItemWD als IsInteriorCabinetWidth = true">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.IsBinnenbreedte = $$$True
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
@@ -99,7 +89,7 @@
 
 <Method name="Test: ProductFeatures: CorpusWandDikte ongeldige invoer">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.CorpusWandDikte = "15"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes(TeConverterenProduct.CorpusWandDikte_" is geen geldige waarde voor CorpusWandDikte")
@@ -112,10 +102,9 @@
 
 <Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -&gt; &apos;L&apos;">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -126,10 +115,9 @@
 
 <Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -&gt; &apos;R&apos;">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -140,11 +128,10 @@
 
 <Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks en -Rechts -&gt; &apos;L+R&apos;">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -155,9 +142,8 @@
 
 <Method name="Test: ProductFeatures: Opvullijsten: Indien Links of Rechts, en geen Kleur, dan error">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er moet een opvullijstkleur gegeven worden")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -169,9 +155,8 @@
 
 <Method name="Test: ProductFeatures: Opvullijsten: Indien kleur ingevuld, en geen Links of Rechts, dan error">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
-	Set TeConverterenProduct.CorpusWandDikte = "16"	
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er moet een opvullijst gegeven worden")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -183,9 +168,8 @@
 
 <Method name="Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -&gt; gewoon overnemen">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = 2
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -196,9 +180,8 @@
 
 <Method name="Test: ProductFeatures: NumberOfFrontSupports: &gt; 3 -&gt; exceptie">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = "42"
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Te veel frontondersteuningen (42)")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -210,8 +193,8 @@
 
 <Method name="Test: ProductFeatures: NumberOfFrontSupports: geen -&gt; &apos;Auto&apos;">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.FrontOndersteuningAantal = ""
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -222,9 +205,8 @@
 
 <Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -235,9 +217,8 @@
 
 <Method name="Test: ProductFeatures - KleurInschuifElement -&gt; ItemKV">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.KleurInschuifElement = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -248,16 +229,31 @@
 
 <Method name="Test: ProductFeatures - AntislipMat -&gt; ItemASM">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.AntislipMat = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
-	Set TeConverterenProduct.CorpusWandDikte = "16"
 		
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"G")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTeConverterenProduct">
+<Implementation><![CDATA[
+	Set TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
+	Set TeConverterenProduct.LadeDiepte = "350"
+	Set TeConverterenProduct.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
+	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
+	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
+	Set TeConverterenProduct.CorpusBreedte = "1000"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Quit TeConverterenProduct
+]]></Implementation>
+</Method>
 </Class>