Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r65097 -r65145
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65097)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65145)
@@ -393,6 +393,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakProductVoorTaxFrontVoorLbx">
+<Description>
+Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTaxFrontVoorLbx()</Description>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductDataService As vhTest.Utils.DOM.PM.Maatwerk.ProductDataService = ##class(vhTest.Utils.DOM.PM.Maatwerk.ProductDataService).%New($$$True,$$$True)   ; Te verplaatsen naar %OnNew of OnBeforeAllTests 
+	
+	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn("LosseComponentenInBulk")
+	Set TAORIngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()
+
+	#dim NieuwePlaatKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORIngegevenKenmerken.LadeKleur = NieuwePlaatKleur
+	Set TAORIngegevenKenmerken.LadeBinnenKleur = NieuwePlaatKleur
+	Set TAORIngegevenKenmerken.BodemKleur = NieuwePlaatKleur
+	Set TAORIngegevenKenmerken.KantenbandKleur = NieuwePlaatKleur
+	
+	#dim ProductId As %String = ProductDataService.MaakProduct(TAORIngegevenKenmerken, , )  ; of met HergebruikProductId, HergebruikDossierCode) 
+	Quit ProductId
+]]></Implementation>
+</Method>
+
 <Method name="DisplayKenmerken">
 <Description>
 Do ##class(zTryout.WV.PM.Test).%New().DisplayKenmerken(id)</Description>