Index: BL/HR/WerknemersLijstBrandDoc.cls.xml
===================================================================
diff -u -r29059 -r55482
--- BL/HR/WerknemersLijstBrandDoc.cls.xml	(.../WerknemersLijstBrandDoc.cls.xml)	(revision 29059)
+++ BL/HR/WerknemersLijstBrandDoc.cls.xml	(.../WerknemersLijstBrandDoc.cls.xml)	(revision 55482)
@@ -93,6 +93,40 @@
 	Quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="RenderAndMailDocFromProxy">
+<FormalSpec>pxDoc:APPS.HR.WerknemersLijstBijBrand.dto.WerknemersLijst,MailTo:%List,Subject:%String,Body:%String,MailFrom:%String,FileName:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim DataStream As %Stream
+	#dim sc As %Status
+	
+	// Settings for RenderAndMail 
+	Set ..lbDocs=$LB()
+	Set ..TransformType="PDF"
+	Set ..lbPPODKeywords=$LB()
+	Set ..Options=""
+	
+	If $$$Trim(FileName) = "" {
+		Set FileName = "WerknemersLijst"_$$FormatDateTime^vhLib("yyyymmdd",$H)_".pdf"
+	}
+	
+	// Prepare Data : XML-stream from pxDoc 
+	Set sc=$$ProxyToXMLStream^vhLib(pxDoc,.DataStream, "DOCS", 0)   ; blnIndentTags=0
+	Quit:($$$ISERR(sc)) sc
+	
+	// Build Task for RenderAndMail 
+	#dim Task As Sys.FOP.Task = ..CreateFopTask("DocRenderAndMail",,)
+	Set sc = ..DocSetRenderData(Task.AddDoc(), "STREAM", DataStream, )
+	Set:($$$ISOK(sc)) sc = Task.AddActionMail(MailTo, Subject, Body, MailFrom)
+	Set:($$$ISOK(sc)) Task.ActionMail.Attachments = FileName
+	Set ..FopTask = Task
+
+	Set DataStream = ""   ; Unswizzle CacheStream after being copied into the TaskDoc 
+	Set:($$$ISOK(sc)) sc = ##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmBatch)
+	Quit sc
+]]></Implementation>
+</Method>
 </Class>