Index: WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml
===================================================================
diff -u -r47651 -r47666
--- WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 47651)
+++ WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 47666)
@@ -3,13 +3,20 @@
 <Class name="WSimpl.AX.DocGen.FactuurService.RenderFactuur">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="FlowFactuurDoc">
+<Type>BL.Flow.Factuur.Doc</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>FlowFactuurDoc:BL.Flow.Factuur.Doc=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..FlowFactuurDoc = $$$Inject(FlowFactuurDoc, ##class(BL.Flow.Factuur.Doc).%New())
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -24,7 +31,7 @@
 	Do pxDoc.Facturen.Insert(FactuurData)
 	
 	#dim FilePath As %String = ..DefaultPDFName(FactuurData.FACTUURNR)
-	#dim sc As %Status = $$$OK  ;  ##class(BL.Flow.Factuur.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.FACTUURNR)
+	#dim sc As %Status = ..FlowFactuurDoc.RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.FACTUURNR)
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	
 	If (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Printer()) {
@@ -44,8 +51,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim CurrentHorolog As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("WS.AX.DocGen.FactuurService.FactuurPDF.FilePath")
-	#dim BestandNaam = "Factuur_" _DocRef _"_" _$$FormatDateTime^vhLib("YYYYMMDDhhnnss",$H) _"." _Extension
+	#dim BestandNaam = "Factuur_" _DocRef _"_" _$$FormatDateTime^vhLib("YYYYMMDDhhnnss",CurrentHorolog) _"." _Extension
 	Quit ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaam)
 ]]></Implementation>
 </Method>
@@ -61,7 +69,7 @@
 	#dim pdlExemplaren As %String = ..GeefExemplaren(ExtraKopieen)
 	#dim ProcessorFlag As %String = "PP"   ; alleen printen, niet archiveren in ADMIN-global en Notes01-map.
 	
-	Quit ##class(BL.Flow.Factuur.Doc).PrintAndFileDoc(FactuurNummer,FactType,pdlExemplaren,ProcessorFlag)
+	Quit ..FlowFactuurDoc.PrintAndFileDoc(FactuurNummer,FactType,pdlExemplaren,ProcessorFlag)
 ]]></Implementation>
 </Method>