Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007Melamine.cls.xml
===================================================================
diff -u -r30322 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007Melamine.cls.xml	(.../Test007Melamine.cls.xml)	(revision 30322)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007Melamine.cls.xml	(.../Test007Melamine.cls.xml)	(revision 30630)
@@ -6,31 +6,27 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID 222222
-	#define Aantal 			   1
+	set ..VerpakkingType = ..Enum.VerpakkingType.V1
 	
-	set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim LadenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim Laden As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
 	
-	set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.BardolinoEik
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.BardolinoEik
+	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.BardolinoEik
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	set TAORKenmerken.CorpusBinnenbreedte = 600
 	
-	#dim TaorboxPRNr As TECH.String = ..MaakProduct(..GeefTAORIngegevenKenmerken())
-	do Laden.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TaorboxPRNr,$$$Aantal) )  
+	#dim TAORProductNummer As TECH.String = ..MaakProduct(TAORKenmerken)
+	#dim TAORProduct As vhTest.Integratie.Productie.Setup.ProductInfo = ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TAORProductNummer, ..#Aantal)
 	
-	do LadenPerToeleveringArray.SetAt(Laden,$$$ToeleveringID)
+	do Laden.Insert(TAORProduct)  
+	do LadenPerToeleveringArray.SetAt(Laden, ..#ToeleveringID)
 
 	quit LadenPerToeleveringArray
 ]]></Implementation>
 </Method>
-
-<Method name="GeefTAORIngegevenKenmerken">
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set TAORIngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).BardolinoEik()
-	Set TAORIngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).BardolinoEik()
-	Quit TAORIngegevenKenmerken
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemMelamineZijkantFineer.cls.xml
===================================================================
diff -u -r30322 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemMelamineZijkantFineer.cls.xml	(.../Test007BodemMelamineZijkantFineer.cls.xml)	(revision 30322)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemMelamineZijkantFineer.cls.xml	(.../Test007BodemMelamineZijkantFineer.cls.xml)	(revision 30630)
@@ -6,31 +6,27 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID 222222
-	#define Aantal 			   1
+	set ..VerpakkingType = ..Enum.VerpakkingType.V1
 	
-	set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim LadenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim Laden As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
 	
-	set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.BardolinoEik
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NatuurNotenhout
+	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurNotenhout
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	set TAORKenmerken.CorpusBinnenbreedte = 600
 	
-	#dim TaorboxPRNr As TECH.String = ..MaakProduct(..GeefTAORIngegevenKenmerken())
-	do Laden.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TaorboxPRNr,$$$Aantal) )  
+	#dim TAORProductNummer As TECH.String = ..MaakProduct(TAORKenmerken)
+	#dim TAORProduct As vhTest.Integratie.Productie.Setup.ProductInfo = ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TAORProductNummer, ..#Aantal)
 	
-	do LadenPerToeleveringArray.SetAt(Laden,$$$ToeleveringID)
+	do Laden.Insert(TAORProduct)  
+	do LadenPerToeleveringArray.SetAt(Laden, ..#ToeleveringID)
 
 	quit LadenPerToeleveringArray
 ]]></Implementation>
 </Method>
-
-<Method name="GeefTAORIngegevenKenmerken">
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set TAORIngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set TAORIngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).BardolinoEik()
-	Quit TAORIngegevenKenmerken
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml
===================================================================
diff -u -r30322 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 30322)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 30630)
@@ -3,46 +3,19 @@
 <Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Taorbox.Aansturing.AcceptatieTest">
 <Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Taorbox.Aansturing.TestBase</Super>
 
-<Property name="LadeHoogte">
-<Type>DOM.PM.enu.TAORLadeHoogte.AutoComplete</Type>
-<Private>1</Private>
-</Property>
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	do ##super()
+ 	
+ 	set ..VerpakkingType = ..Enum.VerpakkingType.Probox
+]]></Implementation>
+</Method>
 
-<Property name="LadeDiepte">
-<Type>DOM.PM.enu.TAORLadeDiepte.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="BodemKleur">
-<Type>DOM.PM.enu.TAORBodemKleur.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="LadeKleur">
-<Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="FrontEindkapKleur">
-<Type>DOM.PM.enu.TAORFrontEindkapKleur.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KoppelingType">
-<Type>DOM.PM.enu.TAORKoppelingType.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="VerpakkingType">
-<Type>DOM.PM.enu.TAORVerpakkingType</Type>
-<InitialExpression>##class(DOM.PM.enu.TAORVerpakkingType).Probox()</InitialExpression>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
  	do ##super(aTestCase)
