Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002FlatpackProcomMetOnderdelen.cls.xml
===================================================================
diff -u -r38480 -r38497
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002FlatpackProcomMetOnderdelen.cls.xml	(.../Test002FlatpackProcomMetOnderdelen.cls.xml)	(revision 38480)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002FlatpackProcomMetOnderdelen.cls.xml	(.../Test002FlatpackProcomMetOnderdelen.cls.xml)	(revision 38497)
@@ -12,48 +12,14 @@
 	#dim LadesPerToelevering As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	#dim Lades As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	#dim ProductID As %String = ..MaakProduct(..GeefIngegevenKenmerken())
+	#dim ProcomLade As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).Probox())
 	
-	Do Lades.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(ProductID,$$$Aantal))
+	Do Lades.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(ProcomLade),$$$Aantal))
 	Do LadesPerToelevering.SetAt(Lades, $$$ToeleveringID)
 
 	Quit LadesPerToelevering
 ]]></Implementation>
 </Method>
-
-<Method name="GeefIngegevenKenmerken">
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	set TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	
-	set TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
-	set TAORKenmerken.BevatGeleiderBevestigingSchroeven = "0"
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
-	set TAORKenmerken.Concept = ##class(DOM.PM.enu.TAORConcept).Valinge()
-	set TAORKenmerken.CorpusBinnenbreedte = "600"
-	set TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
-	set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Drevel()
-	set TAORKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION()
-	set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	set TAORKenmerken.HeeftDiepteVerstelling = "0"
-	set TAORKenmerken.HeeftOpvullijstLinks = "0"
-	set TAORKenmerken.HeeftOpvullijstRechts = "0"
-	set TAORKenmerken.HeeftZijstabilisering = "0"
-	set TAORKenmerken.IsBinnenlade = "0"
-	set TAORKenmerken.KantenbandKleur = ##class(DOM.PM.enu.TAORKantenbandKleur).NatuurNotenhout()
-	set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
-	set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()
-	set TAORKenmerken.SpecialType = ##class(DOM.PM.enu.SpecialType).Normaal()
-	set TAORKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
-	set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
-	set TAORKenmerken.VersieNr = "0"
-	quit TAORKenmerken
-]]></Implementation>
-</Method>
 </Class>