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

HSLE#73333 DAILY/verwijderen e-mail adres bij inactivatie

Browse Source 
svn path=/Customer/trunk/; revision=56956
This commit is contained in:
Maarten van der Heide
2022-08-19 19:08:38 +00:00
parent ba688a9150
commit e97ff2baa1
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
HSLE/hsle.sql
View File

@@ -23,14 +23,14 @@ SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE PACKAGE HSLE
IS
AS
PROCEDURE schonen_accounts;
END;
/
CREATE OR REPLACE PACKAGE BODY HSLE
IS
-- Verwijder personen die 7 dagen na einddatum (in het verleden)!
AS
-- Verwijder medewerkers 7 dagen na einddatum (in het verleden)!
PROCEDURE schonen_accounts
AS
CURSOR c_del
@@ -40,12 +40,12 @@ IS
p.prs_perslid_key,
COUNT (*) verplichtingen
FROM prs_v_aanwezigperslid p, prs_v_perslid_fullnames_all pf, prs_v_verplichting_keys v
WHERE INSTR (UPPER (p.prs_perslid_email), '@HSLEIDEN.NL') > 0
WHERE INSTR (UPPER (COALESCE (p.prs_perslid_email, 'x')), '@STUDENT.HSLEIDEN.NL') = 0 -- HSLE#73333: Medewerker als email <> @student.hsleiden.nl (of leeg)!
AND p.prs_perslid_externid IS NOT NULL
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) <> '_'
AND SUBSTR (COALESCE (p.prs_perslid_oslogin, 'x'), 1, 1) <> '_'
AND p.prs_perslid_apikey IS NULL -- Voor de zekerheid!
AND p.prs_perslid_key > 10 -- Voor de zekerheid!
AND p.prs_perslid_einddatum + 7 < TRUNC (SYSDATE)
AND p.prs_perslid_einddatum + 7 < TRUNC (SYSDATE) -- Dus einddatum gevuld!
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = v.prs_perslid_key(+)
GROUP BY '[' || TO_CHAR (p.prs_perslid_key) || '|' || p.prs_perslid_email || '|' || pf.prs_perslid_naam_full || '] ',
@@ -114,13 +114,14 @@ IS
END;
/
CREATE OR REPLACE PROCEDURE hsle_daily
CREATE OR REPLACE PROCEDURE HSLE_DAILY
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
hsle.schonen_accounts;
-- Verwijder medewerkers 7 dagen na einddatum (in het verleden)!
hsle.schonen_accounts ();
EXCEPTION
WHEN OTHERS
THEN
@@ -128,7 +129,7 @@ EXCEPTION
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
END hsle_daily;
END HSLE_DAILY;
/
--