Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml
===================================================================
diff -u -r39761 -r39762
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 39761)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 39762)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SystemInformation">
+<Type>TECH.SystemInformation</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>
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,VanHoeckeGebruikerBeheerder:DOM.common.impl.VanHoeckeGebruikerBeheerder,TerminalNavigatieService:APPS.CHUI.TerminalNavigatieService,OrderIngaveService:APPS.VKP.OrderIngaveService,SystemInformation:TECH.SystemInformation</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +39,7 @@
 	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())
+	Set ..SystemInformation = $$$Inject(SystemInformation,##class(TECH.SystemInformation).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -44,7 +50,7 @@
 <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.SystemInformation).%New().GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp)
+	#dim ComputerNaam As %String = ..SystemInformation.GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp)
 	
 	#dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId,"")