Index: WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml
===================================================================
diff -u
--- WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(revision 0)
+++ WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(revision 47651)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.DocGen.FactuurService.RenderFactuur">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RenderFactuur">
+<Description>
+Indien Destination de printer is, dan wordt het door Caché naar de bulk-factuur-printen gestuurd (DocBase/PPOD/print-app in Admin/RCP)
+NrOfCopies is het TOTAAL aantal exemplaren van het factuur dat zal geprint worden (if dest.=printer). Caché maakt hiervan 1 origineel exemplaar + (n-1) kopieën </Description>
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur,Destination:WS.AX.DocGen.enu.BestemmingCode="",NrOfCopies:%Numeric=1</FormalSpec>
+<ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
+<Implementation><![CDATA[
+	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
+	Do pxDoc.Facturen.Insert(FactuurData)
+	
+	#dim FilePath As %String = ..DefaultPDFName(FactuurData.FACTUURNR)
+	#dim sc As %Status = $$$OK  ;  ##class(BL.Flow.Factuur.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.FACTUURNR)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	
+	If (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Printer()) {
+		#dim scPrintToPPOD As %Status = ..MaakFopTaakVoorPrintFacturen(FactuurData,(NrOfCopies\1))
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(scPrintToPPOD)
+	}
+	
+	; voorlopig voorbeeld bestand meegeven voor test cnext
+	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.FactuurService.FactuurPDF.FilePath")
+	#dim BestandNaam = "Factuur_" _DocRef _"_" _$$FormatDateTime^vhLib("YYYYMMDDhhnnss",$H) _"." _Extension
+	Quit ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="MaakFopTaakVoorPrintFacturen">
+<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur,TotaalAantalExemplaren:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim ExtraKopieen As %Integer = TotaalAantalExemplaren - 1
+	#dim FactuurNummer As %String = FactuurData.FACTUURNR
+	#dim FactType      As %String = $Select(FactuurData.FACTTYPE="P":"P", 1:"F")
+	#dim pdlExemplaren As %String = ..GeefExemplaren(ExtraKopieen)
+	#dim ProcessorFlag As %String = "PP"   ; alleen printen, niet archiveren in ADMIN-global en Notes01-map.
+	
+	Quit ##class(BL.Flow.Factuur.Doc).PrintAndFileDoc(FactuurNummer,FactType,pdlExemplaren,ProcessorFlag)
+]]></Implementation>
+</Method>
+
+<Method name="GeefExemplaren">
+<FormalSpec>ExtraKopieen:%Integer=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim pdlExemplaren As %String = "O"   ; het origineel factuur 
+	#dim i As %Integer = 0
+	For i=1:1:ExtraKopieen Set pdlExemplaren = pdlExemplaren _"\C"   ; 1 piece met waarde C per extra kopie 
+	
+	Quit pdlExemplaren
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/AX/DocGen/FactuurService.cls.xml
===================================================================
diff -u -r47624 -r47651
--- WS/AX/DocGen/FactuurService.cls.xml	(.../FactuurService.cls.xml)	(revision 47624)
+++ WS/AX/DocGen/FactuurService.cls.xml	(.../FactuurService.cls.xml)	(revision 47651)
@@ -22,64 +22,9 @@
 <FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur,Destination:WS.AX.DocGen.enu.BestemmingCode="",NrOfCopies:%Numeric=1</FormalSpec>
 <ReturnType>WS.AX.DocGen.dto.RenderResultaat</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
-	Do pxDoc.Facturen.Insert(FactuurData)
-	
-	#dim FilePath As %String = ..DefaultPDFName(FactuurData.FACTUURNR)
-	#dim sc As %Status = ##class(BL.Flow.Factuur.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurData.FACTUURNR)
-	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
-	
-	If (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Printer()) {
-		#dim scPrintToPPOD As %Status = ..MaakFopTaakVoorPrintFacturen(FactuurData,(NrOfCopies\1))
-		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(scPrintToPPOD)
-	}
-	
-	; voorlopig voorbeeld bestand meegeven voor test cnext
-	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()
-	Set RenderResultaat.DocumentNaam = FilePath
-	quit RenderResultaat
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.DocGen.FactuurService.RenderFactuur).%New().RenderFactuur(FactuurData,Destination,NrOfCopies)
 ]]></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.FactuurService.FactuurPDF.FilePath")
-	#dim BestandNaam = "Factuur_" _DocRef _"_" _$$FormatDateTime^vhLib("YYYYMMDDhhnnss",$H) _"." _Extension
-	Quit ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaam)
-]]></Implementation>
-</Method>
-
-<Method name="MaakFopTaakVoorPrintFacturen">
-<FormalSpec>FactuurData:BL.Flow.Proxy.pxFactuur,TotaalAantalExemplaren:%Integer=1</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim ExtraKopieen As %Integer = TotaalAantalExemplaren - 1
-	#dim FactuurNummer As %String = FactuurData.FACTUURNR
-	#dim FactType      As %String = $Select(FactuurData.FACTTYPE="P":"P", 1:"F")
-	#dim pdlExemplaren As %String = ..GeefExemplaren(ExtraKopieen)
-	#dim ProcessorFlag As %String = "PP"   ; alleen printen, niet archiveren in ADMIN-global en Notes01-map.
-	
-	Quit ##class(BL.Flow.Factuur.Doc).PrintAndFileDoc(FactuurNummer,FactType,pdlExemplaren,ProcessorFlag)
-]]></Implementation>
-</Method>
-
-<Method name="GeefExemplaren">
-<FormalSpec>ExtraKopieen:%Integer=0</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim pdlExemplaren As %String = "O"   ; het origineel factuur 
-	#dim i As %Integer = 0
-	For i=1:1:ExtraKopieen Set pdlExemplaren = pdlExemplaren _"\C"   ; 1 piece met waarde C per extra kopie 
-	
-	Quit pdlExemplaren
-]]></Implementation>
-</Method>
 </Class>