Index: APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u -r29059 -r39808
--- APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 29059)
+++ APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 39808)
@@ -6,6 +6,11 @@
 <Super>DOM.EC.Winkelkar.WinkelkarVisitor,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
 <Inheritance>right</Inheritance>
 
+<Property name="BerekeningService">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BesteldeProducten">
 <Type>APPS.VKP.Maatwerk.impl.BesteldeProducten</Type>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 	Set ..BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType, DocumentID)
 	Set ..KlantID = KlantID
 	Quit $$$OK
@@ -53,7 +59,7 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Product As DOM.PM.MaatwerkProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(Kenmerken,..KlantID,..HuidigeLijn.GeefAantal())
+	#dim Product As DOM.PM.MaatwerkProduct = ..BerekeningService.MaakProductVanKenmerken(Kenmerken,..KlantID,..HuidigeLijn.GeefAantal())
 	Do ..BesteldeProducten.Lijst.Insert(##class(APPS.VKP.Maatwerk.impl.BesteldProduct).%New(Product.GeefPRNr(),..HuidigeLijn.GeefAantal(),..HuidigeLijn.GeefProjectReferentie()))
 	Quit $$$OK
 ]]></Implementation>