Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/AcceptatieTest.cls.xml	(revision 30196)
@@ -0,0 +1,218 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+
+<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>
+</Method>
+
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Implementation><![CDATA[
+	Set TaorboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%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)
+	
+	
+	Set Taorboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	Do Taorboxen.Insert(..GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkapEnBodemsMetBorenEnMonteren(4))
+	Do TaorboxenPerToeleveringArray.SetAt(Taorboxen,222223)
+	
+	Quit TaorboxenPerToeleveringArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijBodemsMetBorenEnMonteren">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijFrontenEnBodemsMetBoren">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkapEnBodemsMetBorenEnMonteren">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeNietOpKarrenOverzicht">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijFrontenMetZwartAluminiumEindkap">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkap">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVoorKarrenOverzichtBijFrontenMetAluminiumEindkapEnBodemsMetBorenEnMonteren">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<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 ..GeefTaorLadeProductInfo(IK, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaorLadeProductInfo">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Aantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(TAORKenmerken),Aantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>