Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r65409 -r65422
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65409)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 65422)
@@ -395,10 +395,11 @@
 
 <Method name="MaakProductVoorTaxFrontVoorLbx">
 <Description>
-Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTaxFrontVoorLbx()</Description>
+Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTaxFrontVoorLbx()
+Deze versie maakt geen gebruik van de vhTest.Utils ProductDataService, deze kan dus ook op Cache01 uitgevoerd worden. </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,$$$False)   ; Te verplaatsen naar %OnNew of OnBeforeAllTests 
+	Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 	
 	#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()
@@ -409,7 +410,12 @@
 	Set TAORIngegevenKenmerken.BodemKleur = NieuwePlaatKleur
 	Set TAORIngegevenKenmerken.KantenbandKleur = NieuwePlaatKleur
 	
-	#dim ProductId As %String = ProductDataService.MaakProduct(TAORIngegevenKenmerken, , )  ; of met HergebruikProductId, HergebruikDossierCode) 
+	
+	#dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).VanHoecke()
+	#dim Aantal As %Integer = 1
+	#dim Product As DOM.PM.MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(TAORIngegevenKenmerken, Klant, Aantal, "")
+	#dim ProductId As %String = Product.GeefID()
+	
 	Quit ProductId
 ]]></Implementation>
 </Method>