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

BLOS#68339 -- Aanpassingen ivm herziening Clusterindeling

Browse Source 
svn path=/Customer/trunk/; revision=53860
This commit is contained in:
Jos Migo
2021-11-25 14:48:04 +00:00
parent 1ba339c531
commit cd87fcb32e
1 changed files with 23 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
BLOS/blos.sql
View File

@@ -249,23 +249,26 @@ CREATE OR REPLACE VIEW blos_v_cluster_locaties
ALG_LOCATIE_CODE,
ALG_LOCATIE_OMSCHRIJVING,
CLUSTER_CODE,
CLUSTER_LABEL,
TYPE_LOCATIE,
RUIMTE_KEY
RUIMTE_KEY,
VERVALDATUM
)
AS
SELECT l.alg_locatie_key,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
UPPER(d.alg_district_omschrijving),
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
AND km.alg_onrgoed_niveau = 'L'
AND km.alg_kenmerk_key = 1000 -- Cluster
AND km.alg_kenmerk_key = 1000 -- Cluster Label (oorspronkelijk)
AND km.alg_onrgoedkenmerk_verwijder IS NULL
AND fac.safe_to_number (km.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1)
AS cluster_naam,
AS cluster_label,
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
@@ -279,9 +282,12 @@ SELECT l.alg_locatie_key,
(SELECT min(alg_ruimte_key)
FROM alg_v_allonrgoed_gegevens v
WHERE v.alg_locatie_key = l.alg_locatie_key and v.alg_type ='R')
AS ruimte_key
FROM alg_locatie l -- , alg_onrgoedkenmerk km -- , fac_usrdata ud
WHERE l.alg_locatie_verwijder IS NULL;
AS ruimte_key,
COALESCE(trunc(l.alg_locatie_vervaldatum),trunc(sysdate)+1)
vervaldatum
FROM alg_locatie l, alg_district d
WHERE l.alg_locatie_verwijder IS NULL AND l.alg_district_key = d.alg_district_key
AND COALESCE(trunc(l.alg_locatie_vervaldatum),trunc(sysdate)+1) > trunc(sysdate) ;
-- Hulpview Personen - Alle locatiemanagers onder REGMAN
---- Alles onder locatie (niveau 1) REGMAN-Regiomanagement
@@ -337,9 +343,9 @@ CREATE OR REPLACE PROCEDURE blos_export_wpcluster (
AS
CURSOR c_nieuw
IS
SELECT cp.prs_perslid_key, cp.prs_perslid_volledigenaam, cl.alg_locatie_key, cl.alg_locatie_code,cl.alg_locatie_omschrijving,cl.cluster_code
SELECT cp.prs_perslid_key, cp.prs_perslid_volledigenaam, cl.alg_locatie_key, cl.alg_locatie_code, cl.alg_locatie_omschrijving, cl.cluster_label
FROM blos_v_cluster_locaties cl, blos_v_cluster_personen cp
WHERE cl.cluster_code = cp.prs_afdeling_upper
WHERE cl.cluster_label = cp.prs_afdeling_upper
AND NOT EXISTS
(SELECT v.alg_locatie_key
FROM prs_perslidwerkplek wp, prs_v_werkplekafdeling_geg v
@@ -350,7 +356,7 @@ AS
CURSOR c_del
IS
SELECT b.prs_perslid_key, b.alg_locatie_key, cl.alg_locatie_code, cl.alg_locatie_omschrijving, cl.cluster_code, b.prs_perslidwerkplek_key
SELECT b.prs_perslid_key, b.alg_locatie_key, cl.alg_locatie_code, cl.alg_locatie_omschrijving, cl.cluster_label, b.prs_perslidwerkplek_key
FROM blos_v_cluster_locaties cl,
(SELECT wp.prs_perslid_key,
v.alg_locatie_key,
@@ -364,7 +370,7 @@ AS
AND NOT EXISTS
(SELECT cl.alg_locatie_key
FROM blos_v_cluster_locaties cl, blos_v_cluster_personen cp
WHERE cl.cluster_code = cp.prs_afdeling_upper
WHERE cl.cluster_label = cp.prs_afdeling_upper
AND cp.prs_perslid_key = b.prs_perslid_key
AND cl.alg_locatie_key = b.alg_locatie_key)
AND EXISTS
@@ -392,7 +398,7 @@ BEGIN
LOOP
v_aanduiding :=
'Werkplekkoppeling: ' || rec.alg_locatie_code || ' (' || rec.cluster_code || ')' ;
'Werkplekkoppeling: ' || rec.alg_locatie_code || ' (' || rec.cluster_label || ')' ;
v_errormsg := 'Fout bij aanmaken werkplekkoppeling';
-- Ruimte_key ophalen van desbetreffende locatie_keten
@@ -446,7 +452,7 @@ BEGIN
FOR rec IN c_del
LOOP
v_aanduiding :=
'Werkplekkoppeling verwijderen - betreft: ' || rec.alg_locatie_code || ' (' || rec.cluster_code || ')' ;
'Werkplekkoppeling verwijderen - betreft: ' || rec.alg_locatie_code || ' (' || rec.cluster_label || ')' ;
v_errorhint := 'werkplekkoppeling verwijderen';
DELETE FROM prs_werkplek WHERE prs_werkplek_key IN (SELECT prs_werkplek_key FROM prs_perslidwerkplek WHERE prs_perslidwerkplek_key = rec.prs_perslidwerkplek_key) ;
@@ -544,6 +550,7 @@ CREATE OR REPLACE VIEW blos_v_rap_opdrachten_intern
PRS_PERSLID_KEY,
NAAM_UITVOERDER,
CLUSTER_BLOS,
CLUSTER_LABEL,
TYPE_LOCATIE,
UREN_BESTEED,
AFMELD_DATUM,
@@ -591,13 +598,14 @@ AS
|| '...',
p.prs_perslid_key,
mu.naam,
d.alg_district_omschrijving,
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
AND fac.safe_to_number (k.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1
AND k.alg_kenmerk_key = 1000), -- kenmerk Cluster
AND k.alg_kenmerk_key = 1000), -- kenmerk Cluster_Label
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
@@ -626,6 +634,7 @@ AS
ins_tab_discipline d,
mld_stdmelding std,
alg_locatie l,
alg_district d,
mld_v_uitvoerende mu,
mld_statusopdr os
WHERE o.mld_melding_key = m.mld_melding_key(+)
@@ -635,6 +644,7 @@ AS
AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
AND m.mld_alg_locatie_key = l.alg_locatie_key -- alle std-meldingen hebben verplicht-niveau locatie
AND l.alg_district_key = d.alg_district_key
AND o.mld_uitvoerende_keys = mu.mld_uitvoerende_key
AND os.mld_statusopdr_key = o.mld_statusopdr_key
AND mu.intern = 1;