Index: BL/Flow/Offerte/Doc.cls.xml
===================================================================
diff -u -r29059 -r45575
--- BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 45575)
@@ -176,6 +176,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RenderAndFileDocFromDto">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[ProxyObject:BL.Flow.Proxy.pxFlowDocs,&FilePath:%String,ORDERNR:%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, ORDERNR)
+	Quit:(Dir="") $$$ERROR($$$GeneralError,"Invalid directory specified: "_Dir)
+	
+	Set sc=$$ProxyToXMLStream^vhLib(ProxyObject,.DataStream, "DOCS", 0)   ; blnIndentTags=0
+	Quit:($$$ISERR(sc)) sc
+	
+	Set Task=..CreateFopTask("DocRenderAndFile",,)
+	Set lbXsltParams=..BuildXsltParams(,$G(pWithLogo,1),,$$$xslpFromDoc)   ; ,.pWithBgColors,)
+	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)   ; $$$rmBatch   ; $$$rmSync
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="RenderAndFileDoc">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[OFFNr:%String,&FilePath:%String]]></FormalSpec>
Index: WS/AX/DocGen/OfferteService.cls.xml
===================================================================
diff -u -r44691 -r45575
--- WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 44691)
+++ WS/AX/DocGen/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 45575)
@@ -22,18 +22,15 @@
 <ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-		/// TO DO: call BL.Flow.Offerte.Doc, op een manier die de pxOfferte rechtstreeks doorgeeft.
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Offertes.Insert(OfferteData)
 	
 	#dim FilePath As %String = ..DefaultPDFName(OfferteData.ORDERNR)
-	; #dim sc As %Status = ##class(BL.Flow.Offertes.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, OfferteData.ORDERNR) // TODO: deze maken, zoals bij verkooporder.
-	; Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	#dim sc As %Status = ##class(BL.Flow.Offerte.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, OfferteData.ORDERNR)
+	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\ADESMEDT509968.pdf" ;FilePath
+	Set RenderResultaat.DocumentNaam = FilePath
 	quit RenderResultaat
 ]]></Implementation>
 </Method>
Index: zTryout/KCA/VhipDocBaseOfferte.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VhipDocBaseOfferte.cls.xml	(revision 0)
+++ zTryout/KCA/VhipDocBaseOfferte.cls.xml	(revision 45575)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VhipDocBaseOfferte">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakPdf">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseOfferte).MaakPdf()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Testbestand:%String="\\notes01\shared\ict\Projecten\ERP\Fase 2\DocBase\Offerte\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 Offertenummer : '" _ pxDoc.Offertes.GetAt(1).ORDERNR _ "'", !
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\" ;OrderBvs"_ ##class(TECH.DateTime).CurrentTime()_".pdf"
+			Set sc = ##class(BL.Flow.Offerte.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, pxDoc.Offertes.GetAt(1).ORDERNR)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+
+<Method name="MaakPdfVanKof">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseOfferte).MaakPdfVanKof()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\"
+			Set sc = ##class(BL.Flow.Offerte.Doc).RenderAndFileDoc(603187, .FilePath)
+			Write "FilePath : '" _ FilePath _ "'", !
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>