Index: vhTest/Integratie/Productie/Kartonwerkpost/Base.cls.xml
===================================================================
diff -u -r58972 -r61399
--- vhTest/Integratie/Productie/Kartonwerkpost/Base.cls.xml	(.../Base.cls.xml)	(revision 58972)
+++ vhTest/Integratie/Productie/Kartonwerkpost/Base.cls.xml	(.../Base.cls.xml)	(revision 61399)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhTest.Integratie.Productie.Kartonwerkpost.Base">
-<Super>vhTest.Integratie.Productie.Setup.TestTemplate</Super>
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.TestBase</Super>
 
 <Parameter name="SessionKey">
 <Type>%String</Type>
@@ -90,7 +90,7 @@
 		set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 		#dim GeplandOp As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 		#dim Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(GeplandOp , ..GeefCategorie())
-		do Batch.ZetConcept(##class(DOM.PM.enu.TAORConcept).Baliko()) ;volgens mij niet nodig
+	//	do Batch.ZetConcept(##class(DOM.PM.enu.TAORConcept).Baliko()) ;volgens mij niet nodig
 		do Batch.Save()
 	} catch {
 		set ^APPS.Halux.common.BatchD = CurrentId
Index: vhTest/Integratie/Productie/Kartonwerkpost/TAOR/Test.cls.xml
===================================================================
diff -u -r30331 -r61399
--- vhTest/Integratie/Productie/Kartonwerkpost/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 30331)
+++ vhTest/Integratie/Productie/Kartonwerkpost/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 61399)
@@ -20,7 +20,7 @@
 	#Dim TAORBoxenPerToeleveringArray As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	#Dim TAORBoxProductInfoLijst As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	Do TAORBoxProductInfoLijst.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TAORBox, $$$Aantal))  
+	Do TAORBoxProductInfoLijst.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefTiponLade()), $$$Aantal))
 	Do TAORBoxenPerToeleveringArray.SetAt(TAORBoxProductInfoLijst, $$$ToeleveringID)
 
 	Quit TAORBoxenPerToeleveringArray
@@ -36,6 +36,37 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTiponLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefBasisLade(##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="GeefBasisLade">
+<FormalSpec>GeleiderTechnologie:DOM.PM.enu.TAORGeleiderTechnologie</FormalSpec>
+<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).StandaardLade()
+	
+	Set TAORKenmerken.GeleiderTechnologie = GeleiderTechnologie
+
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurEikenhout() 
+	Set TAORKenmerken.CorpusBinnenbreedte = 850  
+	Set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Expando() 
+	Set TAORKenmerken.KantenbandKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout() 
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout() 
+	Set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout() 
+	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte320() 
+	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()
+	Set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
 </Class>