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

KFNS#34395 Toekennen @nedtrain-rol+KFNS#34522 Toekennen niet-@nsstations-rol

Browse Source 
svn path=/Customer/trunk/; revision=27296
This commit is contained in:
Maarten van der Heide
2015-12-04 11:58:25 +00:00
parent 31e96ec9be
commit 9076df88cb
1 changed files with 99 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
KFNS/kfns.sql
View File

@@ -1646,7 +1646,9 @@ END;
-- Dummy export AUTOCLOSE (elk kwartier zoals voor OPDRSTAT_STRUKTON-import en
-- RES_RUIMTE_XML-export)!
/* Formatted on 8-10-2015 15:48:12 (QP5 v5.136.908.31019) */
-- KFNS#34395: En toekennen/afpakken fac_groep_key=122 (aan @nedtrain-ers).
-- KFNS#34522: En toekennen/afpakken fac_groep_key=681 (aan niet-@nsstation-ers).
/* Formatted on 30-11-2015 22:22:22 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE kfns_select_autoclose (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
@@ -1690,6 +1692,7 @@ AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER;
BEGIN
FOR rec IN cboi
LOOP
@@ -1717,6 +1720,99 @@ BEGIN
bes.updatebestellingstatus (rec.bes_bestelling_key, NULL);
END LOOP;
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);
*/
EXCEPTION
WHEN OTHERS
THEN
@@ -1727,6 +1823,7 @@ EXCEPTION
END kfns_select_autoclose;
/
/* Formatted on 12-9-2014 17:42:24 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW kfns_v_imp_bes_artikel_sync
(
@@ -2777,7 +2874,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('KFNS', 8); END;
BEGIN fac.registercustversion('KFNS', 9); END;
/
commit;
spool off