Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test021VHossVerpakking.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test021VHossVerpakking.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test021VHossVerpakking.cls.xml	(revision 67504)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Tandembox.Aansturing.Test021VHossVerpakking">
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Tandembox.Aansturing.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ##super(aTestCase)
+	Set ..Configuratie.ResetBatch = $$$true
+	Set ..Configuratie.KartonAansturing = $$$true
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Implementation><![CDATA[
+	#define ToeleveringID 222222
+	
+	Set TandemboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	
+	Set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	
+	Do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefBinnenladeMetInschuifElement()),1) )
+	Do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefBinnenLadeMetGreepEnMeenemer()),2) )
+	Do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefStandaardVHossLade()),1) )
+	
+	Do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,$$$ToeleveringID)
+
+	Quit TandemboxenPerToeleveringArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenladeMetInschuifElement">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).BinnenladeMetInschuifElement()
+	Set TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()
+	Set TBXKenmerken.LegacyKenmerken.ItemVPK = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()
+	
+	Quit TBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenLadeMetGreepEnMeenemer">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).BinnenLadeMetGreepEnMeenemer()
+	Set TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()
+	Set TBXKenmerken.LegacyKenmerken.ItemVPK = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()
+	
+	Quit TBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardVHossLade">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen())
+	Set TBXKenmerken.LegacyKenmerken.ItemVPK = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()
+	
+	Quit TBXKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>