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

FMHN#80377 Rechten van alle IenW medewerkers veranderen

Browse Source 
svn path=/Customer/trunk/; revision=62275
This commit is contained in:
Sander Schepers
2023-10-19 13:08:20 +00:00
parent 4b10004c4d
commit edecbe0559
1 changed files with 51 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
FMHN/fmhn.sql
View File

@@ -6979,6 +6979,19 @@ AS
AND p.prs_perslid_opp = '1'
ORDER BY prs_perslid_key;
CURSOR c_gg_ienw -- FMHN#80377 Rechten van alle IenW medewerkers veranderen
IS
SELECT '[' || p.prs_perslid_email || '] ' aanduiding,
p.prs_perslid_key,
a.prs_afdeling_externid
FROM prs_v_aanwezigperslid p,
prs_afdeling a,
prs_v_afdeling_boom ab
WHERE SUBSTR (p.prs_perslid_externid, 1, 2) = '03' -- Alleen voor uit IDM geimporteerde personen!
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_afdeling_key = ab.prs_afdeling_key
ORDER BY p.prs_perslid_key;
CURSOR c_gg_ienw_anvs -- IenW-uitzondering: 76=ANVS (en geen RES Klant)
IS
SELECT '[' || p.prs_perslid_email || '] ' aanduiding,
@@ -7489,6 +7502,42 @@ AS
-- END LOOP;
-- LET OP: Eerst de MLD-uitzonderingen!
FOR rec IN c_gg_ienw -- FMHN#80377 Rechten van alle IenW medewerkers veranderen
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_IenW-iedereen';
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 167, rec.prs_perslid_key
FROM DUAL
WHERE NOT EXISTS
(SELECT 1
FROM fac_gebruikersgroep
WHERE fac_groep_key = 167
AND prs_perslid_key = rec.prs_perslid_key);
-- TODO:DELETE FROM eventuele andere Iedereen-groepen!
v_count := v_count + 1;
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', rec.aanduiding || v_errormsg, '');
COMMIT;
END;
END LOOP;
v_datum2 := SYSDATE;
fac.writelog (c_applname, 'S', '#GG_IenW-iedereen/toegekend: ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
COMMIT;
v_count := 0;
v_datum1 := SYSDATE;
-- LET OP: Eerst de MLD-uitzonderingen!
FOR rec IN c_gg_ienw_anvs -- 76=ANVS (en geen RES Klant)
LOOP
BEGIN
@@ -7854,7 +7903,8 @@ AS
UNION ALL
SELECT 167, rec.prs_perslid_key
FROM DUAL
WHERE NOT EXISTS -- Persoon niet al in groep!
WHERE rec.mincode <> '03' -- Persoon niet van IenW!
AND NOT EXISTS -- Persoon niet al in groep!
(SELECT 1
FROM fac_gebruikersgroep
WHERE fac_groep_key = 167