Index: WS/AX/DocGen/AankoopOrderService.cls.xml
===================================================================
diff -u -r44663 -r46882
--- WS/AX/DocGen/AankoopOrderService.cls.xml	(.../AankoopOrderService.cls.xml)	(revision 44663)
+++ WS/AX/DocGen/AankoopOrderService.cls.xml	(.../AankoopOrderService.cls.xml)	(revision 46882)
@@ -26,13 +26,13 @@
 	Do pxDoc.Toeleveringen.Insert(AankoopOrderData)
 	
 	#dim FilePath As %String = ..DefaultPDFName(AankoopOrderData.ToelevNr)
-	; #dim sc As %Status = ##class(BL.Flow.Toelevering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, AankoopOrderData.ToelevNr) // TODO: deze maken, zoals bij verkooporder.
-	; Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	#dim sc As %Status = ##class(BL.Flow.Toelevering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, AankoopOrderData.ToelevNr)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	
 	; voorlopig voorbeeld bestand meegeven voor test cnext
 	
 	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()
-	Set RenderResultaat.DocumentNaam = "\\FOP\fop\AX_TEST\LBLUMJULIUS299947.pdf" ;FilePath
+	Set RenderResultaat.DocumentNaam = FilePath
 	quit RenderResultaat
 ]]></Implementation>
 </Method>
Index: zTryout/KCA/VhipDocBaseToelevering.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VhipDocBaseToelevering.cls.xml	(revision 0)
+++ zTryout/KCA/VhipDocBaseToelevering.cls.xml	(revision 46882)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VhipDocBaseToelevering">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakPdf">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseToelevering).MaakPdf()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Testbestand:%String="\\notes01\shared\ict\Projecten\ERP\Fase 2\DocBase\Toelevering\TESTKCAPRA.xml"</FormalSpec>
+<Implementation><![CDATA[
+		Try {
+			#Dim pxDoc As BL.Flow.Proxy.pxFlowDocs = ##class(TECH.XMLCorrelater).%New().GeefObjectVanBestand(Testbestand,"BL.Flow.Proxy.pxFlowDocs","DOCS")
+			Write "Ingelezen Leveringnummer : '" _ pxDoc.Toeleveringen.GetAt(1).ToelevNr _ "'", !
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\" ;Toelevering"_ ##class(TECH.DateTime).CurrentTime()_".pdf"
+			Set sc = ##class(BL.Flow.Toelevering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, pxDoc.Toeleveringen.GetAt(1).ToelevNr)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+
+<Method name="MaakPdfVanToelevering">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseToelevering).MaakPdfVanToelevering()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\"
+			Set sc = ##class(BL.Flow.Toelevering.Doc).RenderAndFileDoc(217537, .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/Toelevering/Doc.cls.xml
===================================================================
diff -u -r29059 -r46882
--- BL/Flow/Toelevering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Toelevering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 46882)
@@ -75,6 +75,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RenderAndFileDocFromDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[DocData:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,DocRef:%String="",blnShowRembours:%Boolean=0]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set blToe=..Instantiate()
+	Set blToe.DocRef = DocRef
+	Set blToe.ADBTemplate=..#ADBTemplate
+	Set blToe.lbDocs=$LB(DocRef)
+	Set blToe.TransformType="PDF"
+	Set blToe.lbPPODKeywords=$LB()
+	Do blToe.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
+	
+	Set sc=blToe.BuildTaskRenderAndFileFromProxy(DocData, .FilePath)
+ 	Set Task=blToe.FopTask
+	Do blToe.Close()
+	Set blToe=""
+	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[TOENr:%String,&FilePath:%String,blnFileWWW:%Boolean=0,&FileURL:%String]]></FormalSpec>