Index: zTryout/KCA/VhipDocBaseFactuur.cls.xml
===================================================================
diff -u -r55072 -r55073
--- zTryout/KCA/VhipDocBaseFactuur.cls.xml	(.../VhipDocBaseFactuur.cls.xml)	(revision 55072)
+++ zTryout/KCA/VhipDocBaseFactuur.cls.xml	(.../VhipDocBaseFactuur.cls.xml)	(revision 55073)
@@ -55,6 +55,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RenderFactuur">
+<Description>
+Do ##class(zTryout.KCA.VhipDocBaseFactuur).RenderFactuur()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Write !,"Start RenderFactuur"
+	#dim Testbestand As %String = "\\cache01\e$\CacheExport\SFS_GroteXML.xml"   ; "\\cache01\e$\CacheExport\FopTaskDoc_3526668_1.1_34438.xml"
+	;#dim pxDoc As BL.Flow.Proxy.pxFlowDocs = ##class(TECH.XMLCorrelater).%New().GeefObjectVanBestand(Testbestand,"BL.Flow.Proxy.pxFlowDocs","DOCS")
+	#dim FactuurData As BL.Flow.Proxy.pxFactuur = ##class(TECH.XMLCorrelater).%New().GeefObjectVanBestand(Testbestand,"BL.Flow.Proxy.pxFactuur","FactuurData")
+	
+	
+	Write !,"Ingelezen factuurnummer : '" _ FactuurData.FACTUURNR  _ "'"
+	
+	#dim Result As WS.AX.DocGen.dto.RenderResultaat = ##class(WSimpl.AX.DocGen.FactuurService.RenderFactuur).%New().RenderFactuur(FactuurData,##class(WS.AX.DocGen.enu.BestemmingCode).Screen())
+	;#dim Result As WS.AX.DocGen.dto.RenderResultaat = ##class(WSimpl.AX.DocGen.FactuurService.RenderFactuur).%New().RenderFactuur(pxDoc.Facturen.GetAt(1),##class(WS.AX.DocGen.enu.BestemmingCode).Printer(),1)
+	Write !,!,"Result :" , ! , Result.ToDisplayStream().Read(),!
+]]></Implementation>
+</Method>
+
 <Method name="RenderOrder">
 <Description>
 Do ##class(zTryout.KCA.VhipDocBaseFactuur).RenderOrder()</Description>