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

FMHN#84596 Uitzetten procedure inactiveren personen

Browse Source 
svn path=/Customer/trunk/; revision=65525
This commit is contained in:
Sander Schepers
2024-07-10 13:23:13 +00:00
parent 8a57dcba1a
commit 034db9f584
1 changed files with 0 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
FMHN/fmhn.sql
View File

@@ -6606,7 +6606,6 @@ AS
PROCEDURE mld_after_insert (p_key IN NUMBER);
PROCEDURE mld_update_ruimtenr (p_key IN NUMBER);
PROCEDURE ruimte_events;
PROCEDURE inactiveren_accounts;
END;
/
@@ -9084,87 +9083,6 @@ AS
'Daily achtergrond taak afgebroken!');
END;
PROCEDURE inactiveren_accounts
AS
c_applname VARCHAR2 (50) := 'INACTIVEREN_ACCOUNTS';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_count_tot NUMBER (10) := 0;
CURSOR c_inactiveren IS
SELECT p.prs_perslid_key,
p.prs_perslid_email,
p.prs_perslid_ingangsdatum,
p.prs_perslid_einddatum,
p.prs_perslid_inactief,
p.prs_perslid_verwijder
FROM prs_perslid p
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_inactief IS NULL
AND ( ( TRUNC (p.prs_perslid_einddatum) < TRUNC (SYSDATE)
AND NOT EXISTS
(SELECT pk.prs_link_key
FROM prs_kenmerklink pk
WHERE pk.prs_kenmerklink_niveau = 'P'
AND pk.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1100 --Kenmerk 'Handmatige inactiefdatum'
AND pk.prs_link_key = p.prs_perslid_key
AND fac.safe_to_date (
pk.prs_kenmerklink_waarde,
'DD-MM-YYYY') >
TRUNC (SYSDATE)))
OR EXISTS
(SELECT pk.prs_link_key
FROM prs_kenmerklink pk
WHERE pk.prs_kenmerklink_niveau = 'P'
AND pk.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1100 --Kenmerk 'Handmatige inactiefdatum'
AND pk.prs_link_key = p.prs_perslid_key
AND fac.safe_to_date (pk.prs_kenmerklink_waarde,
'DD-MM-YYYY') <=
TRUNC (SYSDATE)));
BEGIN
-- LET OP: DAILY-taak draait dagelijks na middernacht (begin van dag)
-- Daarmee worden personen waarbij er een einddatum is gezet
FOR rec IN c_inactiveren
LOOP
v_aanduiding :=
'['
|| TO_CHAR (rec.prs_perslid_key)
|| '|'
|| rec.prs_perslid_email
|| '] ';
v_count_tot := v_count_tot + 1;
UPDATE prs_perslid
SET prs_perslid_inactief = SYSDATE
WHERE prs_perslid_key = rec.prs_perslid_key;
END LOOP;
fac.writelog (c_applname,
'S',
'#Accounts geinactiveerd: ' || TO_CHAR (v_count_tot),
'');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (c_applname,
'E',
v_aanduiding || v_errormsg,
'Daily achtergrond taak afgebroken!');
END;
END;
/
@@ -9204,9 +9122,6 @@ BEGIN
-- Bijwerken Inrichten ruimten tbv een evenement/vergadering
fmhn.ruimte_events ();
-- Inactiveren accounts
--fmhn.inactiveren_accounts (); --Uitzetten ivm FMHN#84596
END;
/