Index: WS/HR/BrandLijst/BrandLijstService.cls.xml
===================================================================
diff -u -r73166 -r73167
--- WS/HR/BrandLijst/BrandLijstService.cls.xml	(.../BrandLijstService.cls.xml)	(revision 73166)
+++ WS/HR/BrandLijst/BrandLijstService.cls.xml	(.../BrandLijstService.cls.xml)	(revision 73167)
@@ -21,7 +21,9 @@
 <FormalSpec>WerknemersLijst:APPS.HR.WerknemersLijstBijBrand.dto.WerknemersLijst</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ##class(BL.HR.WerknemersLijstBrandDoc).PrintWerknemersLijstBijBrand(WerknemersLijst)
+	//Do ##class(BL.HR.WerknemersLijstBrandDoc).PrintWerknemersLijstBijBrand(WerknemersLijst)
+	Do ..VerstuurMailIpvTePrinten(WerknemersLijst)
+	
 	; de pdf kan evt ook gemaild worden (Een (html)lijst wordt nu al gemailed van op cache03).
 	;Do ##class(BL.HR.WerknemersLijstBrandDoc).MailWerknemersLijstPDFBijBrand(WerknemersLijst,$lb("jo.willems@vanhoecke.be"),"brandlijstpdf","brand brand",$$$SystemMail("jo") )
 ]]></Implementation>
@@ -39,6 +41,18 @@
 	Do ##class(BL.HR.WerknemersLijstBrandDoc).MailWerknemersLijstPDFBijBrand(WerknemersLijst, lbMailTo, "Testmail brandlijstpdf","brand brand",$$$SystemMail("BrandLijstTest") )
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurMailIpvTePrinten">
+<FormalSpec>WerknemersLijst:APPS.HR.WerknemersLijstBijBrand.dto.WerknemersLijst</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailSubject As %String = "Brandlijst via mail i.p.v. te printen"
+	#dim MailBody As %String = "PrintBrandlijst werd getriggered. "_$$$CRLF_"Vanwege uitfasering van deze functionaliteit worden de lijsten niet meer geprint (via FOP) maar vervangen door deze email. "_$$$CRLF_$$$CRLF_"In bijlage zit de PDF die normaal geprint wordt. Sinds enkele structurele wijzigingen in 2023/2024 is de lijst echter leeg, en het is dus zinloos om deze lege PDF te printen."_$$$CRLF_$$$CRLF_"Deze mail werd gegenereerd door FOP vanuit Caché."_$$$CRLF_"Mvg, Wim."
+	#dim lbMailTo As %List = $ListBuild("WimV@vanhoecke.be" ,"Lode.Heirman@vanhoecke.be", "ICT_Meldingen@vanhoecke.be")
+
+	Do ##class(BL.HR.WerknemersLijstBrandDoc).MailWerknemersLijstPDFBijBrand(WerknemersLijst, lbMailTo, MailSubject, MailBody, $$$SystemMail("BrandLijstViaFOP") )
+]]></Implementation>
+</Method>
 </Class>