admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
1ffa3611cc33376621835032e41e71766b5a50c2
Customer/ARBO/arbo.sql
Arthur Egberink 1ffa3611cc ARBO#65778 -- Nieuwe organisatiestructuur 
svn path=/Customer/trunk/; revision=52113
2021-06-28 09:24:55 +00:00

2029 lines
90 KiB
MySQL
Raw Blame History

--
-- $Id$
--
-- Script containing customer specific db-configuration for ARBO.
DEFINE thisfile = 'ARBO.SQL'
DEFINE dbuser = '^ARBO'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE VIEW arbo_v_rap_import_log
AS
SELECT imp_log_status fclt_f_status,
imp_log_omschrijving omschrijving,
imp_log_hint opmerking
FROM imp_log l;
CREATE OR REPLACE PROCEDURE arbo_import_perslid (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR (255);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
v_errorhint VARCHAR2 (200);
BEGIN
v_seq_of_columns := '0;0;0;0;0;0;10;14;0;13;'
-- v_alg_locatie_code 1
-- v_alg_gebouw_code 2
-- v_alg_verdieping_volgnr 3
-- v_alg_ruimte_nr 4
-- v_prs_werkplek_volgnr 5
-- v_prs_werkplek_omschrijving 6
-- v_prs_afdeling_naam 7
-- v_prs_perslid_naam 8
-- v_prs_perslid_tussenvoegsel 9
-- v_prs_perslid_voornaam 10
|| '0;0;0;0;0;0;0;16;0;1;'
-- v_prs_perslid_voorletters 11
-- v_prs_perslid_partner_naam 12
-- v_prs_perslid_partner_tussenv 13
-- v_prs_naamgebruik_code 14 0 (default) perslid_naam en perslid_tussenvoegsel worden gebruikt
-- 1 personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
-- 2 personen die de geboortenaam van de partner willen gebruiken
-- 3 personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
-- v_prs_perslid_geslacht 15 Gebruik 'man', 'm' of 1 voor man en 'vrouw', 'v' of 0 voor vrouw case insensitive geen default
-- v_prs_perslid_telefoonnr 16
-- v_prs_perslid_mobiel 17
-- v_prs_perslid_email 18
-- v_prs_perslid_dienstverband 19
-- v_prs_perslid_nr 20
|| '15;1;0;0;0;0;2;3;14;4;'
-- v_prs_srtperslid_omschrijving 21
-- v_prs_perslid_oslogin 22
-- v_prs_perslid_wachtwoord 23
-- v_prs_perslid_titel 24
-- v_prs_perslid_apikey 25
-- v_dummy 26
-- v_prs_kenmerk1 27
-- v_prs_kenmerk2 28
-- v_prs_kenmerk3 29
-- v_prs_kenmerk4 30
|| '9;10;11;12;8;17;0;0;0;0;'
|| '0;0;0;0;0;0';
prs.import_perslid(p_import_key, v_seq_of_columns, 'PNR;niveau 2;niveau 3;niveau 4;niveau 5;niveau 6;niveau 7;Afdelingsnummer;Afdeling;Kostenplaats.Code;KPL_VERKORT;Kostenplaats;roepnaam;werknemer;Functie;Email%');
-- Uitleg van de kenmerkvelden:
-- kenmerk1: bedrijf (hoogste niveau afdeling voor ARBO
-- kenmerk2: afdeling niveau 1
-- kenmerk3: complete naam incl tussenvoegsels
-- kenmerk4: afdeling niveau 2 (wordt niet gebruikt)
-- kenmerk5: afdeling niveau 3 (wordt_niet gebruikt)
-- kenmerk6: afdeling code niveau 3 (wordt niet gebruikt)
-- kenmerk7: kostenplaats_nr
-- kenmerk8: kostenplaats_omschrijving
-- kenmerk9: sleutel van kostenplaats
-- kenmerk10: alternatief email voor SSO (wordt maar eenmalig ingelezen)
-- kenmerk11: omschrijving afdeling niveau 2 (voor algemene afdelingen met prefix)
-- Verwijder alles acther de komma, dan houden we de achternaam over
v_errorhint := 'Verwijder voornaam van samengestelde string';
-- Nog even checken
DELETE fac_imp_perslid
WHERE LOWER (prs_srtperslid_omschrijving) LIKE '%receptioniste%';
DELETE fac_imp_perslid
WHERE LOWER (prs_kenmerk5) = 'uitkeringsgerechtigden pensioen';
UPDATE fac_imp_perslid
SET prs_perslid_naam = SUBSTR (prs_kenmerk3, 1, INSTR (prs_kenmerk3, ',') - 1),
prs_perslid_tussenvoegsel = TRIM(SUBSTR(prs_kenmerk3, INSTR(prs_kenmerk3, '.', -1)+1));
UPDATE fac_imp_perslid
SET prs_perslid_nr = TO_CHAR(prs_perslid_nr, 'FM00000'),
prs_perslid_oslogin = TO_CHAR(prs_perslid_oslogin, 'FM00000')
WHERE length(prs_perslid_nr) < 5;
-- Als afdelingsniveau 3 leeg is vullen we deze met afdelingsniveau 2
UPDATE fac_imp_perslid SET prs_kenmerk2 = prs_kenmerk1 WHERE prs_kenmerk2 IS NULL;
-- De afdeling op niveau 2 is de omschrijving van de kostenplaats. Voor algemene afdelingen wordt er
-- een prefix voor geplaatst.
UPDATE fac_imp_perslid SET prs_kenmerk11 = prs_kenmerk8,
prs_kenmerk7 = REPLACE(prs_kenmerk7, 'KPL ');
UPDATE fac_imp_perslid
SET prs_kenmerk7 =
DECODE (prs_kenmerk1,
'HumanTotalCare B.V.', 'HTC',
'Focus Nederland B.V.', 'FOCUS',
'ArboNed B.V.', 'AN',
'HumanCapitalCare B.V.', 'HCC',
'IT&Care B.V.', 'IT',
'Mensely B.V.', 'MENS')
|| '-'
|| prs_kenmerk7,
prs_kenmerk11 =
DECODE (prs_kenmerk1,
'HumanTotalCare B.V.', 'HTC ',
'Focus Nederland B.V.', 'FOCUS ',
'ArboNed B.V.', 'AN ',
'HumanCapitalCare B.V.', 'HCC ',
'IT&Care B.V.', 'IT ',
'Mensely B.V.', 'MENS ')
|| prs_kenmerk8
WHERE prs_kenmerk7 IN ('BB',
'BO',
'CO',
'DIR',
'FIN',
'FZ',
'HR',
'IO',
'JZ',
'KW',
'MAR',
'RD',
'TD',
'TRA');
-- Afdeling Sales ook prefixen
UPDATE fac_imp_perslid
SET prs_kenmerk11 =
DECODE (prs_kenmerk1,
'HumanTotalCare B.V.', 'HTC ',
'Focus Nederland B.V.', 'FOCUS ',
'ArboNed B.V.', 'AN ',
'HumanCapitalCare B.V.', 'HCC ',
'IT&Care B.V.', 'IT ',
'Mensely B.V.', 'MENS ')
|| prs_kenmerk8
WHERE prs_kenmerk7 IN ('E30');
UPDATE fac_imp_perslid
SET prs_afdeling_naam = prs_kenmerk7;
UPDATE fac_imp_perslid i
SET prs_perslid_email = COALESCE((SELECT MAX(prs_perslid_email)
FROM prs_perslid p
WHERE i.prs_perslid_nr = p.prs_perslid_nr
AND p.prs_perslid_verwijder IS NULL),
i.prs_perslid_email);
UPDATE fac_imp_perslid i
SET (prs_perslid_mobiel, prs_perslid_telefoonnr ) = (SELECT MAX(prs_perslid_mobiel), MAX(prs_perslid_telefoonnr)
FROM prs_perslid p
WHERE i.prs_perslid_nr = p.prs_perslid_nr
AND p.prs_perslid_verwijder IS NULL);
END;
/
-- De afdelingsstructuur van ARBO kent geen codes voor de afdeling. Daarnaast kan een afdeling meerdere kostenplaatsen hebben.
-- Om dit op te lossen wordt het interne bedrijf gevuld met het bedrijf (kenmerk1) uit de FIP tabel. Afdelingsniveau 1 in Facilitor
-- wordt gevuld met kenmerk2. Als afdelingsnaam wordt de key ingevuld. Als afdelingsniveau 2 wordt de kostenplaats gebruikt. Dit is nodig
-- om dat anders de kostenplaatsen niet gekoppeld kunnen worden. Aangezien de kostenplaatsen onder meerdere afdelingen kunnen voorkomen
-- wordt ook hier de afdelingsnaam gevuld met de key van de afdeling. Nadat de afdelingen en kostenplaatsen dan zijn aangemaakt moet de
-- naam van de afdeling op niveau 2 (key van het record) ingevuld worden in de FIP tabel.
CREATE OR REPLACE PROCEDURE arbo_update_perslid (p_import_key IN NUMBER)
IS
CURSOR c IS
SELECT DISTINCT prs_kenmerk1 bedrijf_naam,
prs_kenmerk2 afdeling_oms1,
prs_kenmerk7 kostenplaats_nr,
prs_kenmerk11 kostenplaats_oms
FROM fac_imp_perslid i
GROUP BY prs_kenmerk1, prs_kenmerk2, prs_kenmerk7, prs_kenmerk11
ORDER BY prs_kenmerk1, prs_kenmerk2, prs_kenmerk7;
CURSOR c_upd IS
SELECT i.prs_perslid_key, prs_kenmerk10 alt_email
FROM fac_imp_perslid i, prs_perslid p
WHERE i.prs_perslid_key = p.prs_perslid_key
AND prs_kenmerk10 IS NOT NULL;
CURSOR c_afd_del (p_niveau NUMBER) IS
SELECT prs_afdeling_key, prs_afdeling_naam, prs_afdeling_omschrijving
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_key IN
(SELECT prs_afdeling_key
FROM prs_v_afdeling_boom ab
WHERE niveau = p_niveau
AND NOT EXISTS
(SELECT prs_perslid_key
FROM prs_perslid p
WHERE p.prs_afdeling_key =
ab.prs_afdeling_key
AND p.prs_perslid_verwijder IS NULL)
AND NOT EXISTS
(SELECT prs_afdeling_key
FROM prs_v_afd_verplichting v
WHERE v.prs_afdeling_key =
ab.prs_afdeling_key)
AND NOT EXISTS
(SELECT prs_afdeling_key
FROM prs_v_aanwezigafdeling a
WHERE a.prs_afdeling_parentkey =
ab.prs_afdeling_key));
-- personen pas verwijderen als ze langer dan 80 dagen bestaan. Hiermee voorkomen we dat nieuw handmatig ingevoerde
-- personen direct verwijderd worden, omdat HR data altijd wat ouder is.
CURSOR c_del IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full, p.prs_perslid_oslogin
FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_nr = i.prs_perslid_nr(+)
AND pf.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_nr IS NOT NULL
AND i.prs_perslid_nr IS NULL
AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_aanmaak < SYSDATE -80;
v_bedrijf_key NUMBER (10);
v_afdeling_key1 NUMBER (10);
v_afdeling_key2 NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_kpn_nr_prev VARCHAR2 (20);
v_afd_naam_prev VARCHAR2 (60);
v_aanduiding VARCHAR2 (100);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
v_count NUMBER;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
v_aanduiding := '';
v_errorhint := 'Toevoegen kostenplaatsen';
v_kpn_nr_prev := 'QueQuLeQue';
v_afd_naam_prev := 'QueQuLeQue';
INSERT INTO prs_kostenplaats (prs_kostenplaats_nr,
prs_kostenplaats_omschrijving,
prs_kostenplaats_module,
prs_kostenplaatsgrp_key)
SELECT DISTINCT prs_kenmerk7,
prs_kenmerk8,
'PRS',
1
FROM fac_imp_perslid
WHERE NOT EXISTS
(SELECT prs_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_kostenplaats_nr = prs_kenmerk7
AND prs_kostenplaats_verwijder IS NULL);
v_errorhint := 'Aanpassen kostenplaatsen';
UPDATE prs_kostenplaats k
SET prs_kostenplaats_omschrijving =
(SELECT MIN (prs_kenmerk8)
FROM fac_imp_perslid i
WHERE k.prs_kostenplaats_nr = i.prs_kenmerk7)
WHERE EXISTS
(SELECT prs_kenmerk7
FROM fac_imp_perslid i
WHERE k.prs_kostenplaats_nr = i.prs_kenmerk7)
AND k.prs_kostenplaats_verwijder IS NULL;
v_errorhint := 'Toevoegen bedrijven';
INSERT INTO prs_bedrijf (prs_bedrijf_naam, prs_bedrijf_intern)
SELECT DISTINCT prs_kenmerk1, 1
FROM fac_imp_perslid
WHERE NOT EXISTS
(SELECT prs_bedrijf_naam
FROM prs_bedrijf
WHERE prs_bedrijf_intern = 1
AND prs_bedrijf_verwijder IS NULL
AND prs_kenmerk1 = prs_bedrijf_naam);
FOR rec IN c
LOOP
v_aanduiding := rec.bedrijf_naam || '-' || rec.afdeling_oms1 || '-' || rec.kostenplaats_nr;
IF v_kpn_nr_prev <> rec.kostenplaats_nr OR v_afd_naam_prev <> rec.afdeling_oms1
THEN
BEGIN
v_errorhint := 'Zoek bedrijf';
SELECT prs_bedrijf_key
INTO v_bedrijf_key
FROM prs_bedrijf b
WHERE rec.bedrijf_naam = b.prs_bedrijf_naam
AND prs_bedrijf_intern = 1
AND prs_bedrijf_verwijder IS NULL;
v_errorhint := 'Zoek kostenplaats';
SELECT prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_kostenplaats k
WHERE rec.kostenplaats_nr = k.prs_kostenplaats_nr
AND k.prs_kostenplaats_verwijder IS NULL;
v_errorhint := 'Zoek afdeling1';
BEGIN
SELECT prs_afdeling_key
INTO v_afdeling_key1
FROM prs_v_afdeling a
WHERE a.prs_afdeling_omschrijving = rec.afdeling_oms1
AND prs_afdeling_verwijder IS NULL
AND a.niveau = 1
AND a.prs_bedrijf_key = v_bedrijf_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT prs_s_prs_afdeling_key.NEXTVAL
INTO v_afdeling_key1
FROM DUAL;
INSERT INTO prs_afdeling (prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_omschrijving,
prs_bedrijf_key)
VALUES (v_afdeling_key1,
v_afdeling_key1,
rec.afdeling_oms1,
v_bedrijf_key);
END;
v_errorhint := 'Zoek afdeling2';
BEGIN
SELECT prs_afdeling_key
INTO v_afdeling_key2
FROM prs_afdeling a
WHERE UPPER(a.prs_afdeling_omschrijving) = UPPER(rec.kostenplaats_oms)
AND prs_afdeling_parentkey = v_afdeling_key1
AND prs_afdeling_verwijder IS NULL;
UPDATE prs_afdeling
SET prs_afdeling_omschrijving = rec.kostenplaats_oms,
prs_afdeling_parentkey = v_afdeling_key1,
prs_kostenplaats_key = v_kostenplaats_key,
prs_afdeling_naam = v_afdeling_key2
WHERE prs_afdeling_key = v_afdeling_key2;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT prs_s_prs_afdeling_key.NEXTVAL
INTO v_afdeling_key2
FROM DUAL;
INSERT INTO prs_afdeling (prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_omschrijving,
prs_afdeling_parentkey,
prs_kostenplaats_key)
VALUES (v_afdeling_key2,
v_afdeling_key2,
rec.kostenplaats_oms,
v_afdeling_key1,
v_kostenplaats_key);
END;
END;
v_kpn_nr_prev := rec.kostenplaats_nr;
v_afd_naam_prev := rec.afdeling_oms1;
END IF;
END LOOP;
SELECT COUNT(*)
INTO v_count
FROM fac_imp_perslid;
IF v_count > 500
THEN
-- Voordat we gaan importeren gaan we op zoek of we nog mensen moeten verwijderen die niet in de import voorkomen.
-- Nu komt het ook regelmatig voor dat mensen een ander personeelsnummer krijgen terwijl ze de login behouden. Deze
-- mensen proberen we om te hangen en het personeelsnummer aan te passen.
FOR rec IN c_del LOOP
BEGIN
v_errorhint := 'Verwijderen persoon: ' || rec.prs_perslid_key || '-' || rec.prs_perslid_nr || '-' || rec.prs_perslid_oslogin;
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
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;
END LOOP;
END IF;
UPDATE fac_imp_perslid i
SET i.prs_afdeling_naam =
(SELECT a2.prs_afdeling_naam
FROM prs_v_afdeling_boom ab, prs_afdeling a1, prs_afdeling a2
WHERE ab.prs_afdeling_key1 = a1.prs_afdeling_key
AND ab.prs_afdeling_key2 = a2.prs_afdeling_key
AND ab.prs_afdeling_key3 IS NULL
AND i.prs_kenmerk2 = a1.prs_afdeling_omschrijving
AND a1.prs_afdeling_verwijder IS NULL
AND i.prs_kenmerk11 = a2.prs_afdeling_omschrijving
AND a2.prs_afdeling_verwijder IS NULL);
prs.update_perslid (p_import_key, 'NR', NULL);
-- Niet gebruikte functies gaan we nu verwijderen
UPDATE prs_srtperslid sp
SET prs_srtperslid_verwijder = SYSDATE
WHERE prs_srtperslid_verwijder IS NULL
AND NOT EXISTS
(SELECT prs_perslid_key
FROM prs_perslid p
WHERE p.prs_srtperslid_key = sp.prs_srtperslid_key
AND p.prs_perslid_verwijder IS NULL);
-- Nu gaan we proberen de afdelingen op te ruimen
FOR v_niveau IN REVERSE 1..4
LOOP
FOR rec IN c_afd_del (v_niveau)
LOOP
v_errorhint := 'Opschonen afdeling niveau ' || v_niveau || ' afdeling: ' || rec.prs_afdeling_naam;
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = SYSDATE
WHERE prs_afdeling_key = rec.prs_afdeling_key;
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.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
END LOOP;
END LOOP;
-- Niet gebruikte kostenplaatsen gaan we verwijderen.
v_errorhint := 'Niet gebruikte kostenplaatsen gaan we verwijderen.';
UPDATE prs_kostenplaats kp
SET kp.prs_kostenplaats_verwijder = SYSDATE
WHERE prs_kostenplaats_verwijder IS NULL
AND prs_kostenplaats_module = 'PRS'
AND NOT EXISTS (SELECT a.prs_afdeling_key
FROM prs_afdeling a
WHERE a.prs_kostenplaats_key = kp.prs_kostenplaats_key
AND a.prs_afdeling_verwijder IS NULL);
COMMIT;
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.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
END;
/
-- ARBO#20210 AutoClose alle bestellingen noti-dagen na aanmaken.
CREATE OR REPLACE PROCEDURE arbo_select_autoclose (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE FORCE VIEW arbo_v_export_autoclose (RESULT, result_order)
AS
SELECT '', 0
FROM DUAL
WHERE 1 = 0;
/
/* Formatted on 1-4-2011 14:48:18 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE arbo_export_autoclose (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
BEGIN
FOR rc
IN (SELECT boi.bes_bestelopdr_item_key, bo.bes_bestelopdr_key
FROM bes_bestelopdr_item boi,
bes_bestelopdr bo,
bes_bestelling_item bi,
bes_bestelling b,
bes_srtdeel sd,
bes_srtgroep sg,
bes_disc_params bdp
WHERE boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
AND bo.bes_bestelopdr_status = 4 -- In bestelling
AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
--AND sg.ins_discipline_key = -1
AND sg.ins_discipline_key = bdp.bes_ins_discipline_key
AND bdp.bes_disc_params_noti_dagen IS NOT NULL
AND (b.bes_bestelling_datum IS NULL
OR fac.datumtijdplusuitvoertijd (
b.bes_bestelling_leverdatum,
bdp.bes_disc_params_noti_dagen,
'DAGEN'
) < SYSDATE))
LOOP
UPDATE bes_bestelopdr_item
SET bes_bestelopdr_item_aantalontv = bes_bestelopdr_item_aantal
WHERE bes_bestelopdr_item_key = rc.bes_bestelopdr_item_key;
bes.updatebestelopdrstatus (rc.bes_bestelopdr_key, NULL);
COMMIT;
END LOOP;
FOR rc
IN (SELECT bi.bes_bestelling_item_key, bi.bes_bestelling_key
FROM bes_bestelling_item bi, bes_bestelopdr_item boi
WHERE bi.bes_bestelling_item_aantal <>
NVL (bi.bes_bestelling_item_aantalontv, 0)
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_item_aantal =
boi.bes_bestelopdr_item_aantalontv)
LOOP
UPDATE bes_bestelling_item
SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal
WHERE bes_bestelling_item_key = rc.bes_bestelling_item_key;
bes.updatebestellingstatus (rc.bes_bestelling_key, NULL);
COMMIT;
END LOOP;
END;
/
/* Formatted on 14-10-2011 16:26:54 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW arbo_v_rap_ruimteoverzicht
(
fclt_f_locatie,
fclt_f_gebouw,
fclt_f_verdieping,
ruimtenr,
omschrijving,
fclt_f_ruimtefunctie,
fclt_f_vloersoort,
oppervlak
)
AS
SELECT a.alg_locatie_code,
a.alg_gebouw_code,
a.alg_verdieping_code,
a.alg_ruimte_nr,
a.alg_ruimte_omschrijving,
a.ruimtefunctie,
b.vloersoort,
a.opp
FROM (SELECT r.alg_ruimte_key,
r.alg_ruimte_nr,
r.alg_ruimte_omschrijving,
v.alg_verdieping_code,
g.alg_gebouw_code,
l.alg_locatie_code,
sr.alg_srtruimte_upper ruimtefunctie,
r.alg_ruimte_bruto_vloeropp opp
FROM alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l,
alg_srtruimte sr
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)) a
LEFT JOIN
(SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr vloersoort
FROM alg_onrgoedkenmerk ok, fac_usrdata ud
WHERE ok.alg_kenmerk_key = 1020 -- Vloersoort
AND ok.alg_onrgoed_niveau = 'R'
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key) b
ON a.alg_ruimte_key = b.alg_onrgoed_key;
-- Bevat CUST01- en CUST02-reminder naar beheerder verantwoordelijk voor de
-- keuring van betreffende objecten.
-- CUST01: wekelijks mbt. over 2 tot 3 weken te keuren objecten!
-- CUST02: wekelijks mbt. objecten waarvan keuringsdatum een week is verstreken!
CREATE OR REPLACE VIEW ARBO_V_NOTI_KEURINGREMINDER
(
code,
sender,
receiver,
text,
KEY,
par1,
par2,
xkey
)
AS
SELECT DISTINCT
sn.fac_srtnotificatie_code code,
NULL sender,
gg.prs_perslid_key receiver,
REPLACE (
REPLACE (
REPLACE (
sn.fac_srtnotificatie_oms,
'##SRTGROEP##',
DECODE (x.min_srtgroep_oms,
x.max_srtgroep_oms, x.min_srtgroep_oms, -- || DECODE (x.aantal, 1, '/' || min_controle_oms, ''),
x.min_srtgroep_oms || ', ...')),
'##AANTAL##',
x.aantal),
'##REGIO##',
(SELECT alg_regio_omschrijving FROM alg_regio WHERE alg_regio_key = x.alg_regio_key))
subject,
x.dummy_deel_key, -- Dummy key!!!
NULL,
NULL,
x.alg_regio_key
FROM ( SELECT dis.alg_regio_key,
--MIN (din.ins_srtcontrole_omschrijving) min_controle_oms,
MIN (sg.ins_srtgroep_omschrijving) min_srtgroep_oms,
MAX (sg.ins_srtgroep_omschrijving) max_srtgroep_oms,
MIN (d.ins_deel_key) dummy_deel_key,
COUNT (DISTINCT d.ins_deel_key) aantal
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
alg_locatie l,
alg_district dis,
(SELECT ins_deel_key, inspectie_next, ins_srtcontrole_omschrijving
FROM (WITH defined_inspect
AS (SELECT d.ins_deel_key, d.ins_deel_aanmaak, sc.*
FROM ins_deel d, ins_srtdeel sd, ins_srtcontrole sc
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND (sc.ins_srtcontrole_niveau ='S' AND sc.ins_srtinstallatie_key = d.ins_srtdeel_key
OR sc.ins_srtcontrole_niveau = 'G' AND sc.ins_srtinstallatie_key = sd.ins_srtgroep_key
OR sc.ins_srtcontrole_niveau = 'D' AND sc.ins_srtinstallatie_key = d.ins_discipline_key))
SELECT 1 rn, -- NOG GEEN INSPECTIES GEWEEST EN OOK NIET GEPLAND/GESTART!
di.ins_deel_key,
fac.nextcyclusdate (
di.ins_deel_aanmaak,
di.ins_srtcontrole_mode,
COALESCE (xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE (xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE (xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
1)
inspectie_next,
di.ins_srtcontrole_omschrijving
FROM defined_inspect di, ins_srtcontroledl_xcp xcp
WHERE NOT EXISTS (SELECT 1 FROM ins_deelsrtcontrole WHERE ins_deel_key = di.ins_deel_key AND ins_srtcontrole_key = di.ins_srtcontrole_key)
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC (SYSDATE))
UNION ALL
SELECT RANK ()
OVER (
PARTITION BY di.ins_deel_key, dsc.ins_srtcontrole_key
ORDER BY ins_deelsrtcontrole_datum DESC)
rn,
di.ins_deel_key,
COALESCE ((SELECT ins_deelsrtcontrole_plandatum
FROM ins_deelsrtcontrole
WHERE ins_deel_key = di.ins_deel_key
AND ins_srtcontrole_key = di.ins_srtcontrole_key
AND ins_deelsrtcontrole_status = 0),
fac.nextcyclusdate (
CASE
WHEN di.ins_srtcontrole_mode = 0
THEN dsc.ins_deelsrtcontrole_datum_org
ELSE dsc.ins_deelsrtcontrole_datum
END,
di.ins_srtcontrole_mode,
COALESCE (xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE (xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE (xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
1))
inspectie_next,
di.ins_srtcontrole_omschrijving
FROM ins_deelsrtcontrole dsc, defined_inspect di, ins_srtcontroledl_xcp xcp
WHERE dsc.ins_deelsrtcontrole_status IN (0, 5, 6)
AND di.ins_deel_key = dsc.ins_deel_key
AND di.ins_srtcontrole_key = dsc.ins_srtcontrole_key
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC (SYSDATE))
ORDER BY inspectie_next)
WHERE rn = 1) din
WHERE d.ins_deel_module = 'INS' AND d.ins_deel_parent_key IS NULL
AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > TRUNC (SYSDATE + 21)) -- Niet vervallen of pas na volgende inspectie!
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND d.ins_alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = dis.alg_district_key
AND d.ins_deel_key = din.ins_deel_key
AND din.inspectie_next BETWEEN TRUNC (SYSDATE + 14) AND TRUNC (SYSDATE + 21)
GROUP BY dis.alg_regio_key) x,
alg_district d,
alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r,
prs_werkplek wp,
prs_perslidwerkplek pw,
fac_gebruikersgroep gg,
fac_srtnotificatie sn
WHERE x.alg_regio_key = d.alg_regio_key
AND d.alg_district_key = l.alg_district_key
AND 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 r.alg_ruimte_key = wp.prs_alg_ruimte_key
AND wp.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key IN (23, 161) -- BO Huismeester/Onderhoudscoordinator
AND sn.fac_srtnotificatie_code = 'CUST01'
UNION ALL
SELECT DISTINCT
sn.fac_srtnotificatie_code code,
NULL sender,
gg.prs_perslid_key receiver,
REPLACE (
REPLACE (
REPLACE (
sn.fac_srtnotificatie_oms,
'##SRTGROEP##',
DECODE (x.min_srtgroep_oms,
x.max_srtgroep_oms, x.min_srtgroep_oms, -- || DECODE (x.aantal, 1, '/' || min_controle_oms, ''),
x.min_srtgroep_oms || ', ...')),
'##AANTAL##',
x.aantal),
'##REGIO##',
(SELECT alg_regio_omschrijving FROM alg_regio WHERE alg_regio_key = x.alg_regio_key))
subject,
x.dummy_deel_key, -- Dummy key!!!
NULL,
NULL,
x.alg_regio_key
FROM ( SELECT dis.alg_regio_key,
--MIN (din.ins_srtcontrole_omschrijving) min_controle_oms,
MIN (sg.ins_srtgroep_omschrijving) min_srtgroep_oms,
MAX (sg.ins_srtgroep_omschrijving) max_srtgroep_oms,
MIN (d.ins_deel_key) dummy_deel_key,
COUNT (DISTINCT d.ins_deel_key) aantal
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
alg_locatie l,
alg_district dis,
(SELECT ins_deel_key, inspectie_next, ins_srtcontrole_omschrijving
FROM (WITH defined_inspect
AS (SELECT d.ins_deel_key, d.ins_deel_aanmaak, sc.*
FROM ins_deel d, ins_srtdeel sd, ins_srtcontrole sc
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND (sc.ins_srtcontrole_niveau ='S' AND sc.ins_srtinstallatie_key = d.ins_srtdeel_key
OR sc.ins_srtcontrole_niveau = 'G' AND sc.ins_srtinstallatie_key = sd.ins_srtgroep_key
OR sc.ins_srtcontrole_niveau = 'D' AND sc.ins_srtinstallatie_key = d.ins_discipline_key))
SELECT 1 rn, -- NOG GEEN INSPECTIES GEWEEST EN OOK NIET GEPLAND/GESTART!
di.ins_deel_key,
fac.nextcyclusdate (
di.ins_deel_aanmaak,
di.ins_srtcontrole_mode,
COALESCE (xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE (xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE (xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
1)
inspectie_next,
di.ins_srtcontrole_omschrijving
FROM defined_inspect di, ins_srtcontroledl_xcp xcp
WHERE NOT EXISTS (SELECT 1 FROM ins_deelsrtcontrole WHERE ins_deel_key = di.ins_deel_key AND ins_srtcontrole_key = di.ins_srtcontrole_key)
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC (SYSDATE))
UNION ALL
SELECT RANK ()
OVER (
PARTITION BY di.ins_deel_key, dsc.ins_srtcontrole_key
ORDER BY ins_deelsrtcontrole_datum DESC)
rn,
di.ins_deel_key,
COALESCE ((SELECT ins_deelsrtcontrole_plandatum
FROM ins_deelsrtcontrole
WHERE ins_deel_key = di.ins_deel_key
AND ins_srtcontrole_key = di.ins_srtcontrole_key
AND ins_deelsrtcontrole_status = 0),
fac.nextcyclusdate (
CASE
WHEN di.ins_srtcontrole_mode = 0
THEN dsc.ins_deelsrtcontrole_datum_org
ELSE dsc.ins_deelsrtcontrole_datum
END,
di.ins_srtcontrole_mode,
COALESCE (xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE (xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE (xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
1))
inspectie_next,
di.ins_srtcontrole_omschrijving
FROM ins_deelsrtcontrole dsc, defined_inspect di, ins_srtcontroledl_xcp xcp
WHERE dsc.ins_deelsrtcontrole_status IN (0, 5, 6)
AND di.ins_deel_key = dsc.ins_deel_key
AND di.ins_srtcontrole_key = dsc.ins_srtcontrole_key
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC (SYSDATE))
ORDER BY inspectie_next)
WHERE rn = 1) din
WHERE d.ins_deel_module = 'INS' AND d.ins_deel_parent_key IS NULL
AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > TRUNC (SYSDATE - 7)) -- Niet vervallen of pas na volgende inspectie!
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND d.ins_alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = dis.alg_district_key
AND d.ins_deel_key = din.ins_deel_key
AND din.inspectie_next < TRUNC (SYSDATE - 7)
GROUP BY dis.alg_regio_key) x,
alg_district d,
alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r,
prs_werkplek wp,
prs_perslidwerkplek pw,
fac_gebruikersgroep gg,
fac_srtnotificatie sn
WHERE x.alg_regio_key = d.alg_regio_key
AND d.alg_district_key = l.alg_district_key
AND 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 r.alg_ruimte_key = wp.prs_alg_ruimte_key
AND wp.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key IN (23, 161) -- BO Huismeester/Onderhoudscoordinator
AND sn.fac_srtnotificatie_code = 'CUST02';
/* Formatted on 9-2-2012 13:24:42 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_UC_RELATIES (BEDRIJF_KEY, BEDRIJF_NAAM)
AS
SELECT b.prs_bedrijf_key, b.prs_bedrijf_naam
FROM prs_v_aanwezigbedrijf b
WHERE b.prs_bedrijf_uitvoerende = 1 OR b.prs_bedrijf_contract = 1;
/* Formatted on 30-3-2012 14:52:32 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_MLD_PMND
(
FCLT_XAS_,
FCLT_YAS_,
VOLGORDE
)
AS
SELECT DECODE (SUBSTR (TO_CHAR (m.mld_melding_datum, 'yyyymm'), 5),
'01', 'Januari',
'02', 'Februari',
'03', 'Maart',
'04', 'April',
'05', 'Mei',
'06', 'Juni',
'07', 'Juli',
'08', 'Augustus',
'09', 'September',
'10', 'Oktober',
'11', 'November',
'December'),
COUNT (d.ins_discipline_omschrijving),
TO_CHAR (m.mld_melding_datum, 'yyyymm')
FROM mld_melding m, mld_stdmelding sm, ins_tab_discipline d
WHERE m.mld_melding_datum BETWEEN ADD_MONTHS (
TO_DATE (
TO_CHAR (SYSDATE, 'yyyymm')
|| '01',
'yyyymmdd'
),
-11
)
AND SYSDATE
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = d.ins_discipline_key
GROUP BY TO_CHAR (m.mld_melding_datum, 'yyyymm');
/* Formatted on 2-4-2012 13:45:04 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_MLD_BEHANDELAAR
(
FCLT_XAS_,
FCLT_YAS_,
FCLT_YAS2_
)
AS
SELECT behandelaar,
COUNT (mld_key) - SUM (uitvoeringoptijd) totaal,
SUM (uitvoeringoptijd) op_tijd
FROM (SELECT m.mld_melding_key mld_key,
CASE SIGN(fac.datumtijdplusuitvoertijd (
m.mld_melding_datum,
m.mld_melding_t_uitvoertijd.tijdsduur, --was m.mld_melding_uitvoertijd,
m.mld_melding_t_uitvoertijd.eenheid --was 'DAGEN'
)
- SYSDATE)
WHEN -1
THEN
0
ELSE
1
END
uitvoeringoptijd,
DECODE (
m.mld_melding_status,
4,
DECODE (
(SELECT COUNT ( * )
FROM mld_opdr o
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_statusopdr_key IN
(3, 4, 5, 8)), -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd
0,
p.prs_perslid_naam_full,
NULL
),
7,
NULL,
p.prs_perslid_naam_full
)
behandelaar
FROM mld_melding m, prs_v_perslid_fullnames p
WHERE m.mld_melding_behandelaar_key = p.prs_perslid_key(+)
AND m.mld_melding_status IN (2, 3, 4, 7, 0)) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
WHERE behandelaar IS NOT NULL
GROUP BY behandelaar
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT '-', 0 totaal, 0 op_tijd
FROM DUAL
WHERE EXISTS (SELECT 1
FROM mld_melding m
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0));
/* Formatted on 2-4-2012 13:45:04 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_MLD_UITVOERENDE
(
FCLT_XAS_,
FCLT_YAS_,
FCLT_YAS2_
)
AS
SELECT uitvoerende,
COUNT (opdr_key) - SUM (uitvoeringoptijd) totaal,
SUM (uitvoeringoptijd) op_tijd
FROM (SELECT o.mld_opdr_key opdr_key,
CASE SIGN(fac.datumtijdplusuitvoertijd (
m.mld_melding_datum,
m.mld_melding_t_uitvoertijd.tijdsduur, --was m.mld_melding_uitvoertijd,
m.mld_melding_t_uitvoertijd.eenheid --was 'DAGEN'
)
- SYSDATE)
WHEN -1
THEN
0
ELSE
1
END
uitvoeringoptijd,
b.prs_bedrijf_naam uitvoerende
FROM mld_opdr o, mld_melding m, prs_bedrijf b
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND o.mld_statusopdr_key IN (3, 4, 5, 8)) -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd
WHERE uitvoerende IS NOT NULL
GROUP BY uitvoerende
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT '-', 0 totaal, 0 op_tijd
FROM DUAL
WHERE EXISTS
(SELECT 1
FROM mld_opdr o, prs_bedrijf b
WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND o.mld_statusopdr_key IN (3, 4, 5, 8));
/* Formatted on 30-3-2012 15:48:14 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_VAKGROEP_OPEN
(
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_3D_DISCIPLINE_KEY
)
AS
SELECT md.ins_discipline_omschrijving,
COUNT (md.ins_discipline_omschrijving),
'appl/mld/mld_search.asp?urole=fo'
|| '&'
|| 'autosearch=1'
|| '&'
|| 'disc_key_str='
|| md.ins_discipline_key,
md.ins_discipline_key
FROM mld_melding m, mld_stdmelding sm, mld_discipline md
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
GROUP BY md.ins_discipline_key, md.ins_discipline_omschrijving
ORDER BY COUNT (md.ins_discipline_omschrijving) DESC;
/* Formatted on 30-3-2012 16:26:36 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_PPI_ACP
(
FCLT_XAS_,
FCLT_YAS_
)
AS
SELECT SUM (acceptatieoptijd) aantal, COUNT (mld_key) totaal
FROM (SELECT DISTINCT
m.mld_melding_key mld_key,
CASE SIGN(fac.datumtijdplusuitvoertijd (
fac.gettrackingdate ('MLDNEW',
m.mld_melding_key),
sm.mld_stdmelding_t_accepttijd.tijdsduur, --was sm.mld_stdmelding_urgentie,
sm.mld_stdmelding_t_accepttijd.eenheid --was 'UREN'
)
- SYSDATE)
WHEN -1
THEN
0
ELSE
1
END
acceptatieoptijd
FROM mld_melding m, mld_stdmelding sm
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_melding_status IN (2, 3) -- 2-Ingevoerd, 3-Ingezien
);
/* Formatted on 30-3-2012 16:26:36 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW ARBO_V_GRAPH_PPI_AFM
(
FCLT_XAS_,
FCLT_YAS_
)
AS
SELECT SUM (uitvoeringoptijd) aantal, COUNT (mld_key) totaal
FROM (SELECT DISTINCT
m.mld_melding_key mld_key,
CASE SIGN(fac.datumtijdplusuitvoertijd (
m.mld_melding_datum,
m.mld_melding_t_uitvoertijd.tijdsduur, --was m.mld_melding_uitvoertijd,
m.mld_melding_t_uitvoertijd.eenheid --was 'DAGEN'
)
- SYSDATE)
WHEN -1
THEN
0
ELSE
1
END
uitvoeringoptijd
FROM mld_melding m
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
);
/* Formatted on 13-11-2014 10:25:35 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW arbo_v_rap_hv_per_loc
(
fclt_f_vestigingsoort,
fclt_f_vestiging,
fclt_x_zichtbaar,
contractnummer,
einddatum,
opzegtermijn,
contractopmerking,
huurkosten_pj,
servkosten_pj,
ovrgkosten_pj,
aantal_m2,
huurkosten_m2,
servkosten_m2,
bezet_m2,
leeg_m2,
bezettingsperc
)
AS
SELECT ok.vestigingsoort,
basis.alg_locatie_omschrijving,
DECODE (basis.zichtbaar, 1, 'Ja', 'Nee'),
hvcnt.contractnummer,
TO_CHAR (hvcnt.einddatum, 'dd-mm-yyyy'),
hvcnt.opzegtermijn,
hvcnt.contractopmerking,
fac.safe_to_number (hvcnt.huurkosten),
fac.safe_to_number (hvcnt.servicekosten),
fac.safe_to_number (hvcnt.overigekosten),
ROUND (COALESCE (totm2.opp, 0), 2) totaal,
DECODE (
totm2.opp,
NULL,
NULL,
0,
NULL,
REPLACE (
TO_CHAR (
ROUND (
fac.safe_to_number (
COALESCE (hvcnt.huurkosten, '0') / totm2.opp
),
2
),
'999999990D99'
),
'.',
','
)
),
DECODE (
totm2.opp,
NULL,
NULL,
0,
NULL,
REPLACE (
TO_CHAR (
ROUND (
fac.safe_to_number (
COALESCE (hvcnt.servicekosten, '0') / totm2.opp
),
2
),
'999999990D99'
),
'.',
','
)
),
ROUND (COALESCE (bezm2.opp, 0), 2) bezet,
ROUND (COALESCE (totm2.opp, 0) - COALESCE (bezm2.opp, 0), 2) leeg,
DECODE (
totm2.opp,
NULL,
NULL,
0,
NULL,
TO_CHAR (100 * ROUND (COALESCE (bezm2.opp, 0) / totm2.opp, 2))
|| '%'
)
FROM ( SELECT l.alg_locatie_key,
MIN (alg_locatie_omschrijving)
alg_locatie_omschrijving,
SUM(DECODE (sg.alg_srtgebouw_passief,
1, 0,
1))
zichtbaar
FROM alg_v_aanweziglocatie l,
alg_v_aanweziggebouw g,
alg_v_aanwezigsrtgebouw sg
WHERE l.alg_locatie_key = g.alg_locatie_key
AND g.alg_srtgebouw_key =
sg.alg_srtgebouw_key(+)
GROUP BY l.alg_locatie_key) basis
LEFT JOIN
(SELECT ok.alg_onrgoed_key,
ud.fac_usrdata_omschr vestigingsoort
FROM alg_onrgoedkenmerk ok, fac_usrdata ud
WHERE ok.alg_kenmerk_key = 1280 -- Vestigingsoort
AND ok.alg_onrgoed_niveau = 'L'
AND fac.safe_to_number (
ok.alg_onrgoedkenmerk_waarde
) = ud.fac_usrdata_key) ok
ON basis.alg_locatie_key = ok.alg_onrgoed_key
LEFT JOIN
( SELECT g.alg_locatie_key,
SUM (g.alg_gebouw_bruto_vloeropp) opp
--SUM (r.alg_ruimte_bruto_vloeropp) opp
FROM alg_gebouw g
--alg_verdieping v,
--alg_v_aanwezigruimte r
--WHERE g.alg_gebouw_key = v.alg_gebouw_key
-- AND v.alg_verdieping_key =
-- r.alg_verdieping_key
GROUP BY g.alg_locatie_key) totm2
ON basis.alg_locatie_key = totm2.alg_locatie_key
LEFT JOIN
( SELECT g.alg_locatie_key,
SUM (r.alg_ruimte_bruto_vloeropp) opp
FROM alg_gebouw g,
alg_verdieping v,
alg_v_aanwezigruimte r,
prs_werkplek wp,
( SELECT prs_werkplek_key, COUNT ( * )
FROM prs_perslidwerkplek
GROUP BY prs_werkplek_key) pw
WHERE g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = wp.prs_alg_ruimte_key
AND wp.prs_werkplek_key = pw.prs_werkplek_key
GROUP BY g.alg_locatie_key) bezm2
ON basis.alg_locatie_key = bezm2.alg_locatie_key
LEFT JOIN
(SELECT cp.cnt_alg_plaats_key,
c.cnt_contract_nummer_intern contractnummer,
c.cnt_contract_looptijd_tot einddatum,
t.cnt_termijn_omschrijving opzegtermijn,
c.cnt_contract_opmerking contractopmerking,
(SELECT kc.cnt_kenmerkcontract_waarde
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 44 -- Huur
AND kc.cnt_contract_key =
c.cnt_contract_key)
huurkosten,
(SELECT kc.cnt_kenmerkcontract_waarde
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 101 -- Service
AND kc.cnt_contract_key =
c.cnt_contract_key)
servicekosten,
(SELECT kc.cnt_kenmerkcontract_waarde
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 163 -- Overig
AND kc.cnt_contract_key =
c.cnt_contract_key)
overigekosten
FROM cnt_contract_plaats cp,
cnt_v_aanwezigcontract c,
cnt_termijn t
WHERE cp.cnt_alg_plaats_code = 'L'
AND cp.cnt_contract_key = c.cnt_contract_key
AND c.ins_discipline_key = 181 -- Huurcontracten
AND c.cnt_contract_opzegtermijn = t.cnt_termijn_key)
hvcnt
ON basis.alg_locatie_key = hvcnt.cnt_alg_plaats_key;
/* Formatted on 13-11-2014 10:35:25 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW arbo_v_rap_hv_per_afd
(
hide_f_sortering,
fclt_f_afdeling,
fclt_f_vestiging,
tot_m2,
afd_m2,
bezettingsperc
)
AS
SELECT prs_afdeling_naam || '1',
prs_afdeling_omschrijving || ' (' || prs_afdeling_naam || ')',
totm2.alg_locatie_omschrijving,
REPLACE (
TO_CHAR (ROUND (COALESCE (totm2.opp, 0), 2), '999999990D99'),
'.',
','),
REPLACE (
TO_CHAR (ROUND (COALESCE (afdm2.opp, 0), 2), '999999990D99'),
'.',
','),
DECODE (
totm2.opp,
NULL,
NULL,
0,
NULL,
TO_CHAR (100 * ROUND (COALESCE (afdm2.opp, 0) / totm2.opp, 2))
|| '%')
bezetting
FROM (SELECT prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_omschrijving
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL) basis
LEFT JOIN ( SELECT ra.prs_afdeling_key,
g.alg_locatie_key,
SUM( (r.alg_ruimte_bruto_vloeropp
* ra.prs_ruimteafdeling_bezetting)
/ 100)
opp
FROM prs_ruimteafdeling ra,
alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g
WHERE ra.alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
GROUP BY ra.prs_afdeling_key, g.alg_locatie_key) afdm2
ON basis.prs_afdeling_key = afdm2.prs_afdeling_key
LEFT JOIN ( SELECT l.alg_locatie_key,
l.alg_locatie_omschrijving,
SUM (r.alg_ruimte_bruto_vloeropp) opp
FROM alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
GROUP BY l.alg_locatie_key, l.alg_locatie_omschrijving)
totm2
ON afdm2.alg_locatie_key = totm2.alg_locatie_key
WHERE totm2.alg_locatie_key IS NOT NULL
UNION ALL
SELECT prs_afdeling_naam || '2',
prs_afdeling_omschrijving || ' (' || prs_afdeling_naam || ')',
'*** Landelijk ***',
REPLACE (
TO_CHAR (ROUND (COALESCE (totm2.opp, 0), 2), '999999990D99'),
'.',
','),
REPLACE (
TO_CHAR (ROUND (COALESCE (afdm2.opp, 0), 2), '999999990D99'),
'.',
','),
DECODE (
totm2.opp,
NULL,
NULL,
0,
NULL,
TO_CHAR (100 * ROUND (COALESCE (afdm2.opp, 0) / totm2.opp, 2))
|| '%')
bezetting
FROM (SELECT prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_omschrijving
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL) basis
LEFT JOIN ( SELECT ra.prs_afdeling_key,
SUM( (r.alg_ruimte_bruto_vloeropp
* ra.prs_ruimteafdeling_bezetting)
/ 100)
opp
FROM prs_ruimteafdeling ra, alg_v_aanwezigruimte r
WHERE ra.alg_ruimte_key = r.alg_ruimte_key
GROUP BY ra.prs_afdeling_key) afdm2
ON basis.prs_afdeling_key = afdm2.prs_afdeling_key
LEFT JOIN (SELECT SUM (g.alg_gebouw_bruto_vloeropp) opp
FROM alg_v_aanweziggebouw g) totm2
ON 1 = 1;
/* Formatted on 7-6-2012 14:22:35 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW arbo_v_rap_cntoverzicht
(
fclt_f_dienst,
fclt_f_contractsoort,
contractnummer,
startdatum,
einddatum,
opzegtermijn,
fclt_f_scope,
contractwaarde
)
AS
SELECT basis.dienst,
basis.contractsoort,
basis.contractnummer,
TO_CHAR (basis.startdatum, 'dd-mm-yyyy'),
TO_CHAR (basis.einddatum, 'dd-mm-yyyy'),
basis.opzegtermijn,
x.scope,
basis.contractwaarde
FROM (SELECT c.cnt_contract_key,
c.cnt_contract_nummer_intern contractnummer,
c.cnt_contract_looptijd_van startdatum,
c.cnt_contract_looptijd_tot einddatum,
c.cnt_contract_kosten contractwaarde,
cd.ins_discipline_omschrijving contractsoort,
t.cnt_termijn_omschrijving opzegtermijn,
d.prs_dienst_omschrijving dienst
FROM cnt_v_aanwezigcontract c,
cnt_discipline cd,
cnt_termijn t,
prs_dienst d
WHERE c.ins_discipline_key != 181 -- Huurcontracten
AND c.ins_discipline_key = cd.ins_discipline_key
AND c.cnt_contract_opzegtermijn = t.cnt_termijn_key
AND c.prs_dienst_key = d.prs_dienst_key) basis
LEFT JOIN
(SELECT cp.cnt_contract_key,
l.alg_locatie_code
|| ' ('
|| l.alg_locatie_omschrijving
|| ')'
scope
FROM cnt_contract_plaats cp, alg_locatie l
WHERE cp.cnt_alg_plaats_code = 'L'
AND cp.cnt_contract_plaats_verwijder IS NULL
AND cp.cnt_alg_plaats_key = l.alg_locatie_key
UNION ALL
SELECT cp.cnt_contract_key,
g.alg_gebouw_code || ' ' || g.alg_gebouw_naam scope
FROM cnt_contract_plaats cp, alg_gebouw g
WHERE cp.cnt_alg_plaats_code = 'G'
AND cp.cnt_contract_plaats_verwijder IS NULL
AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
UNION ALL
SELECT co.cnt_contract_key,
sd.ins_srtdeel_omschrijving scope
FROM cnt_contract_object co, ins_srtdeel sd
WHERE co.cnt_contract_object_verwijder IS NULL
AND co.cnt_ins_srtdeel_key = sd.ins_srtdeel_key
UNION ALL
SELECT co.cnt_contract_key,
d.ins_deel_omschrijving
|| ' ('
|| sd.ins_srtdeel_omschrijving
|| ')'
scope
FROM cnt_contract_object co, ins_deel d, ins_srtdeel sd
WHERE co.cnt_contract_object_verwijder IS NULL
AND co.cnt_ins_deel_key = d.ins_deel_key
AND d.ins_srtdeel_key = sd.ins_srtdeel_key) x
ON basis.cnt_contract_key = x.cnt_contract_key;
/* Formatted on 15-5-2012 10:55:15 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW arbo_v_rap_rtm_openmld
(
fclt_f_rubriek,
kengetal
)
AS
SELECT '# Totaal', TO_CHAR (COUNT ( * )) aantal
FROM mld_melding m
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
UNION ALL
SELECT 'Intern: ' || FCLT_XAS_, TO_CHAR (FCLT_YAS_ + FCLT_YAS2_) aantal
FROM ARBO_V_GRAPH_MLD_BEHANDELAAR
WHERE FCLT_XAS_ != '-'
UNION ALL
SELECT 'Extern: ' || FCLT_XAS_, TO_CHAR (FCLT_YAS_ + FCLT_YAS2_) aantal
FROM ARBO_V_GRAPH_MLD_UITVOERENDE
WHERE FCLT_XAS_ != '-'
UNION ALL
SELECT 'Vakgroep: ' || FCLT_XAS_, TO_CHAR (FCLT_YAS_) aantal
FROM ARBO_V_GRAPH_VAKGROEP_OPEN
UNION ALL
SELECT '% Acceptatie (nog) op tijd',
DECODE (
FCLT_YAS_,
0,
NULL,
NULL,
NULL,
REPLACE (
TO_CHAR (
ROUND ( (COALESCE (FCLT_XAS_, 0) / FCLT_YAS_) * 100, 1),
'990D9'
),
'.',
','
)
|| '%'
)
aantal
FROM ARBO_V_GRAPH_PPI_ACP
UNION ALL
SELECT '% Uitvoering (nog) op tijd',
DECODE (
FCLT_YAS_,
0,
NULL,
NULL,
NULL,
REPLACE (
TO_CHAR (
ROUND ( (COALESCE (FCLT_XAS_, 0) / FCLT_YAS_) * 100, 1),
'990D9'
),
'.',
','
)
|| '%'
)
aantal
FROM ARBO_V_GRAPH_PPI_AFM;
/* Formatted on 15-5-2012 11:12:04 (QP5 v5.115.810.9015)
CREATE OR REPLACE VIEW arbo_v_rap_res_top5_noshow
(
fclt_f_maand,
gebruiker,
afdeling,
no_shows
)
AS
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm') maand,
pf.prs_perslid_naam_full,
a.prs_afdeling_omschrijving || ' (' || a.prs_afdeling_naam || ')',
COUNT ( * ) aantal
FROM res_v_aanwezigrsv_ruimte rrr,
prs_perslid p,
prs_v_perslid_fullnames pf,
prs_afdeling a
WHERE (rrr.res_rsv_ruimte_noshow = 1
OR rrr.res_rsv_ruimte_bezoekers_shown IS NOT NULL)
AND rrr.res_rsv_ruimte_contact_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rrr.res_rsv_ruimte_van >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')
AND rrr.res_rsv_ruimte_van <
TO_DATE (TO_CHAR (SYSDATE, 'yyyy-mm') || '-01',
'yyyy-mm-dd')
GROUP BY TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm'),
pf.prs_perslid_naam_full,
a.prs_afdeling_omschrijving
|| ' ('
|| a.prs_afdeling_naam
|| ')';
*/
/* Formatted on 15-5-2012 12:44:46 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW arbo_v_rap_res_top5_noshow
(
fclt_f_maand,
hide_f_sortering,
gebruiker,
afdeling,
no_shows
)
AS
SELECT maand,
r,
gebruiker,
afdeling,
aantal
FROM (SELECT maand,
gebruiker,
afdeling,
aantal,
RANK ()
OVER (PARTITION BY maand
ORDER BY maand, aantal DESC, gebruiker)
r
FROM ( SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm')
maand,
pf.prs_perslid_naam_full gebruiker,
a.prs_afdeling_omschrijving
|| ' ('
|| a.prs_afdeling_naam
|| ')'
afdeling,
COUNT ( * ) aantal
FROM res_v_aanwezigrsv_ruimte rrr,
prs_perslid p,
prs_v_perslid_fullnames pf,
prs_afdeling a
WHERE (rrr.res_rsv_ruimte_noshow = 1
OR rrr.res_rsv_ruimte_bezoekers_shown IS NOT NULL)
AND rrr.res_rsv_ruimte_contact_key =
p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND rrr.res_rsv_ruimte_van >
TRUNC (ADD_MONTHS (SYSDATE, -12),
'yyyy')
AND rrr.res_rsv_ruimte_van <
TO_DATE (
TO_CHAR (SYSDATE, 'yyyy-mm')
|| '-01',
'yyyy-mm-dd'
)
GROUP BY TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm'),
pf.prs_perslid_naam_full,
a.prs_afdeling_omschrijving
|| ' ('
|| a.prs_afdeling_naam
|| ')'))
WHERE r <= 5;
/* Formatted on 15-5-2012 9:58:14 (QP5 v5.115.810.9015)
CREATE OR REPLACE VIEW arbo_v_rap_res_bezetting
(
fclt_f_maand,
fclt_f_zaal,
gebruik_uren,
beschikbaar_uren,
bezettingsperc
)
AS
SELECT bes.maand,
bes.res_ruimte_nr,
bez.uren bez_uren,
bes.uren bes_uren,
DECODE (
bes.uren,
0,
NULL,
REPLACE (
TO_CHAR (
ROUND ( (COALESCE (bez.uren, 0) / bes.uren) * 100, 1),
'990D9'
),
'.',
','
)
|| '%'
)
bezetting
FROM (SELECT periode.maand,
rr.res_ruimte_nr,
DECODE (
periode.maand,
'2012-05', -- T/m 5.2.1 fout in count_work_days!
21,
fac.count_work_days (
TO_DATE (periode.maand || '-01', 'yyyy-mm-dd')
- 1,
LAST_DAY(TO_DATE (periode.maand || '-01',
'yyyy-mm-dd'))
)
)
* (COALESCE (rr.res_ruimte_eindtijd, 20)
- COALESCE (rr.res_ruimte_begintijd, 7))
uren
FROM res_ruimte rr,
( SELECT TO_CHAR (ADD_MONTHS (bdate, LEVEL - 1),
'yyyy-mm')
maand
FROM (SELECT TRUNC (
ADD_MONTHS (SYSDATE, -12),
'yyyy'
)
bdate,
TO_DATE (
TO_CHAR (SYSDATE, 'yyyy-mm')
|| '-01',
'yyyy-mm-dd'
)
- 1
edate
FROM DUAL)
CONNECT BY LEVEL <=
MONTHS_BETWEEN (
TRUNC (edate, 'mm'),
TRUNC (bdate, 'mm')
)
+ 1) periode
WHERE rr.res_discipline_key NOT IN (121, 401)
AND rr.res_ruimte_aanmaak <
TO_DATE (periode.maand || '-01', 'yyyy-mm-dd')
AND (rr.res_ruimte_verwijder IS NULL
OR rr.res_ruimte_verwijder >
LAST_DAY(TO_DATE (periode.maand || '-01',
'yyyy-mm-dd')))) bes
LEFT JOIN
( SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm') maand,
rr.res_ruimte_nr,
SUM(LEAST (
fac.safe_to_number (
TO_CHAR (rrr.res_rsv_ruimte_tot, 'sssss')
)
/ 3600,
COALESCE (rr.res_ruimte_eindtijd, 20)
)
- GREATEST (
fac.safe_to_number(TO_CHAR (
rrr.res_rsv_ruimte_van,
'sssss'
))
/ 3600,
COALESCE (rr.res_ruimte_begintijd, 7)
))
uren
FROM res_rsv_ruimte rrr,
res_ruimte_opstelling ro,
res_ruimte rr
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_status_fo_key IN (1, 2) -- Optie/Def.
AND rrr.res_ruimte_opstel_key =
ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rrr.res_rsv_ruimte_van >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')
AND TO_CHAR (rrr.res_rsv_ruimte_van, 'd') >= 2 -- Ma
AND TO_CHAR (rrr.res_rsv_ruimte_van, 'd') <= 6 -- Vr
AND TRUNC (rrr.res_rsv_ruimte_van) NOT IN
(SELECT TRUNC (mld_vrije_dagen_datum)
FROM mld_vrije_dagen)
GROUP BY TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm'),
rr.res_ruimte_nr) bez
ON bes.maand = bez.maand
AND bes.res_ruimte_nr = bez.res_ruimte_nr;
*/
/* Formatted on 13-11-2014 11:05:00 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW arbo_v_rap_res_bezetting
(
fclt_f_maand,
fclt_f_vestiging,
fclt_f_kamer,
gebruik_uren,
beschikbaar_uren,
bezettingsperc
)
AS
SELECT bes.maand,
rg.alg_locatie_omschrijving,
rg.alg_ruimte_aanduiding
|| ' ['
|| rr.res_ruimte_nr
|| DECODE (bes.aantal, 1, ']', '...]'),
bez.uren bez_uren,
bes.uren bes_uren,
DECODE (
bes.uren,
0,
NULL,
REPLACE (
TO_CHAR (
ROUND ( (COALESCE (bez.uren, 0) / bes.uren) * 100, 1),
'990D9'),
'.',
',')
|| '%')
bezetting
FROM ( SELECT periode.maand,
ra.alg_ruimte_key,
COUNT (rr.res_ruimte_key) aantal,
MAX(DECODE (
periode.maand,
'2012-05', -- T/m 5.2.1 fout in count_work_days!
21,
fac.count_work_days (
TO_DATE (periode.maand || '-01', 'yyyy-mm-dd')
- 1,
LAST_DAY(TO_DATE (periode.maand || '-01',
'yyyy-mm-dd'))))
* (COALESCE (rr.res_ruimte_eindtijd, 20)
- COALESCE (rr.res_ruimte_begintijd, 7)))
uren
FROM res_ruimte rr,
res_alg_ruimte ra,
( SELECT TO_CHAR (ADD_MONTHS (bdate, LEVEL - 1),
'yyyy-mm')
maand
FROM (SELECT TRUNC (ADD_MONTHS (SYSDATE, -12),
'yyyy')
bdate
FROM DUAL)
CONNECT BY LEVEL <=
MONTHS_BETWEEN (TRUNC (SYSDATE, 'mm'),
TRUNC (bdate, 'mm')))
periode
WHERE rr.res_discipline_key NOT IN (121, 401)
AND rr.res_ruimte_key = ra.res_ruimte_key
AND ra.res_alg_ruimte_aanmaak <
TO_DATE (periode.maand || '-01', 'yyyy-mm-dd')
AND (ra.res_alg_ruimte_verwijder IS NULL
OR ra.res_alg_ruimte_verwijder >
LAST_DAY(TO_DATE (periode.maand || '-01',
'yyyy-mm-dd')))
GROUP BY periode.maand, ra.alg_ruimte_key) bes
LEFT JOIN
( SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm') maand,
ra.alg_ruimte_key,
SUM(LEAST (
fac.safe_to_number (
TO_CHAR (rrr.res_rsv_ruimte_tot, 'sssss'))
/ 3600,
COALESCE (rr.res_ruimte_eindtijd, 20))
- GREATEST (
fac.safe_to_number (
TO_CHAR (rrr.res_rsv_ruimte_van, 'sssss'))
/ 3600,
COALESCE (rr.res_ruimte_begintijd, 7)))
uren
FROM res_rsv_ruimte rrr,
res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte ra
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_status_fo_key IN (1, 2) -- Optie/Def.
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_ruimte_key = ra.res_ruimte_key
AND rrr.res_rsv_ruimte_van >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')
AND TO_CHAR (rrr.res_rsv_ruimte_van, 'd') >= 2 -- Ma
AND TO_CHAR (rrr.res_rsv_ruimte_van, 'd') <= 6 -- Vr
AND TRUNC (rrr.res_rsv_ruimte_van) NOT IN
(SELECT TRUNC (mld_vrije_dagen_datum)
FROM mld_vrije_dagen)
GROUP BY TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm'),
ra.alg_ruimte_key) bez
ON bes.maand = bez.maand
AND bes.alg_ruimte_key = bez.alg_ruimte_key,
alg_v_ruimte_gegevens_all rg,
(SELECT alg_ruimte_key, res_ruimte_key
FROM (SELECT rar1.alg_ruimte_key,
rar1.res_ruimte_key,
RANK ()
OVER (
PARTITION BY rar1.alg_ruimte_key
ORDER BY
rar1.alg_ruimte_key,
DECODE (rar1.res_alg_ruimte_verwijder,
NULL, 1,
2),
rar2.aantal)
r
FROM res_alg_ruimte rar1,
( SELECT res_ruimte_key,
COUNT (alg_ruimte_key) aantal
FROM res_alg_ruimte
GROUP BY res_ruimte_key) rar2
WHERE rar1.res_ruimte_key = rar2.res_ruimte_key(+))
WHERE r = 1) rar,
res_ruimte rr
WHERE bes.alg_ruimte_key = rg.alg_ruimte_key
AND rg.alg_ruimte_key = rar.alg_ruimte_key
AND rar.res_ruimte_key = rr.res_ruimte_key;
/* Formatted on 13-11-2014 11:05:30 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW arbo_v_rap_bez_aantal
(
fclt_f_maand,
fclt_f_vestiging,
aantal_bezoekers
)
AS
SELECT TO_CHAR (a.bez_afspraak_datum, 'yyyy-mm') maand,
l.alg_locatie_omschrijving,
COUNT ( * ) sum_visitors
FROM bez_afspraak a, bez_bezoekers b, alg_locatie l
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND a.alg_locatie_key = l.alg_locatie_key
AND a.bez_afspraak_datum >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')
AND a.bez_afspraak_datum <
TO_DATE (TO_CHAR (SYSDATE, 'yyyy-mm') || '-01', 'yyyy-mm-dd')
GROUP BY TO_CHAR (a.bez_afspraak_datum, 'yyyy-mm'),
l.alg_locatie_omschrijving;
-- ARBO#26005 view tbv kenmerkdomein met koffieautomaten
-- key 202 = groep koffieautomaat
CREATE OR REPLACE VIEW arbo_v_mld_koffieautomaten
AS
SELECT ins_deel_key,
l.alg_locatie_omschrijving
|| ' - '
|| v.alg_verdieping_code
|| '-'
|| r.alg_ruimte_nr
|| ' ('
|| r.alg_ruimte_omschrijving
|| ')'
|| ' - '
|| ins_deel_omschrijving
omschrijving,
ins_deel_vervaldatum
FROM ins_deel d,
ins_srtdeel srt,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE d.ins_srtdeel_key = srt.ins_srtdeel_key
AND srt.ins_srtgroep_key = 202 -- objectgroep koffieautomaat
AND ins_deel_verwijder IS NULL
AND ins_srtdeel_verwijder IS NULL
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
ORDER BY alg_locatie_omschrijving, alg_verdieping_code;
-- ARBO#65169
-- key 201 = groep waterkoelers
CREATE OR REPLACE VIEW arbo_v_mld_waterkoelers
AS
SELECT ins_deel_key,
l.alg_locatie_omschrijving
|| ' - '
|| v.alg_verdieping_code
|| '-'
|| r.alg_ruimte_nr
|| ' ('
|| r.alg_ruimte_omschrijving
|| ')'
|| ' - '
|| ins_deel_omschrijving
omschrijving,
ins_deel_vervaldatum
FROM ins_deel d,
ins_srtdeel srt,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE d.ins_srtdeel_key = srt.ins_srtdeel_key
AND srt.ins_srtgroep_key = 201 -- objectgroep waterkoelers
AND ins_deel_verwijder IS NULL
AND ins_srtdeel_verwijder IS NULL
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
ORDER BY alg_locatie_omschrijving, alg_verdieping_code;
CREATE OR REPLACE VIEW arbo_v_perslid_fullnames_all
(
prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_naam_friendly,
prs_perslid_verwijder
)
AS
SELECT prs_perslid_key,
prs_perslid_naam
|| DECODE (p.prs_perslid_voorletters,
NULL, '',
', ' || p.prs_perslid_voorletters)
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (p.prs_perslid_voornaam,
NULL, '',
' (' || p.prs_perslid_voornaam || ')')
prs_perslid_naam_full,
DECODE (p.prs_perslid_voornaam,
NULL, '',
p.prs_perslid_voornaam || ' ')
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
p.prs_perslid_tussenvoegsel || ' ')
|| prs_perslid_naam
prs_perslid_naam_friendly,
prs_perslid_verwijder
FROM prs_perslid p
WHERE (SUBSTR (prs_perslid_oslogin, 0, 1) != '_'
OR prs_perslid_oslogin IS NULL);
CREATE OR REPLACE VIEW arbo_v_noti_cntreminder
(
code,
sender,
receiver,
text,
key,
par1,
par2,
xkey
)
AS
SELECT '',
'',
c.prs_perslid_key_beh,
'Rappel: Contract ' || c.cnt_contract_nummer_intern
|| DECODE (cnt_contract_versie,
NULL, '',
'.' || cnt_contract_versie)
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
UNION ALL
SELECT 'CUST03',
'',
c.prs_perslid_key_beh,
'Contract ' || c.cnt_contract_nummer_intern
|| DECODE (cnt_contract_versie,
NULL, '',
'.' || cnt_contract_versie)
|| ' voor '
|| b.prs_bedrijf_naam
|| ' heeft actie nodig.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
fac.safe_to_date (ckc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY'),
NULL
FROM cnt_v_aanwezigcontract c,
prs_bedrijf b,
cnt_kenmerkcontract ckc,
cnt_kenmerk ck
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0
AND ckc.cnt_contract_key = c.cnt_contract_key
AND ckc.cnt_kenmerk_key = ck.cnt_kenmerk_key
AND ck.cnt_srtkenmerk_key = 343 -- actiedatum
AND (fac.safe_to_date (ckc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY') BETWEEN
TRUNC (SYSDATE) AND TRUNC (SYSDATE+6));
------ 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
Reference in New Issue View Git Blame Copy Permalink