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

svn path=/Database/trunk/; revision=26020

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)