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

volk#64125: aiai bij aanmaken melding

Browse Source 
svn path=/Customer/trunk/; revision=48289
This commit is contained in:
Suzan Wiegerinck
2020-09-25 09:13:17 +00:00
parent d0023cce42
commit 48d92ba575
1 changed files with 31 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
VOLK/volk.sql
View File

@@ -1042,6 +1042,8 @@ AS
CREATE OR REPLACE PACKAGE VOLK
AS
PROCEDURE mld_after_insert (p_melding_key IN NUMBER);
PROCEDURE opschonen_registraties_fb;
END;
/
@@ -1075,6 +1077,35 @@ AS
WHERE m.mld_melding_key = rec.mld_melding_key;
END LOOP;
END;
PROCEDURE opschonen_registraties_fb
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
BEGIN
DELETE volk_registraties_firmbase fb
WHERE fb.bez_einddatum < TRUNC (SYSDATE - 7);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('Opschonen registraties Firmbase',
'E',
v_errormsg,
'');
END;
END;
/
@@ -1203,43 +1234,6 @@ AS
AND afs.bez_afspraak_host_key = bez_voor.prs_perslid_key
ORDER BY afs.bez_afspraak_datum;
CREATE OR REPLACE PACKAGE VOLK
AS
PROCEDURE opschonen_registraties_fb;
END;
/
CREATE OR REPLACE PACKAGE BODY VOLK
AS
PROCEDURE opschonen_registraties_fb
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
BEGIN
DELETE volk_registraties_firmbase fb
WHERE fb.bez_einddatum < TRUNC (SYSDATE - 7);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('Opschonen registraties Firmbase',
'E',
v_errormsg,
'');
END;
END;
/
CREATE OR REPLACE PROCEDURE VOLK_DAILY
AS
BEGIN