+ 	
 	set ..Configuratie.ResetBatch = $$$False
 	set ..Configuratie.KartonAansturing = $$$False
 ]]></Implementation>
@@ -51,23 +24,23 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	Set TaorboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim TAORBoxenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim TAORBoxenLijst1 As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim TAORBoxenLijst2 As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	Set Taorboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijBodemsMetBorenEnMonteren(1))
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenEnBodemsMetBoren(2))
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkapEnBodemsMetBorenEnMonteren(3))
-	Do Taorboxen.Insert(..GeefLadeNietOpKarrenOverzicht(4))
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkap(5))
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkap(3))
-	Do TaorboxenPerToeleveringArray.SetAt(Taorboxen,222222)
+	do TAORBoxenLijst1.Insert(..GeefLadeVoorKarrenOverzichtBijBodemsMetBorenEnMonteren(1))
+	do TAORBoxenLijst1.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenEnBodemsMetBoren(2))
+	do TAORBoxenLijst1.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkapEnBodemsMetBorenEnMonteren(3))
+	do TAORBoxenLijst1.Insert(..GeefLadeNietOpKarrenOverzicht(4))
+	do TAORBoxenLijst1.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkap(5))
+	do TAORBoxenLijst1.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkap(3))
 	
+	do TAORBoxenLijst2.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkapEnBodemsMetBorenEnMonteren(4))
 	
-	Set Taorboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkapEnBodemsMetBorenEnMonteren(4))
-	Do TaorboxenPerToeleveringArray.SetAt(Taorboxen,222223)
-	
-	Quit TaorboxenPerToeleveringArray
+	do TAORBoxenPerToeleveringArray.SetAt(TAORBoxenLijst1, ..#ToeleveringID)
+	do TAORBoxenPerToeleveringArray.SetAt(TAORBoxenLijst2, (..#ToeleveringID + 1))
+
+	quit TAORBoxenPerToeleveringArray
 ]]></Implementation>
 </Method>
 
@@ -76,17 +49,11 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.F
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.Wit
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.AluminiumLook
-	Set IK.IsBinnenlade = $$$False
-	Set IK.KoppelingType = ..KoppelingType.Schroef
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
+	
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.F
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -95,18 +62,11 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.C
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.Wit
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.AluminiumLook
-	Set IK.IsBinnenlade = $$$True
-	Set IK.KoppelingType = ..KoppelingType.Schroef
-	Do IK.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardBinnenlade()
+
+	do TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Koppeling)
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -115,17 +75,13 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.N
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.Zwart
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.ZwartAluminiumLook
-	Set IK.IsBinnenlade = $$$True
-	Set IK.KoppelingType = ..KoppelingType.Schroef
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardBinnenlade()
+	
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	set TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.ZwartAluminiumLook
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.Zwart
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -134,17 +90,13 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.F
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.NatuurNotenhout
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.AluminiumLook
-	Set IK.IsBinnenlade = $$$False
-	Set IK.KoppelingType = ..KoppelingType.Drevel
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
+	
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.F
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.NatuurNotenhout
+	set TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -153,17 +105,12 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.C
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.Wit
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.ZwartAluminiumLook
-	Set IK.IsBinnenlade = $$$True
-	Set IK.KoppelingType = ..KoppelingType.Drevel
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardBinnenlade()
+	
+	set TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.ZwartAluminiumLook
+	set TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -172,17 +119,13 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.N
-	Set IK.InterneBreedte = 878
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte400
-	Set IK.BodemKleur = ..BodemKleur.Zwart
-	Set IK.LadeKleur = ..LadeKleur.Wit
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.AluminiumLook
-	Set IK.IsBinnenlade = $$$True
-	Set IK.KoppelingType = ..KoppelingType.Drevel
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardBinnenlade()
+	
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.Zwart
+	set TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -191,19 +134,32 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.VerpakkingType = ..VerpakkingType
-	Set IK.LadeHoogte = ..LadeHoogte.M
-	Set IK.InterneBreedte = 408
-	Set IK.LadeDiepte = ..LadeDiepte.LadeDiepte500
-	Set IK.BodemKleur = ..BodemKleur.NatuurEikenhout
-	Set IK.LadeKleur = ..LadeKleur.NatuurEikenhout
-	Set IK.FrontEindkapKleur = ..FrontEindkapKleur.AluminiumLook
-	Set IK.IsBinnenlade = $$$True
-	Set IK.KoppelingType = ..KoppelingType.Schroef
-	Quit ..MaakProductInfo(IK, Aantal)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardBinnenlade()
+	
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	set TAORKenmerken.InterneBreedte = 408
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.NatuurEikenhout
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NatuurEikenhout
+	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurEikenhout
+	
+	quit ..MaakProductInfo(TAORKenmerken, Aantal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStandaardLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##super()
+
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.Wit
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.Wit
+	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.Wit
+	
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemFineerZijkantMelamine.cls.xml
===================================================================
diff -u -r30322 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemFineerZijkantMelamine.cls.xml	(.../Test007BodemFineerZijkantMelamine.cls.xml)	(revision 30322)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test007BodemFineerZijkantMelamine.cls.xml	(.../Test007BodemFineerZijkantMelamine.cls.xml)	(revision 30630)
@@ -6,31 +6,27 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID 222222
-	#define Aantal 			   1
+	set ..VerpakkingType = ..Enum.VerpakkingType.V1
 	
-	set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim LadenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim Laden As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
 	
-	set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.NatuurEikenhout
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.BardolinoEik
+	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.BardolinoEik
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	set TAORKenmerken.CorpusBinnenbreedte = 600
 	
-	#dim TaorboxPRNr As TECH.String = ..MaakProduct(..GeefTAORIngegevenKenmerken())
-	do Laden.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TaorboxPRNr,$$$Aantal) )  
+	#dim TAORProductNummer As TECH.String = ..MaakProduct(TAORKenmerken)
+	#dim TAORProduct As vhTest.Integratie.Productie.Setup.ProductInfo = ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TAORProductNummer, ..#Aantal)
 	
