Index: zTryout/KCA/VhipDocBaseFactuur.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VhipDocBaseFactuur.cls.xml	(revision 0)
+++ zTryout/KCA/VhipDocBaseFactuur.cls.xml	(revision 44717)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VhipDocBaseFactuur">
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakPdf">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseFactuur).MaakPdf()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Try {
+		#Dim Testbestand As %String = "\\notes01\shared\ict\Projecten\ERP\Fase 2\DocBase\Factuur\TESTKCAPRA.xml"
+		#Dim pxDoc As BL.Flow.Proxy.pxFlowDocs = ##class(TECH.XMLCorrelater).%New().GeefObjectVanBestand(Testbestand,"BL.Flow.Proxy.pxFlowDocs","DOCS")
+		Write "Ingelezen factuurnummer : '" _ pxDoc.Facturen.GetAt(1).FACTUURNR  _ "'", !
+		#Dim FilePath As %String = "\\NOTES01\SHARED\K C A\" ;OrderBvs"_ ##class(TECH.DateTime).CurrentTime()_".pdf"
+		Set sc = ##class(BL.Flow.Factuur.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, pxDoc.Facturen.GetAt(1).FACTUURNR)
+		Write "FilePath : '" _ FilePath _ "'", !
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakPdfVanFactuur">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseFactuur).MaakPdfVanFactuur()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Try {
+		#Dim FilePath As %String = ""
+		Set sc = ##class(BL.Flow.Factuur.Doc).RenderAndFileDoc(326091,,,.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/Proxy/pxBTWUitsplitsingItem.cls.xml
===================================================================
diff -u -r29059 -r44717
--- BL/Flow/Proxy/pxBTWUitsplitsingItem.cls.xml	(.../pxBTWUitsplitsingItem.cls.xml)	(revision 29059)
+++ BL/Flow/Proxy/pxBTWUitsplitsingItem.cls.xml	(.../pxBTWUitsplitsingItem.cls.xml)	(revision 44717)
@@ -23,7 +23,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Omschrijving:%String,Waarde:%String=""</FormalSpec>
+<FormalSpec>Omschrijving:%String="",Waarde:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: BL/Flow/Order/Doc.cls.xml
===================================================================
diff -u -r42422 -r44717
--- BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 42422)
+++ BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 44717)
@@ -143,8 +143,8 @@
 <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=..Instantiate()
+	Do blOrd.InitDefaults()
 	Set blOrd.DocRef = DocRef
 	Set blOrd.lbPPODKeywords=$LB()
 	Do blOrd.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
Index: BL/Flow/Factuur/Doc.cls.xml
===================================================================
diff -u -r29059 -r44717
--- BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 44717)
@@ -209,6 +209,29 @@
 ]]></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 blFact=..Instantiate() 
+	Do blFact.InitDefaults() 
+	Set blFact.FactType = "F"
+	Set blFact.TransformType="PDF"
+	Set blFact.DocRef = DocRef
+	Set blFact.lbPPODKeywords=$LB()
+	Do blFact.XsltParams.SetAt($G(pWithLogo,1),"pWithLogo")	
+	Do blFact.XsltParams.SetAt($$$xslpFromDoc,"pImageColVisible")
+	
+	Set sc=blFact.BuildTaskRenderAndFileFromProxy(DocData, .FilePath)
+ 	Set Task=blFact.FopTask
+	Do blFact.Close()
+	Set blFact=""
+	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[FANr:%String,FactType:%String="F",pdlExemplaren:%String="",&FilePath:%String,blnFileWWW:%Boolean=0,&FileURL:%String]]></FormalSpec>
Index: WS/AX/DocGen/FactuurService.cls.xml
===================================================================
diff -u -r44669 -r44717
--- WS/AX/DocGen/FactuurService.cls.xml	(.../FactuurService.cls.xml)	(revision 44669)
+++ WS/AX/DocGen/FactuurService.cls.xml	(.../FactuurService.cls.xml)	(revision 44717)
@@ -26,11 +26,10 @@
 	Do pxDoc.Facturen.Insert(FactuurData)
 	
 	#dim FilePath As %String = ..DefaultPDFName(FactuurData.FACTUURNR)
-	; #dim sc As %Status = ##class(BL.Flow.Facturen.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.ToelevNr) // TODO: deze maken, zoals bij verkooporder.
-	; Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	#dim sc As %Status = ##class(BL.Flow.Factuur.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.FACTUURNR)
+	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\FDESMEDT326091.pdf" ;FilePath
 	quit RenderResultaat