Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r40988 -r40997
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 40988)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 40997)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GroepID">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -19,13 +24,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</FormalSpec>
+<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,DateTimeAPI:TECH.DateTime.DateTimeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..WinkelkarSender = $$$Inject(WinkelkarSender, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -36,9 +42,9 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
-	Set ..Vhisie4Winkelkar.Id = $REPLACE($horolog,",","")
+	Set ..Vhisie4Winkelkar.Id = $REPLACE(..DateTimeAPI.CurrentHorolog(),",","")
 	Set ..Vhisie4Winkelkar.KlantId = Klant.GeefID()
-	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _Winkelkar.userName _" " _$ZDATE($HOROLOG)
+	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _Winkelkar.userName _" " _$ZDATE(..DateTimeAPI.CurrentHorolog())
 	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
 	
 	if Winkelkar.transferMode = "cumulated" {