-	do LadenPerToeleveringArray.SetAt(Laden,$$$ToeleveringID)
+	do Laden.Insert(TAORProduct)  
+	do LadenPerToeleveringArray.SetAt(Laden, ..#ToeleveringID)
 
 	quit LadenPerToeleveringArray
 ]]></Implementation>
 </Method>
-
-<Method name="GeefTAORIngegevenKenmerken">
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set TAORIngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).BardolinoEik()
-	Set TAORIngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurEikenhout()
-	Quit TAORIngegevenKenmerken
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r30371 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30371)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30630)
@@ -4,6 +4,21 @@
 <Abstract>1</Abstract>
 <Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.TestBase,vhTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
+<Parameter name="ToeleveringID">
+<Type>%Integer</Type>
+<Default>222222</Default>
+</Parameter>
+
+<Parameter name="Aantal">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="VerpakkingType">
+<Type>DOM.PM.enu.TAORVerpakkingType</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefCategorie">
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.enu.Categorie</ReturnType>
@@ -85,6 +100,32 @@
 <Implementation><![CDATA[	do Batch.ZetConcept(..GeefConcept())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStandaardLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..VerpakkingType)
+
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400
+	set TAORKenmerken.InterneBreedte = 878
+	set TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardBinnenlade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
+	
+	set TAORKenmerken.IsBinnenlade = $$$True
+	
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestStandaardHulzen.cls.xml
===================================================================
diff -u -r30094 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestStandaardHulzen.cls.xml	(.../TestStandaardHulzen.cls.xml)	(revision 30094)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestStandaardHulzen.cls.xml	(.../TestStandaardHulzen.cls.xml)	(revision 30630)
@@ -11,52 +11,54 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
- 	Do ##super(aTestCase)
-	Set ..Configuratie.KartonAansturing = $$$True
-	Set ..Configuratie.AansturingActies = $$$False
+ 	do ##super(aTestCase)
+	
+	set ..Configuratie.KartonAansturing = $$$True
+	set ..Configuratie.AansturingActies = $$$False
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductenPerToeleveringArray">
-<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
-	#define ToeleveringID  222222
-	#define Aantal				1
+	do ##super(aTestCase)
 	
-	set TaorboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
-	set Taorboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	#dim LadeHoogteIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeHoogte).DisplayListIterator()
-	While LadeHoogteIterator.HasNext() {
-		#dim PRNr As TECH.String = ..MaakTAXMetLadeDiepte550(LadeHoogteIterator.Next())
-		Do ..GemaakteProductIDs.Insert(PRNr)
-		Set ^zStandaardHuls(PRNr) = 1
-		do Taorboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(PRNr,$$$Aantal))
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GemaakteProductIDs)
+	
+	while (Iterator.HasNext()) {
+		kill ^zStandaardHuls(Iterator.Next())
 	}
