KFNS#34395 Toekennen @nedtrain-rol+KFNS#34522 Toekennen niet-@nsstations-rol
svn path=/Customer/trunk/; revision=27296
This commit is contained in:
101
KFNS/kfns.sql
101
KFNS/kfns.sql
@@ -1646,7 +1646,9 @@ END;
|
|||||||
|
|
||||||
-- Dummy export AUTOCLOSE (elk kwartier zoals voor OPDRSTAT_STRUKTON-import en
|
-- Dummy export AUTOCLOSE (elk kwartier zoals voor OPDRSTAT_STRUKTON-import en
|
||||||
-- RES_RUIMTE_XML-export)!
|
-- 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,
|
CREATE OR REPLACE PROCEDURE kfns_select_autoclose (p_applname IN VARCHAR2,
|
||||||
p_applrun IN VARCHAR2)
|
p_applrun IN VARCHAR2)
|
||||||
AS
|
AS
|
||||||
@@ -1690,6 +1692,7 @@ AS
|
|||||||
v_errormsg VARCHAR2 (1000);
|
v_errormsg VARCHAR2 (1000);
|
||||||
oracle_err_num NUMBER;
|
oracle_err_num NUMBER;
|
||||||
oracle_err_mes VARCHAR2 (200);
|
oracle_err_mes VARCHAR2 (200);
|
||||||
|
v_count NUMBER;
|
||||||
BEGIN
|
BEGIN
|
||||||
FOR rec IN cboi
|
FOR rec IN cboi
|
||||||
LOOP
|
LOOP
|
||||||
@@ -1717,6 +1720,99 @@ BEGIN
|
|||||||
|
|
||||||
bes.updatebestellingstatus (rec.bes_bestelling_key, NULL);
|
bes.updatebestellingstatus (rec.bes_bestelling_key, NULL);
|
||||||
END LOOP;
|
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
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
THEN
|
THEN
|
||||||
@@ -1727,6 +1823,7 @@ EXCEPTION
|
|||||||
END kfns_select_autoclose;
|
END kfns_select_autoclose;
|
||||||
/
|
/
|
||||||
|
|
||||||
|
|
||||||
/* Formatted on 12-9-2014 17:42:24 (QP5 v5.136.908.31019) */
|
/* Formatted on 12-9-2014 17:42:24 (QP5 v5.136.908.31019) */
|
||||||
CREATE OR REPLACE VIEW kfns_v_imp_bes_artikel_sync
|
CREATE OR REPLACE VIEW kfns_v_imp_bes_artikel_sync
|
||||||
(
|
(
|
||||||
@@ -2777,7 +2874,7 @@ AS
|
|||||||
|
|
||||||
BEGIN adm.systrackscriptId('$Id$', 0); END;
|
BEGIN adm.systrackscriptId('$Id$', 0); END;
|
||||||
/
|
/
|
||||||
BEGIN fac.registercustversion('KFNS', 8); END;
|
BEGIN fac.registercustversion('KFNS', 9); END;
|
||||||
/
|
/
|
||||||
commit;
|
commit;
|
||||||
spool off
|
spool off
|
||||||
|
|||||||
Reference in New Issue
Block a user