Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test020LadeMetDwarsverdeling.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test020LadeMetDwarsverdeling.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test020LadeMetDwarsverdeling.cls.xml	(revision 67484)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Tandembox.Aansturing.Test020LadeMetDwarsverdeling">
+<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
+	#define Aantal 			   1
+			
+	#define Tandembox1    775965
+	
+	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(..GeefLadeMetDwarsverdeling(), "775965", "A3YD"),$$$Aantal) )
+	
+	Do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,$$$ToeleveringID)
+
+	Quit TandemboxenPerToeleveringArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeMetDwarsverdeling">
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LadeMetDwarsverdeling()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>