admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#66596 XXXX_DAILY robuuster: Exceptions notificeren met putsystemnotification

Browse Source 
svn path=/Database/trunk/; revision=51119
This commit is contained in:
Erik Groener
2021-04-28 07:52:23 +00:00
parent b0caf2902a
commit 2e67e97fc2
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
FAC/FAC_PAC.SRC
View File

@@ -3041,7 +3041,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- als xxxx_daily bestaat dan deze aanroepen.
IF (has_cust_daily = 1)
THEN
EXECUTE IMMEDIATE 'BEGIN ' || cust_daily || '; END;';
BEGIN
EXECUTE IMMEDIATE 'BEGIN ' || cust_daily || '; END;';
EXCEPTION
WHEN OTHERS
THEN
putsystemnotification ('Facilitor notifier: Invalid daily job ' || cust_daily ||' ('|| SQLERRM ||')' , 3);
END;
END IF;
fac.fac_cleanup;
END;
@@ -3063,7 +3069,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- als xxxx_weekly bestaat dan deze aanroepen
IF (has_cust_weekly = 1)
THEN
EXECUTE IMMEDIATE 'BEGIN ' || cust_weekly || '; END;';
BEGIN
EXECUTE IMMEDIATE 'BEGIN ' || cust_weekly || '; END;';
EXCEPTION
WHEN OTHERS
THEN
putsystemnotification ('Facilitor notifier: Invalid weekly job ' || cust_weekly ||' ('|| SQLERRM ||')' , 3);
END;
END IF;
END;
@@ -3084,7 +3096,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- als xxxx_monthly bestaat dan deze aanroepen
IF (has_cust_monthly = 1)
THEN
EXECUTE IMMEDIATE 'BEGIN ' || cust_monthly || '; END;';
BEGIN
EXECUTE IMMEDIATE 'BEGIN ' || cust_monthly || '; END;';
EXCEPTION
WHEN OTHERS
THEN
putsystemnotification ('Facilitor notifier: Invalid monthly job ' || cust_monthly ||' ('|| SQLERRM ||')' , 3);
END;
END IF;
END;