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

CEVA#67518 Opschoning accounts

Browse Source 
svn path=/Customer/trunk/; revision=55168
This commit is contained in:
Sander Schepers
2022-03-01 13:43:57 +00:00
parent 1a0d9e48b7
commit 8a3ee2f314
1 changed files with 70 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
CEVA/ceva.sql
View File

@@ -242,7 +242,77 @@ AS
bez_bezoekers_email,
m.bez_kenmerkwaarde_waarde;
CREATE OR REPLACE PACKAGE CEVA
AS
PROCEDURE schonen_personen;
END;
/
-- Dagelijks schonen personen die langer dan een jaar niet hebben ingelogd.
CREATE OR REPLACE PACKAGE BODY CEVA
AS
PROCEDURE schonen_personen
AS
c_applname VARCHAR2 (50) := 'SCHONEN_PERSONEN';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count_tot NUMBER (10) := 0;
v_perslid_key NUMBER (15);
CURSOR c IS
SELECT p.*
FROM prs_v_aanwezigperslid p, FAC_V_LCRAP_FE_VS_KEY_DATA u
WHERE p.prs_perslid_key = u.prs_perslid_key
AND ( TRUNC (p.prs_perslid_login) <
TRUNC (SYSDATE) - 365
AND p.prs_perslid_login IS NOT NULL)
UNION ALL
SELECT p.*
FROM prs_v_aanwezigperslid p, FAC_V_LCRAP_FE_VS_KEY_DATA u
WHERE p.prs_perslid_key = u.prs_perslid_key
AND ( TRUNC (p.prs_perslid_aanmaak) <
TRUNC (SYSDATE) - 365
AND p.prs_perslid_login IS NULL);
BEGIN
FOR rec IN c
LOOP
BEGIN
v_perslid_key := rec.prs_perslid_key;
prs.delete_perslid (1, v_perslid_key);
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
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 (c_applname,
'E',
v_errormsg,
'Daily achtergrond taak afgebroken!');
END;
END;
/
CREATE OR REPLACE PROCEDURE CEVA_DAILY
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
-- Dagelijks schonen personen die langer dan een jaar niet hebben ingelogd.
ceva.schonen_personen ();
END;
/
------ payload end ------