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

KFNS#88136 Van AUTOCLOSE naar DAILY (en schonen accounts naar 3 maanden)

Browse Source 
svn path=/Customer/trunk/; revision=68501
This commit is contained in:
Maarten van der Heide
2025-03-24 12:14:27 +00:00
parent 74b8f0b4ef
commit ab0733a906
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
KFNS/kfns.sql
View File

@@ -4318,7 +4318,7 @@ AS
oracle_err_mes VARCHAR2 (200);
v_count NUMBER := 0;
BEGIN
v_errormsg := 'Fout inactiveren persoon';
v_errormsg := 'Fout schonen persoon (>3 maanden niet ingelogd)';
FOR rec
IN ( SELECT p.prs_perslid_key, p.prs_perslid_oslogin, COUNT (vp.prs_perslid_key) aant
FROM prs_v_aanwezigperslid p, prs_v_verplichting_keys vp
@@ -4335,13 +4335,19 @@ AS
BEGIN
IF rec.aant = 0
THEN
DELETE FROM prs_collega
WHERE prs_perslid_key = rec.prs_perslid_key
OR prs_perslid_key_alt = rec.prs_perslid_key;
UPDATE prs_perslid
SET prs_perslid_verwijder = SYSDATE
WHERE prs_perslid_key = rec.prs_perslid_key;
fac.trackaction ('PRSDEL', rec.prs_perslid_key, NULL, NULL, NULL);
v_count := v_count + 1;
ELSE
fac.writelog ('KFNS_ACCOUNTS', 'I', '[' || rec.prs_perslid_oslogin || ']/#Verplichtingen: ' || TO_CHAR (rec.aant), 'Persoon niet geinactiveerd');
fac.writelog ('KFNS_ACCOUNTS', 'I', '[' || rec.prs_perslid_oslogin || ']/#Verplichtingen: ' || TO_CHAR (rec.aant), 'Persoon niet geschoond');
END IF;
EXCEPTION
WHEN OTHERS
@@ -4353,7 +4359,7 @@ AS
END;
END LOOP;
fac.writelog ('KFNS_ACCOUNTS', 'S', '#Personen geinactiveerd:' || TO_CHAR (v_count), '');
fac.writelog ('KFNS_ACCOUNTS', 'S', 'Personen/#geschoond (>3 maanden niet ingelogd):' || TO_CHAR (v_count), '');
EXCEPTION
WHEN OTHERS
THEN