Index: APPS/EC/Verkoop/impl/Interne/VerkoopService.cls.xml
===================================================================
diff -u -r36838 -r36850
--- APPS/EC/Verkoop/impl/Interne/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 36838)
+++ APPS/EC/Verkoop/impl/Interne/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 36850)
@@ -3,6 +3,21 @@
 <Class name="APPS.EC.Verkoop.impl.Interne.VerkoopService">
 <Super>APPS.EC.Verkoop.impl.VerkoopService,APPS.EC.Verkoop.InterneVerkoopService</Super>
 
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",WinkelkarService:APPS.EC.Winkelkar.WinkelkarService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(OfferteService, WinkelkarService)
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.InterneWinkelkarService).%New())
+	Set ..OfferteHerberekenaar = ##class(APPS.EC.Verkoop.impl.OfferteHerberekenaar).%New(,,,..WinkelkarService)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="AnnuleerIngaveIntern">
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,ParameterID:%String</FormalSpec>
 <Implementation><![CDATA[