Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml
===================================================================
diff -u -r32370 -r64807
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml	(.../Test002Lijn3.cls.xml)	(revision 32370)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml	(.../Test002Lijn3.cls.xml)	(revision 64807)
@@ -21,10 +21,10 @@
 	
 	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 Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefEnkeleSifonLade()),$$$Aantal) )  
 	
 	do LegraboxenPerToeleveringArray.SetAt(Legraboxen,$$$ToeleveringID)
@@ -40,6 +40,91 @@
 ]]></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>
+
 <Method name="GeefEnkeleSifonLade">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>