Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml
===================================================================
diff -u -r37259 -r39807
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 37259)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 39807)
@@ -3,6 +3,11 @@
 <Class name="APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder">
 <Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
 
+<Property name="BerekeningService">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Order">
 <Type>DOM.VKP.Order</Type>
 <Private>1</Private>
@@ -18,6 +23,18 @@
 <Default>APPS.VKP.WinkelkarLijnenNaarOrderVisitor.MaakOrderVanOffertePrijsVerschillen</Default>
 </Parameter>
 
+<Method name="%OnNew">
+<FormalSpec>BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="KopieerLijnen">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
 <Implementation><![CDATA[
@@ -66,7 +83,7 @@
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Product</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(),..Order.GeefKlantID(),MaatwerkLijn.GeefAantal())
+<Implementation><![CDATA[	quit ..BerekeningService.MaakProductVanKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(),..Order.GeefKlantID(),MaatwerkLijn.GeefAantal())
 ]]></Implementation>
 </Method>