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

KFNS#74687 AUTOCLOSE-export/Toekennen @nedtrain.nl-rol faalt elk uur

Browse Source 
svn path=/Customer/trunk/; revision=57567
This commit is contained in:
Maarten van der Heide
2022-10-10 11:29:36 +00:00
parent 445ad51a6c
commit 9a316f0116
1 changed files with 2 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
KFNS/kfns.sql
View File

@@ -3052,98 +3052,6 @@ BEGIN
COMMIT;
v_errormsg := 'Fout toekennen @nedtrain.nl-rol';
SELECT COUNT ( * )
INTO v_count
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NEDTRAIN.NL%'
AND NOT EXISTS
(SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 122
AND gg.prs_perslid_key = p.prs_perslid_key);
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 122, prs_perslid_key
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NEDTRAIN.NL%'
AND NOT EXISTS -- Nog niet in autorisatiegroep 122!
(SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 122
AND gg.prs_perslid_key = p.prs_perslid_key);
COMMIT;
/*
v_errormsg := 'Fout afpakken @nedtrain.nl-rol';
SELECT COUNT ( * )
INTO v_count
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 122
AND NOT EXISTS
(SELECT 1
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NEDTRAIN.NL%'
AND p.prs_perslid_key = gg.prs_perslid_key);
DELETE FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 122
AND NOT EXISTS
(SELECT 1
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NEDTRAIN.NL%'
AND p.prs_perslid_key = gg.prs_perslid_key);
COMMIT;
*/
v_errormsg := 'Fout toekennen niet-@nsstations.nl-rol';
SELECT COUNT ( * )
INTO v_count
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) NOT LIKE '%@NSSTATIONS.NL%'
AND NOT EXISTS
(SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 681
AND gg.prs_perslid_key = p.prs_perslid_key);
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 681, prs_perslid_key
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) NOT LIKE '%@NSSTATIONS.NL%'
AND NOT EXISTS -- Nog niet in autorisatiegroep 681!
(SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 681
AND gg.prs_perslid_key = p.prs_perslid_key);
COMMIT;
/*
v_errormsg := 'Fout afpakken niet-@nsstations.nl-rol';
SELECT COUNT ( * )
INTO v_count
FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 681
AND EXISTS
(SELECT 1
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NSSTATIONS.NL%'
AND p.prs_perslid_key = gg.prs_perslid_key);
DELETE FROM fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 681
AND EXISTS
(SELECT 1
FROM prs_perslid p
WHERE UPPER (p.prs_perslid_email) LIKE '%@NSSTATIONS.NL%'
AND p.prs_perslid_key = gg.prs_perslid_key);
COMMIT;
*/
v_errormsg := 'Fout inactiveren persoon';
v_count := 0;
@@ -3195,15 +3103,8 @@ EXCEPTION
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 (p_applname, 'E', v_errormsg,
'Proces AUTOCLOSE afgebroken!');
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', v_errormsg, 'Proces AUTOCLOSE afgebroken!');
END kfns_select_autoclose;
/