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

FMHN#82259 Accounts van medewerkers uit dienst op inactief kunnen zetten

Browse Source 
svn path=/Customer/trunk/; revision=63648
This commit is contained in:
Sander Schepers
2024-02-20 13:48:37 +00:00
parent 0017d6629b
commit 84b693d7b4
1 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
FMHN/fmhn.sql
View File

@@ -4627,6 +4627,7 @@ AS
v_email fmhn_imp_prs.email%TYPE;
v_begindat VARCHAR2 (10);
v_einddat VARCHAR2 (10);
v_inactief prs_perslid.prs_perslid_inactief%TYPE;
v_srtperslid_key prs_srtperslid.prs_srtperslid_key%TYPE;
v_afdeling_key prs_afdeling.prs_afdeling_key%TYPE;
v_perslid_key prs_perslid.prs_perslid_key%TYPE;
@@ -4745,7 +4746,8 @@ BEGIN
BEGIN
v_aanduiding := '[' || rc.mincode || '|' || rc.prsnr || '|' || rc.afdid || '|' || rc.email || '] ';
v_count_tot := v_count_tot + 1;
v_inactief := NULL;
-- Afdeling moet bestaan bij bulk-import en INSERT!
v_errormsg := 'Fout bepalen functie';
IF COALESCE (UPPER (rc.operator), 'INSERT') = 'INSERT'
@@ -4934,6 +4936,12 @@ BEGIN
SYSDATE,
'IDM - BZK afdeling gewijzigd');
END IF;
v_errormsg := 'Fout bepalen inactiefdatum, insert';
SELECT (CASE WHEN p.prs_perslid_einddatum <= TRUNC(SYSDATE) THEN p.prs_perslid_einddatum ELSE NULL END)
INTO v_inactief
FROM prs_perslid p
WHERE p.prs_perslid_key = v_perslid_key;
v_errormsg := 'Fout bijwerken persoon';
UPDATE prs_perslid
@@ -4948,7 +4956,8 @@ BEGIN
prs_perslid_telefoonnr = rc.tel,
prs_perslid_mobiel = rc.mob,
prs_perslid_email = rc.email,
prs_perslid_externsyncdate = SYSDATE
prs_perslid_externsyncdate = SYSDATE,
prs_perslid_inactief = v_inactief
WHERE prs_perslid_key = v_perslid_key;
-- Alleen bij nieuwe persoon of ook bij bestaande persoon?
@@ -4988,6 +4997,12 @@ BEGIN
-- 'IDM - BZK afdeling gewijzigd');
-- END IF;
v_errormsg := 'Fout bepalen inactiefdatum, update';
SELECT (CASE WHEN p.prs_perslid_einddatum <= TRUNC(SYSDATE) THEN p.prs_perslid_einddatum ELSE NULL END)
INTO v_inactief
FROM prs_perslid p
WHERE p.prs_perslid_key = v_perslid_key;
v_errormsg := 'Fout bijwerken persoon';
UPDATE prs_perslid
SET prs_afdeling_key = COALESCE (v_afdeling_key, prs_afdeling_key),
@@ -5001,7 +5016,8 @@ BEGIN
prs_perslid_telefoonnr = COALESCE (rc.tel, prs_perslid_telefoonnr),
prs_perslid_mobiel = DECODE (rc.mob, '[wis]', NULL, COALESCE (rc.mob, prs_perslid_mobiel)),
prs_perslid_email = COALESCE (rc.email, prs_perslid_email),
prs_perslid_externsyncdate = SYSDATE
prs_perslid_externsyncdate = SYSDATE,
prs_perslid_inactief = v_inactief
WHERE prs_perslid_key = v_perslid_key;
-- Alleen bij nieuwe persoon of ook bij bestaande persoon?