Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml
===================================================================
diff -u -r29059 -r64805
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 29059)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 64805)
@@ -21,16 +21,101 @@
 	
 	set Legraboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Legrabox1,$$$Aantal) )  
-	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Legrabox2,$$$Aantal) )  
-	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Legrabox3,$$$Aantal) )  
-	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Legrabox4,$$$Aantal) )  
+	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLade(),$$$Legrabox1,"ASR"),$$$Aantal) )
+	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxCLade(),$$$Legrabox2,"ASP"),$$$Aantal) )
+	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(),$$$Legrabox3,"ASJ"),$$$Aantal) )
+	do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxFLade(),$$$Legrabox4,"ASC"),$$$Aantal) ) 
 	
 	do LegraboxenPerToeleveringArray.SetAt(Legraboxen,$$$ToeleveringID)
 
 	quit LegraboxenPerToeleveringArray
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLbxMLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 387
+	Set LBXKenmerken.IsBinnenlade = $$$True
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).PlatinaZilverGrijs()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
+	Set LBXKenmerken.GUIKenmerken.WandDikte = 18
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLbxCLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 564
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).OrionGrijs()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set LBXKenmerken.GUIKenmerken.WandDikte = 18
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLbxKLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 264
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).PlatinaZilverGrijs()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set LBXKenmerken.GUIKenmerken.WandDikte = 18
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLbxFLade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 562
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).F()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).F()
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set LBXKenmerken.GUIKenmerken.WandDikte = 19
+	
+	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
 </Class>