Index: WSimpl/AX/DocGen/RappelService/RenderRappel.cls.xml
===================================================================
diff -u -r51571 -r51579
--- WSimpl/AX/DocGen/RappelService/RenderRappel.cls.xml	(.../RenderRappel.cls.xml)	(revision 51571)
+++ WSimpl/AX/DocGen/RappelService/RenderRappel.cls.xml	(.../RenderRappel.cls.xml)	(revision 51579)
@@ -30,7 +30,10 @@
 <FormalSpec>RappelData:BL.Flow.Proxy.pxRappel</FormalSpec>
 <ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
 <Implementation><![CDATA[
+	#dim RenderFile As %Boolean = $$$True
+	#dim PrintToPPOD As %Boolean = $$$False
 	#dim KlantNr As %String = $ZSTRIP($$$Trim(RappelData.KLANTNR),"*C")
+	
 	If KlantNr = "" {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("The field KLANTNR is empty or invalid ('"_$$$LCVT(RappelData.KLANTNR)_"').")
 	}
@@ -40,15 +43,17 @@
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Rappels.Insert(RappelData)
 	
-	#dim FilePath As %String = "" // Nog te implementeren: ..DefaultPDFName(KlantNr)
-	#dim sc As %Status = $$$OK // Nog te implementeren: ..FlowFactuurDoc.RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurNr, KlantNr)
-	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
-	/*
-    If ..MoetDocBasePrinten(Destination) {
-		#dim scPrintToPPOD As %Status = ..MaakFopTaakVoorPrintFacturen(FactuurData,(NrOfCopies\1))
+	If RenderFile {
+		#dim FilePath As %String = ..DefaultPDFName(KlantNr)
+		#dim sc As %Status = ..RenderAndFileDoc(pxDoc, .FilePath, KlantNr)
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	}
+	
+    If PrintToPPOD {
+		#dim scPrintToPPOD As %Status = ..MaakFopTaakVoorPrintRappel(RappelData)
 		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(scPrintToPPOD)
 	}
-	*/
+	
 	; voorlopig voorbeeld bestand meegeven voor test cnext
 	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()
 	Set RenderResultaat.DocumentNaam = FilePath
@@ -62,6 +67,34 @@
 <Implementation><![CDATA[	Do ..Utils.ControleerTekstHTMLTag(RappelData.SLOTTEKST, RappelData.KLANTNR, FixWhenDollarC0)
 ]]></Implementation>
 </Method>
+
+<Method name="DefaultPDFName">
+<FormalSpec>DocRef:%String,Extension:%String="pdf"</FormalSpec>
+<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.RappelService.RappelPDF.FilePath")
+	#dim BestandNaam = "Klant" _DocRef _"_" _$$FormatDateTime^vhLib("YYYYMMDDhhnnss",CurrentHorolog) _"." _Extension
+	Quit ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="RenderAndFileDoc">
+<FormalSpec><![CDATA[pxDoc:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,KlantNr:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..FlowRappelDoc.RenderAndFileDocFromDto(pxDoc, .FilePath, KlantNr)
+]]></Implementation>
+</Method>
+
+<Method name="MaakFopTaakVoorPrintRappel">
+<FormalSpec>RappelData:BL.Flow.Proxy.pxRappel</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..FlowRappelDoc.PrintToPPODFromDto(RappelData)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Flow/Rappel/Doc.cls.xml
===================================================================
diff -u -r29059 -r51579
--- BL/Flow/Rappel/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Rappel/Doc.cls.xml	(.../Doc.cls.xml)	(revision 51579)
@@ -751,6 +751,52 @@
 <Implementation><![CDATA[	Quit ##class(BL.Sys.FOP.CommonTasks).RunFopTask(.FopTask,.RunMode,.Priority)
 ]]></Implementation>
 </Method>
+
+<Method name="RenderAndFileDocFromDto">
+<FormalSpec><![CDATA[ProxyObject:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,KlantNummer:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim DocRef As %String = KlantNummer
+	Set Dir=##class(%File).GetDirectory(FilePath)
+	Set FName=##class(%File).GetFilename(FilePath)
+
+	Do ..BuildFileData("File", .FName,.Dir,.FilePath, DocRef)
+	Quit:(Dir="") $$$ERROR($$$GeneralError,"Invalid directory specified: "_Dir)
+	
+	Set sc=$$ProxyToXMLStream^vhLib(ProxyObject,.DataStream, "DOCS", 0)
+	Quit:($$$ISERR(sc)) sc
+	
+	Set Task=..CreateFopTask("DocRenderAndFile",,)
+	Set lbXsltParams=..BuildXsltParams(,$G(pWithLogo,1),,)
+	Set sc=##class(BL.Flow.Basis.Doc).DocSetRenderData(Task.AddDoc(),"STREAM",DataStream,..#ADBTemplate,"PDF",$LB(),lbXsltParams)
+	
+	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,Dir)
+	Quit:($$$ISERR(sc)) sc
+	Set sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmInLine)
+	
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+]]></Implementation>
+</Method>
+
+<Method name="PrintToPPODFromDto">
+<FormalSpec>ProxyObject:BL.Flow.Proxy.pxFlowDocs</FormalSpec>
+<Implementation><![CDATA[
+	Set PrinterName = "PPOD-dummy"
+	Set blnPPOD = 1
+	
+	Set sc=$$ProxyToXMLStream^vhLib(ProxyObject,.DataStream, "DOCS", 0)
+	Quit:($$$ISERR(sc)) sc
+	
+	Set Task = ..CreateFopTask("aftRappelPrintOMR",,)
+	Set lbXsltParams = ..BuildXsltParams(,$G(pWithLogo,1),,)
+	Set sc = ##class(BL.Flow.Basis.Doc).DocSetRenderData(Task.AddDoc(),"STREAM",DataStream,..#ADBTemplate,"PS",$LB(),lbXsltParams)
+
+	Set:($$$ISOK(sc)) sc=Task.AddActionPrint(PrinterName,1,,,)
+	Quit:($$$ISERR(sc)) sc
+	Set sc=..RunFopTask(Task,$$$rmBatch,$$$qpvLow-1)
+	
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+]]></Implementation>
+</Method>
 </Class>