Index: zTryout/KCA/VhipDocBaseOrder.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VhipDocBaseOrder.cls.xml	(revision 0)
+++ zTryout/KCA/VhipDocBaseOrder.cls.xml	(revision 42422)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VhipDocBaseOrder">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakPdf">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseOrder).MaakPdf()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim Testbestand As %String = "\\notes01\shared\ict\Projecten\ERP\Fase 2\DocBase\Order\TESTKCAPRA.xml"
+			#Dim pxDoc As BL.Flow.Proxy.pxFlowDocs = ##class(TECH.XMLCorrelater).%New().GeefObjectVanBestand(Testbestand,"BL.Flow.Proxy.pxFlowDocs","DOCS")
+			Write "Ingelezen ordernummer : '" _ pxDoc.Orders.GetAt(1).ORDERNR _ "'", !
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\" ;OrderBvs"_ ##class(TECH.DateTime).CurrentTime()_".pdf"
+			Set sc = ##class(BL.Flow.Order.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, pxDoc.Orders.GetAt(1).ORDERNR)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+
+<Method name="MaakPdfVanKod">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseOrder).MaakPdfVanKod()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim FilePath As %String = ""
+			Set sc = ##class(BL.Flow.Order.Doc).RenderAndFileDoc(172526,.FilePath)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Flow/Basis/DocNew.cls.xml
===================================================================
diff -u -r29059 -r42422
--- BL/Flow/Basis/DocNew.cls.xml	(.../DocNew.cls.xml)	(revision 29059)
+++ BL/Flow/Basis/DocNew.cls.xml	(.../DocNew.cls.xml)	(revision 42422)
@@ -264,6 +264,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BuildTaskRenderAndFileFromProxy">
+<Final>1</Final>
+<FormalSpec><![CDATA[ProxyObject:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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 Task=..CreateFopTask("DocRenderAndFile",,)
+	
+	#Dim emDoc As Sys.FOP.emDoc =Task.AddDoc()
+	//Set emDoc.DataDefsLB = $lb(  "BL.MTH.PROXY","BL.Flow.Order.Doc","BuildProxy",$lb(  172526) )
+	
+	Set sc=$$ProxyToXMLStream^vhLib(ProxyObject,.DataStream, "DOCS", 0)   ; blnIndentTags=0
+	Quit:($$$ISERR(sc)) sc
+	
+	Set sc=##class(BL.Flow.Basis.Doc).DocSetRenderData(emDoc,"STREAM",DataStream,..#ADBTemplate,"PDF",$LB(),..BuildXsltParamsList())
+	
+	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,Dir)
+	Set ..FopTask=Task
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="BuildTaskRenderAndPrint">
 <Description>
 FopTask voor "Render And Print" aanmaken. 
Index: BL/Flow/Order/Doc.cls.xml
===================================================================
diff -u -r29059 -r42422
--- BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 42422)
@@ -138,6 +138,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RenderAndFileDocFromDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[DocData:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,DocRef:%String=""]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set blOrd=..Instantiate() // OK
+	Do blOrd.InitDefaults() // IN PLAATS VAN Do blOrd.Init(ORDNr,) 
+	Set blOrd.DocRef = DocRef
+	Set blOrd.lbPPODKeywords=$LB()
+	Do blOrd.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
+	Do blOrd.XsltParams.SetAt($$$xslpFromDoc,"pImageColVisible")
+	
+	Set sc=blOrd.BuildTaskRenderAndFileFromProxy(DocData, .FilePath)
+ 	Set Task=blOrd.FopTask
+	Do blOrd.Close()
+	Set blOrd=""
+	Set:($$$ISOK(sc)) sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmInLine)   ; $$$rmBatch   ; $$$rmSync
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="RenderAndFileDoc">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[ORDNr:%String,&FilePath:%String,blnFileWWW:%Boolean=0,&FileURL:%String]]></FormalSpec>