Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml
===================================================================
diff -u -r39748 -r39756
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 39748)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 39756)
@@ -3,8 +3,53 @@
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakOrderVanOfferte">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VanHoeckeGebruikerBeheerder">
+<Type>DOM.common.impl.VanHoeckeGebruikerBeheerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TerminalNavigatieService">
+<Type>APPS.CHUI.TerminalNavigatieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderIngaveService">
+<Type>APPS.VKP.OrderIngaveService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,VanHoeckeGebruikerBeheerder:DOM.common.impl.VanHoeckeGebruikerBeheerder,TerminalNavigatieService:APPS.CHUI.TerminalNavigatieService,OrderIngaveService:APPS.VKP.OrderIngaveService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
+	Set ..VanHoeckeGebruikerBeheerder = $$$Inject(VanHoeckeGebruikerBeheerder, ##class(DOM.common.impl.VanHoeckeGebruikerBeheerder).%New())
+	Set ..TerminalNavigatieService = $$$Inject(TerminalNavigatieService, ##class(APPS.CHUI.TerminalNavigatieService).%New())
+	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MaakOrderVanOfferte">
 <FormalSpec>MaakOrderVanOfferteRequest:WS.Vhisie4.Winkelkar.MaakOrderVanOfferteRequest</FormalSpec>
+<Implementation><![CDATA[
+	#dim VanHoeckeGebruiker As DOM.common.VanHoeckeGebruiker = ..VanHoeckeGebruikerBeheerder.GeefGebruikerViaEmail(MaakOrderVanOfferteRequest.GebruikerEmail)
+	#dim InterneOfferteId As %String = ..WinkelkarRepository.GeefOfferteIDViaID(MaakOrderVanOfferteRequest.WinkelkarId)
+	#dim ComputerNaam As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp)
+	
+	#dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId,"")
+	
+	Do ..TerminalNavigatieService.RaadpleegOrder(VanHoeckeGebruiker.GeefID(),ComputerNaam, OrderId)
+]]></Implementation>
 </Method>
 </Class>