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

FMHN#87484 DAILY/Toekennen FE-autorisatiegroepen (voor EK=Eerste Kamer)

Browse Source 
svn path=/Customer/trunk/; revision=68186
This commit is contained in:
Maarten van der Heide
2025-02-25 11:58:25 +00:00
parent e163c7e617
commit c3d9f808b2
1 changed files with 14 additions and 179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

193
FMHN/fmhn.sql
View File

@@ -7106,7 +7106,7 @@ AS
AND p.prs_perslid_opp = '1'
ORDER BY prs_perslid_key;
CURSOR c_gg_ienw -- FMHN#80377 Rechten van alle IenW medewerkers veranderen
CURSOR c_gg_ienw -- FMHN#80377 Rechten van alle IenW medewerkers veranderen
IS
SELECT '[' || p.prs_perslid_email || '] ' aanduiding,
p.prs_perslid_key,
@@ -7252,45 +7252,7 @@ AS
WHERE prs_afdeling_key = ab.prs_afdeling_key5
AND prs_afdeling_externid = '0510000000')) -- DUO
ORDER BY p.prs_perslid_key;
/*
CURSOR c_gg_vws_rivm -- VWS-uitzondering: 60=RIVM
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) = '06' -- Alleen voor uit IDM geimporteerde personen!
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_afdeling_key = ab.prs_afdeling_key
AND (EXISTS
(SELECT 1 -- Satellietzetel op afdeling1 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key1
AND prs_afdeling_externid = '0650297830') -- RIVM
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling2 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key2
AND prs_afdeling_externid = '0650297830') -- RIVM
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling3 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key3
AND prs_afdeling_externid = '0650297830') -- RIVM
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling4 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key4
AND prs_afdeling_externid = '0650297830') -- RIVM
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling5 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key5
AND prs_afdeling_externid = '0650297830')) -- RIVM
ORDER BY p.prs_perslid_key;
*/
CURSOR c_gg_jenv_dtenv -- JenV-uitzondering: 106=DTenV
IS
SELECT '[' || p.prs_perslid_email || '] ' aanduiding,
@@ -7412,7 +7374,7 @@ AS
SUBSTR (p.prs_perslid_externid, 1, 2) mincode
FROM prs_v_aanwezigperslid p
WHERE p.prs_perslid_externid IS NOT NULL -- Alleen voor uit IDM geimporteerde personen!
AND SUBSTR (p.prs_perslid_externid, 1, 2) IN ('01', '02', '03', '04', '05', '06', '07', '08', '09', '11', '14', '27')
AND SUBSTR (p.prs_perslid_externid, 1, 2) IN ('01', '02', '03', '04', '05', '06', '07', '08', '09', '11', '14', '27', '29')
AND NOT EXISTS -- Persoon geen uitzondering!
(SELECT 1
FROM fac_gebruikersgroep
@@ -7496,55 +7458,6 @@ AS
AND prs_afdeling_externid = '04O1070')) -- SSC-ICT
ORDER BY p.prs_perslid_key;
/* RES-uitzondering tbv. NCTV+NCSC per 18-01-2022 verwijderd op verzoek van Klaas Tecuatl (per e-mail)!
CURSOR c_gg_jenv_cob -- JenV-uitzondering: 941=COB-zalen tbv. NCTV+NCSC
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) = '07' -- Alleen voor uit IDM geimporteerde personen!
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_afdeling_key = ab.prs_afdeling_key
AND (EXISTS
(SELECT 1 -- Satellietzetel op afdeling1 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key1
AND prs_afdeling_externid IN
('0750001168', -- NCTV
'0763677016')) -- NCSC
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling2 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key2
AND prs_afdeling_externid IN
('0750001168', -- NCTV
'0763677016')) -- NCSC
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling3 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key3
AND prs_afdeling_externid IN
('0750001168', -- NCTV
'0763677016')) -- NCSC
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling4 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key4
AND prs_afdeling_externid IN
('0750001168', -- NCTV
'0763677016')) -- NCSC
OR EXISTS
(SELECT 1 -- Satellietzetel op afdeling5 van persoon!
FROM prs_afdeling
WHERE prs_afdeling_key = ab.prs_afdeling_key5
AND prs_afdeling_externid IN
('0750001168', -- NCTV
'0763677016'))) -- NCSC
ORDER BY p.prs_perslid_key;
*/
CURSOR wp_auth_toekenning
IS
SELECT 'LOGIUS' afdeling, p.prs_perslid_key, 1062 groep
@@ -7602,9 +7515,6 @@ AS
WHERE fac_groep_key = 1142 -- wp dus-i
AND prs_perslid_key = p.prs_perslid_key);
BEGIN
v_count := 0;
v_datum1 := SYSDATE;
-- LET OP: Eerst opschonen BZK medewerkers die van afdeling zijn gewisseld (FMHN#74750)
FOR rec IN c_gg_bzk_del
LOOP
@@ -7628,11 +7538,14 @@ AS
END;
END LOOP;
v_count := 0;
v_datum1 := SYSDATE;
-- LET OP: Eerst de MLD-uitzonderingen!
FOR rec IN c_gg_ienw -- FMHN#80377 Rechten van alle IenW medewerkers veranderen
FOR rec IN c_gg_ienw -- FMHN#80377: Rechten van alle IenW medewerkers veranderen
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_IenW-iedereen';
v_errormsg := 'Fout behouden GG_IenW-Iedereen';
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 167, rec.prs_perslid_key
@@ -7658,14 +7571,14 @@ AS
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');
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)
FOR rec IN c_gg_ienw_anvs -- 76=ANVS (en geen RES Klant)/Sinds FMHN#8037 wel RES Klant via c_gg_ienw???
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_IenW-ANVS';
@@ -7701,7 +7614,7 @@ AS
v_datum1 := SYSDATE;
-- LET OP: Eerst de uitzonderingen!
FOR rec IN c_gg_ienw_nea -- 73=NEA (en geen RES Klant)
FOR rec IN c_gg_ienw_nea -- 73=NEA (en geen RES Klant)/Sinds FMHN#8037 wel RES Klant via c_gg_ienw???
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_IenW-NEA';
@@ -7776,51 +7689,7 @@ AS
v_datum2 := SYSDATE;
fac.writelog (c_applname, 'S', '#GG_OCW-DUO/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 uitzonderingen!
FOR rec IN c_gg_vws_rivm -- 60=RIVM
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_VWS-RIVM';
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 60, rec.prs_perslid_key
FROM DUAL
WHERE NOT EXISTS
(SELECT 1
FROM fac_gebruikersgroep
WHERE fac_groep_key = 60
AND prs_perslid_key = rec.prs_perslid_key)
UNION ALL
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_VWS-RIVM/toegekend: ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
COMMIT;
*/
v_count := 0;
v_datum1 := SYSDATE;
@@ -7972,7 +7841,7 @@ AS
'07', 85, -- JenV (95=COA geen uitzondering, hierboven: 98=IND/106=DTenV/108=RvdK)
'08', 55, -- EZK (93=LNV geen uitzondering)
'09', 93, -- LNV
'10', 84, -- AZ
'10', 84, -- AZ/Excluded in c_gg_iedereen, dus 83 nooit toegekend???
'11', 83, -- DEF
--'12', -1, -- FIN
--'13', -1, -- RvdR
@@ -7990,6 +7859,7 @@ AS
--'25', -1, -- BD
--'26', -1, -- TL
'27', 60, -- RIVM
'29', 4421, -- EK/FMHN#87484
102), -- BZK
rec.prs_perslid_key
FROM DUAL
@@ -8025,6 +7895,7 @@ AS
--'25', -1, -- BD
--'26', -1, -- TL
'27', 60, -- RIVM
'29', 4421, -- EK/FMHN#87484
102) -- BZK
AND prs_perslid_key = rec.prs_perslid_key)
UNION ALL
@@ -8126,43 +7997,7 @@ AS
v_datum2 := SYSDATE;
fac.writelog (c_applname, 'S', '#GG_BZK-SSCICT/toegekend: ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
COMMIT;
/* Uitzondering tbv. NCTV+NCSC per 18-01-2022 verwijderd op verzoek van Klaas Tecuatl (per e-mail)!
v_count := 0;
v_datum1 := SYSDATE;
-- Extra COB-rol voor NCTV+NCSC!
FOR rec IN c_gg_jenv_cob -- 941=COB-rol
LOOP
BEGIN
v_errormsg := 'Fout behouden GG_JenV-COB';
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 941, rec.prs_perslid_key
FROM DUAL
WHERE NOT EXISTS
(SELECT 1
FROM fac_gebruikersgroep
WHERE fac_groep_key = 941
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_JenV-COB/toegekend: ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
COMMIT;
*/
v_count := 0;
v_datum1 := SYSDATE;