From 49bc615a053087f18e209f249afc1f4bb4209660 Mon Sep 17 00:00:00 2001
From: Sander Schepers <sander.schepers@aareon.nl>
Date: Tue, 29 Jul 2025 15:15:00 +0000
Subject: [PATCH] CSUN#87104 Notificatie RM'er no-show (direct via
 preputorders) CSUN#87849 Betere foutmelding in de logging van de procedure
 voor het verwerken van emails

svn path=/Customer/trunk/; revision=69871
---
 CSUN/CSUN.sql | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql
index 7bfa29aff..d984ffca7 100644
--- a/CSUN/CSUN.sql
+++ b/CSUN/CSUN.sql
@@ -1384,6 +1384,7 @@ AS
    v_flag_on_fenote   NUMBER (10);
    v_flag_on_bonote   NUMBER (10);
    v_from             VARCHAR2 (4000);
+   v_fromaddr         VARCHAR2 (4000);
    v_body             VARCHAR2 (4000);
    m_body             VARCHAR2 (4000);
    v_locatie_code     VARCHAR2 (1000);   -- om te voorkomen dat we foutmeldingen krijgen als de locatie niet bepaald kan worden.
@@ -1425,6 +1426,12 @@ BEGIN
                   AND prs_link_key = p.prs_perslid_key
                   AND UPPER (kl.prs_kenmerklink_waarde) = UPPER (v_from));
 
+    -- Indien een mail is doorgestuurd, waar dan vanuit => v_fromaddr.
+    SELECT fac_result_waarde
+      INTO v_fromaddr
+      FROM fac_result
+     WHERE fac_result_sessionid = psessionid AND fac_result_naam = 'fromaddr';
+
    BEGIN
       SELECT fac.safe_to_number (prs_kenmerklink_waarde)
         INTO v_client
@@ -1663,6 +1670,8 @@ BEGIN
                   'W',
                      'Mail kon niet geformateerd worden afzender:'
                   || pfrom
+                  || ' / '
+                  || v_fromaddr                  
                   || '['
                   || errormsg
                   || ']',
@@ -2008,6 +2017,8 @@ EXCEPTION
          'E',
             'Mail kon niet ingelezen worden afzender:'
          || pfrom
+         || ' / '
+         || v_fromaddr
          || '['
          || errormsg
          || ']',
@@ -8036,7 +8047,7 @@ BEGIN
  
    csun_export_mailnoti;     
 
-   --csun_noti_rm_noshow;
+   csun_noti_rm_noshow;
                    
 END;
 /