3644 lines
151 KiB
SQL
3644 lines
151 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific db-configuration for BLOS.
|
|
DEFINE thisfile = 'BLOS.SQL'
|
|
DEFINE dbuser = '^BLOS'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
---------------------------------------
|
|
PROMPT &fcltcusttxt
|
|
---------------------------------------
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
-- Mail2Melding - Basis uit SVRZ overgenomen:
|
|
-- - SERVICEDESK -: key=1=Melding via mail - Nog te rubriceren (servicedesk@blos.facilitor-test.nl)
|
|
CREATE OR REPLACE PROCEDURE BLOS_processemail (
|
|
pfrom IN VARCHAR2,
|
|
pto IN VARCHAR2,
|
|
psubject IN VARCHAR2,
|
|
pbody IN VARCHAR2,
|
|
psessionid IN VARCHAR2,
|
|
pemailkey IN NUMBER)
|
|
AS
|
|
c_onbekend_key NUMBER (10) := 221; -- Melder onbekend
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_exist_ticket VARCHAR2 (255) := '';
|
|
v_perslid_key NUMBER (10);
|
|
v_kostenplaats_key NUMBER (10);
|
|
v_locatie_key NUMBER (10);
|
|
v_discipline_key NUMBER (10);
|
|
v_stdmelding_key NUMBER (10);
|
|
v_melding_key NUMBER (10);
|
|
v_folder_kkey NUMBER (10);
|
|
v_count NUMBER (10);
|
|
v_count_wp NUMBER (10);
|
|
|
|
BEGIN
|
|
CASE
|
|
WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
|
|
THEN
|
|
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
|
----- Voor BLOS nog inpassen = KOSTENPLAATS van het GEBOUW!!!!
|
|
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
|
SELECT COUNT (*), max(prs_perslid_key)
|
|
INTO v_count, v_perslid_key
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
|
|
|
|
-- Als er persoon gevonden is, dan ff checken of er ook werkplekkoppelingen onder zijn aangemaakt
|
|
IF v_count = 1
|
|
THEN
|
|
SELECT COUNT (*)
|
|
INTO v_count_wp
|
|
FROM prs_perslidwerkplek
|
|
WHERE prs_perslid_key = v_perslid_key;
|
|
END IF;
|
|
|
|
IF v_count = 1 AND v_count_wp > 0
|
|
THEN
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a,
|
|
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
|
|
FROM prs_perslidwerkplek pw
|
|
WHERE NOT EXISTS
|
|
(SELECT 1
|
|
FROM prs_perslidwerkplek
|
|
WHERE prs_perslid_key = pw.prs_perslid_key
|
|
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
|
|
prs_v_werkplekperslid_gegevens wpg
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
|
|
AND p.prs_perslid_key = pw.prs_perslid_key(+)
|
|
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
|
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
|
|
ELSE -- Melder + Werkplek kan niet 1-duidig worden bepaald, dus Onbekend en 21= Iepenhoeve Hoofdkantoor!
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 36
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_perslid_key = c_onbekend_key;
|
|
END IF;
|
|
/*
|
|
v_errormsg := 'Fout bepalen bestaande melding';
|
|
v_exist_ticket := psubject;
|
|
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
|
THEN
|
|
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
|
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
|
ELSE
|
|
v_exist_ticket := 'x';
|
|
END IF;
|
|
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM mld_melding
|
|
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
|
|
|
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
|
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
|
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
|
THEN -- Notitie bij bestaande melding!
|
|
SELECT mld_stdmelding_key, mld_melding_key
|
|
INTO v_stdmelding_key, v_melding_key
|
|
FROM mld_melding
|
|
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
|
|
|
v_errormsg := 'Fout toevoegen notitie';
|
|
INSERT INTO mld_melding_note (mld_melding_key,
|
|
prs_perslid_key,
|
|
mld_melding_note_omschrijving,
|
|
mld_melding_note_flag)
|
|
VALUES (v_melding_key,
|
|
v_perslid_key,
|
|
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
|
0);
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
|
|
|
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
|
UPDATE mld_melding
|
|
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
|
WHERE mld_melding_key = v_melding_key;
|
|
ELSE -- Nieuwe melding!
|
|
*/
|
|
-- Bepaal de afgesproken soortmelding met key=1=Melding via mail - Nog te rubriceren
|
|
v_errormsg := 'Fout bepalen soortmelding';
|
|
SELECT mld_ins_discipline_key, mld_stdmelding_key
|
|
INTO v_discipline_key, v_stdmelding_key
|
|
FROM mld_stdmelding
|
|
WHERE mld_stdmelding_key = 1;
|
|
|
|
-- Suggested extensions:
|
|
-- - Check for MLDUSE-write autorisations
|
|
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
|
|
-- - Append (as a note?) to an existing melding if #key is found in the subject
|
|
v_errormsg := 'Fout toevoegen melding';
|
|
INSERT INTO mld_melding (mld_melding_module,
|
|
mld_meldbron_key,
|
|
mld_alg_locatie_key,
|
|
mld_alg_onroerendgoed_keys,
|
|
mld_melding_datum,
|
|
mld_melding_omschrijving,
|
|
mld_stdmelding_key,
|
|
mld_melding_t_uitvoertijd,
|
|
prs_kostenplaats_key,
|
|
prs_perslid_key,
|
|
prs_perslid_key_voor,
|
|
mld_melding_status,
|
|
mld_melding_spoed,
|
|
mld_melding_onderwerp,
|
|
mld_melding_behandelaar2_key,
|
|
mld_ins_discipline_key)
|
|
VALUES ('MLD',
|
|
4, -- email
|
|
v_locatie_key,
|
|
NULL, --v_onrgoed_keys,
|
|
SYSDATE,
|
|
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
|
v_stdmelding_key,
|
|
NULL,
|
|
v_kostenplaats_key,
|
|
v_perslid_key,
|
|
v_perslid_key,
|
|
NULL,
|
|
3, -- prio normaal
|
|
SUBSTR (psubject, 1, 80),
|
|
NULL,
|
|
NULL) -- BT Helpdesk I+A
|
|
RETURNING mld_melding_key
|
|
INTO v_melding_key;
|
|
|
|
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
|
|
/*
|
|
END IF;
|
|
*/
|
|
|
|
-- Find the lowest volgnummer of the Folder-flexfield.
|
|
SELECT MIN (k1.mld_kenmerk_key)
|
|
INTO v_folder_kkey
|
|
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
|
|
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
|
AND k1.mld_kenmerk_verwijder IS NULL
|
|
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
|
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k1.mld_stdmelding_key = sm1.mld_stdmelding_key AND k1.mld_kenmerk_niveau = 'S')
|
|
OR (k1.mld_stdmelding_key = td1.ins_discipline_key AND k1.mld_kenmerk_niveau = 'D')
|
|
OR (k1.mld_stdmelding_key = td1.ins_srtdiscipline_key AND k1.mld_kenmerk_niveau = 'T')
|
|
OR (k1.mld_kenmerk_niveau = 'A')
|
|
)
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
|
|
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
|
|
AND k2.mld_kenmerk_verwijder IS NULL
|
|
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
|
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
|
|
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
|
|
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T')
|
|
OR (k1.mld_kenmerk_niveau = 'A')
|
|
)
|
|
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
|
|
|
IF v_folder_kkey IS NOT NULL
|
|
THEN
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
|
|
END IF;
|
|
|
|
|
|
ELSE
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
|
|
END CASE;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
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 ('PROCESSEMAIL', 'E', 'BLOS_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
|
|
COMMIT;
|
|
END;
|
|
/
|
|
|
|
----------------------------
|
|
-- Projectregistratie ----
|
|
----------------------------
|
|
|
|
|
|
-- Basisview tbv exportfunctie
|
|
CREATE OR REPLACE VIEW BLOS_V_PROJECTREGISTRATIE
|
|
(
|
|
MLD_MELDING_KEY,
|
|
MLD_STDMELDING_OMSCHRIJVING,
|
|
INS_DISCIPLINE_OMSCHRIJVING,
|
|
INS_SRTDISCIPLINE_OMSCHRIJVING,
|
|
MLD_MELDING_DATUM,
|
|
MLD_MELDING_ONDERWERP,
|
|
MLD_MELDING_EINDDATUM,
|
|
MLD_MELDING_ACTIEDATUM,
|
|
MLD_STATUSES_OMSCHRIJVING,
|
|
BEHANDELAAR,
|
|
ALG_LOCATIE_KEY,
|
|
LOCATIE,
|
|
PRS_KOSTENPLAATS_OMS_MLD,
|
|
PROJECTOMSCHRIJVING,
|
|
INVESTERINGSBEGROTING,
|
|
KOSTEN_INSTALLATIES,
|
|
KOSTEN_GEBOUW,
|
|
KOSTEN_INSPECTIE,
|
|
KOSTEN_BUITENRUIMTES,
|
|
KOSTEN_ACHTERSTALLIG_ONDERHOUD,
|
|
KOSTEN_OVERIG,
|
|
KOSTEN_TOTAAL, -- som van alle hofdcategorie-en
|
|
KOSTEN_TOTAAL_AFGEROND,
|
|
MLD_OPDR_KEY,
|
|
MLD_OPDR_NR,
|
|
MLD_OPDR_DATUMBEGIN,
|
|
PRS_BEDRIJF_NAAM,
|
|
MLD_OPDR_EINDDATUM,
|
|
MLD_STATUSOPDR_OMSCHRIJVING,
|
|
MLD_OPDR_KOSTEN,
|
|
PRS_KOSTENPLAATS_OMS,
|
|
PRS_KOSTENSOORT_OMS,
|
|
PRS_KOSTENSOORTGRP_OMS
|
|
)
|
|
AS
|
|
SELECT m.mld_melding_key,
|
|
sm.mld_stdmelding_omschrijving,
|
|
d.ins_discipline_omschrijving,
|
|
sd.ins_srtdiscipline_omschrijving,
|
|
m.mld_melding_datum,
|
|
m.mld_melding_onderwerp,
|
|
m.mld_melding_einddatum,
|
|
m.mld_melding_actiedatum,
|
|
ms.mld_statuses_omschrijving,
|
|
p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam
|
|
behandelaar,
|
|
l.alg_locatie_key,
|
|
CASE
|
|
WHEN l.alg_locatie_key IS NULL
|
|
THEN
|
|
FLX.getflex ('MLD', 1405, m.mld_melding_key)
|
|
|| ' '
|
|
|| FLX.getflex ('MLD', 1403, m.mld_melding_key)
|
|
ELSE
|
|
l.alg_locatie_omschrijving
|
|
END
|
|
locatie,
|
|
kp.prs_kostenplaats_omschrijving
|
|
prs_kostenplaats_omschrijving_mld,
|
|
-- kenmerken projectmelding
|
|
FLX.getflex ('MLD', 703, m.mld_melding_key)
|
|
projectomschrijving,
|
|
FLX.getflex ('MLD', 704, m.mld_melding_key)
|
|
investeringsbegroting,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1364, m.mld_melding_key))
|
|
kosten_installaties,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1366, m.mld_melding_key))
|
|
kosten_gebouw,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1365, m.mld_melding_key))
|
|
kosten_inspectie,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1363, m.mld_melding_key))
|
|
kosten_buitenruimtes,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1541, m.mld_melding_key))
|
|
kosten_achterstallig_onderhoud,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1561, m.mld_melding_key))
|
|
kosten_overig,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1367, m.mld_melding_key))
|
|
kosten_totaal,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1581, m.mld_melding_key))
|
|
kosten_totaal_afgerond,
|
|
-- opdrachtinformatie
|
|
o.mld_opdr_key,
|
|
o.mld_opdr_nr,
|
|
o.mld_opdr_datumbegin,
|
|
o.prs_bedrijf_naam,
|
|
o.mld_opdr_einddatum,
|
|
o.mld_statusopdr_omschrijving,
|
|
o.mld_opdr_kosten,
|
|
o.prs_kostenplaats_omschrijving,
|
|
COALESCE (o.kostensoort_afwijkend, ks.prs_kostensoort_oms)
|
|
prs_kostensoort_oms,
|
|
COALESCE (o.prs_kostensoortgrp_oms, ksg.prs_kostensoortgrp_oms)
|
|
prs_kostensoortgrp_oms
|
|
FROM mld_melding m,
|
|
mld_statuses ms,
|
|
prs_perslid p,
|
|
alg_locatie l,
|
|
prs_kostenplaats kp,
|
|
mld_stdmelding sm,
|
|
prs_kostensoort ks,
|
|
prs_kostensoortgrp ksg,
|
|
mld_discipline d,
|
|
ins_srtdiscipline sd,
|
|
(SELECT o.mld_melding_key,
|
|
o.mld_opdr_key,
|
|
o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
|
|
mld_opdr_nr,
|
|
ot.mld_typeopdr_omschrijving,
|
|
b.prs_bedrijf_naam,
|
|
o.mld_opdr_datumbegin,
|
|
o.mld_opdr_einddatum,
|
|
o.mld_opdr_plandatum,
|
|
o.mld_opdr_werkzaamheden,
|
|
os.mld_statusopdr_omschrijving,
|
|
o.mld_opdr_kosten,
|
|
kp.prs_kostenplaats_omschrijving,
|
|
ks.prs_kostensoort_oms kostensoort_afwijkend,
|
|
ksg.prs_kostensoortgrp_oms
|
|
FROM mld_opdr o,
|
|
mld_typeopdr ot,
|
|
mld_statusopdr os,
|
|
prs_bedrijf b,
|
|
prs_kostensoort ks,
|
|
prs_kostensoortgrp ksg,
|
|
prs_kostenplaats kp
|
|
WHERE o.mld_typeopdr_key = ot.mld_typeopdr_key
|
|
AND o.mld_statusopdr_key = os.mld_statusopdr_key
|
|
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
|
|
AND o.prs_kostensoort_key = ks.prs_kostensoort_key(+)
|
|
AND ks.prs_kostensoortgrp_key =
|
|
ksg.prs_kostensoortgrp_key(+)
|
|
AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key
|
|
AND ot.mld_typeopdr_key = 501 -- type opdracht - project
|
|
) o
|
|
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
|
|
AND m.mld_melding_status = ms.mld_statuses_key
|
|
AND m.mld_melding_behandelaar_key = p.prs_perslid_key(+)
|
|
AND m.prs_kostenplaats_key = kp.prs_kostenplaats_key
|
|
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
|
|
AND sm.mld_ins_discipline_key = d.ins_discipline_key
|
|
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
|
AND m.mld_melding_key = o.mld_melding_key(+)
|
|
AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)
|
|
AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
|
|
AND sd.ins_srtdiscipline_key = 21 -- Projecten
|
|
;
|
|
|
|
-- Exportfunctie om de opdrachtkosten per project te sommeren en op PR-Melding indicatief weg te schrijven
|
|
CREATE OR REPLACE VIEW blos_v_export_pr_kosten
|
|
(
|
|
result,
|
|
result_order
|
|
)
|
|
AS
|
|
SELECT '"SYNC - Projectkosten"'
|
|
|| ';"Bijgewerkt"',
|
|
0
|
|
FROM DUAL
|
|
UNION
|
|
SELECT 'ERROR: Datum '|| TO_CHAR(imp_log_datum) || ' - ' || imp_log_omschrijving || ' - ' || imp_log_hint,
|
|
1
|
|
FROM imp_log
|
|
WHERE imp_log_applicatie = 'PR_KOSTEN' ;
|
|
|
|
CREATE OR REPLACE PROCEDURE blos_select_pr_kosten
|
|
(
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2
|
|
)
|
|
AS
|
|
CURSOR c
|
|
IS
|
|
SELECT m.mld_melding_key,
|
|
m.mld_kosten_installaties,
|
|
m.mld_kosten_gebouw,
|
|
m.mld_kosten_buitenruimtes,
|
|
m.mld_kosten_achterstallig_oh,
|
|
m.mld_kosten_inspectie,
|
|
m.mld_kosten_overig,
|
|
m.mld_kosten_totaal,
|
|
m.mld_kosten_totaal_afgerond,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.prs_kostensoortgrp_oms = 'PR-INSTALLATIES'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_installaties,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.prs_kostensoortgrp_oms = 'PR-GEBOUW'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_gebouw,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.prs_kostensoortgrp_oms = 'PR-BUITENRUIMTES'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_buitenruimtes,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.prs_kostensoortgrp_oms = 'PR-ACHTERSTALLIG_ONDERHOUD'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_achterstallig_oh,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.prs_kostensoortgrp_oms = 'PR-INSPECTIE'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_inspectie,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_totaal,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE INSTR(v.prs_kostensoortgrp_oms, 'PR-') = 0
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_totaal_overig,
|
|
(SELECT SUM (v.mld_opdr_kosten)
|
|
FROM blos_v_projectregistratie v
|
|
WHERE v.mld_statusopdr_omschrijving = 'Afgerond'
|
|
AND v.mld_melding_key = m.mld_melding_key)
|
|
opdr_kosten_afgerond
|
|
FROM ( SELECT mld_melding_key,
|
|
kosten_installaties
|
|
mld_kosten_installaties,
|
|
kosten_gebouw
|
|
mld_kosten_gebouw,
|
|
kosten_buitenruimtes
|
|
mld_kosten_buitenruimtes,
|
|
kosten_achterstallig_onderhoud
|
|
mld_kosten_achterstallig_oh,
|
|
kosten_inspectie
|
|
mld_kosten_inspectie,
|
|
kosten_overig
|
|
mld_kosten_overig,
|
|
kosten_totaal
|
|
mld_kosten_totaal,
|
|
kosten_totaal_afgerond
|
|
mld_kosten_totaal_afgerond
|
|
FROM blos_v_projectregistratie
|
|
GROUP BY mld_melding_key,
|
|
kosten_installaties,
|
|
kosten_gebouw,
|
|
kosten_buitenruimtes,
|
|
kosten_achterstallig_onderhoud,
|
|
kosten_inspectie,
|
|
kosten_overig,
|
|
kosten_totaal,
|
|
kosten_totaal_afgerond) m;
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
oracle_err_mes VARCHAR2 (200);
|
|
oracle_err_num NUMBER;
|
|
currentversion fac_module.fac_module_version%TYPE;
|
|
v_aanduiding VARCHAR2 (1000);
|
|
v_count NUMBER;
|
|
|
|
v_tracking NUMBER(1);
|
|
v_tracking_afgerond NUMBER(1);
|
|
v_mld_kosten_totaal_init NUMBER(10);
|
|
v_mld_kosten_totaal_afg_init NUMBER(10);
|
|
-- v_mld_kosten_overig NUMBER(10);
|
|
|
|
|
|
BEGIN
|
|
v_count := 0;
|
|
|
|
FOR rec IN c
|
|
LOOP
|
|
BEGIN
|
|
|
|
-- vullen variabelen
|
|
v_aanduiding := 'Project PR' || rec.mld_melding_key ;
|
|
v_tracking := 0 ;
|
|
v_tracking_afgerond := 0 ;
|
|
v_mld_kosten_totaal_init := rec.mld_kosten_totaal ;
|
|
v_mld_kosten_totaal_afg_init := rec.mld_kosten_totaal_afgerond ;
|
|
-- v_mld_kosten_overig := COALESCE(rec.opdr_kosten_totaal, 0) - (COALESCE(rec.opdr_kosten_inspectie, 0) + COALESCE(rec.opdr_kosten_achterstallig_oh, 0) + COALESCE(rec.opdr_kosten_buitenruimtes, 0) + COALESCE(rec.opdr_kosten_gebouw, 0) + COALESCE(rec.opdr_kosten_installaties, 0)) ;
|
|
|
|
IF COALESCE(rec.mld_kosten_installaties, 0) <> COALESCE(rec.opdr_kosten_installaties, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld installaties' ;
|
|
mld.upsertmeldingkenmerk (1364, rec.mld_melding_key, COALESCE(rec.opdr_kosten_installaties, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
IF COALESCE(rec.mld_kosten_gebouw, 0) <> COALESCE(rec.opdr_kosten_gebouw, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld gebouw' ;
|
|
mld.upsertmeldingkenmerk (1366, rec.mld_melding_key, COALESCE(rec.opdr_kosten_gebouw, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
IF COALESCE(rec.mld_kosten_buitenruimtes, 0) <> COALESCE(rec.opdr_kosten_buitenruimtes, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld buitenruimtes' ;
|
|
mld.upsertmeldingkenmerk (1363, rec.mld_melding_key, COALESCE(rec.opdr_kosten_buitenruimtes, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
IF COALESCE(rec.mld_kosten_achterstallig_oh, 0) <> COALESCE(rec.opdr_kosten_achterstallig_oh, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld achterstallig onderhoud' ;
|
|
mld.upsertmeldingkenmerk (1541, rec.mld_melding_key, COALESCE(rec.opdr_kosten_achterstallig_oh, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
IF COALESCE(rec.mld_kosten_inspectie, 0) <> COALESCE(rec.opdr_kosten_inspectie, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld inspectie' ;
|
|
mld.upsertmeldingkenmerk (1365, rec.mld_melding_key, COALESCE(rec.opdr_kosten_inspectie, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
-- Totale OVERIGE kosten - zijn kosten die niet op een hoofdcategorie geboekt zijn..
|
|
IF COALESCE(rec.mld_kosten_overig, 0) <> COALESCE(rec.opdr_kosten_totaal_overig, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld kosten overig' ;
|
|
mld.upsertmeldingkenmerk (1561, rec.mld_melding_key, COALESCE(rec.opdr_kosten_totaal_overig, 0));
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
-- Kosten afgerond
|
|
IF COALESCE(rec.mld_kosten_totaal_afgerond, 0) <> COALESCE(rec.opdr_kosten_afgerond, 0)
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld kosten_totaal_afgerond' ;
|
|
mld.upsertmeldingkenmerk (1581, rec.mld_melding_key, COALESCE(rec.opdr_kosten_afgerond, 0));
|
|
|
|
v_tracking_afgerond := 1;
|
|
|
|
END IF;
|
|
|
|
-- Kosten TOTAAL
|
|
IF COALESCE(rec.mld_kosten_totaal, 0) <> rec.opdr_kosten_totaal
|
|
THEN
|
|
|
|
v_errorhint := 'bijwerken kenmerkveld kosten totaal' ;
|
|
mld.upsertmeldingkenmerk (1367, rec.mld_melding_key, rec.opdr_kosten_totaal);
|
|
|
|
v_tracking := 1;
|
|
|
|
END IF;
|
|
|
|
-- logging fac_tracking
|
|
IF v_tracking = 1
|
|
THEN
|
|
|
|
BEGIN fac.trackaction('MLDUPD', rec.mld_melding_key, 3, NULL, 'Melding PR' || rec.mld_melding_key || ' is gewijzigd' || CHR(10) || 'Kosten totaal: ' || v_mld_kosten_totaal_init || ' --> ' || rec.opdr_kosten_totaal); END;
|
|
|
|
END IF;
|
|
|
|
IF v_tracking_afgerond = 1
|
|
THEN
|
|
|
|
BEGIN fac.trackaction('MLDUPD', rec.mld_melding_key, 3, NULL, 'Melding PR' || rec.mld_melding_key || ' is gewijzigd' || CHR(10) || 'Kosten totaal (afgerond): ' || v_mld_kosten_totaal_afg_init || ' --> ' || rec.mld_kosten_totaal_afgerond); END;
|
|
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_errormsg,
|
|
v_aanduiding || ' - HINT: ' || v_errorhint);
|
|
|
|
END;
|
|
/
|
|
|
|
-- View tbv PR-dashboard
|
|
CREATE OR REPLACE VIEW BLOS_V_PROJECTREGISTRATIE_MLD
|
|
(
|
|
MLD_MELDING_KEY,
|
|
MLD_STDMELDING_OMSCHRIJVING,
|
|
INS_DISCIPLINE_OMSCHRIJVING,
|
|
INS_SRTDISCIPLINE_OMSCHRIJVING,
|
|
MLD_MELDING_DATUM,
|
|
MLD_MELDING_ONDERWERP,
|
|
MLD_MELDING_EINDDATUM,
|
|
MLD_MELDING_ACTIEDATUM,
|
|
MLD_STATUSES_OMSCHRIJVING,
|
|
BEHANDELAAR,
|
|
ALG_LOCATIE_KEY,
|
|
LOCATIE,
|
|
CLUSTER_BLOS, -- alg_district
|
|
REGIO_BLOS,
|
|
PRS_KOSTENPLAATS_OMS_MLD,
|
|
PROJECTOMSCHRIJVING,
|
|
INVESTERINGSBEGROTING,
|
|
KOSTEN_INSTALLATIES,
|
|
KOSTEN_GEBOUW,
|
|
KOSTEN_INSPECTIE,
|
|
KOSTEN_BUITENRUIMTES,
|
|
KOSTEN_ACHTERSTALLIG_ONDERHOUD,
|
|
KOSTEN_OVERIG,
|
|
KOSTEN_TOTAAL, -- som van alle hofdcategorie-en
|
|
KOSTEN_TOTAAL_AFGEROND
|
|
)
|
|
AS
|
|
SELECT m.mld_melding_key,
|
|
sm.mld_stdmelding_omschrijving,
|
|
d.ins_discipline_omschrijving,
|
|
sd.ins_srtdiscipline_omschrijving,
|
|
m.mld_melding_datum,
|
|
m.mld_melding_onderwerp,
|
|
m.mld_melding_einddatum,
|
|
m.mld_melding_actiedatum,
|
|
ms.mld_statuses_omschrijving,
|
|
p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam
|
|
behandelaar,
|
|
l.alg_locatie_key,
|
|
CASE
|
|
WHEN l.alg_locatie_key IS NULL
|
|
THEN
|
|
FLX.getflex ('MLD', 1405, m.mld_melding_key)
|
|
|| ' '
|
|
|| FLX.getflex ('MLD', 1403, m.mld_melding_key)
|
|
ELSE
|
|
l.alg_locatie_omschrijving
|
|
END
|
|
locatie,
|
|
v.alg_district_omschrijving,
|
|
v.alg_regio_omschrijving,
|
|
kp.prs_kostenplaats_omschrijving
|
|
prs_kostenplaats_omschrijving_mld,
|
|
-- kenmerken projectmelding
|
|
FLX.getflex ('MLD', 703, m.mld_melding_key)
|
|
projectomschrijving,
|
|
FLX.getflex ('MLD', 704, m.mld_melding_key)
|
|
investeringsbegroting,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1364, m.mld_melding_key))
|
|
kosten_installaties,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1366, m.mld_melding_key))
|
|
kosten_gebouw,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1365, m.mld_melding_key))
|
|
kosten_inspectie,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1363, m.mld_melding_key))
|
|
kosten_buitenruimtes,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1541, m.mld_melding_key))
|
|
kosten_achterstallig_onderhoud,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1561, m.mld_melding_key))
|
|
kosten_overig,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1367, m.mld_melding_key))
|
|
kosten_totaal,
|
|
fac.safe_to_number(FLX.getflex ('MLD', 1581, m.mld_melding_key))
|
|
kosten_totaal_afgerond
|
|
FROM mld_melding m,
|
|
mld_statuses ms,
|
|
prs_perslid p,
|
|
alg_locatie l,
|
|
prs_kostenplaats kp,
|
|
mld_stdmelding sm,
|
|
prs_kostensoort ks,
|
|
prs_kostensoortgrp ksg,
|
|
mld_discipline d,
|
|
ins_srtdiscipline sd,
|
|
(SELECT l.alg_locatie_key, d.alg_district_omschrijving, r.alg_regio_omschrijving FROM alg_locatie l, alg_district d, alg_regio r WHERE l.alg_district_key = d.alg_district_key AND d.alg_regio_key = r.alg_regio_key) v
|
|
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
|
|
AND m.mld_melding_status = ms.mld_statuses_key
|
|
AND m.mld_melding_behandelaar_key = p.prs_perslid_key(+)
|
|
AND m.prs_kostenplaats_key = kp.prs_kostenplaats_key
|
|
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
|
|
AND sm.mld_ins_discipline_key = d.ins_discipline_key
|
|
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
|
AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)
|
|
AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
|
|
AND sd.ins_srtdiscipline_key = 21 -- Projecten
|
|
AND l.alg_locatie_key = v.alg_locatie_key(+)
|
|
|
|
-----------------------------------------------------------------------------------
|
|
-- Systematiek Locatieleiders en Regiomanagers en Werkplekkoppelingen ---
|
|
----- 1. Personenkaart vinlkboxen Cluster/Label - OUD - VERWIJDERD OKT 2023 ---
|
|
----- 2. Locatiekaart en gekoppelde locatieleider - NIEUW 2023-juli ---
|
|
----- 3. Regiomanagers en directeuren incl. budgethouderschap - NIEUW 2023-okt ---
|
|
-----------------------------------------------------------------------------------
|
|
|
|
--------------------------------------------------------------------
|
|
-- 2. Locatiekaart en gekoppelde locatieleider - NIEUW 2023-juli ---
|
|
--------------------------------------------------------------------
|
|
|
|
-- Inpassen systematiek om werkplekkoppelingen te genereren op basis locatiekaart => Gelijk aan oplossing GOKO
|
|
---- Bij GOKO zit deze in de IMPORT PERSLID... , bij BLOS apart houden omdat pas later een AFAS-intergratie komt, eerst apart houden WPMANAGER...
|
|
|
|
-- Lijst van Kostenplaatsen (die men in locatiekaart kan selecteren)
|
|
CREATE OR REPLACE VIEW blos_v_kostenplaatsen
|
|
(
|
|
PRS_KOSTENPLAATS_KEY,
|
|
PRS_KOSTENPLAATS_NR,
|
|
PRS_KOSTENPLAATS_VERWIJDER,
|
|
PRS_KOSTENPLAATS_ACTUEEL,
|
|
PRS_KOSTENPLAATS_OMSCHRIJVING
|
|
)
|
|
AS
|
|
SELECT k.prs_kostenplaats_key,
|
|
CASE
|
|
WHEN ( prs_kostenplaats_verwijder IS NOT NULL
|
|
OR ( prs_kostenplaats_eind IS NOT NULL
|
|
AND prs_kostenplaats_eind < TRUNC (SYSDATE)))
|
|
THEN
|
|
k.prs_kostenplaats_nr || ' - oud!'
|
|
ELSE
|
|
k.prs_kostenplaats_nr
|
|
END
|
|
prs_kostenplaats_nr,
|
|
k.prs_kostenplaats_verwijder,
|
|
CASE
|
|
WHEN ( prs_kostenplaats_verwijder IS NOT NULL
|
|
OR ( prs_kostenplaats_eind IS NOT NULL
|
|
AND prs_kostenplaats_eind < TRUNC (SYSDATE)))
|
|
THEN
|
|
NULL
|
|
ELSE
|
|
'oud!'
|
|
END
|
|
prs_kostenplaats_actueel,
|
|
k.prs_kostenplaats_omschrijving
|
|
FROM prs_kostenplaats k;
|
|
|
|
-- Lijst van Locatieleiders (tbv domeinview)
|
|
CREATE OR REPLACE VIEW blos_v_personenlijst_loc
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
NAAM,
|
|
PERSONEELSNUMMER,
|
|
EMAIL,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT
|
|
p.prs_perslid_key,
|
|
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
|
|
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
END
|
|
naam,
|
|
p.prs_perslid_nr,
|
|
p.prs_perslid_email,
|
|
p.prs_perslid_verwijder
|
|
FROM
|
|
prs_perslid p,
|
|
prs_srtperslid sp,
|
|
prs_v_afdeling a,
|
|
prs_bedrijf b
|
|
WHERE
|
|
p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
AND sp.prs_srtperslid_key IN (25, 11181, 4181) --- 25 LOCATIEMANAGER (key 25) + ASSISTENT LOCATIEMANAGER (key 11181) + REGIOEMANAGER (key 4181)
|
|
-- AND p.prs_perslid_verwijder IS NULL
|
|
ORDER BY sp.prs_srtperslid_omschrijving, p.prs_perslid_voornaam, p.prs_perslid_naam
|
|
;
|
|
|
|
-- Lijst van Regiomanagers ((Cluster/District) (tbv domeinview)
|
|
CREATE OR REPLACE VIEW blos_v_personenlijst_clus
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
NAAM,
|
|
PERSONEELSNUMMER,
|
|
EMAIL,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT
|
|
p.prs_perslid_key,
|
|
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
|
|
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
END
|
|
naam,
|
|
p.prs_perslid_nr,
|
|
p.prs_perslid_email,
|
|
p.prs_perslid_verwijder
|
|
FROM
|
|
prs_perslid p,
|
|
prs_srtperslid sp,
|
|
prs_v_afdeling a,
|
|
prs_bedrijf b
|
|
WHERE
|
|
p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
AND sp.prs_srtperslid_key = 4181 --- REGIOEMANAGER
|
|
-- AND p.prs_perslid_verwijder IS NULL
|
|
ORDER BY p.prs_perslid_naam
|
|
;
|
|
|
|
-- Lijst van Regio-directeuren (tbv domeinview)
|
|
CREATE OR REPLACE VIEW blos_v_personenlijst_dir
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
NAAM,
|
|
PERSONEELSNUMMER,
|
|
EMAIL,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT
|
|
p.prs_perslid_key,
|
|
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
|
|
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
END
|
|
naam,
|
|
p.prs_perslid_nr,
|
|
p.prs_perslid_email,
|
|
p.prs_perslid_verwijder
|
|
FROM
|
|
prs_perslid p,
|
|
prs_srtperslid sp,
|
|
prs_v_afdeling a,
|
|
prs_bedrijf b
|
|
WHERE
|
|
p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
AND sp.prs_srtperslid_key = 10701 --- REGIO-DIRECTEUR
|
|
-- AND p.prs_perslid_verwijder IS NULL
|
|
ORDER BY p.prs_perslid_naam
|
|
;
|
|
|
|
-- Lijst van Locatieleiders/Vervangers en de locaties waar men verantwoordelijk voor is)
|
|
CREATE OR REPLACE VIEW blos_v_locatiemanagers
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
ALG_LOCATIE_KEY,
|
|
LOCATIEMANAGER,
|
|
LOCATIE,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key,
|
|
l.alg_locatie_key,
|
|
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving
|
|
locatiemanager,
|
|
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
|
|
locatie,
|
|
p.prs_perslid_verwijder
|
|
FROM prs_perslid p, prs_srtperslid sp, alg_onrgoedkenmerk ok, alg_locatie l
|
|
WHERE fac.safe_to_number(ok.alg_onrgoedkenmerk_waarde) = p.prs_perslid_key
|
|
AND ok.alg_kenmerk_key IN (1162, 1163, 1300, 1301) -- locatieleiders (ook voor bijv vervangers en ssistenten)
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND ok.alg_onrgoed_niveau = 'L' AND ok.alg_onrgoed_key = l.alg_locatie_key
|
|
AND l.alg_locatie_verwijder IS NULL
|
|
AND (TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate) OR l.alg_locatie_vervaldatum IS NULL )
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
GROUP BY p.prs_perslid_key, l.alg_locatie_key,
|
|
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving,
|
|
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving,
|
|
p.prs_perslid_verwijder ;
|
|
|
|
-- Lijst van Locatiemanagers + Cluster-managers en de Werkplekkoppeling die ze in hun personenkaart hebben
|
|
CREATE OR REPLACE VIEW blos_v_locatiemanagers_wp
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
ALG_LOCATIE_KEY,
|
|
NAAM,
|
|
LOCATIE_WP,
|
|
PRS_WERKPLEK_KEY
|
|
)
|
|
AS
|
|
SELECT wp.prs_perslid_key,
|
|
onr.alg_locatie_key,
|
|
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
|
|
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
|
|
END
|
|
naam,
|
|
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
|
|
locatie,
|
|
w.prs_werkplek_key
|
|
FROM (
|
|
SELECT prs_perslid_key
|
|
FROM (SELECT *
|
|
FROM blos_v_personenlijst_loc
|
|
) x
|
|
GROUP BY x.prs_perslid_key
|
|
) v,
|
|
prs_perslid p, prs_srtperslid sp, prs_perslidwerkplek wp, prs_werkplek w, alg_ruimte r, alg_v_onrgoed_boom onr, alg_locatie l
|
|
WHERE v.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
AND p.prs_perslid_key = wp.prs_perslid_key
|
|
AND wp.prs_werkplek_key = w.prs_werkplek_key
|
|
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
|
|
AND r.alg_ruimte_key = onr.alg_ruimte_key
|
|
AND onr.alg_locatie_key = l.alg_locatie_key
|
|
ORDER BY wp.prs_perslid_key
|
|
;
|
|
|
|
-- Nog 2 bronviews nodig voor procedure:
|
|
--- Bronview: Alle locaties met haar kostenplaats(en): blos_v_locaties_kp
|
|
--- Bronview: Alle werkplek-koppeling per locatiemanager en de kp's die daarbij vanuit locatiekaart bijhoren: blos_v_locaties_wp_kp
|
|
|
|
-- BRONVIEW: Alle locaties met haar kostenplaats(en)
|
|
CREATE OR REPLACE VIEW blos_v_locaties_kp
|
|
(
|
|
alg_locatie_key,
|
|
alg_locatie_omschrijving,
|
|
prs_kostenplaats_key,
|
|
prs_kostenplaats_nr,
|
|
prs_kostenplaats_eind,
|
|
prs_kostenplaats_verwijder
|
|
)
|
|
AS
|
|
SELECT alg_locatie_key,
|
|
alg_locatie_omschrijving,
|
|
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
|
|
prs_kostenplaats_nr,
|
|
prs_kostenplaats_eind,
|
|
prs_kostenplaats_verwijder
|
|
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
|
|
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
kp.prs_kostenplaats_key
|
|
AND alg_onrgoed_niveau = 'L'
|
|
AND kw.alg_kenmerk_key = 1140 -- kostenplaats-1
|
|
UNION
|
|
SELECT alg_locatie_key,
|
|
alg_locatie_omschrijving,
|
|
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
|
|
prs_kostenplaats_nr,
|
|
prs_kostenplaats_eind,
|
|
prs_kostenplaats_verwijder
|
|
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
|
|
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
kp.prs_kostenplaats_key
|
|
AND alg_onrgoed_niveau = 'L'
|
|
AND kw.alg_kenmerk_key = 1141 -- kostenplaats-2
|
|
UNION
|
|
SELECT alg_locatie_key,
|
|
alg_locatie_omschrijving,
|
|
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
|
|
prs_kostenplaats_nr,
|
|
prs_kostenplaats_eind,
|
|
prs_kostenplaats_verwijder
|
|
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
|
|
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
kp.prs_kostenplaats_key
|
|
AND alg_onrgoed_niveau = 'L'
|
|
AND kw.alg_kenmerk_key = 1142 -- kostenplaats-3
|
|
;
|
|
|
|
-- BRONVIEW: Alle werkplek-koppeling per locatiemanager en de kp's die daarbij vanuit locatiekaart bijhoren
|
|
CREATE OR REPLACE VIEW blos_v_locaties_wp_kp
|
|
(
|
|
prs_perslid_key,
|
|
prs_perslid_naam,
|
|
prs_srtperslid_omschrijving,
|
|
prs_perslidwerkplek_key,
|
|
alg_locatie_omschrijving,
|
|
alg_locatie_key,
|
|
prs_kostenplaats_key,
|
|
prs_kostenplaats_nr
|
|
)
|
|
AS
|
|
SELECT v.prs_perslid_key,
|
|
p.prs_perslid_naam,
|
|
sp.prs_srtperslid_omschrijving,
|
|
v.prs_perslidwerkplek_key,
|
|
l.alg_locatie_omschrijving,
|
|
lkp.alg_locatie_key,
|
|
lkp.prs_kostenplaats_key,
|
|
lkp.prs_kostenplaats_nr
|
|
FROM prs_v_werkplekperslid_gegevens v,
|
|
alg_locatie l,
|
|
prs_perslid p,
|
|
prs_srtperslid sp,
|
|
blos_v_locaties_kp lkp
|
|
WHERE v.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
|
|
AND v.alg_locatie_key = l.alg_locatie_key
|
|
AND v.alg_locatie_key = lkp.alg_locatie_key(+)
|
|
AND INSTR(prs_srtperslid_upper,'LOCATIEMANAGER') > 0 ;
|
|
|
|
--- DE PROCEDURE om voor de Locatiemanagers van de CLUSTERS de juiste CLUSTER-LOCATIES te koppelen als werkplek
|
|
CREATE OR REPLACE VIEW blos_v_export_wp_loc_manager
|
|
(
|
|
result,
|
|
result_order
|
|
)
|
|
AS
|
|
SELECT '"SYNC - Werkplekkoppeling Locatiemanager (incl. zijn/haar Mandaten)"'
|
|
|| ';"Uitgevoerd"',
|
|
0
|
|
FROM DUAL
|
|
UNION
|
|
SELECT 'ERROR: Datum '|| TO_CHAR(imp_log_datum) || ' - ' || imp_log_omschrijving || ' - ' || imp_log_hint,
|
|
1
|
|
FROM imp_log
|
|
WHERE imp_log_applicatie = 'WP_LOC_MANAGER' ;
|
|
|
|
CREATE OR REPLACE PROCEDURE blos_select_wp_loc_manager (
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2)
|
|
AS
|
|
-- Werkplekkoppelingen toevoegen
|
|
CURSOR c_loc_wp -- Voor updaten van locatieleiders (werkplek-koppelingen)
|
|
IS
|
|
SELECT v.prs_perslid_key,
|
|
v.alg_locatie_key,
|
|
v.prs_werkplek_key,
|
|
v.actie
|
|
FROM (SELECT man.prs_perslid_key,
|
|
man.alg_locatie_key,
|
|
NULL prs_werkplek_key,
|
|
'toevoegen' actie
|
|
FROM blos_v_locatiemanagers man
|
|
WHERE NOT EXISTS
|
|
(SELECT *
|
|
FROM blos_v_locatiemanagers_wp wp
|
|
WHERE wp.alg_locatie_key =
|
|
man.alg_locatie_key
|
|
AND wp.prs_perslid_key =
|
|
man.prs_perslid_key)
|
|
UNION
|
|
SELECT wp.prs_perslid_key,
|
|
wp.alg_locatie_key,
|
|
wp.prs_werkplek_key,
|
|
'verwijderen' actie
|
|
FROM blos_v_locatiemanagers_wp wp
|
|
WHERE NOT EXISTS
|
|
(SELECT *
|
|
FROM blos_v_locatiemanagers man
|
|
WHERE man.alg_locatie_key =
|
|
wp.alg_locatie_key
|
|
AND man.prs_perslid_key =
|
|
wp.prs_perslid_key)
|
|
AND NOT EXISTS -- voor de regiomanagers die via de normale weg in de cluster-kaart zijn gekoppeld, moeten de werkplek-koppelingen natuurlijk niet verwijderd worden
|
|
(SELECT *
|
|
FROM blos_v_regiomanagers man
|
|
WHERE man.alg_locatie_key =
|
|
wp.alg_locatie_key
|
|
AND man.prs_perslid_key =
|
|
wp.prs_perslid_key)
|
|
UNION
|
|
SELECT wp.prs_perslid_key,
|
|
wp.alg_locatie_key,
|
|
wp.prs_werkplek_key,
|
|
'ok' actie
|
|
FROM blos_v_locatiemanagers_wp wp,
|
|
blos_v_locatiemanagers man
|
|
WHERE man.alg_locatie_key = wp.alg_locatie_key
|
|
AND man.prs_perslid_key = wp.prs_perslid_key) v
|
|
ORDER BY 1, 2, 3;
|
|
|
|
CURSOR c_loc_kp -- Voor updaten van locatiemanagers (mandaten op kostenplaatsen)
|
|
IS
|
|
SELECT w.prs_perslid_key, w.alg_locatie_key, w.prs_kostenplaats_key
|
|
FROM ( SELECT v_prs.prs_perslid_key,
|
|
v_prs.alg_locatie_key,
|
|
v_kp.prs_kostenplaats_key
|
|
FROM blos_v_locatiemanagers v_prs, blos_v_locaties_kp v_kp
|
|
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
|
|
GROUP BY v_prs.prs_perslid_key,
|
|
v_prs.alg_locatie_key,
|
|
v_kp.prs_kostenplaats_key) w
|
|
ORDER BY 1, 2, 3;
|
|
|
|
CURSOR c_loc_kp_del -- Voor deleten van mandaten die niet meer van toepassing zijn
|
|
IS
|
|
SELECT pk.prs_perslid_key, pk.prs_perslidkostenplaats_key
|
|
FROM prs_perslidkostenplaats pk
|
|
WHERE
|
|
NOT EXISTS
|
|
( SELECT v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key
|
|
FROM blos_v_locatiemanagers v_prs,
|
|
blos_v_locaties_kp v_kp
|
|
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
|
|
AND v_prs.prs_perslid_key = pk.prs_perslid_key
|
|
AND v_kp.prs_kostenplaats_key = pk.prs_kostenplaats_key
|
|
GROUP BY v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key)
|
|
AND pk.prs_perslid_key IN (SELECT d.prs_perslid_key FROM blos_v_personenlijst_loc d WHERE INSTR(d.naam, 'Regiomanager')=0)
|
|
ORDER BY 1, 2 ;
|
|
|
|
CURSOR c_loc_recht -- -- Voor onderhouder van de locatiemanagers in de autorisatiegroepen
|
|
IS
|
|
SELECT p.prs_perslid_key, p.naam,
|
|
(SELECT count(*) FROM prs_perslidwerkplek wp WHERE wp.prs_perslid_key = p.prs_perslid_key) aantal_wp,
|
|
(SELECT count(*) FROM fac_gebruikersgroep gg WHERE gg.prs_perslid_key = p.prs_perslid_key AND gg.fac_groep_key = 24) groep
|
|
FROM blos_v_personenlijst_loc p
|
|
WHERE p.prs_perslid_verwijder IS NULL AND INSTR(p.naam, 'Regiomanager')=0 -- uitsluiten regiomanagers
|
|
ORDER BY 1 ;
|
|
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
oracle_err_mes VARCHAR2 (200);
|
|
oracle_err_num NUMBER;
|
|
currentversion fac_module.fac_module_version%TYPE;
|
|
v_aanduiding VARCHAR2 (1000);
|
|
v_count NUMBER;
|
|
|
|
|
|
v_alg_ruimte_key NUMBER;
|
|
v_prs_perslidkostenplaats_key NUMBER (10);
|
|
v_teller_mandaat NUMBER (10);
|
|
v_upsert_sync NUMBER(1);
|
|
c_fac_groep_key NUMBER(10) := 24 ; -- standaard autorisatiegroep voor Locatiemanagers
|
|
|
|
|
|
BEGIN
|
|
v_count := 0;
|
|
|
|
FOR rec IN c_loc_wp
|
|
LOOP
|
|
BEGIN
|
|
-- Werkplekkoppelingen op basis van de locaties waar men locatieleider van is
|
|
v_aanduiding :=
|
|
'bijwerken werkplekkoppelingen locatiemanager - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
v_upsert_sync := 0 ;
|
|
|
|
IF rec.actie = 'toevoegen'
|
|
THEN
|
|
v_errorhint :=
|
|
'actie toevoegen werkplek - loc-key: '
|
|
|| TO_CHAR (rec.alg_locatie_key);
|
|
|
|
BEGIN
|
|
SELECT MIN (r.alg_ruimte_key)
|
|
INTO v_alg_ruimte_key
|
|
FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND r.alg_ruimte_verwijder IS NULL
|
|
AND v.alg_verdieping_verwijder IS NULL
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND g.alg_locatie_key = rec.alg_locatie_key;
|
|
|
|
IF v_alg_ruimte_key IS NOT NULL
|
|
THEN
|
|
-- PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2, p_virtual IN NUMBER DEFAULT 0);
|
|
BEGIN
|
|
PRS.movetoruimte (rec.prs_perslid_key,
|
|
v_alg_ruimte_key,
|
|
'L',
|
|
1);
|
|
|
|
v_upsert_sync := 1 ;
|
|
|
|
END;
|
|
END IF;
|
|
END;
|
|
END IF;
|
|
|
|
IF rec.actie = 'verwijderen'
|
|
THEN
|
|
v_errorhint :=
|
|
'actie verwijderen werkplek - loc-key: '
|
|
|| TO_CHAR (rec.alg_locatie_key);
|
|
|
|
DELETE prs_werkplek
|
|
WHERE prs_werkplek_key = rec.prs_werkplek_key;
|
|
|
|
v_upsert_sync := 1 ;
|
|
|
|
END IF;
|
|
|
|
-- In personenkaart nog even vermelden wanneer deze vanuit de WP-sync voor het laatst zijn gemuteerd
|
|
IF v_upsert_sync = 1
|
|
THEN
|
|
|
|
PRS.upsertkenmerk (1141, rec.prs_perslid_key, TO_CHAR(sysdate, 'dd-mm-yyyy HH24:MI'));
|
|
|
|
END IF;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_aanduiding || ' - ' || v_errormsg,
|
|
v_errorhint);
|
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_kp
|
|
LOOP
|
|
BEGIN
|
|
-- kostenplaatsen en mandaat
|
|
v_aanduiding :=
|
|
'bijwerken mandaten locatiemanager - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
|
|
-- Alle mandaten goed inregelen
|
|
|
|
SELECT COUNT(*)
|
|
INTO v_teller_mandaat
|
|
FROM prs_perslidkostenplaats
|
|
WHERE prs_perslid_key = rec.prs_perslid_key
|
|
AND prs_kostenplaats_key = rec.prs_kostenplaats_key ;
|
|
|
|
IF v_teller_mandaat = 0
|
|
THEN
|
|
|
|
v_errorhint :=
|
|
'bijwerken kostenplaats-mandaat - kostenplaat_key'
|
|
|| TO_CHAR (rec.prs_kostenplaats_key);
|
|
|
|
|
|
INSERT INTO prs_perslidkostenplaats (
|
|
prs_perslidkostenplaats_boeken,
|
|
prs_perslidkostenplaats_inzage,
|
|
prs_perslid_key,
|
|
prs_kostenplaats_key)
|
|
VALUES (1,
|
|
1,
|
|
rec.prs_perslid_key,
|
|
rec.prs_kostenplaats_key);
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_kp_del
|
|
LOOP
|
|
BEGIN
|
|
-- opschonen mandaten die niet meer geldig zijn
|
|
v_aanduiding :=
|
|
'verwijderen mandaten locatiemanager - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
v_errorhint := 'verwijderen mandaten die niet meer geldig zijn';
|
|
|
|
DELETE FROM prs_perslidkostenplaats
|
|
WHERE prs_perslidkostenplaats_key =
|
|
rec.prs_perslidkostenplaats_key;
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_recht
|
|
LOOP
|
|
BEGIN
|
|
-- Alle managers zonder WP's uit de autorisatiegroep Locatiemanagers halen (key 24)
|
|
v_aanduiding :=
|
|
'bijwerken locatiemanager - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
v_errorhint := 'verwijderen locatiemanager uit autorisatiegroep';
|
|
|
|
IF rec.aantal_wp = 0 AND rec.groep = 1
|
|
THEN
|
|
|
|
DELETE
|
|
FROM fac_gebruikersgroep
|
|
WHERE fac_groep_key = c_fac_groep_key AND prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
END IF;
|
|
|
|
v_errorhint := 'toevoegen locatiemanagers aan autorisatiegroep';
|
|
|
|
IF rec.aantal_wp > 0 AND rec.groep = 0
|
|
THEN
|
|
|
|
INSERT INTO fac_gebruikersgroep (fac_groep_key,
|
|
prs_perslid_key)
|
|
VALUES (c_fac_groep_key,
|
|
rec.prs_perslid_key) ;
|
|
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_errormsg,
|
|
v_aanduiding || ' - HINT: ' || v_errorhint);
|
|
END;
|
|
/
|
|
|
|
-----------------------------------------------------------------------------------
|
|
----- 3. Regiomanagers en directeuren incl. budgethouderschap - NIEUW 2023-okt ---
|
|
-----------------------------------------------------------------------------------
|
|
|
|
-- Lijst van regiomanagers en directeuren en de locaties die onder hun cluster(district) en regio vallen
|
|
CREATE OR REPLACE VIEW blos_v_regiomanagers
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
ALG_LOCATIE_KEY,
|
|
REGIOMANAGER,
|
|
LOCATIE,
|
|
REGIODIRECTEUR,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key,
|
|
l.alg_locatie_key,
|
|
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving
|
|
regiomanager,
|
|
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
|
|
locatie,
|
|
CASE WHEN ok.alg_kenmerk_key = 1181 THEN 'ja' ELSE 'nee' END
|
|
directeur,
|
|
p.prs_perslid_verwijder
|
|
FROM prs_perslid p, prs_srtperslid sp, alg_onrgoedkenmerk ok, alg_locatie l, alg_district d
|
|
WHERE fac.safe_to_number(ok.alg_onrgoedkenmerk_waarde) = p.prs_perslid_key
|
|
AND ok.alg_kenmerk_key IN (1164, 1181) -- regiomanager en regiodirecteur
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND ok.alg_onrgoed_niveau = 'D' AND ok.alg_onrgoed_key = d.alg_district_key
|
|
AND d.alg_district_key = l.alg_district_key
|
|
AND l.alg_locatie_verwijder IS NULL
|
|
AND (TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate) OR l.alg_locatie_vervaldatum IS NULL )
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key ;
|
|
|
|
-- Lijst van Regiomanagers + Regio-directeuren en de Werkplekkoppeling die ze in hun personenkaart hebben
|
|
CREATE OR REPLACE VIEW blos_v_regiomanagers_wp
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
ALG_LOCATIE_KEY,
|
|
NAAM,
|
|
LOCATIE_WP,
|
|
PRS_WERKPLEK_KEY
|
|
)
|
|
AS
|
|
SELECT wp.prs_perslid_key,
|
|
onr.alg_locatie_key,
|
|
p.prs_perslid_naam_friendly,
|
|
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
|
|
locatie,
|
|
w.prs_werkplek_key
|
|
FROM (
|
|
SELECT prs_perslid_key
|
|
FROM (SELECT *
|
|
FROM blos_v_personenlijst_clus
|
|
UNION
|
|
SELECT *
|
|
FROM blos_v_personenlijst_dir
|
|
) x
|
|
GROUP BY x.prs_perslid_key
|
|
) v,
|
|
prs_v_perslid_fullnames p, prs_perslidwerkplek wp, prs_werkplek w, alg_ruimte r, alg_v_onrgoed_boom onr, alg_locatie l
|
|
WHERE v.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_perslid_key = wp.prs_perslid_key
|
|
AND wp.prs_werkplek_key = w.prs_werkplek_key
|
|
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
|
|
AND r.alg_ruimte_key = onr.alg_ruimte_key
|
|
AND onr.alg_locatie_key = l.alg_locatie_key
|
|
ORDER BY wp.prs_perslid_key
|
|
;
|
|
|
|
CREATE OR REPLACE VIEW blos_v_export_wp_loc_regioman
|
|
(
|
|
result,
|
|
result_order
|
|
)
|
|
AS
|
|
SELECT '"SYNC - Werkplekkoppeling Regiomanager/Directeuren (incl. zijn/haar Mandaten)"'
|
|
|| ';"Uitgevoerd"',
|
|
0
|
|
FROM DUAL
|
|
UNION
|
|
SELECT 'ERROR: Datum '|| TO_CHAR(imp_log_datum) || ' - ' || imp_log_omschrijving || ' - ' || imp_log_hint,
|
|
1
|
|
FROM imp_log
|
|
WHERE imp_log_applicatie = 'WP_LOC_REGIOMAN' ;
|
|
|
|
;
|
|
|
|
CREATE OR REPLACE PROCEDURE blos_select_wp_loc_regioman (
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2)
|
|
AS
|
|
-- Werkplekkoppelingen toevoegen
|
|
CURSOR c_loc_wp -- Voor updaten van regiomanagers en - directeuren (werkplek-koppelingen)
|
|
IS
|
|
SELECT v.prs_perslid_key,
|
|
v.alg_locatie_key,
|
|
v.prs_werkplek_key,
|
|
v.actie
|
|
FROM (SELECT man.prs_perslid_key,
|
|
man.alg_locatie_key,
|
|
NULL prs_werkplek_key,
|
|
'toevoegen' actie
|
|
FROM blos_v_regiomanagers man
|
|
WHERE NOT EXISTS
|
|
(SELECT *
|
|
FROM blos_v_regiomanagers_wp wp
|
|
WHERE wp.alg_locatie_key =
|
|
man.alg_locatie_key
|
|
AND wp.prs_perslid_key =
|
|
man.prs_perslid_key)
|
|
UNION
|
|
SELECT wp.prs_perslid_key,
|
|
wp.alg_locatie_key,
|
|
wp.prs_werkplek_key,
|
|
'verwijderen' actie
|
|
FROM blos_v_regiomanagers_wp wp
|
|
WHERE NOT EXISTS
|
|
(SELECT *
|
|
FROM blos_v_regiomanagers man
|
|
WHERE man.alg_locatie_key =
|
|
wp.alg_locatie_key
|
|
AND man.prs_perslid_key =
|
|
wp.prs_perslid_key)
|
|
AND NOT EXISTS -- voor de regiomanagers die ook direct in locatiekaart zijn gekoppeld, die moeten niet verwijderd worden...
|
|
(SELECT *
|
|
FROM blos_v_locatiemanagers man
|
|
WHERE man.alg_locatie_key =
|
|
wp.alg_locatie_key
|
|
AND man.prs_perslid_key =
|
|
wp.prs_perslid_key)
|
|
UNION
|
|
SELECT wp.prs_perslid_key,
|
|
wp.alg_locatie_key,
|
|
wp.prs_werkplek_key,
|
|
'ok' actie
|
|
FROM blos_v_regiomanagers_wp wp,
|
|
blos_v_regiomanagers man
|
|
WHERE man.alg_locatie_key = wp.alg_locatie_key
|
|
AND man.prs_perslid_key = wp.prs_perslid_key) v
|
|
ORDER BY 1, 2, 3;
|
|
|
|
CURSOR c_loc_kp -- Voor updaten van regiomanagers en directeuren (mandaten op kostenplaatsen en voor regiomanagers ook budgethouders-schap)
|
|
IS
|
|
SELECT w.prs_perslid_key, w.alg_locatie_key, w.prs_kostenplaats_key,
|
|
CASE WHEN f1.prs_perslid_key IS NOT NULL THEN 'regiomanager'
|
|
WHEN f2.prs_perslid_key IS NOT NULL THEN 'regio-directeur'
|
|
ELSE ''
|
|
END
|
|
functie
|
|
FROM ( SELECT v_prs.prs_perslid_key,
|
|
v_prs.alg_locatie_key,
|
|
v_kp.prs_kostenplaats_key
|
|
FROM blos_v_regiomanagers v_prs, blos_v_locaties_kp v_kp
|
|
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
|
|
GROUP BY v_prs.prs_perslid_key,
|
|
v_prs.alg_locatie_key,
|
|
v_kp.prs_kostenplaats_key) w,
|
|
blos_v_personenlijst_clus f1 , -- regiomanagers
|
|
blos_v_personenlijst_dir f2 -- regiodirecteuren
|
|
WHERE w.prs_perslid_key = f1.prs_perslid_key(+)
|
|
AND w.prs_perslid_key = f2.prs_perslid_key(+)
|
|
ORDER BY 1, 2, 3;
|
|
|
|
CURSOR c_loc_kp_del -- Voor deleten van mandaten
|
|
IS
|
|
SELECT pk.prs_perslid_key, pk.prs_perslidkostenplaats_key
|
|
FROM prs_perslidkostenplaats pk
|
|
WHERE NOT EXISTS
|
|
( SELECT v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key
|
|
FROM blos_v_regiomanagers v_prs,
|
|
blos_v_locaties_kp v_kp
|
|
WHERE v_prs.alg_locatie_key =
|
|
v_kp.alg_locatie_key
|
|
AND v_prs.prs_perslid_key = pk.prs_perslid_key
|
|
AND v_kp.prs_kostenplaats_key =
|
|
pk.prs_kostenplaats_key
|
|
GROUP BY v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key)
|
|
AND pk.prs_perslid_key IN ( SELECT prs_perslid_key
|
|
FROM blos_v_personenlijst_clus p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
UNION
|
|
SELECT prs_perslid_key
|
|
FROM blos_v_personenlijst_dir d
|
|
WHERE d.prs_perslid_verwijder IS NULL
|
|
GROUP BY prs_perslid_key)
|
|
AND NOT EXISTS -- voor de regiomanagers die ook direct in locatiekaart zijn gekoppeld, die KP-mandaten moeten niet verwijderd worden...
|
|
( SELECT *
|
|
FROM blos_v_locatiemanagers man, blos_v_locaties_kp kp
|
|
WHERE man.alg_locatie_key = kp.alg_locatie_key
|
|
AND man.prs_perslid_key = pk.prs_perslid_key
|
|
AND kp.prs_kostenplaats_key = pk.prs_kostenplaats_key )
|
|
ORDER BY 1, 2;
|
|
|
|
CURSOR c_loc_bud_del -- Voor deleten van budgethouderschap op kostenplaatsen
|
|
IS
|
|
SELECT kp.prs_perslid_key, p.prs_perslid_naam, r.naam, kp.prs_kostenplaats_key
|
|
FROM prs_kostenplaats kp, prs_perslid p, blos_v_personenlijst_clus r
|
|
WHERE kp.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_perslid_key = r.prs_perslid_key (+)
|
|
AND NOT EXISTS
|
|
( SELECT v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key
|
|
FROM blos_v_regiomanagers v_prs,
|
|
blos_v_locaties_kp v_kp
|
|
WHERE v_prs.alg_locatie_key =
|
|
v_kp.alg_locatie_key
|
|
AND v_prs.prs_perslid_key = kp.prs_perslid_key
|
|
AND v_kp.prs_kostenplaats_key =
|
|
kp.prs_kostenplaats_key
|
|
GROUP BY v_prs.prs_perslid_key,
|
|
v_kp.prs_kostenplaats_key)
|
|
ORDER BY 1, 2;
|
|
|
|
CURSOR c_loc_recht -- Voor onderhouder van de regiomanagers en directeuren in de autorisatiegroepen
|
|
IS
|
|
SELECT p.prs_perslid_key, p.naam,
|
|
(SELECT count(*) FROM prs_perslidwerkplek wp WHERE wp.prs_perslid_key = p.prs_perslid_key) aantal_wp,
|
|
(SELECT count(*) FROM fac_gebruikersgroep gg WHERE gg.prs_perslid_key = p.prs_perslid_key AND gg.fac_groep_key = 201) groep
|
|
FROM blos_v_personenlijst_clus p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
UNION
|
|
SELECT p.prs_perslid_key, p.naam,
|
|
(SELECT count(*) FROM prs_perslidwerkplek wp WHERE wp.prs_perslid_key = p.prs_perslid_key) aantal_wp,
|
|
(SELECT count(*) FROM fac_gebruikersgroep gg WHERE gg.prs_perslid_key = p.prs_perslid_key AND gg.fac_groep_key = 201) groep
|
|
FROM blos_v_personenlijst_dir p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
ORDER BY 1 ;
|
|
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
oracle_err_mes VARCHAR2 (200);
|
|
oracle_err_num NUMBER;
|
|
currentversion fac_module.fac_module_version%TYPE;
|
|
v_aanduiding VARCHAR2 (1000);
|
|
v_count NUMBER;
|
|
|
|
|
|
v_alg_ruimte_key NUMBER;
|
|
v_prs_perslidkostenplaats_key NUMBER (10);
|
|
v_teller_mandaat NUMBER(10);
|
|
v_prs_perslid_key NUMBER (10);
|
|
v_kostenplaats_actueel NUMBER(1);
|
|
v_upsert_sync NUMBER(1);
|
|
c_fac_groep_key NUMBER(10) := 201 ; -- standaard autorisatiegroep voor Regiomanagers en Directeuren
|
|
|
|
BEGIN
|
|
v_count := 0;
|
|
|
|
FOR rec IN c_loc_wp
|
|
LOOP
|
|
BEGIN
|
|
-- Werkplekkoppelingen op basis van de locaties die onder het cluster/district of regio vallen waar men regiomanager/directeur van is
|
|
v_aanduiding :=
|
|
'bijwerken werkplekkoppelingen regiomanager/directeur - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
v_upsert_sync := 0 ;
|
|
|
|
IF rec.actie = 'toevoegen'
|
|
THEN
|
|
v_errorhint :=
|
|
'actie toevoegen werkplek - loc-key: '
|
|
|| TO_CHAR (rec.alg_locatie_key);
|
|
|
|
BEGIN
|
|
SELECT MIN (r.alg_ruimte_key)
|
|
INTO v_alg_ruimte_key
|
|
FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND r.alg_ruimte_verwijder IS NULL
|
|
AND v.alg_verdieping_verwijder IS NULL
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND g.alg_locatie_key = rec.alg_locatie_key;
|
|
|
|
IF v_alg_ruimte_key IS NOT NULL
|
|
THEN
|
|
-- PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2, p_virtual IN NUMBER DEFAULT 0);
|
|
BEGIN
|
|
PRS.movetoruimte (rec.prs_perslid_key,
|
|
v_alg_ruimte_key,
|
|
'L',
|
|
1);
|
|
|
|
v_upsert_sync := 1 ;
|
|
|
|
END;
|
|
END IF;
|
|
END;
|
|
END IF;
|
|
|
|
IF rec.actie = 'verwijderen'
|
|
THEN
|
|
v_errorhint :=
|
|
'actie verwijderen werkplek - loc-key: '
|
|
|| TO_CHAR (rec.alg_locatie_key);
|
|
|
|
DELETE prs_werkplek
|
|
WHERE prs_werkplek_key = rec.prs_werkplek_key;
|
|
|
|
v_upsert_sync := 1 ;
|
|
|
|
END IF;
|
|
|
|
-- In personenkaart nog even vermelden wanneer deze vanuit de WP-sync voor het laatst zijn gemuteerd
|
|
IF v_upsert_sync = 1
|
|
THEN
|
|
|
|
PRS.upsertkenmerk (1141, rec.prs_perslid_key, TO_CHAR(sysdate, 'dd-mm-yyyy HH24:MI'));
|
|
|
|
END IF;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_aanduiding || ' - ' || v_errormsg,
|
|
v_errorhint);
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_kp
|
|
LOOP
|
|
BEGIN
|
|
|
|
-- kostenplaatsen en budgethouders - voor regiomanagers het budgethouderschap op kostenplaats updaten indien nodig
|
|
v_aanduiding :=
|
|
'bijwerken budgethouder regiomanager/directeur - perslid_key '
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
|
|
IF rec.functie = 'regiomanager'
|
|
THEN
|
|
|
|
v_errorhint :=
|
|
'check budgethouder op deze kostenplaats - kostenplaats_key '
|
|
|| TO_CHAR (rec.prs_kostenplaats_key);
|
|
|
|
-- check eers of er nu afwijkende budgethouder op KP zit.
|
|
SELECT MAX(prs_perslid_key)
|
|
INTO v_prs_perslid_key
|
|
FROM prs_kostenplaats
|
|
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key
|
|
AND prs_kostenplaats_verwijder IS NULL
|
|
AND (prs_kostenplaats_eind IS NULL OR prs_kostenplaats_eind > TRUNC(SYSDATE) ) ;
|
|
|
|
v_errorhint :=
|
|
'check kostenplaats actueel? - kostenplaats_key '
|
|
|| TO_CHAR (rec.prs_kostenplaats_key);
|
|
|
|
-- check of het een actuele kostenplaats is...
|
|
SELECT CASE WHEN (
|
|
prs_kostenplaats_verwijder IS NOT NULL
|
|
OR
|
|
( prs_kostenplaats_eind IS NOT NULL AND prs_kostenplaats_eind < TRUNC (SYSDATE))
|
|
)
|
|
THEN 0
|
|
ELSE 1 END
|
|
kp_actueel
|
|
INTO v_kostenplaats_actueel
|
|
FROM prs_kostenplaats
|
|
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key ;
|
|
|
|
-- updaten budgethouder als:
|
|
IF (v_prs_perslid_key IS NULL OR v_prs_perslid_key <> rec.prs_perslid_key) AND v_kostenplaats_actueel = 1
|
|
THEN
|
|
|
|
v_errorhint :=
|
|
'bijwerken budgethouder op kostenplaats - kostenplaats_key '
|
|
|| TO_CHAR (rec.prs_kostenplaats_key);
|
|
|
|
UPDATE prs_kostenplaats
|
|
SET prs_perslid_key = rec.prs_perslid_key
|
|
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key ;
|
|
|
|
-- Geen fac_tracking nodig. Mutatie wordt namelijk al via trigger met aud.auditaction weggeschreven
|
|
|
|
END IF;
|
|
|
|
END IF;
|
|
|
|
-- kostenplaatsen en mandaat - alle mandaten voor regiomanagers en directeuren van hun onderliggende locaties doorvoeren
|
|
v_aanduiding :=
|
|
'bijwerken mandaten regiomanager/directeur - perslid_key '
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
|
|
-- Alle mandaten goed inregelen
|
|
SELECT COUNT(*)
|
|
INTO v_teller_mandaat
|
|
FROM prs_perslidkostenplaats
|
|
WHERE prs_perslid_key = rec.prs_perslid_key
|
|
AND prs_kostenplaats_key = rec.prs_kostenplaats_key ;
|
|
|
|
IF v_teller_mandaat = 0
|
|
THEN
|
|
|
|
v_errorhint :=
|
|
'bijwerken kostenplaats-mandaat - kostenplaat_key'
|
|
|| TO_CHAR (rec.prs_kostenplaats_key);
|
|
|
|
|
|
INSERT INTO prs_perslidkostenplaats (
|
|
prs_perslidkostenplaats_boeken,
|
|
prs_perslidkostenplaats_inzage,
|
|
prs_perslid_key,
|
|
prs_kostenplaats_key)
|
|
VALUES (1,
|
|
1,
|
|
rec.prs_perslid_key,
|
|
rec.prs_kostenplaats_key);
|
|
END IF;
|
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_kp_del
|
|
LOOP
|
|
BEGIN
|
|
-- opschonen mandaten die niet meer geldig zijn
|
|
v_aanduiding :=
|
|
'verwijderen mandaten regiomanager/directeur - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
v_errorhint := 'verwijderen mandaten die niet meer geldig zijn';
|
|
|
|
DELETE FROM prs_perslidkostenplaats
|
|
WHERE prs_perslidkostenplaats_key =
|
|
rec.prs_perslidkostenplaats_key;
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_bud_del
|
|
LOOP
|
|
BEGIN
|
|
-- opschonen budgethouders op kostenplaatsen
|
|
--- Regiomanagers zijn de budgethouders en zij fiatteren bij BLOS voor hun locaties.
|
|
---- Indien een kostenplaats niet gekoppeld is aan locatie-kaart dan kan/moet de budgethouder op die kp verwijderd zijn/worden
|
|
---- Indien een kostenplaats wel is gekoppeld maar er nog geen regiomanager gekoppeld op boveliggend cluster dan heeft die kostenplaats dus ook nog geen budgethouder!
|
|
v_aanduiding :=
|
|
'verwijderen budgethouder met prs_perslid_key ' || TO_CHAR (rec.prs_perslid_key) || ' op kostenplaats_key ' || TO_CHAR (rec.prs_kostenplaats_key) ;
|
|
v_errorhint := 'verwijderen budgethouders op kostenplaatsen';
|
|
|
|
UPDATE prs_kostenplaats
|
|
SET prs_perslid_key = NULL
|
|
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key;
|
|
|
|
-- logging
|
|
--- niet nodig, wordt al automatisch gelogd
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_loc_recht
|
|
LOOP
|
|
BEGIN
|
|
-- Alle managers zonder WP's uit de autorisatiegroep Locatiemanagers halen (key 24)
|
|
v_aanduiding :=
|
|
'bijwerken regiomanager en directeuren - perslid_key:'
|
|
|| TO_CHAR (rec.prs_perslid_key);
|
|
|
|
v_errorhint := 'verwijderen regiomanager/directeur uit autorisatiegroep';
|
|
|
|
IF rec.aantal_wp = 0 AND rec.groep = 1
|
|
THEN
|
|
|
|
DELETE
|
|
FROM fac_gebruikersgroep
|
|
WHERE fac_groep_key = c_fac_groep_key AND prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
END IF;
|
|
|
|
v_errorhint := 'toevoegen regiomanager/directeur aan autorisatiegroep';
|
|
|
|
IF rec.aantal_wp > 0 AND rec.groep = 0
|
|
THEN
|
|
|
|
INSERT INTO fac_gebruikersgroep (fac_groep_key,
|
|
prs_perslid_key)
|
|
VALUES (c_fac_groep_key,
|
|
rec.prs_perslid_key) ;
|
|
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_errormsg,
|
|
v_aanduiding || ' - HINT: ' || v_errorhint);
|
|
END;
|
|
/
|
|
|
|
|
|
------------------------------------------------------------
|
|
---- EINDE - WP-KOPPELING IN BLOS --------------------------
|
|
------------------------------------------------------------
|
|
|
|
-- AFAS - KOPPELING
|
|
---- TEST 2022 - Met Anneke Knipscheer
|
|
CREATE OR REPLACE PROCEDURE blos_import_perslid (p_import_key IN NUMBER)
|
|
AS
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_errormsg VARCHAR2 (400);
|
|
v_errorhint VARCHAR2 (400);
|
|
v_aantal_in_fclt NUMBER;
|
|
|
|
-- overige variabelen
|
|
v_prs_afdeling_key1 NUMBER(10);
|
|
v_prs_afdeling_upper2 VARCHAR2(15);
|
|
|
|
c_prs_afdeling_key NUMBER(10) := 251 ; -- Fallback-afdeling 'ONBEKEND'
|
|
|
|
v_alg_locatie_key NUMBER(10);
|
|
v_alg_locatie_afas VARCHAR(60);
|
|
v_alg_locatie_code VARCHAR2(10);
|
|
v_alg_gebouw_key NUMBER(10);
|
|
v_alg_gebouw_code VARCHAR2(12);
|
|
v_alg_verdieping_key NUMBER(10);
|
|
v_alg_verdieping_volgnr NUMBER(3);
|
|
v_alg_ruimte_key NUMBER(10);
|
|
v_alg_ruimte_nr VARCHAR2(20);
|
|
|
|
|
|
CURSOR c_email
|
|
IS
|
|
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_email
|
|
FROM fac_imp_perslid i, prs_perslid p
|
|
WHERE fac_import_key = p_import_key
|
|
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_email IS NOT NULL
|
|
ORDER BY 1 ;
|
|
|
|
CURSOR c_login
|
|
IS
|
|
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_oslogin
|
|
FROM fac_imp_perslid i, prs_perslid p
|
|
WHERE fac_import_key = p_import_key
|
|
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_oslogin IS NOT NULL
|
|
ORDER BY 1 ;
|
|
|
|
CURSOR c_afd
|
|
IS
|
|
SELECT fac_imp_file_index, prs_kenmerk3, prs_srtperslid_omschrijving
|
|
FROM fac_imp_perslid
|
|
WHERE fac_import_key = p_import_key ;
|
|
|
|
CURSOR c_loc
|
|
IS
|
|
SELECT fac_imp_file_index, prs_kenmerk2
|
|
FROM fac_imp_perslid
|
|
WHERE fac_import_key = p_import_key ;
|
|
|
|
|
|
BEGIN
|
|
-- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
|
|
v_errorhint := 'Delimiter goed zetten';
|
|
-- UPDATE fac_imp_file
|
|
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
|
|
-- WHERE fac_import_key = p_import_key;
|
|
|
|
-- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden..
|
|
-- UPDATE fac_imp_file
|
|
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
|
|
-- WHERE fac_import_key = p_import_key;
|
|
|
|
|
|
v_errorhint := 'Generieke update';
|
|
-- De sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
|
|
---
|
|
prs.import_perslid (
|
|
p_import_key,
|
|
'0;0;0;0;0;0;1;2;0;0;'
|
|
|| '0;0;0;0;0;0;4;3;0;1;'
|
|
|| '7;0;0;0;0;0;2;5;6;0;'
|
|
|| '0;0;0;0;0;0;0;0;0;0;'
|
|
|| '0;0;0;0;0;0',
|
|
'Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving%');
|
|
-- 1 2 3 4 5 6 7
|
|
-- BESTAND BIJ BLOS: Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving
|
|
|
|
v_errorhint := 'Functie goed vullen';
|
|
-- Functie is niet altijd gevuld, eerst gevuld met Persoonsnr, nu vullen met kenmerk1 (of 'Onbekend').
|
|
/*
|
|
UPDATE fac_imp_perslid
|
|
SET prs_srtperslid_omschrijving =
|
|
DECODE (prs_kenmerk1, NULL, 'Onbekend', prs_kenmerk1);
|
|
*/
|
|
|
|
v_errorhint := 'Bestaande EMAIL uit Facilitor handhaven';
|
|
-- Facilitor is leading qua emailadressen. => OPEN: Uiteindelijk via IT-objecten vullen/sturen
|
|
FOR rec IN c_email
|
|
LOOP
|
|
BEGIN
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_perslid_email = rec.prs_perslid_email
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
v_errorhint := 'Records uit AFAS nog uitsluiten van import';
|
|
-- <nog nader te bepalen>
|
|
|
|
-- UPDATE fac_imp_perslid
|
|
-- SET prs_kenmerk7 = NULL
|
|
-- WHERE prs_kenmerk7 IS NOT NULL AND INSTR(UPPER(prs_kenmerk7),'@BLOS.NL')=0 ;
|
|
|
|
|
|
FOR rec IN c_login
|
|
LOOP
|
|
BEGIN
|
|
|
|
v_errorhint := 'Bestaande OSLOGIN uit Facilitor handhaven';
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_perslid_oslogin = rec.prs_perslid_oslogin
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
v_errorhint := 'Login afleiden van emailadres (voor locatieleiders)';
|
|
-- Voor de locatieleiders de oslogin vullen in geval nog niet gevuld in Facilitor (vanuit vorige cursor)
|
|
/*
|
|
UPDATE fac_imp_perslid
|
|
SET prs_perslid_oslogin =
|
|
UPPER((SUBSTR (prs_perslid_email,
|
|
0,
|
|
INSTR (prs_perslid_email, '@') - 1)))
|
|
WHERE
|
|
UPPER (prs_perslid_email) LIKE '%BLOS.NL'
|
|
AND prs_perslid_email IS NOT NULL
|
|
AND INSTR(UPPER(prs_srtperslid_omschrijving),'LOCATIEMANAGER')>0
|
|
AND prs_perslid_oslogin IS NULL
|
|
AND LENGTH((SUBSTR (prs_perslid_email,
|
|
0,
|
|
INSTR (prs_perslid_email, '@') - 1))) <=30 ;
|
|
*/
|
|
|
|
v_errorhint := 'Afdeling bepalen en vullen';
|
|
-- Afdeling bepalen waar persoon onder komt te vallen. <NOG GOED UITDENKEN en WERKEN>
|
|
-- Afdeling komt niet mee, dus vullen hem eerst met Personeelsnummer en gaan daarna de juiste afdelingscode bepalen.
|
|
-- Voor locatiemanagers geldt dat deze altijd op organisatie 'LOCATIEMANAGERS' moeten komen (onder dit organisatieonderdeel zitten op niveau 2 de team/afdelingen/kostenplaatsen)
|
|
FOR rec IN c_afd
|
|
LOOP
|
|
BEGIN
|
|
|
|
v_errorhint := 'Persoon aan Afdeling koppelen';
|
|
|
|
-- Business Unit vinden
|
|
SELECT prs_afdeling_key
|
|
INTO v_prs_afdeling_key1
|
|
FROM prs_afdeling
|
|
WHERE prs_bedrijf_key = 21 AND SUBSTR(prs_afdeling_omschrijving,8) = rec.prs_kenmerk3 ;
|
|
|
|
-- Alle medewerkers, locatieleiders en pedagogisch medewerkers op onder juiste LOC_MAN koppelen..
|
|
IF v_prs_afdeling_key1 IS NOT NULL
|
|
THEN
|
|
|
|
-- Afdelingsniveau 2 bepalen voor Managers...
|
|
SELECT a.prs_afdeling_upper
|
|
INTO v_prs_afdeling_upper2
|
|
FROM prs_v_afdeling_boom v, prs_afdeling a
|
|
WHERE niveau = 2
|
|
AND prs_afdeling_key1 = v_prs_afdeling_key1
|
|
AND v.prs_afdeling_key = a.prs_afdeling_key AND INSTR(a.prs_afdeling_upper,'LOC_MAN')>0 ;
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_afdeling_naam = v_prs_afdeling_upper2
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
ELSE
|
|
-- Als werkgever onbekend dan op fallback laten landen...
|
|
UPDATE fac_imp_perslid
|
|
SET prs_afdeling_naam = (SELECT prs_afdeling_upper FROM prs_afdeling WHERE prs_afdeling_key = c_prs_afdeling_key)
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
|
|
v_errorhint := 'Locatie bepalen en vullen';
|
|
-- Op basis van kostenplaatsomschrijving gaan we kijken of we de locatie en werkplekkoppeling kunnen maken
|
|
FOR rec IN c_loc
|
|
LOOP
|
|
BEGIN
|
|
|
|
v_errorhint := 'Persoon aan Locatie-Ruimte koppelen adhv de kostenplaats - ' || TO_CHAR(rec.fac_imp_file_index) ;
|
|
v_alg_locatie_key := NULL;
|
|
v_alg_gebouw_key := NULL;
|
|
v_alg_verdieping_key := NULL;
|
|
v_alg_ruimte_key := NULL;
|
|
v_alg_locatie_afas := replace(replace(rec.prs_kenmerk2,' BSO', ''),' KDV', '') ; -- In AFAS wordt opvangsoort ook in kp-omschrijving meegenomen..
|
|
|
|
IF rec.prs_kenmerk2 IS NULL
|
|
THEN
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
|
|
ELSE
|
|
|
|
SELECT MAX(alg_locatie_key)
|
|
INTO v_alg_locatie_key
|
|
FROM alg_locatie
|
|
WHERE INSTR(alg_locatie_upper, UPPER(v_alg_locatie_afas)) > 0
|
|
AND alg_locatie_verwijder IS NULL
|
|
AND (alg_locatie_vervaldatum IS NULL OR TRUNC(alg_locatie_vervaldatum) > TRUNC(SYSDATE) ) ;
|
|
|
|
END IF;
|
|
|
|
IF v_alg_locatie_key IS NOT NULL THEN
|
|
|
|
-- Locatie_code ophalen
|
|
SELECT alg_locatie_code
|
|
INTO v_alg_locatie_code
|
|
FROM alg_locatie
|
|
WHERE alg_locatie_key = v_alg_locatie_key ;
|
|
|
|
-- Gebouw_key ophalen
|
|
SELECT min(alg_gebouw_key)
|
|
INTO v_alg_gebouw_key
|
|
FROM alg_gebouw
|
|
WHERE alg_locatie_key = v_alg_locatie_key
|
|
AND alg_gebouw_verwijder IS NULL
|
|
AND (TRUNC(alg_gebouw_vervaldatum) > TRUNC(sysdate) OR alg_gebouw_vervaldatum IS NULL ) ;
|
|
|
|
-- Om bij update dit kenmerkveld weg te kunnen schrijven naar kenmerkveld 'Default standplaats'
|
|
UPDATE fac_imp_perslid
|
|
SET prs_kenmerk20 = (SELECT UPPER(alg_locatie_code) || ' - ' || alg_locatie_omschrijving FROM alg_locatie WHERE alg_locatie_key = v_alg_locatie_key)
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
IF v_alg_gebouw_key IS NOT NULL THEN
|
|
|
|
-- Gebouw_code ophalen
|
|
SELECT alg_gebouw_code
|
|
INTO v_alg_gebouw_code
|
|
FROM alg_gebouw
|
|
WHERE alg_gebouw_key = v_alg_gebouw_key ;
|
|
|
|
-- Verdiepings_key ophalen
|
|
SELECT min(alg_verdieping_key)
|
|
INTO v_alg_verdieping_key
|
|
FROM alg_verdieping
|
|
WHERE alg_gebouw_key = v_alg_gebouw_key
|
|
AND alg_verdieping_verwijder IS NULL ;
|
|
|
|
END IF;
|
|
|
|
IF v_alg_verdieping_key IS NOT NULL THEN
|
|
|
|
-- Verdieping_volgnr ophalen
|
|
SELECT alg_verdieping_volgnr
|
|
INTO v_alg_verdieping_volgnr
|
|
FROM alg_verdieping
|
|
WHERE alg_verdieping_key = v_alg_verdieping_key ;
|
|
|
|
-- Ruimte_key ophalen
|
|
SELECT min(alg_ruimte_key)
|
|
INTO v_alg_ruimte_key
|
|
FROM alg_ruimte
|
|
WHERE alg_verdieping_key = v_alg_verdieping_key
|
|
AND alg_ruimte_verwijder IS NULL ;
|
|
|
|
END IF;
|
|
|
|
IF v_alg_ruimte_key IS NOT NULL THEN
|
|
|
|
-- Ruimte_nr ophalen
|
|
SELECT alg_ruimte_nr
|
|
INTO v_alg_ruimte_nr
|
|
FROM alg_ruimte
|
|
WHERE alg_ruimte_key = v_alg_ruimte_key ;
|
|
|
|
-- Vullen vastgoed-keten in import-tabel
|
|
UPDATE fac_imp_perslid
|
|
SET alg_locatie_code = v_alg_locatie_code,
|
|
alg_gebouw_code = v_alg_gebouw_code,
|
|
alg_verdieping_volgnr = v_alg_verdieping_volgnr,
|
|
alg_ruimte_nr = v_alg_ruimte_nr
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
END IF;
|
|
|
|
ELSE
|
|
-- Geen Locatie/Vastgoedketen kunnen vinden
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
|
|
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
|
|
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
v_errormsg,
|
|
v_errorhint);
|
|
END blos_import_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE blos_update_perslid (p_import_key IN NUMBER)
|
|
IS
|
|
-- Alle personen verwijderen die niet meer in het import bestand voorkomen
|
|
-- Personen in de juiste autorisatiegroep zetten.
|
|
-- Match bij BLOS KINDEROPVANG is Personeelsnummer.
|
|
-- Geen acties tenzij het aantal records in de importtabel meer dan 100 medewerkers betreft.
|
|
|
|
CURSOR c_del
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_email, p.prs_perslid_nr, sp.prs_srtperslid_omschrijving
|
|
FROM prs_perslid p, prs_srtperslid sp, prs_v_afdeling_boom a
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key AND a.prs_bedrijf_key = 21 -- GO Kinderopvang
|
|
AND p.prs_srtperslid_key = sp.prs_srtperslid_key -- AND sp.prs_srtperslid_upper NOT IN ('TEAMACCOUNT','INTERNE AFDELING','UITZENDKRACHT')
|
|
-- VOOR BLOS_TEST de huidige personen onder Business Unit Blos-Groep (UNIT) NIET verwijderen (afd_key=21 en afd_niveau=1)
|
|
AND a.prs_afdeling_key1 NOT IN (21)
|
|
AND NOT EXISTS (SELECT 1
|
|
FROM fac_imp_perslid
|
|
WHERE p.prs_perslid_nr = prs_perslid_nr
|
|
)
|
|
ORDER BY 1 ;
|
|
|
|
CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden op actuele medewerkers
|
|
IS
|
|
SELECT p.prs_perslid_key, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk20
|
|
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
|
WHERE p.prs_perslid_key = i.prs_perslid_key
|
|
ORDER BY 1;
|
|
|
|
v_count NUMBER;
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_errormsg VARCHAR2 (400);
|
|
v_errorhint VARCHAR2 (400);
|
|
|
|
/*v_fac_gebruikersgroep_key NUMBER(10);
|
|
v_alg_ruimte_key NUMBER;
|
|
v_prs_werkplek_key NUMBER;
|
|
v_waarnemer_overrule VARCHAR2 (12);
|
|
v_prs_perslid_key NUMBER(10); -- budgethouder op kp
|
|
v_prs_perslidkostenplaats_key NUMBER(10) ;
|
|
v_fac_profiel_key NUMBER(10);
|
|
*/
|
|
|
|
|
|
BEGIN
|
|
v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';
|
|
|
|
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
|
|
|
|
IF v_count >= 100
|
|
THEN
|
|
v_errorhint := 'Verwerken persoonsgegevens';
|
|
|
|
-- Geldig importbestand wat betreft aantal personen
|
|
|
|
COMMIT;
|
|
|
|
-- generic update
|
|
-- 'EMAIL' betekent dat op basis van Email wordt gematched. 'NR' op basis van personeelsnummer.
|
|
-- 'NULL' betekent altijd geen werkplekken verwijderen
|
|
-- Voor BLOS / AFAS geldt:
|
|
---- Op NR gaan matchen.
|
|
|
|
prs.update_perslid (p_import_key, 'NR', NULL);
|
|
|
|
v_errorhint := 'Verwijderen persoonsgegevens';
|
|
|
|
-- Verwijder personen die niet meer in de import voorkomen.
|
|
FOR rec IN c_del
|
|
LOOP
|
|
BEGIN
|
|
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_flex
|
|
LOOP
|
|
BEGIN
|
|
v_errorhint:='Fout bijwerken kenmerkveld Regio';
|
|
PRS.upsertkenmerk (1120, rec.prs_perslid_key, rec.prs_kenmerk3);
|
|
v_errorhint:='Fout bijwerken kenmerkveld Locatie';
|
|
PRS.upsertkenmerk (1121, rec.prs_perslid_key, rec.prs_kenmerk2);
|
|
v_errorhint:='Fout bijwerken kenmerkveld Inzet locatie';
|
|
PRS.upsertkenmerk (1122, rec.prs_perslid_key, rec.prs_kenmerk20);
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
|
|
|
|
-- Te weinig personen in bestand om import uit te voeren
|
|
ELSE
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
v_errormsg,
|
|
v_errorhint);
|
|
COMMIT;
|
|
END IF;
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
v_errormsg,
|
|
v_errorhint);
|
|
END blos_update_perslid;
|
|
/
|
|
|
|
-- Hulpview: Alle locaties die bij een bepaald CLUSTER horen
|
|
CREATE OR REPLACE VIEW blos_v_cluster_locaties
|
|
(
|
|
ALG_LOCATIE_KEY,
|
|
ALG_LOCATIE_CODE,
|
|
ALG_LOCATIE_OMSCHRIJVING,
|
|
CLUSTER_DISTRICT_CODE, -- Districtsniveau
|
|
CLUSTER_LABEL_CODE, -- Locatieniveau - Het (oorspronkelijke) label
|
|
TYPE_LOCATIE,
|
|
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 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_label_code,
|
|
(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 = 1002 -- type_opvang/locatie
|
|
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 = 2)
|
|
AS type_locatie,
|
|
(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,
|
|
l.alg_locatie_vervaldatum
|
|
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) ;
|
|
|
|
-- Ivm clusterkoppeling is het belangrijk dat locaties goed zijn vastgelegd.
|
|
-- Omdat in de praktijk dit paar keer niet goed is gegaan een noti-job om applicatiebeheer hierop netjes te attenderen
|
|
CREATE OR REPLACE VIEW blos_v_noti_locatiebeheer
|
|
(
|
|
sender,
|
|
receiver,
|
|
text,
|
|
code,
|
|
key,
|
|
xkey
|
|
)
|
|
AS
|
|
SELECT 3, -- Facilitor
|
|
m.prs_perslid_key,
|
|
'Locatie onvolledig vastgelegd: '
|
|
|| v.alg_locatie_code
|
|
|| ' - '
|
|
|| v.alg_locatie_omschrijving
|
|
|| ' van '
|
|
|| v.cluster_label_code,
|
|
'CUST01',
|
|
m.prs_perslid_key,
|
|
NULL
|
|
FROM
|
|
blos_v_cluster_locaties v,
|
|
(SELECT g.fac_groep_key,
|
|
p.prs_perslid_key,
|
|
p.prs_perslid_email AS email
|
|
FROM fac_groep g, fac_gebruikersgroep ge, prs_perslid p
|
|
WHERE g.fac_groep_key = 22 -- Applicatiebeheer
|
|
AND g.fac_groep_key = ge.fac_groep_key
|
|
AND ge.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_perslid_email IS NOT NULL
|
|
AND p.prs_perslid_verwijder IS NULL) m
|
|
WHERE
|
|
v.ruimte_key IS NULL
|
|
and v.cluster_label_code IS NOT NULL ;
|
|
|
|
-- Hook functie die na het saven (mld_postsave) van een melding aangeroepen wordt.
|
|
CREATE OR REPLACE PROCEDURE blos_mld_after_insert (p_key IN NUMBER)
|
|
AS
|
|
v_locatie_key NUMBER;
|
|
v_kenmerk_waarde_cluster VARCHAR (100);
|
|
v_kenmerk_waarde_key NUMBER (10);
|
|
v_mld_kenmerkmelding_key NUMBER (10);
|
|
v_mld_kenmerkmelding_waarde VARCHAR (100);
|
|
v_errormsg VARCHAR2 (100);
|
|
|
|
BEGIN
|
|
v_errormsg := 'Ophalen meldinggegevens';
|
|
|
|
SELECT m.mld_alg_locatie_key
|
|
INTO v_locatie_key
|
|
FROM mld_melding m
|
|
WHERE mld_melding_key = p_key AND mld_stdmelding_key NOT IN (1) ; -- Niet voor M2M-meldingen
|
|
|
|
IF v_locatie_key IS NOT NULL
|
|
THEN
|
|
|
|
BEGIN
|
|
-- Ophalen waarde Cluster bij Locatie vastgelegd
|
|
SELECT ud.fac_usrdata_omschr, ud.fac_usrdata_key
|
|
INTO v_kenmerk_waarde_cluster, v_kenmerk_waarde_key
|
|
FROM alg_locatie l, alg_onrgoedkenmerk k, alg_kenmerk km, fac_kenmerkdomein kd, fac_usrdata ud
|
|
WHERE l.alg_locatie_key = v_locatie_key
|
|
AND l.alg_locatie_key = k.alg_onrgoed_key AND alg_onrgoed_niveau = 'L' AND k.alg_kenmerk_key = 1000 -- Clusterlabel (oorspronkelijk)
|
|
AND k.alg_kenmerk_key = km.alg_kenmerk_key
|
|
AND km.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
|
|
AND kd.fac_usrtab_key = ud.fac_usrtab_key
|
|
AND fac.safe_to_number(k.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key ;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
v_kenmerk_waarde_cluster := NULL;
|
|
v_kenmerk_waarde_key := NULL;
|
|
END;
|
|
|
|
BEGIN
|
|
-- Is het kenmerk al eerder weggeschreven op de melding?
|
|
SELECT km.mld_kenmerkmelding_key, km.mld_kenmerkmelding_waarde
|
|
INTO v_mld_kenmerkmelding_key, v_mld_kenmerkmelding_waarde
|
|
FROM mld_melding m, mld_kenmerkmelding km
|
|
WHERE m.mld_melding_key = p_key
|
|
AND m.mld_melding_key = km.mld_melding_key
|
|
AND km.mld_kenmerk_key = 221 -- Clusterlabel (oorspronkelijk)
|
|
AND km.mld_kenmerkmelding_verwijder IS NULL ;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
v_mld_kenmerkmelding_key := NULL;
|
|
END;
|
|
|
|
-- Toevoegen kenmerk-record als waarde gevuld en er nog geen record is aangemaakt
|
|
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NULL
|
|
THEN
|
|
BEGIN
|
|
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
|
mld_kenmerk_key,
|
|
mld_kenmerkmelding_waarde)
|
|
VALUES (p_key, 221, v_kenmerk_waarde_cluster) ;
|
|
END;
|
|
END IF;
|
|
|
|
-- Aanpassen kenmerk-record als de locatie is omgezet op de melding
|
|
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NOT NULL AND v_mld_kenmerkmelding_waarde <> v_kenmerk_waarde_cluster
|
|
THEN
|
|
BEGIN
|
|
UPDATE mld_kenmerkmelding
|
|
SET mld_kenmerkmelding_waarde = v_kenmerk_waarde_cluster
|
|
WHERE mld_kenmerkmelding_key = v_mld_kenmerkmelding_key;
|
|
END;
|
|
END IF;
|
|
|
|
END IF;
|
|
|
|
END blos_mld_after_insert;
|
|
/
|
|
|
|
---------------------------------------------------------------------------------------------------------------
|
|
--- Rapportage Views ---
|
|
---------------------------------------------------------------------------------------------------------------
|
|
|
|
-- BASIS - Alle gegevens van BLOS tav indeling Regio's, Cluster/Disticten met de leidinggevende en kostenplaatsen
|
|
CREATE OR REPLACE VIEW BLOS_V_ALG_ONROERENDGOED_BASIS
|
|
(
|
|
REGIO_NAAM,
|
|
REGIO_DIRECTEUR,
|
|
CLUSTER_NAAM,
|
|
REGIO_MANAGER,
|
|
LOCATIE,
|
|
LOCATIE_CODE,
|
|
LOCATIE_KEY,
|
|
GEBOUW,
|
|
-- gegevens uit locatiekaart
|
|
CLUSTERLABEL_OORSPRONKELIJK,
|
|
TYPE_OPVANG,
|
|
BIJZONDERHEDEN,
|
|
KOSTENPLAATS_1,
|
|
KOSTENPLAATS_2,
|
|
KOSTENPLAATS_3,
|
|
LOCATIEMANAGER,
|
|
LOCATIEMANAGER_2,
|
|
LOCATIEMANAGER_3,
|
|
LOCATIEMANAGER_4,
|
|
LOCATIE_VERVALDATUM,
|
|
LOCATIE_VERWIJDERDATUM,
|
|
LOCATIE_OUD
|
|
)
|
|
AS
|
|
SELECT r.alg_regio_omschrijving,
|
|
kmd.regiodirecteur,
|
|
d.alg_district_omschrijving,
|
|
kmd.regiomanager,
|
|
l.alg_locatie_omschrijving,
|
|
l.alg_locatie_code,
|
|
l.alg_locatie_key,
|
|
g.alg_gebouw_code || ' - ' || g.alg_gebouw_naam
|
|
gebouw,
|
|
km.cluster_label_oorspr,
|
|
km.type_opvang,
|
|
km.bijzonderheden,
|
|
km.kostenplaats_1,
|
|
km.kostenplaats_2,
|
|
km.kostenplaats_3,
|
|
CASE WHEN (SELECT count(*) FROM prs_perslid p WHERE p.prs_perslid_key = fac.safe_to_number(km.locatiemanager_key) AND p.prs_perslid_verwijder IS NOT NULL) = 1
|
|
THEN km.locatiemanager || ' - oud!'
|
|
ELSE km.locatiemanager
|
|
END
|
|
locatiemanager,
|
|
CASE WHEN (SELECT count(*) FROM prs_perslid p WHERE p.prs_perslid_key = fac.safe_to_number(km.locatiemanager_2_key) AND p.prs_perslid_verwijder IS NOT NULL) = 1
|
|
THEN km.locatiemanager_2 || ' - oud!'
|
|
ELSE km.locatiemanager_2
|
|
END
|
|
locatiemanager_2,
|
|
CASE WHEN (SELECT count(*) FROM prs_perslid p WHERE p.prs_perslid_key = fac.safe_to_number(km.locatiemanager_3_key) AND p.prs_perslid_verwijder IS NOT NULL) = 1
|
|
THEN km.locatiemanager_3 || ' - oud!'
|
|
ELSE km.locatiemanager_3
|
|
END
|
|
locatiemanager_3,
|
|
CASE WHEN (SELECT count(*) FROM prs_perslid p WHERE p.prs_perslid_key = fac.safe_to_number(km.locatiemanager_4_key) AND p.prs_perslid_verwijder IS NOT NULL) = 1
|
|
THEN km.locatiemanager_4 || ' - oud!'
|
|
ELSE km.locatiemanager_4
|
|
END
|
|
locatiemanager_4,
|
|
l.alg_locatie_vervaldatum,
|
|
l.alg_locatie_verwijder,
|
|
CASE WHEN l.alg_locatie_verwijder IS NULL AND (l.alg_locatie_vervaldatum IS NULL OR TRUNC(l.alg_locatie_vervaldatum) > TRUNC(SYSDATE))
|
|
THEN 'actueel'
|
|
ELSE 'oud'
|
|
END
|
|
locatie_oud
|
|
FROM alg_gebouw g,
|
|
alg_locatie l,
|
|
alg_district d,
|
|
alg_regio r,
|
|
(SELECT l.alg_locatie_key,
|
|
flx.getdomeinwaarde(1, flx.getflex('ALG',1000, l.alg_locatie_key,'L')) cluster_label_oorspr,
|
|
flx.getdomeinwaarde(2, flx.getflex('ALG',1002, l.alg_locatie_key,'L')) type_opvang,
|
|
flx.getflex('ALG',1020, l.alg_locatie_key,'L') bijzonderheden,
|
|
flx.getdomeinwaarde(221,flx.getflex('ALG',1140, l.alg_locatie_key,'L')) kostenplaats_1,
|
|
flx.getdomeinwaarde(221,flx.getflex('ALG',1141, l.alg_locatie_key,'L')) kostenplaats_2,
|
|
flx.getdomeinwaarde(221,flx.getflex('ALG',1142, l.alg_locatie_key,'L')) kostenplaats_3,
|
|
-- locatieverantwoordelijke
|
|
flx.getdomeinwaarde(181,flx.getflex('ALG', 1162, l.alg_locatie_key, 'L')) locatiemanager,
|
|
flx.getflex('ALG', 1162, l.alg_locatie_key, 'L') locatiemanager_key,
|
|
flx.getdomeinwaarde(181,flx.getflex('ALG', 1163, l.alg_locatie_key, 'L')) locatiemanager_2,
|
|
flx.getflex('ALG', 1163, l.alg_locatie_key, 'L') locatiemanager_2_key,
|
|
flx.getdomeinwaarde(181,flx.getflex('ALG', 1300, l.alg_locatie_key, 'L')) locatiemanager_3,
|
|
flx.getflex('ALG', 1300, l.alg_locatie_key, 'L') locatiemanager_3_key,
|
|
flx.getdomeinwaarde(181,flx.getflex('ALG', 1301, l.alg_locatie_key, 'L')) locatiemanager_4,
|
|
flx.getflex('ALG', 1301, l.alg_locatie_key, 'L') locatiemanager_4_key
|
|
FROM alg_locatie l ) km,
|
|
(SELECT d.alg_district_key,
|
|
-- regiomanager en regio-directeur
|
|
flx.getdomeinwaarde(183,flx.getflex('ALG', 1164, d.alg_district_key, 'D')) regiomanager,
|
|
flx.getdomeinwaarde(201,flx.getflex('ALG', 1181, d.alg_district_key, 'D')) regiodirecteur
|
|
FROM alg_district d ) kmd
|
|
WHERE g.alg_locatie_key = l.alg_locatie_key
|
|
AND l.alg_district_key = d.alg_district_key
|
|
AND d.alg_regio_key = r.alg_regio_key
|
|
AND d.alg_district_key = kmd.alg_district_key (+)
|
|
AND l.alg_locatie_key = km.alg_locatie_key (+)
|
|
ORDER BY r.alg_regio_omschrijving, d.alg_district_omschrijving, l.alg_locatie_code;
|
|
|
|
|
|
-- Rapportage Gebouwbeheer inclusief ruimte - TZT TOEPASSING ALS OOK GRAPHICS GOED DRAAIT
|
|
CREATE OR REPLACE VIEW BLOS_V_ALG_ONROERENDGOED
|
|
(
|
|
REGIO_NAAM,
|
|
REGIO_DIRECTEUR,
|
|
CLUSTER_NAAM,
|
|
REGIO_MANAGER,
|
|
LOCATIE,
|
|
LOCATIE_CODE,
|
|
LOCATIE_KEY,
|
|
GEBOUW,
|
|
-- gegevens uit locatiekaart
|
|
CLUSTERLABEL_OORSPRONKELIJK,
|
|
TYPE_OPVANG,
|
|
BIJZONDERHEDEN,
|
|
KOSTENPLAATS,
|
|
KOSTENPLAATS_1,
|
|
KOSTENPLAATS_2,
|
|
KOSTENPLAATS_3,
|
|
LOCATIEMANAGER,
|
|
LOCATIEMANAGER_VERVANGER,
|
|
--
|
|
VERDIEPING,
|
|
RUIMTENR,
|
|
RUIMTE_OMSCHRIJVING,
|
|
RUIMTEFUNCTIE,
|
|
BVO_M2,
|
|
VLOERSOORT,
|
|
--
|
|
LOCATIE_VERVALDATUM,
|
|
LOCATIE_OUD
|
|
)
|
|
AS
|
|
SELECT r.alg_regio_omschrijving,
|
|
kmd.regiodirecteur,
|
|
d.alg_district_omschrijving,
|
|
kmd.regiomanager,
|
|
l.alg_locatie_omschrijving,
|
|
l.alg_locatie_code,
|
|
l.alg_locatie_key,
|
|
v.alg_gebouw_code || ' - ' || v.alg_gebouw_naam
|
|
gebouw,
|
|
km.cluster_label_oorspr,
|
|
km.type_opvang,
|
|
km.bijzonderheden,
|
|
km.kostenplaats,
|
|
km.kostenplaats_1,
|
|
km.kostenplaats_2,
|
|
km.kostenplaats_3,
|
|
km.locatiemanager,
|
|
km.vervanger,
|
|
v.alg_verdieping_omschrijving || ' - ' || v.alg_verdieping_code
|
|
verdieping,
|
|
v.alg_ruimte_nr,
|
|
v.alg_ruimte_omschrijving,
|
|
sr.alg_srtruimte_omschrijving,
|
|
r.alg_ruimte_bruto_vloeropp,
|
|
flx.getdomeinwaarde(101, flx.getflex('ALG', 1080, r.alg_ruimte_key, 'R')) vloersoort,
|
|
l.alg_locatie_vervaldatum,
|
|
CASE WHEN l.alg_locatie_vervaldatum IS NULL OR TRUNC(l.alg_locatie_vervaldatum) > TRUNC(SYSDATE)
|
|
THEN 'actueel'
|
|
ELSE 'oud'
|
|
END
|
|
locatie_oud
|
|
FROM alg_v_onroerendgoed_gegevens v,
|
|
alg_locatie l,
|
|
alg_district d,
|
|
alg_regio r,
|
|
(SELECT l.alg_locatie_key,
|
|
flx.getdomeinwaarde(1, flx.getflex('ALG',1000, l.alg_locatie_key,'L')) cluster_label_oorspr,
|
|
flx.getdomeinwaarde(2, flx.getflex('ALG',1002, l.alg_locatie_key,'L')) type_opvang,
|
|
flx.getflex('ALG',1020, l.alg_locatie_key,'L') bijzonderheden,
|
|
flx.getflex('ALG',1001, l.alg_locatie_key,'L') kostenplaats,
|
|
flx.getdomeinwaarde(161,flx.getflex('ALG',1140, l.alg_locatie_key,'L')) kostenplaats_1,
|
|
flx.getdomeinwaarde(161,flx.getflex('ALG',1141, l.alg_locatie_key,'L')) kostenplaats_2,
|
|
flx.getdomeinwaarde(161,flx.getflex('ALG',1142, l.alg_locatie_key,'L')) kostenplaats_3,
|
|
-- locatieverantwoordelijke
|
|
flx.getdomeinwaarde(181,flx.getflex('ALG', 1162, l.alg_locatie_key, 'L')) locatiemanager,
|
|
flx.getdomeinwaarde(182,flx.getflex('ALG', 1163, l.alg_locatie_key, 'L')) vervanger
|
|
FROM alg_locatie l ) km,
|
|
(SELECT d.alg_district_key,
|
|
-- regiomanager en regio-directeur
|
|
flx.getdomeinwaarde(183,flx.getflex('ALG', 1164, d.alg_district_key, 'D')) regiomanager,
|
|
flx.getdomeinwaarde(201,flx.getflex('ALG', 1181, d.alg_district_key, 'D')) regiodirecteur
|
|
FROM alg_district d ) kmd,
|
|
alg_ruimte r,
|
|
alg_srtruimte sr
|
|
WHERE v.alg_locatie_key = l.alg_locatie_key
|
|
AND l.alg_district_key = d.alg_district_key
|
|
AND d.alg_regio_key = r.alg_regio_key
|
|
AND d.alg_district_key = kmd.alg_district_key (+)
|
|
AND v.alg_type IN ('R')
|
|
AND v.alg_locatie_key = km.alg_locatie_key (+)
|
|
AND v.alg_ruimte_key = r.alg_ruimte_key AND r.alg_ruimte_verwijder IS NULL
|
|
AND r.alg_srtruimte_key = sr.alg_srtruimte_key (+)
|
|
ORDER BY d.alg_district_omschrijving, l.alg_locatie_code, v.alg_gebouw_code, v.alg_ruimte_nr
|
|
;
|
|
|
|
CREATE OR REPLACE VIEW blos_v_rap_ruimteketen_check
|
|
AS
|
|
SELECT l.alg_locatie_code,
|
|
g.alg_gebouw_code||'-'||g.alg_gebouw_naam
|
|
alg_gebouw_omschrijving,
|
|
v.alg_verdieping_volgnr,
|
|
v.alg_verdieping_code,
|
|
v.alg_verdieping_omschrijving,
|
|
r.alg_ruimte_nr,
|
|
r.alg_ruimte_verwijder
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND ( v.alg_verdieping_volgnr <> 0
|
|
OR alg_verdieping_omschrijving <> 'Verdieping 0'
|
|
OR alg_ruimte_nr <> CHR (95))
|
|
AND l.alg_locatie_verwijder IS NULL
|
|
AND l.alg_locatie_vervaldatum IS NULL
|
|
AND v.alg_verdieping_verwijder IS NULL
|
|
AND r.alg_ruimte_verwijder IS NULL;
|
|
|
|
CREATE OR REPLACE VIEW blos_v_rap_locatie_labels
|
|
AS
|
|
SELECT cluster_label_code label_oorspronkelijk, COUNT (*) aantal_locaties
|
|
FROM blos_v_cluster_locaties
|
|
GROUP BY cluster_label_code;
|
|
|
|
CREATE OR REPLACE VIEW blos_v_rap_locatie_clusters
|
|
AS
|
|
SELECT cluster_district_code cluster_district, COUNT (*) aantal_locaties
|
|
FROM blos_v_cluster_locaties
|
|
GROUP BY cluster_district_code;
|
|
|
|
|
|
CREATE OR REPLACE VIEW blos_v_rap_opdrachten_intern
|
|
(
|
|
TYPE,
|
|
MLD_OPDR_KEY,
|
|
MLD_UITVOERENDE_KEY,
|
|
OPDRACHTNR,
|
|
OPDRACHT_DATUM,
|
|
STATUS,
|
|
MELDING,
|
|
BEHANDELAAR,
|
|
LOCATIE_PLAATS,
|
|
LOCATIE_OMSCHRIJVING,
|
|
GEPLANDE_AANVANG,
|
|
OPDRACHT_EINDDATUM,
|
|
OMSCHRIJVING,
|
|
PRS_PERSLID_KEY,
|
|
NAAM_UITVOERDER,
|
|
CLUSTER_BLOS,
|
|
CLUSTER_LABEL,
|
|
TYPE_LOCATIE,
|
|
UREN_BESTEED,
|
|
AFMELD_DATUM,
|
|
OPDRACHT_TYPE,
|
|
TD_NAAM,
|
|
PRIORITEIT
|
|
)
|
|
AS
|
|
SELECT CASE
|
|
WHEN mu.TYPE = 'B' THEN 'Poule-opdracht'
|
|
WHEN mu.TYPE = 'P' THEN 'Klus-opdracht'
|
|
ELSE '<?>'
|
|
END
|
|
TYPE,
|
|
o.mld_opdr_key,
|
|
CASE
|
|
WHEN mu.TYPE = 'B' THEN o.prs_perslid_key
|
|
WHEN mu.TYPE = 'P' THEN mu.mld_uitvoerende_key
|
|
ELSE NULL
|
|
END
|
|
mld_uitvoerende_key,
|
|
TO_CHAR (o.mld_melding_key)
|
|
|| '/'
|
|
|| o.mld_opdr_bedrijfopdr_volgnr
|
|
opdrachtnummer,
|
|
o.mld_opdr_datumbegin,
|
|
DECODE (
|
|
os.mld_statusopdr_key,
|
|
8, DECODE (o.mld_opdr_halted,
|
|
1, 'Onderbroken',
|
|
os.mld_statusopdr_omschrijving),
|
|
os.mld_statusopdr_omschrijving)
|
|
status,
|
|
std.mld_stdmelding_omschrijving,
|
|
COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>'), -- BEHANDELAAR
|
|
l.alg_locatie_plaats,
|
|
l.alg_locatie_omschrijving,
|
|
COALESCE(o.mld_opdr_plandatum, o.mld_opdr_einddatum)
|
|
geplande_aanvang,
|
|
o.mld_opdr_einddatum,
|
|
TRIM (
|
|
REGEXP_REPLACE (
|
|
REGEXP_SUBSTR (o.mld_opdr_omschrijving,
|
|
'(([^ ]*)( |$)*){10}'),
|
|
'[[:space:]]',
|
|
' '))
|
|
|| '...'
|
|
omschrijving,
|
|
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_Label
|
|
(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 = 2
|
|
AND k.alg_kenmerk_key = 1002), -- kenmerk Type KDV, BVO, et.
|
|
(SELECT ko.mld_kenmerkopdr_waarde
|
|
FROM mld_kenmerkopdr ko
|
|
WHERE ko.mld_opdr_key = o.mld_opdr_key
|
|
AND ko.mld_kenmerk_key = 25), -- kenmerk Uren_besteed
|
|
(SELECT MAX (ft.fac_tracking_datum)
|
|
FROM fac_tracking ft
|
|
WHERE ft.fac_tracking_refkey = o.mld_opdr_key
|
|
AND ft.fac_srtnotificatie_key = 74), -- MLDAFM
|
|
ot.mld_typeopdr_omschrijving,
|
|
CASE
|
|
WHEN mu.TYPE = 'B' THEN COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>')
|
|
WHEN mu.TYPE = 'P' THEN mu.naam
|
|
ELSE '<?>'
|
|
END TD_NAAM,
|
|
COALESCE(v.prioriteit,'3 - NORMAAL')
|
|
prioriteit
|
|
FROM mld_opdr o,
|
|
mld_melding m,
|
|
mld_typeopdr ot,
|
|
prs_v_perslid_fullnames p,
|
|
ins_tab_discipline d,
|
|
mld_stdmelding std,
|
|
alg_locatie l,
|
|
alg_district d,
|
|
mld_v_uitvoerende mu,
|
|
mld_statusopdr os,
|
|
(
|
|
SELECT ko.mld_opdr_key, ud.fac_usrdata_code || ' - ' || ud.fac_usrdata_omschr prioriteit
|
|
FROM mld_kenmerkopdr ko, fac_usrdata ud
|
|
WHERE fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key
|
|
AND fac_usrtab_key = 81 -- keuzelijst eigen tabel Prioriteit
|
|
AND ko.mld_kenmerk_key = 361 -- kenmerk Prioriteit
|
|
) v
|
|
WHERE o.mld_melding_key = m.mld_melding_key(+)
|
|
AND o.prs_perslid_key = p.prs_perslid_key(+)
|
|
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
|
|
AND ot.mld_typeopdr_isofferte = 0 -- Alleen werkopdrachten
|
|
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
|
|
AND o.mld_opdr_key = v.mld_opdr_key(+);
|
|
|
|
CREATE OR REPLACE VIEW blos_v_cal_opdrachten_intern
|
|
(
|
|
USER_KEY,
|
|
TITLE,
|
|
TOT,
|
|
VAN,
|
|
ITEM_KEY,
|
|
COLOR,
|
|
TEXTCOLOR,
|
|
TD_NAAM,
|
|
LOCATIE_PLAATS,
|
|
STATUS
|
|
)
|
|
AS
|
|
SELECT mld_uitvoerende_key,
|
|
td_naam || CHR(10) || type || ' - ' || opdrachtnr || CHR(10) || locatie_plaats || CHR(10) || 'Prio: ' || prioriteit,
|
|
opdracht_einddatum + 2/24
|
|
tot,
|
|
geplande_aanvang
|
|
van,
|
|
mld_opdr_key,
|
|
DECODE (status,
|
|
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
|
|
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
|
|
'Toegekend', DECODE (LOWER(prioriteit),
|
|
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
|
|
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
|
|
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
|
|
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
|
|
'#0000FF'),
|
|
'Geaccepteerd', '#008000') color, -- Geaccepteerd groen
|
|
DECODE (status,
|
|
'Afgewezen', '#FFFFFF', -- Afgewezen
|
|
'Toegekend', '#FFFFFF', -- Toegekend
|
|
'Afgemeld', '#000000', -- Afgemeld
|
|
'Geaccepteerd', '#FFFFFF') textcolor, -- Geaccepteerd
|
|
td_naam,
|
|
locatie_plaats,
|
|
status
|
|
FROM blos_v_rap_opdrachten_intern ;
|
|
|
|
CREATE OR REPLACE VIEW BLOS_V_CAL_OPDRACHTEN_BO
|
|
(
|
|
USER_KEY,
|
|
TITLE,
|
|
TOT,
|
|
VAN,
|
|
ITEM_KEY,
|
|
COLOR,
|
|
TEXTCOLOR,
|
|
TD_NAAM,
|
|
LOCATIE_PLAATS,
|
|
STATUS
|
|
)
|
|
AS
|
|
SELECT mld_uitvoerende_key,
|
|
td_naam
|
|
|| CHR (10)
|
|
|| TYPE
|
|
|| ' - '
|
|
|| opdrachtnr
|
|
|| CHR (10)
|
|
|| locatie_plaats
|
|
|| CHR (10)
|
|
|| 'Prio: '
|
|
|| prioriteit,
|
|
opdracht_einddatum + 2/24
|
|
tot,
|
|
geplande_aanvang
|
|
van,
|
|
mld_opdr_key,
|
|
DECODE (
|
|
status,
|
|
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
|
|
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
|
|
'Toegekend', DECODE (LOWER (prioriteit),
|
|
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
|
|
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
|
|
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
|
|
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
|
|
'#0000FF'),
|
|
'Geaccepteerd', '#008000')
|
|
color, -- Geaccepteerd groen
|
|
DECODE (status,
|
|
'Afgewezen', '#FFFFFF', -- Afgewezen
|
|
'Toegekend', '#FFFFFF', -- Toegekend
|
|
'Afgemeld', '#000000', -- Afgemeld
|
|
'Geaccepteerd', '#FFFFFF')
|
|
textcolor, -- Geaccepteerd,
|
|
td_naam,
|
|
locatie_plaats,
|
|
status
|
|
FROM blos_v_rap_opdrachten_intern ;
|
|
|
|
|
|
-- Notificactiejob voor BLOS vanuit Opdrachten Notities met bepaalde notitie-classificatie voor servicedesk...
|
|
-- Flag = 16 (en geen +1 xemail, xmobile)
|
|
CREATE OR REPLACE VIEW BLOS_V_NOTI_SERVICEDESK_ORD -- ORD = Orders/Opdrachten
|
|
(
|
|
SENDER,
|
|
RECEIVER,
|
|
TEXT,
|
|
CODE,
|
|
FAC_SRTNOTIFICATIE_KEY,
|
|
KEY,
|
|
XKEY
|
|
-- XEMAIL,
|
|
-- XMOBILE
|
|
)
|
|
AS
|
|
SELECT (SELECT prs_perslid_key
|
|
FROM prs_perslid
|
|
WHERE prs_perslid_upper = 'FACILITOR')
|
|
sender,
|
|
241 -- prs_perslid van persoon Facilitairbeheer Onderhoud met juiste emailadres facilitairbeheer@blos.nl
|
|
receiver,
|
|
'Opdrachtnotitie bij ' || TO_CHAR(o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) ||
|
|
' van ' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam
|
|
text,
|
|
'CUST02'
|
|
code,
|
|
(SELECT fac_srtnotificatie_key
|
|
FROM fac_srtnotificatie
|
|
WHERE fac_srtnotificatie_code = 'CUST02')
|
|
fac_srtnotificatie_key,
|
|
o.mld_opdr_key
|
|
key,
|
|
n.mld_opdr_note_key
|
|
xkey
|
|
FROM mld_melding m,
|
|
mld_opdr o,
|
|
mld_opdr_note n,
|
|
prs_perslid p,
|
|
fac_note_group ng
|
|
WHERE o.mld_opdr_key = n.mld_opdr_key
|
|
AND m.mld_melding_key = o.mld_melding_key
|
|
AND n.prs_perslid_key = p.prs_perslid_key
|
|
AND n.fac_note_group_key = ng.fac_note_group_key
|
|
AND ng.fac_note_group_key = 1 -- 'Notitie voor Facilitair'
|
|
AND n.prs_perslid_key NOT IN
|
|
(SELECT gg.prs_perslid_key
|
|
FROM fac_gebruikersgroep gg, fac_groep g
|
|
WHERE gg.fac_groep_key = g.fac_groep_key
|
|
AND g.fac_groep_key = 21) -- Servicedesk - Operationeel
|
|
AND n.mld_opdr_note_aanmaak >=
|
|
COALESCE (
|
|
( SELECT MAX (ft.fac_tracking_datum)
|
|
FROM fac_tracking ft, fac_srtnotificatie sn
|
|
WHERE ft.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
|
|
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
|
|
AND sn.fac_srtnotificatie_code = 'CUST02'),
|
|
SYSDATE - (SELECT COALESCE (fac_notificatie_job_interval, 1) / 24
|
|
FROM fac_notificatie_job
|
|
WHERE fac_notificatie_job_view = 'BLOS_V_NOTI_SERVICEDESK_ORD' )
|
|
) ;
|
|
|
|
---------------------------------------------------------------------------------------------------------------
|
|
--- Facilitor Dashboards ---
|
|
---------------------------------------------------------------------------------------------------------------
|
|
|
|
CREATE OR REPLACE VIEW blos_v_udr_melding
|
|
(
|
|
melding_key,
|
|
meldingnummer,
|
|
melding_start_key,
|
|
externnummer,
|
|
melding_regio,
|
|
melding_district,
|
|
melding_locatiecode,
|
|
melding_locatie,
|
|
melding_locatieplaats,
|
|
fclt_3d_locatie_key,
|
|
gebouw_key,
|
|
melding_gebouwcode,
|
|
melding_gebouw,
|
|
melding_verdieping,
|
|
melding_ruimtenr,
|
|
melding_ruimte,
|
|
melding_ordernr,
|
|
kostensoortgroep,
|
|
kostensoort,
|
|
kostenplaats,
|
|
kostenplaats_oms,
|
|
melder,
|
|
melder_key,
|
|
melder_email,
|
|
afdeling,
|
|
afdeling_omschrijving,
|
|
fclt_3d_afdeling_key,
|
|
divisie,
|
|
divisie_omschrijving,
|
|
fclt_3d_divisie_key,
|
|
bedrijf_key,
|
|
invoerder,
|
|
meldbron,
|
|
accepteerder,
|
|
afmelder,
|
|
soortmelding,
|
|
fclt_3d_discipline_key,
|
|
productgroep,
|
|
subproductgroep,
|
|
behandelgroep,
|
|
behandelaar,
|
|
behandelaar_key,
|
|
subproductgroepgroep,
|
|
fclt_3d_discipline2_key,
|
|
actieve_behandelgroep,
|
|
actieve_behandelaar_key,
|
|
actieve_behandelaar,
|
|
melding_status,
|
|
sla_nvt,
|
|
sla_werkdgn,
|
|
sla_werkuren,
|
|
sla_respijtdgn,
|
|
sla_respijturen,
|
|
sla_accptdgn,
|
|
sla_accpturen,
|
|
plan_uitvoertijd_sla,
|
|
melding_datum,
|
|
melding_einddatum,
|
|
melding_einddatum_std,
|
|
melding_acceptdatum,
|
|
melding_afgemeld,
|
|
melding_accepted,
|
|
doorlooptijd_werkdgn,
|
|
doorlooptijd_werkuren,
|
|
onderwerp,
|
|
vomschrijving,
|
|
melding_opmerking,
|
|
prioriteit,
|
|
prioriteittxt,
|
|
rating,
|
|
rating_opmerking,
|
|
bolletje,
|
|
actiecode,
|
|
accept_sla_dagen,
|
|
accept_sla_uren,
|
|
uitvoering_sla_dagen,
|
|
uitvoering_sla_uren,
|
|
afspraak_sla_dagen,
|
|
afspraak_sla_uren,
|
|
accept_sla_optijd,
|
|
uitvoering_sla_optijd,
|
|
afspraak_sla_optijd,
|
|
selfservice
|
|
)
|
|
AS
|
|
SELECT mld_melding_key,
|
|
meldingnummer,
|
|
mld_melding_start_key,
|
|
mld_melding_externnr,
|
|
alg_regio_omschrijving,
|
|
alg_district_omschrijving,
|
|
locatie,
|
|
locatie_omschrijving,
|
|
locatie_plaats,
|
|
alg_locatie_key,
|
|
alg_gebouw_key,
|
|
gebouw,
|
|
gebouw_naam,
|
|
verdieping,
|
|
ruimte,
|
|
ruimte_omschrijving,
|
|
melding_ordernr,
|
|
kostensoortgroep,
|
|
kostensoort,
|
|
kostenplaats,
|
|
kostenplaats_oms,
|
|
melder,
|
|
prs_perslid_key,
|
|
prs_perslid_email,
|
|
afdeling,
|
|
afdeling_omschrijving,
|
|
afdeling_key,
|
|
divisie,
|
|
divisie_omschrijving,
|
|
divisie_key,
|
|
prs_bedrijf_key,
|
|
invoerder,
|
|
meldbron,
|
|
accepteerder,
|
|
afmelder,
|
|
soortmelding,
|
|
stdm_ins_discipline_key,
|
|
productgroep,
|
|
subproductgroep,
|
|
behandelgroep,
|
|
behandelaar,
|
|
behandelaar_key,
|
|
subproductgroepgroep,
|
|
mld_ins_discipline_key,
|
|
actieve_behandelgroep,
|
|
actieve_behandelaar_key,
|
|
actieve_behandelaar,
|
|
status,
|
|
sla_nvt,
|
|
sla_werkdgn,
|
|
sla_werkuren,
|
|
sla_respijtdgn,
|
|
sla_respijturen,
|
|
DECODE(x.sla_accpt.eenheid, 'D', x.sla_accpt.tijdsduur, NULL) sla_accptdgn,
|
|
DECODE(x.sla_accpt.eenheid, 'U', x.sla_accpt.tijdsduur, NULL) sla_accpturen,
|
|
plan_uitvoertijd_sla,
|
|
datum,
|
|
einddatum,
|
|
einddatum_std,
|
|
acceptdatum,
|
|
afgemeld,
|
|
accepted,
|
|
DECODE (x.t_doorlooptijd.eenheid, 'D', x.t_doorlooptijd.tijdsduur, NULL)
|
|
doorlooptijd_werkdgn,
|
|
DECODE (x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL)
|
|
doorlooptijd_werkuren,
|
|
onderwerp,
|
|
omschrijving,
|
|
opmerking,
|
|
mld_melding_spoed prioriteit,
|
|
DECODE(mld_melding_spoed,3,lcl.l('lcl_mld_urg_normaal'),1,lcl.l('lcl_mld_urg_kritiek'),2,lcl.l('lcl_mld_urg_hoog'),4,lcl.l('lcl_mld_urg_laag')),
|
|
mld_melding_satisfaction,
|
|
mld_melding_satisfaction_op,
|
|
mld_melding_flag,
|
|
mld_melding_actiecode,
|
|
DECODE (x.sla_accpt.eenheid, 'D', acceptdatum - COALESCE (accepted, afgemeld, SYSDATE), NULL)
|
|
accept_sla_dagen,
|
|
CAST (
|
|
DECODE (x.sla_accpt.eenheid,
|
|
'U', (acceptdatum - COALESCE (accepted, afgemeld, SYSDATE)) * 24,
|
|
NULL)
|
|
AS NUMBER(7,2)
|
|
)
|
|
accept_sla_uren,
|
|
DECODE (
|
|
x.t_doorlooptijd.eenheid,
|
|
'D',
|
|
mld.geteinddatum (mld_melding_key)
|
|
- COALESCE (afgemeld, SYSDATE)
|
|
+ COALESCE (sla_respijtdgn, 0),
|
|
NULL)
|
|
uitvoering_sla_dagen,
|
|
CAST (
|
|
DECODE (
|
|
x.t_doorlooptijd.eenheid,
|
|
'U',
|
|
( (mld.geteinddatum (mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
|
|
+ COALESCE (sla_respijturen, 0),
|
|
NULL)
|
|
AS NUMBER(7,2)
|
|
)
|
|
uitvoering_sla_uren,
|
|
DECODE ( x.t_doorlooptijd.eenheid
|
|
, 'D', einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0)
|
|
, NULL
|
|
) afspraak_sla_dagen,
|
|
CAST ( DECODE ( x.t_doorlooptijd.eenheid
|
|
, 'U', ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24) + COALESCE (sla_respijtdgn, 0)
|
|
, NULL
|
|
) AS NUMBER(7,2)
|
|
) afspraak_sla_uren,
|
|
CASE
|
|
WHEN acceptdatum IS NULL
|
|
OR -- Dan is er geen acceptatietijd gedefinieerd en dus altijd op tijd.
|
|
DECODE (x.sla_accpt.eenheid,
|
|
'D', acceptdatum - COALESCE (accepted, afgemeld, SYSDATE),
|
|
0)
|
|
+ DECODE (x.sla_accpt.eenheid,
|
|
'U', (acceptdatum - COALESCE (accepted, afgemeld, SYSDATE)) * 24,
|
|
0) >= 0
|
|
THEN
|
|
lcl.l ('lcl_yes')
|
|
ELSE
|
|
lcl.l ('lcl_no')
|
|
END
|
|
accept_sla_optijd,
|
|
CASE
|
|
WHEN DECODE (
|
|
x.t_doorlooptijd.eenheid,
|
|
'D',
|
|
mld.geteinddatum (mld_melding_key)
|
|
- COALESCE (afgemeld, SYSDATE)
|
|
+ COALESCE (sla_respijtdgn, 0),
|
|
0)
|
|
+ DECODE (
|
|
x.t_doorlooptijd.eenheid,
|
|
'U',
|
|
( (mld.geteinddatum(mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
|
|
+ COALESCE (sla_respijturen, 0),
|
|
0) >= 0
|
|
THEN
|
|
lcl.l ('lcl_yes')
|
|
ELSE
|
|
lcl.l ('lcl_no')
|
|
END
|
|
uitvoering_sla_optijd,
|
|
CASE
|
|
WHEN DECODE (x.t_doorlooptijd.eenheid,
|
|
'D',
|
|
einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
|
|
0)
|
|
+ DECODE (
|
|
x.t_doorlooptijd.eenheid,
|
|
'U',
|
|
( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24)
|
|
+ COALESCE (sla_respijtdgn, 0),
|
|
0) >= 0
|
|
THEN
|
|
lcl.l ('lcl_yes')
|
|
ELSE
|
|
lcl.l ('lcl_no')
|
|
END
|
|
afspraak_sla_optijd,
|
|
DECODE(invoerder, melder, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) selfservice
|
|
FROM (SELECT m.mld_melding_key,
|
|
m.mld_melding_start_key,
|
|
m.mld_melding_externnr,
|
|
m.prs_perslid_key,
|
|
mab.prs_perslid_email,
|
|
sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
|
|
alg_regio_omschrijving,
|
|
alg_district_omschrijving,
|
|
alg_locatie_code locatie,
|
|
alg_locatie_omschrijving locatie_omschrijving,
|
|
alg_locatie_plaats locatie_plaats,
|
|
l.alg_locatie_key,
|
|
COALESCE(og.alg_gebouw_code, og.alg_terreinsector_code) gebouw,
|
|
COALESCE(og.alg_gebouw_naam, og.alg_terreinsector_naam) gebouw_naam,
|
|
og.alg_verdieping_code verdieping,
|
|
og.alg_gebouw_key,
|
|
og.alg_ruimte_nr ruimte,
|
|
og.alg_ruimte_omschrijving ruimte_omschrijving,
|
|
m.mld_melding_ordernr melding_ordernr,
|
|
(SELECT ksg.prs_kostensoortgrp_oms
|
|
FROM prs_kostensoortgrp ksg, prs_kostensoort ks
|
|
WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
|
|
AND ks.prs_kostensoort_key =
|
|
(SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
|
|
FROM mld_stdmelding sm, mld_discipline disc
|
|
WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
|
|
AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
|
|
kostensoortgroep,
|
|
(SELECT ks.prs_kostensoort_oms
|
|
FROM prs_kostensoort ks
|
|
WHERE ks.prs_kostensoort_key =
|
|
(SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
|
|
FROM mld_stdmelding sm, mld_discipline disc
|
|
WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
|
|
AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
|
|
kostensoort,
|
|
(SELECT k.prs_kostenplaats_nr
|
|
FROM prs_kostenplaats k
|
|
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
|
|
kostenplaats,
|
|
(SELECT k.prs_kostenplaats_omschrijving
|
|
FROM prs_kostenplaats k
|
|
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
|
|
kostenplaats_oms,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = m.prs_perslid_key)
|
|
melder,
|
|
mab.afdeling_naam afdeling,
|
|
mab.afdeling_omschrijving afdeling_omschrijving,
|
|
mab.prs_afdeling_key afdeling_key,
|
|
mab.divisie_naam divisie,
|
|
mab.divisie_omschrijving,
|
|
mab.prs_afdeling_key1 divisie_key,
|
|
mab.prs_bedrijf_key,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = mld.getmeldinguser (m.mld_melding_key))
|
|
invoerder,
|
|
(SELECT mb.mld_meldbron_omschrijving
|
|
FROM mld_meldbron mb
|
|
WHERE mb.mld_meldbron_key = m.mld_meldbron_key)
|
|
meldbron,
|
|
m.mld_meldbron_key,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = fac.gettrackinguserkey('MLDACP', m.mld_melding_key))
|
|
accepteerder,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = fac.gettrackinguserkey('MLDAFM', m.mld_melding_key))
|
|
afmelder,
|
|
sd.ins_srtdiscipline_key ins_srtdiscipline_key,
|
|
sd.ins_srtdiscipline_omschrijving soortmelding,
|
|
md.ins_discipline_key stdm_ins_discipline_key,
|
|
md.ins_discipline_omschrijving productgroep,
|
|
s.mld_stdmelding_omschrijving subproductgroep,
|
|
smg.mld_stdmeldinggroep_naam subproductgroepgroep,
|
|
mbg.mld_behandelgroep_naam behandelgroep,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = m.mld_melding_behandelaar_key)
|
|
behandelaar,
|
|
m.mld_melding_behandelaar_key behandelaar_key,
|
|
m.mld_ins_discipline_key mld_ins_discipline_key,
|
|
(SELECT md2.ins_discipline_omschrijving
|
|
FROM mld_discipline md2
|
|
WHERE md2.ins_discipline_key = m.mld_ins_discipline_key) actieve_behandelgroep,
|
|
m.mld_melding_behandelaar2_key actieve_behandelaar_key,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = m.mld_melding_behandelaar2_key)
|
|
actieve_behandelaar,
|
|
(SELECT mld_statuses_omschrijving
|
|
FROM mld_statuses sta
|
|
WHERE sta.mld_statuses_key = m.mld_melding_status)
|
|
status,
|
|
CASE
|
|
WHEN m.mld_melding_einddatum >
|
|
COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
|
|
fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
|
SYSDATE)
|
|
THEN
|
|
1
|
|
ELSE
|
|
0
|
|
END
|
|
plan_uitvoertijd_sla,
|
|
CASE
|
|
WHEN m.mld_melding_indult = 1 OR s.mld_stdmelding_slabewaken = 0 THEN 1
|
|
ELSE 0
|
|
END
|
|
sla_nvt,
|
|
DECODE (m.mld_melding_t_uitvoertijd.eenheid,
|
|
'D', m.mld_melding_t_uitvoertijd.tijdsduur,
|
|
NULL)
|
|
sla_werkdgn,
|
|
DECODE (m.mld_melding_t_uitvoertijd.eenheid,
|
|
'U', m.mld_melding_t_uitvoertijd.tijdsduur,
|
|
NULL)
|
|
sla_werkuren,
|
|
DECODE (m.mld_melding_t_respijt.eenheid,
|
|
'D', m.mld_melding_t_respijt.tijdsduur,
|
|
NULL)
|
|
sla_respijtdgn,
|
|
DECODE (m.mld_melding_t_respijt.eenheid,
|
|
'U', m.mld_melding_t_respijt.tijdsduur,
|
|
NULL)
|
|
sla_respijturen,
|
|
CASE WHEN m.mld_melding_spoed = 3 THEN s.mld_stdmelding_t_accepttijd
|
|
WHEN m.mld_melding_spoed = 1 then s.mld_stdmelding_t_accept_pr1
|
|
WHEN m.mld_melding_spoed = 1 then s.mld_stdmelding_t_accept_pr2
|
|
WHEN m.mld_melding_spoed = 1 then s.mld_stdmelding_t_accept_pr4
|
|
END sla_accpt,
|
|
m.mld_melding_datum datum,
|
|
CASE WHEN s.mld_stdmelding_planbaar = 2
|
|
THEN TO_DATE(NULL)
|
|
ELSE m.mld_melding_einddatum
|
|
END einddatum,
|
|
mld_melding_einddatum_std einddatum_std,
|
|
mld_melding_acceptdatum_std acceptdatum,
|
|
COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5),
|
|
mld.getmeldingstatusdate (m.mld_melding_key, 1))
|
|
afgemeld,
|
|
COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 4),
|
|
mld.getmeldingstatusdate (m.mld_melding_key, 1))
|
|
accepted,
|
|
mld.getactualuitvoer (m.mld_melding_key) t_doorlooptijd,
|
|
m.mld_melding_onderwerp onderwerp,
|
|
m.mld_melding_omschrijving omschrijving,
|
|
m.mld_melding_opmerking opmerking,
|
|
m.mld_melding_spoed,
|
|
m.mld_melding_satisfaction,
|
|
m.mld_melding_satisfaction_op,
|
|
m.mld_melding_flag,
|
|
mld_melding_actiecode
|
|
FROM mld_melding m,
|
|
mld_stdmelding s,
|
|
alg_locatie l,
|
|
alg_district d,
|
|
alg_regio r,
|
|
alg_v_allonrgoed_gegevens og,
|
|
mld_discipline md,
|
|
mld_disc_params mdp,
|
|
mld_behandelgroep mbg,
|
|
ins_srtdiscipline sd,
|
|
mld_stdmeldinggroep smg,
|
|
(SELECT mx.mld_melding_key
|
|
, div.prs_bedrijf_key
|
|
, ab.prs_afdeling_key1
|
|
, div.prs_afdeling_naam divisie_naam
|
|
, div.prs_afdeling_omschrijving divisie_omschrijving
|
|
, ab.prs_afdeling_key
|
|
, afd.prs_afdeling_naam afdeling_naam
|
|
, afd.prs_afdeling_omschrijving afdeling_omschrijving
|
|
, px.prs_perslid_key
|
|
, px.prs_perslid_email
|
|
FROM mld_melding mx
|
|
, prs_perslid px
|
|
, prs_v_afdeling_boom ab
|
|
, prs_afdeling afd
|
|
, prs_afdeling div
|
|
WHERE px.prs_perslid_key = mx.prs_perslid_key
|
|
AND ab.prs_afdeling_key = coalesce(mx.prs_afdeling_key, px.prs_afdeling_key)
|
|
AND ab.prs_afdeling_key = afd.prs_afdeling_key
|
|
AND ab.prs_afdeling_key1 = div.prs_afdeling_key
|
|
) mab
|
|
WHERE s.mld_stdmelding_key = m.mld_stdmelding_key
|
|
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
|
|
AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
|
|
AND md.ins_discipline_key = s.mld_ins_discipline_key
|
|
AND md.ins_discipline_key = mdp.mld_ins_discipline_key
|
|
AND s.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
|
|
AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
|
|
AND l.alg_district_key = d.alg_district_key(+)
|
|
AND d.alg_regio_key = r.alg_regio_key(+)
|
|
AND m.mld_melding_key = mab.mld_melding_key
|
|
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
|
|
AND m.fac_activiteit_key IS NULL
|
|
AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
|
|
|
|
-- totaalview - udr aangevuld om db (dashboard) naar wens mee gevuld te krijgen
|
|
CREATE OR REPLACE VIEW blos_v_melding_db
|
|
AS
|
|
SELECT y.*,
|
|
d.alg_district_key, -- tbv doorklikacties..
|
|
r.alg_regio_key, -- tbv doorklikacties..
|
|
ms.melding_status_2, -- is inclusief status 'niet opgelost'
|
|
ROUND((COALESCE(y.melding_accepted, SYSDATE) - y.melding_datum),2) uitzettijd_dgn, -- tijd tot accepteren melding
|
|
CASE WHEN y.melding_afgemeld IS NOT NULL AND y.melding_accepted IS NULL -- melding direct afgemeld, geen acceptatie gedaan
|
|
THEN ROUND(y.melding_afgemeld - y.melding_datum,2)
|
|
ELSE ROUND(COALESCE(y.melding_afgemeld, SYSDATE) - COALESCE(y.melding_accepted, SYSDATE),2)
|
|
END
|
|
doorlooptijd_opgepakt_dgn, -- tijd van geaccepteerd tot aan afgemeld
|
|
CASE WHEN y.accept_sla_optijd = 'ja' THEN 1 ELSE 0 END
|
|
accept_sla_optijd_N,
|
|
CASE WHEN y.uitvoering_sla_optijd = 'ja' THEN 1 ELSE 0 END
|
|
uitvoering_sla_optijd_N,
|
|
CASE WHEN y.afspraak_sla_optijd = 'ja' THEN 1 ELSE 0 END
|
|
afspraak_sla_optijd_N,
|
|
CASE WHEN y.melding_einddatum = y.melding_einddatum_std THEN 0 ELSE 1 END
|
|
mld_einddatum_aangepast_N,
|
|
(SELECT m.mld_melding_t_accepttijd.eenheid FROM mld_melding m WHERE m.mld_melding_key = y.melding_key)
|
|
melding_accpt_eenheid,
|
|
(SELECT m.mld_melding_t_uitvoertijd.eenheid FROM mld_melding m WHERE m.mld_melding_key = y.melding_key)
|
|
melding_werk_eenheid,
|
|
CASE WHEN LOWER(ms.melding_status_2) IN ('nieuw') THEN 1 ELSE 0 END
|
|
aantal_mld_nieuw,
|
|
CASE WHEN LOWER(ms.melding_status_2) IN ('niet opgelost') THEN 1 ELSE 0 END
|
|
aantal_mld_niet_opgelost,
|
|
CASE WHEN LOWER(ms.melding_status_2) IN ('in behandeling', 'uitgegeven') THEN 1 ELSE 0 END
|
|
aantal_mld_in_behandeling,
|
|
CASE WHEN LOWER(ms.melding_status_2) IN ('afgemeld', 'afgewezen') THEN 1 ELSE 0 END
|
|
aantal_mld_afgehandeld,
|
|
CASE WHEN y.prioriteit = 1 THEN 1 ELSE 0 END
|
|
prio_kritiek,
|
|
CASE WHEN y.prioriteit = 2 THEN 1 ELSE 0 END
|
|
prio_hoog,
|
|
CASE WHEN y.prioriteit = 3 THEN 1 ELSE 0 END
|
|
prio_normaal,
|
|
CASE WHEN y.prioriteit = 4 THEN 1 ELSE 0 END
|
|
prio_laag
|
|
FROM blos_v_udr_melding y,
|
|
alg_locatie l,
|
|
alg_district d,
|
|
alg_regio r,
|
|
(SELECT m.mld_melding_key,
|
|
CASE WHEN COALESCE(opdr.aantal,0)>0 and COALESCE(opdr_open.aantal, 0) = 0 and m.mld_melding_status = 4 THEN 'Niet opgelost' ELSE v.mld_statuses_omschrijving END
|
|
melding_status_2,
|
|
opdr.aantal,
|
|
opdr_open.aantal
|
|
FROM mld_melding m, mld_statuses v,
|
|
(SELECT mld_melding_key, COUNT ( * ) aantal
|
|
FROM mld_opdr
|
|
WHERE mld_statusopdr_key NOT IN (1, 2, 6, 7, 9)
|
|
GROUP BY mld_melding_key
|
|
) opdr_open,
|
|
(SELECT mld_melding_key, COUNT ( * ) aantal
|
|
FROM mld_opdr
|
|
GROUP BY mld_melding_key
|
|
) opdr
|
|
WHERE m.mld_melding_key = opdr.mld_melding_key (+)
|
|
AND m.mld_melding_key = opdr_open.mld_melding_key (+)
|
|
AND m.mld_melding_status = v.mld_statuses_key
|
|
) ms
|
|
WHERE y.melding_key = ms.mld_melding_key
|
|
AND y.fclt_3d_locatie_key = l.alg_locatie_key AND l.alg_district_key = d.alg_district_key AND d.alg_regio_key = r.alg_regio_key;
|
|
|
|
---------------------------------------------------------------------------------------------------------------
|
|
--- Facilitor Graphics / CAD ---
|
|
---------------------------------------------------------------------------------------------------------------
|
|
|
|
CREATE OR REPLACE VIEW blos_v_thema_set_res_wp
|
|
AS
|
|
SELECT ins_deel_key, DECODE (rd.res_deel_key, NULL, 0, 1) waarde
|
|
FROM ins_deel d,
|
|
(SELECT *
|
|
FROM res_deel
|
|
WHERE res_deel_verwijder IS NULL) rd
|
|
WHERE d.ins_deel_key = rd.res_ins_deel_key(+);
|
|
|
|
CREATE OR REPLACE VIEW blos_v_thema_vloersoort
|
|
(
|
|
ALG_RUIMTE_KEY,
|
|
WAARDE,
|
|
WAARDE_KEY
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_key,
|
|
COALESCE (va.fac_usrdata_omschr, 'Onbekend'),
|
|
va.fac_usrdata_key
|
|
FROM alg_ruimte r,
|
|
(SELECT rr.alg_ruimte_key,
|
|
ud.fac_usrdata_omschr,
|
|
ud.fac_usrdata_key
|
|
FROM alg_onrgoedkenmerk ok,
|
|
fac_usrdata ud,
|
|
fac_kenmerkdomein rk,
|
|
alg_kenmerk k,
|
|
alg_v_aanwezigruimte rr
|
|
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
|
|
AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
|
|
AND TO_CHAR (ud.fac_usrdata_key) =
|
|
ok.alg_onrgoedkenmerk_waarde
|
|
AND ok.alg_kenmerk_key = 1080
|
|
AND k.alg_kenmerk_niveau = 'R'
|
|
AND k.alg_kenmerk_verwijder IS NULL
|
|
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
|
|
WHERE r.alg_ruimte_key = va.alg_ruimte_key(+);
|
|
|
|
|
|
---------------------------------------------------------------------------------------------------------------
|
|
--- Periodieke procedures die afgetrapt worden binnen BLOS ---
|
|
---------------------------------------------------------------------------------------------------------------
|
|
|
|
-- script om dagelijks terugkerende scripts aan te roepen.
|
|
CREATE OR REPLACE PROCEDURE blos_select_daily_task (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
|
|
AS
|
|
BEGIN
|
|
-- job om de werkplekkoppelingen te realiseren en onderhouden voor de locatiemanagers en regio/directeuren
|
|
|
|
-- IN 2023-OKT MOET DEZE AAN
|
|
blos_select_wp_loc_manager ('WP_LOC_MANAGER', SYSDATE);
|
|
blos_select_wp_loc_regioman ('WP_LOC_REGIOMAN', SYSDATE);
|
|
|
|
-- job om de projectmeldingen te vullen met kosten per PR-hoofdcategorie
|
|
blos_select_pr_kosten ('PR_KOSTEN', SYSDATE);
|
|
|
|
END;
|
|
/
|
|
|
|
/* TZT nog aanpassen naar onderstaande
|
|
CREATE OR REPLACE PROCEDURE blos_daily
|
|
AS
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
BEGIN
|
|
|
|
blos_select_wpcluster ('WP_CLUSTER', SYSDATE);
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
|
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
|
|
END blos_daily;
|
|
/
|
|
*/
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|