HSLE#33566 Beter afkappen te lange e-mail bodies. Ook beter fouten loggen in IMP_LOG

svn path=/Database/trunk/; revision=26020
2015-08-20 11:05:00 +00:00
parent 5c4157c97e
commit 5ce2955257
1 changed files with 16 additions and 1 deletions
--- a/FAC/FAC_PAC.SRC
+++ b/FAC/FAC_PAC.SRC
@@ -3887,7 +3887,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                           SUBSTR (
                              psubject || CHR (13)
                              || REPLACE (
-                                    pbody,
+                                    SUBSTR (pbody,
+                                       1,
+                                       4000 - (LENGTH (psubject) + 2)),
                                    CHR (13) || CHR (10) || CHR (13) || CHR (10),
                                    CHR (13) || CHR (10)),
                              1,
@@ -3971,6 +3973,19 @@ CREATE OR REPLACE PACKAGE BODY fac AS
   EXCEPTION
      WHEN OTHERS
      THEN
+         fac.writelog (
+                  'PROCESSEMAIL',
+                  'W',
+                     'Mail kon niet verwerkt worden afzender: '
+                  || pfrom
+                  || '['
+                  || errormsg
+                  || ']',
+                     'OTHERS (error '
+                  || SQLCODE
+                  || '/'
+                  || SUBSTR (SQLERRM, 1, 100)
+                  || ')');
         INSERT INTO fac_result (fac_result_sessionid,
                                 fac_result_naam,
                                 fac_result_waarde)