Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r50094 -r55622
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 50094)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 55622)
@@ -22,6 +22,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTaxLosseComponenten">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.Test).%New().MaakTaxLosseComponenten() </Description>
+<Implementation><![CDATA[
+	Do ..TaxLCMaakProduct(##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks(), 3)
+	Do ..TaxLCMaakProduct(##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts(), 8)
+	Do ..TaxLCMaakProduct(##class(DOM.PM.enu.TAORProductieWijze).Rug(), 8)
+	Do ..TaxLCMaakProduct(##class(DOM.PM.enu.TAORProductieWijze).Front() , 10)
+]]></Implementation>
+</Method>
+
+<Method name="TaxLCMaakProduct">
+<FormalSpec>ProductieWijze:DOM.PM.enu.TAORProductieWijze,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()
+	#dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).VanHoecke()
+	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourBodemAfwBinnenladeVerpaktIn(VerpakkingType)
+	Set TAORIngegevenKenmerken.ProductieWijze = ProductieWijze
+	
+	Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(TAORIngegevenKenmerken, KlantID, Aantal)
+	If $IsObject(MaatwerkProduct) {
+		Write !,"Product gemaakt.  ID='"_MaatwerkProduct.GeefID()_"'"
+	}
+	Else {
+		Write !,"Geen MaatwerkProduct gemaakt  :-(   ???"
+	}
+]]></Implementation>
+</Method>
+
 <Method name="FixKlantDataNamenVoorUTs">
 <Description>
 Oproepen via