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

RWSN#20852

Browse Source 
svn path=/Customer/trunk/; revision=14856
This commit is contained in:
Maarten van der Heide
2011-07-05 10:46:20 +00:00
parent e3e14217fd
commit 0dc12b8c8f
1 changed files with 77 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

169
RWSN/rwsn.sql
View File

@@ -1,8 +1,8 @@
-- Script containing customer specific configuration sql statements
-- for RWSN: Rijkswaterstaat Nederland
-- (c) 2008-2010 SG|Facilitor bv
-- $Revision: 121 $
-- $Modtime: 28-06-11 16:12 $
-- $Revision: 122 $
-- $Modtime: 5-07-11 11:58 $
--
-- Support: +31 53 4800700
@@ -300,7 +300,7 @@ BEGIN
p_applrun,
'I',
'Facilitor IDM_ORG import version ' || currentversion,
'$Revision: 121 $'
'$Revision: 122 $'
);
-- How many active records are now present?
@@ -1303,7 +1303,7 @@ BEGIN
p_applrun,
'I',
'Facilitor IDM_PERS import version ' || currentversion,
'$Revision: 121 $'
'$Revision: 122 $'
);
-- -- #Import
@@ -8492,7 +8492,7 @@ AS
WHERE 1 = 0
/
/* Formatted on 22-10-2010 9:54:45 (QP5 v5.115.810.9015) */
/* Formatted on 5-7-2011 11:54:18 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE rwsn_export_did_opdr (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
@@ -8501,93 +8501,63 @@ AS
-- Cursor loopt over alle !dienstspecifieke! ICT aanvragen waarvan
-- aanvrager in een andere dienst (niet geautoriseerd) en invoerder is ICT
-- contactpersoon; deze worden automatisch afgewezen!
-- Achtergrond: ICT contactpersonen hebben (FO-)rechten op alle ICT aanvr.,
-- dus ook op "niet eigen" dienstspecifieke vakgroepen!
CURSOR c1
IS
SELECT mld_melding_key
FROM mld_melding
WHERE mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m,
mld_stdmelding std,
ins_tab_discipline td,
prs_perslid p,
prs_v_afdeling_boom ab,
prs_v_aanwezigafdeling a,
fac_v_aanweziggroep g,
fac_groeprechten gr,
fac_functie f
WHERE m.mld_melding_status IN (2, 3)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key =
td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND m.prs_perslid_key = p.prs_perslid_key
AND p.prs_afdeling_key = ab.prs_afdeling_key
AND a.prs_afdeling_parentkey IS NULL
AND a.prs_afdeling_key <> ab.prs_afdeling_key1
AND INSTR (g.fac_groep_upper,
'[' || a.prs_afdeling_upper || ']',
1,
1) = 1
AND g.fac_groep_key = gr.fac_groep_key
AND gr.fac_functie_key = f.fac_functie_key
AND f.fac_functie_module = 'MLD'
AND gr.ins_discipline_key =
td.ins_discipline_key)
AND mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m,
mld_stdmelding std,
fac_gebruikersgroep gg,
ins_tab_discipline td
WHERE m.mld_melding_status IN (2, 3)
AND fac.gettrackinguserkey (
'MLDNEW',
m.mld_melding_key
) = gg.prs_perslid_key
AND gg.fac_groep_key IN (421, 422) -- ICT cp.
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key =
td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND td.ins_discipline_key <> 532); -- Niet std.
SELECT DISTINCT mld_melding_key
FROM mld_melding m,
mld_stdmelding sm,
ins_tab_discipline td,
prs_perslid p,
prs_v_afdeling_boom ab,
fac_groeprechten gr,
fac_functie f,
fac_v_aanweziggroep g,
prs_v_aanwezigafdeling a,
fac_gebruikersgroep gg
WHERE m.mld_melding_status IN (2, 3)
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND td.ins_discipline_key <> 532 -- Niet std.
AND sm.mld_ins_discipline_key = td.ins_discipline_key
AND m.prs_perslid_key = p.prs_perslid_key -- 1/Bepaal dienst..
AND p.prs_afdeling_key = ab.prs_afdeling_key -- ..aanvrager!
AND td.ins_discipline_key = gr.ins_discipline_key -- 2/Bepaal..
AND gr.fac_functie_key = f.fac_functie_key -- ..of,
AND f.fac_functie_module = 'MLD' -- ..en aan welke,
AND gr.fac_groep_key = g.fac_groep_key -- ..specifieke
AND a.prs_afdeling_parentkey IS NULL -- ..dienst(en)
AND INSTR (g.fac_groep_upper, -- ..deze
'[' || a.prs_afdeling_upper || ']', -- ..ICT aanvr.
1, -- ..zijn
1) = 1 -- ..voorbehouden!
AND ab.prs_afdeling_key1 <> a.prs_afdeling_key -- Mismatch?
AND gg.prs_perslid_key =
fac.gettrackinguserkey ('MLDNEW', m.mld_melding_key)
AND gg.fac_groep_key IN (421, 422); -- ICT cp.
-- Cursor loopt over alle ICT aanvragen zonder acceptatietijd of waarvan
-- invoerder is ICT contactpersoon; deze worden automatisch geaccepteerd!
CURSOR c2
IS
SELECT mld_melding_key
FROM mld_melding
WHERE mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m,
mld_stdmelding sm,
ins_tab_discipline td
WHERE m.mld_melding_status IN (2, 3)
AND m.mld_stdmelding_key =
sm.mld_stdmelding_key
AND sm.mld_stdmelding_urgentie IS NULL
AND sm.mld_ins_discipline_key =
td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND td.ins_discipline_key <> 532) -- Niet std.
OR mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m,
mld_stdmelding std,
fac_gebruikersgroep gg,
ins_tab_discipline td
WHERE m.mld_melding_status IN (2, 3)
AND fac.gettrackinguserkey (
'MLDNEW',
m.mld_melding_key
) = gg.prs_perslid_key
AND gg.fac_groep_key IN (421, 422) -- ICT cp.
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key =
td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND td.ins_discipline_key <> 532); -- Niet std.
FROM mld_melding m, mld_stdmelding sm, ins_tab_discipline td
WHERE m.mld_melding_status IN (2, 3)
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvr.
AND td.ins_discipline_key <> 532 -- Niet std.
AND (sm.mld_stdmelding_urgentie IS NULL
OR EXISTS
(SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key =
fac.gettrackinguserkey (
'MLDNEW',
m.mld_melding_key
)
AND gg.fac_groep_key IN (421, 422))); -- ICT cp.
-- Cursor loopt over alle uit te geven ICT aanvragen.
CURSOR c3
@@ -8620,7 +8590,10 @@ AS
1)
- 1)
opdracht
FROM mld_melding m, mld_stdmelding std, ins_tab_discipline td, mld_opdr o
FROM mld_melding m,
mld_stdmelding std,
ins_tab_discipline td,
mld_opdr o
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvragen
@@ -8647,7 +8620,10 @@ AS
- 1)
opdracht,
o.mld_opdr_opmerking_fiat
FROM mld_melding m, mld_stdmelding std, ins_tab_discipline td, mld_opdr o
FROM mld_melding m,
mld_stdmelding std,
ins_tab_discipline td,
mld_opdr o
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21 -- ICT aanvragen
@@ -8710,10 +8686,13 @@ AS
AND o.mld_statusopdr_key NOT IN
(1, 2, 6, 7))
open_opdr
FROM mld_melding m, mld_stdmelding std, ins_tab_discipline td
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
FROM mld_melding m,
mld_stdmelding std,
ins_tab_discipline td
WHERE m.mld_stdmelding_key =
std.mld_stdmelding_key
AND std.mld_ins_discipline_key =
td.ins_discipline_key
td.ins_discipline_key
AND td.ins_srtdiscipline_key = 21
AND td.ins_discipline_key <> 532
AND m.mld_melding_status IN (4, 7))
@@ -8739,7 +8718,10 @@ AS
IS
SELECT COALESCE (k.mld_kenmerk_volgnummer, 0) volgnummer,
k.mld_kenmerk_default
FROM mld_melding m, mld_stdmelding std, mld_kenmerk k, mld_srtkenmerk s
FROM mld_melding m,
mld_stdmelding std,
mld_kenmerk k,
mld_srtkenmerk s
WHERE m.mld_melding_key = p_mldkey
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND ( (std.mld_ins_discipline_key = k.mld_stdmelding_key
@@ -8891,7 +8873,10 @@ AS
SELECT COUNT (k.mld_kenmerk_key) aantal_delen
INTO v_count
FROM mld_melding m, mld_stdmelding std, mld_kenmerk k, mld_srtkenmerk s
FROM mld_melding m,
mld_stdmelding std,
mld_kenmerk k,
mld_srtkenmerk s
WHERE m.mld_melding_key = p_mldkey
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND ( (std.mld_ins_discipline_key = k.mld_stdmelding_key
@@ -16309,7 +16294,7 @@ AS
AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
AND sk.res_srtkenmerk_verwijder IS NULL;
BEGIN adm.systrackscript('$Workfile: rwsn.sql $', '$Revision: 121 $', 0); END;
BEGIN adm.systrackscript('$Workfile: rwsn.sql $', '$Revision: 122 $', 0); END;
/
BEGIN fac.registercustversion('RWSN', 37); END;
/