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

@@ -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;
 /