HGCU#90735 Foutmelding bij ontvangen watchdog mail opgelost.

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

HGCU/hgcu.sql

@@ -336,17 +336,33 @@ AS
         THEN
             v_errorhint := SUBSTR(pbody, 1, 500);
             v_errormsg := 'Watchdog Alarm ontvangen ';
-            SELECT fac_usrdata_key 
-              INTO v_usrdata_key
-              FROM fac_usrdata ud
-             WHERE UPPER(pbody) like '%' || fac_usrdata_upper || '%'
-               AND ud.fac_usrtab_key = 61
-               AND ud.fac_usrdata_vervaldatum IS NULL
-               AND ud.fac_usrdata_verwijder IS NULL; 
+            
+            BEGIN
+               SELECT fac_usrdata_key 
+                 INTO v_usrdata_key
+                 FROM fac_usrdata ud
+                WHERE UPPER(pbody) like '%' || fac_usrdata_upper || '%'
+                  AND ud.fac_usrtab_key = 61
+                  AND ud.fac_usrdata_verwijder IS NULL; 
+
+               UPDATE fac_usrdata
+                  SET fac_usrdata_vervaldatum = SYSDATE
+                WHERE fac_usrdata_key = v_usrdata_key;
+
+            EXCEPTION WHEN OTHERS
+            THEN
+               -- Als er een fout optreedt bij de wachtdog dan wordt deze wel gelogd maar hoeft niet tot een foutmelding richting
+               -- het GBS te leiden. 
+               oracle_err_num := SQLCODE;
+               oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+               v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+
+               fac.writelog ('GBS_MELDING',
+                             'I',
+                             v_errormsg,
+                             v_errorhint);
+            END;
 
-            UPDATE fac_usrdata
-               SET fac_usrdata_vervaldatum = SYSDATE
-             WHERE fac_usrdata_key = v_usrdata_key;
         ELSE
             UPDATE fac_usrdata
                SET fac_usrdata_vervaldatum = SYSDATE