Index: vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml
===================================================================
diff -u -r65087 -r74210
--- vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 65087)
+++ vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 74210)
@@ -18,16 +18,16 @@
 	set LegraboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	
 	set LegraboxenToelevering1 = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()	
-	do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(LegraBoxProductID1,1))
+	do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID1, "TB6W"), 1))
 	do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(), LegraBoxProductID2, "AKZR"), 10))
 	do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLadeMetMat(), LegraBoxProductID3, "AKZQ"), 1))
 	do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX"), 1))
 	do LegraboxenPerToeleveringArray.SetAt(LegraboxenToelevering1,$$$ToeleveringID1)
 	
 	
 	set LegraboxenToelevering2 = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(LegraBoxProductID4,1))
-	do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(LegraBoxProductID5,1))
+	do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX"), 1))
+	do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID5, "ALBY"), 1))
 	do LegraboxenPerToeleveringArray.SetAt(LegraboxenToelevering1,$$$ToeleveringID2)
 
 	quit LegraboxenPerToeleveringArray
@@ -196,6 +196,28 @@
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLbxStandaardladeMetMat">
+<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.InterneBreedte = 900
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
+	
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..GeefMatKenmerken(858, 473)
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerken, "MatX")
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
 </Class>