Index: vhDeploy/Deploy20170918xDocBaseFilePathLeveringPDF.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20170918xDocBaseFilePathLeveringPDF.cls.xml	(revision 0)
+++ vhDeploy/Deploy20170918xDocBaseFilePathLeveringPDF.cls.xml	(revision 45578)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20170918xDocBaseFilePathLeveringPDF">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>DocBase filepath voor LeveringPDF te droppen voor AX</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If $$$Server = "CACHE01" {
+		Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("WS.AX.DocGen.LeveringService.LeveringPDF.FilePath", "\\FOP\fop\AX_PROD\")
+	} ElseIf $$$Server = "CACHETEST2010" {
+		Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("WS.AX.DocGen.LeveringService.LeveringPDF.FilePath", "\\FOP\fop\AX_TEST\")
+	} Else {
+		Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("WS.AX.DocGen.LeveringService.LeveringPDF.FilePath", "\\FOP\fop\AX_DEV\")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r29059 -r45578
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 45578)
@@ -94,6 +94,29 @@
 ]]></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 blLev=..Instantiate()
+	Set blLev.DocRef = DocRef
+	Set blLev.ADBTemplate=..#ADBTemplateNotStapled
+	Set blLev.lbDocs=$LB(DocRef,blnShowRembours,"")
+	Set blLev.TransformType="PDF"
+	Set blLev.lbPPODKeywords=$LB()
+	Do blLev.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
+	Do blLev.XsltParams.SetAt($$$xslpFromDoc,"pImageColVisible")
+	
+	Set sc=blLev.BuildTaskRenderAndFileFromProxy(DocData, .FilePath)
+ 	Set Task=blLev.FopTask
+	Do blLev.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[BONNr:%String,&FilePath:%String,blnShowRembours:%Boolean=0,blnFileWWW:%Boolean=0,&FileURL:%String]]></FormalSpec>
Index: zTryout/KCA/VhipDocBaseLevering.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VhipDocBaseLevering.cls.xml	(revision 0)
+++ zTryout/KCA/VhipDocBaseLevering.cls.xml	(revision 45578)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VhipDocBaseLevering">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakPdf">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseLevering).MaakPdf()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Testbestand:%String="\\notes01\shared\ict\Projecten\ERP\Fase 2\DocBase\Levering\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.Leveringen.GetAt(1).LEVERINGSNR _ "'", !
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\" ;Levering"_ ##class(TECH.DateTime).CurrentTime()_".pdf"
+			Set sc = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, pxDoc.Leveringen.GetAt(1).LEVERINGSNR)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+
+<Method name="MaakPdfVanLevering">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseLevering).MaakPdfVanLevering()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\"
+			Set sc = ##class(BL.Flow.Levering.Doc).RenderAndFileDoc(367245, .FilePath)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/AX/DocGen/LeveringService.cls.xml
===================================================================
diff -u -r42308 -r45578
--- WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 42308)
+++ WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 45578)
@@ -22,10 +22,30 @@
 <ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	/// TO DO: call BL.Flow.Levering.Doc, op een manier die de pxLevering rechtstreeks doorgeeft.
 	/// TO DO: de bepaling van blnStapling, PrinterName, LevDocType (voor RenderAndPrintDocViaType) in functie doen van pxLevering (i.p.v. i.f.v. persistente data).
+	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
+	Do pxDoc.Leveringen.Insert(LeveringData)
+	
+	#dim FilePath As %String = ..DefaultPDFName(LeveringData.LEVERINGSNR)
+	#dim sc As %Status = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, LeveringData.LEVERINGSNR)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	
+	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()
+	Set RenderResultaat.DocumentNaam = FilePath
+	quit RenderResultaat
 ]]></Implementation>
 </Method>
+
+<Method name="DefaultPDFName">
+<FormalSpec>DocRef:%String,Extension:%String="pdf"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("WS.AX.DocGen.LeveringService.LeveringPDF.FilePath")
+	#dim BestandNaam = "Levering_"_DocRef_"_"_$ZD($H,8)_"."_Extension
+	Quit ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaam)
+]]></Implementation>
+</Method>
 </Class>