CSUN#31206 -- Logging toegevoegd.

svn path=/Customer/trunk/; revision=24221

CSUN/CSUN.sql

@@ -23,6 +23,36 @@ BEGIN
 END;
 /
 
+CREATE OR REPLACE VIEW csun_v_rap_errorlog
+(
+   hide_f_imp_log_datum,
+   fclt_f_applicatie,
+   fclt_f_datum,
+   tijdstip,
+   fclt_f_niveau,
+   fclt_f_omschrijving,
+   hint
+)
+AS
+   SELECT imp_log_datum hide_f_imp_log_datum,
+          COALESCE(fac_import_app_code,imp_log_applicatie),
+          TO_CHAR (imp_log_datum, 'YYYYMMDD') fclt_f_datum,
+          TO_CHAR (imp_log_datum, 'HH24:MI:SS') tijdstip,
+          DECODE (imp_log_status,
+                  'F', 'Fataal',
+                  'E', 'Error',
+                  'W', 'Waarschuwing',
+                  'I', 'Informatief',
+                  'S', 'Samenvatting',
+                  '-')
+             fclt_f_niveau,
+          imp_log_omschrijving fclt_f_omschrijving,
+          imp_log_hint
+     FROM imp_log l, fac_import i, fac_import_app a
+    WHERE l.fac_import_key = i.fac_import_key(+)
+      AND i.fac_import_app_key = a.fac_import_app_key(+)
+      AND l.imp_log_datum > sysdate -10;
+
 CREATE OR REPLACE PACKAGE CSUN_RAP
 AS
    -- PACKAGES voor de CSUN specifieke rapportages
@@ -1298,8 +1328,15 @@ AS
 BEGIN
    v_error_hint := 'Verwijderen oude records';
    -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE fac_import_key = p_import_key;
+   DELETE   
+     FROM imp_log l
+    WHERE EXISTS
+          (SELECT i.fac_import_key
+             FROM fac_import i, fac_import i2
+            WHERE l.fac_import_key = i.fac_import_key
+              AND i.fac_import_app_key = i2.fac_import_app_key
+              AND i2.fac_import_key = p_import_key)
+      AND l.fac_import_key <> p_import_key;
 
    DELETE FROM csun_imp_project;
 
@@ -1627,7 +1664,7 @@ BEGIN
                                  p_import_key,
                                  'E',
                                  'Import locaties afgebroken, locatie omschrijving bestaat al ( district mngr:' || rec_d.dm || '(' || rec_d.voorletters || ' ' || rec_d.tussenvoegsels || ' ' || rec_d.achternaam || ')'  || '- account:' || rec_a.accountcode || '-' || rec_a.accountnaam || ' Projectnr: ' || rec.project || ')',
-                                 v_error_hint);                          
+                                 'Locatie met omschrijving: ' || rec.omschrijving || ' bestaat al');                          
                            END IF;
                         END;
                         
@@ -2093,7 +2130,7 @@ AS
 
 BEGIN adm.systrackscriptId('$Id$', 0); END;
 /
-BEGIN fac.registercustversion('CSUN', 13); END;
+BEGIN fac.registercustversion('CSUN', 14); END;
 /
 COMMIT;
 spool off