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>