-	do TaorboxenPerToeleveringArray.SetAt(Taorboxen,$$$ToeleveringID)
-	quit TaorboxenPerToeleveringArray
 ]]></Implementation>
 </Method>
 
-<Method name="MaakTAXMetLadeDiepte550">
-<FormalSpec>LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.LadeHoogte = LadeHoogte
-	Set IK.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
-	Quit ..MaakProduct(IK)
-]]></Implementation>
-</Method>
+	set ..VerpakkingType = ..Enum.VerpakkingType.V1
+	
+	#dim TAORBoxenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim TAORBoxenLijst As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeHoogte).DisplayListIterator()
+	
+	while (Iterator.HasNext()) {
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestCase:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestCase)
-	#dim GemaakteProductIDsIt As TECH.Iterator = ##class(TECH.ListIterator).%New(..GemaakteProductIDs)
-	While GemaakteProductIDsIt.HasNext() {
-		Kill ^zStandaardHuls(GemaakteProductIDsIt.Next())
+		set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
+		set TAORKenmerken.LadeHoogte = Iterator.Next()
+		
+		#dim TAORProductNummer As TECH.String = ..MaakProduct(TAORKenmerken)
+		#dim TAORProduct As vhTest.Integratie.Productie.Setup.ProductInfo = ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TAORProductNummer, ..#Aantal)
+	
+		do ..GemaakteProductIDs.Insert(TAORProductNummer)
+		
+		set ^zStandaardHuls(TAORProductNummer) = 1
+
+		do TAORBoxenLijst.Insert(TAORProduct) 
 	}
+	
+	do TAORBoxenPerToeleveringArray.SetAt(TAORBoxenLijst, ..#ToeleveringID)
+	
+	quit TAORBoxenPerToeleveringArray
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLadeDiepte550StandaardHuls.cls.xml
===================================================================
diff -u -r30138 -r30630
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLadeDiepte550StandaardHuls.cls.xml	(.../TestLadeDiepte550StandaardHuls.cls.xml)	(revision 30138)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLadeDiepte550StandaardHuls.cls.xml	(.../TestLadeDiepte550StandaardHuls.cls.xml)	(revision 30630)
@@ -11,40 +11,39 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
- 	Do ##super(aTestCase)
-	Set ..Configuratie.KartonAansturing = $$$True
-	Set ..Configuratie.AansturingActies = $$$False
+ 	do ##super(aTestCase)
+	
+	set ..Configuratie.KartonAansturing = $$$True
+	set ..Configuratie.AansturingActies = $$$False
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID  222222
-	#define Aantal				1
+	set ..VerpakkingType = ..Enum.VerpakkingType.V1
 	
-	set TaorboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
-	set Taorboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	#dim LadeHoogteIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeHoogte).DisplayListIterator()
-	While LadeHoogteIterator.HasNext() {
-		do Taorboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakTAXMetLadeDiepte550(LadeHoogteIterator.Next()),$$$Aantal))
+	#dim TAORBoxenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim TAORBoxenLijst As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeHoogte).DisplayListIterator()
+	
+	while (Iterator.HasNext()) {
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
+
+		set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
+		set TAORKenmerken.LadeHoogte = Iterator.Next()
+		
+		#dim TAORProductNummer As TECH.String = ..MaakProduct(TAORKenmerken)
+		#dim TAORProduct As vhTest.Integratie.Productie.Setup.ProductInfo = ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(TAORProductNummer, ..#Aantal)
+	
+		do TAORBoxenLijst.Insert(TAORProduct) 
 	}
-	do TaorboxenPerToeleveringArray.SetAt(Taorboxen,$$$ToeleveringID)
-	quit TaorboxenPerToeleveringArray
+	
+	do TAORBoxenPerToeleveringArray.SetAt(TAORBoxenLijst, ..#ToeleveringID)
+	
+	quit TAORBoxenPerToeleveringArray
 ]]></Implementation>
 </Method>
-
-<Method name="MaakTAXMetLadeDiepte550">
-<FormalSpec>LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IK.LadeHoogte = LadeHoogte
-	Set IK.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
-	Quit ..MaakProduct(IK)
-]]></Implementation>
-</Method>
 </Class>