560 lines
25 KiB
Plaintext
560 lines
25 KiB
Plaintext
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the FACILITOR database
|
|
|
|
DEFINE thisfile = 'QUAW.SQL'
|
|
DEFINE dbuser = '^QUAW'
|
|
DEFINE custid = 'QUAW'
|
|
|
|
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 PROCEDURE quaw_import_prs (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;
|
|
BEGIN
|
|
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 proc
|
|
prs.import_perslid (
|
|
p_import_key,
|
|
'4;5;0;0;0;0;6;2;0;1;'
|
|
|| '0;0;0;0;0;8;9;10;0;0;'
|
|
|| '7;12;0;0;0;0;11;0;0;0;'
|
|
|| '0;0;0;0;0;0;0;0;0;0;'
|
|
|| '0;0;0;0;0;0',
|
|
'"First Name";"Last Name";"DisplayName";"Locatie";"Gebouwcode";"Afdelingscode";"Aanhef";"Telefoonnummer";"Mobiel";"Email";"ipPhone";"loginnaam"%');
|
|
|
|
|
|
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 quaw_import_prs;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE quaw_update_doorkiesnr (p_import_key IN NUMBER)
|
|
IS
|
|
CURSOR c_doorkiesnr
|
|
IS
|
|
SELECT '1000', P.PRS_PERSLID_KEY, I.PRS_KENMERK1
|
|
FROM prs_perslid p, fac_imp_perslid i
|
|
WHERE UPPER (P.PRS_PERSLID_OSLOGIN) = UPPER (I.PRS_PERSLID_OSLOGIN);
|
|
BEGIN
|
|
FOR rec IN c_doorkiesnr
|
|
LOOP
|
|
BEGIN
|
|
prs.upsertkenmerk (1000, rec.PRS_PERSLID_KEY, rec.PRS_KENMERK1);
|
|
END;
|
|
END LOOP;
|
|
END quaw_update_doorkiesnr;
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE quaw_update_prs (p_import_key IN NUMBER)
|
|
IS
|
|
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
|
|
-- Key bij QUAW is SAMAccountName, hieronder de query om alle personen te verwijderen die:
|
|
-- a) niet meer in het importbestand staan, wel in Facilitor, en
|
|
-- b) waarvan de persoon in Facilitor niet begint met een _ in de loginnaam (ook van af blijven)
|
|
|
|
|
|
CURSOR c_del
|
|
IS
|
|
SELECT DISTINCT
|
|
p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
|
|
FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) <> '_'
|
|
AND pf.prs_perslid_key = p.prs_perslid_key
|
|
AND UPPER (p.prs_perslid_oslogin) NOT IN
|
|
(SELECT UPPER (I.PRS_PERSLID_OSLOGIN)
|
|
FROM fac_imp_perslid i)
|
|
ORDER BY 2;
|
|
|
|
v_count NUMBER;
|
|
BEGIN
|
|
-- generic update
|
|
|
|
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
|
|
|
|
-- 'LOGIN' betekent dat op basis van Login wordt gematched.
|
|
-- 'NR' betekent dat op basis van Personeelsnummer wordt gematched.
|
|
-- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
|
|
prs.update_perslid (p_import_key, 'LOGIN', NULL);
|
|
|
|
quaw_update_doorkiesnr (p_import_key);
|
|
|
|
-- 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;
|
|
END quaw_update_prs;
|
|
/
|
|
|
|
|
|
-- QUAW#38329 QR code rapport
|
|
|
|
CREATE OR REPLACE VIEW QUAW_V_INS_QRC
|
|
(
|
|
hide_f_sort,
|
|
fclt_3d_discipline_key,
|
|
fclt_3d_locatie_key,
|
|
fclt_f_locatie,
|
|
fclt_f_gebouw,
|
|
plaats,
|
|
fclt_f_objectsoort,
|
|
fclt_f_identificatie,
|
|
ins_deel_key,
|
|
soortruimte,
|
|
ins_srtdeel_code,
|
|
ins_srtdeel_key,
|
|
ins_alg_ruimte_type,
|
|
alg_gebouw_code,
|
|
alg_verdieping_code,
|
|
alg_district_key,
|
|
ins_alg_ruimte_key,
|
|
hide_f_bookmark_id
|
|
)
|
|
AS
|
|
SELECT i.ins_deel_omschrijving hide_f_sort,
|
|
i.ins_discipline_key fclt_3d_discipline_key,
|
|
l.alg_locatie_key fclt_3d_locatie_key,
|
|
l.alg_locatie_omschrijving fclt_f_locatie,
|
|
o.alg_gebouw_omschrijving fclt_f_gebouw,
|
|
o.alg_plaatsaanduiding plaats,
|
|
s.ins_srtdeel_omschrijving fclt_f_objectsoort,
|
|
i.ins_deel_omschrijving fclt_f_identificatie,
|
|
i.ins_deel_key,
|
|
(SELECT r.alg_ruimte_omschrijving
|
|
FROM alg_ruimte r
|
|
WHERE r.alg_ruimte_key = i.ins_alg_ruimte_key)
|
|
soortruimte,
|
|
s.ins_srtdeel_code,
|
|
s.ins_srtdeel_key,
|
|
i.ins_alg_ruimte_type,
|
|
o.alg_gebouw_code,
|
|
o.alg_verdieping_code,
|
|
l.alg_district_key,
|
|
i.ins_alg_ruimte_key,
|
|
b.fac_bookmark_id hide_f_bookmark_id
|
|
FROM ins_deel i,
|
|
ins_v_alg_overzicht o,
|
|
ins_srtdeel s,
|
|
alg_locatie l,
|
|
alg_district di,
|
|
fac_bookmark b
|
|
WHERE b.fac_bookmark_naam = 'QRC_OBJECT'
|
|
AND ins_deel_verwijder IS NULL
|
|
AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
|
|
AND i.ins_deel_module = 'INS'
|
|
AND i.ins_deel_parent_key IS NULL
|
|
AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
|
|
AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
|
|
AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
|
AND o.alg_locatie_key = i.ins_alg_locatie_key
|
|
AND i.ins_alg_locatie_key = l.alg_locatie_key
|
|
AND l.alg_district_key = di.alg_district_key
|
|
AND s.ins_srtdeel_key = i.ins_srtdeel_key;
|
|
|
|
-- QUAW#39822 overzicht bezetting objecten van het soort vervoer (7-18 uur)
|
|
CREATE OR REPLACE VIEW QUAW_V_BEZETTING_VERVOER
|
|
(
|
|
MND,
|
|
CATALOGUS,
|
|
OBJECT,
|
|
AANTAL_RES,
|
|
BESCH_UREN,
|
|
BEZ_UREN,
|
|
PERC
|
|
)
|
|
AS
|
|
SELECT resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving,
|
|
SUM (resbez.aant) aantal_reserveringen,
|
|
ROUND (resbes.uren, 2) bes_uren,
|
|
SUM (ROUND (resbez.tot_uren, 2)) bez_uren,
|
|
ROUND (
|
|
( (SUM (ROUND (resbez.tot_uren, 2))
|
|
/ SUM (ROUND (resbes.uren, 2)))
|
|
* 100),
|
|
2)
|
|
AS perc
|
|
FROM ( --- aantal uren dat een object beschikbaar is per maand uitgaande van res_t1 (7) en res_t2 (23) en werkdagen
|
|
SELECT TO_CHAR (p.mnd, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_key,
|
|
rd.res_deel_omschrijving,
|
|
fac.count_work_days (p.mnd - 1, ADD_MONTHS (p.mnd, 1) - 1)
|
|
* 11 -- bij quaw voor auto's : 18-7 = 11
|
|
uren
|
|
FROM res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds,
|
|
( SELECT ADD_MONTHS (TRUNC (SYSDATE, 'mm'), LEVEL - 26) mnd
|
|
FROM DUAL
|
|
CONNECT BY LEVEL <= 25) p
|
|
WHERE rd.res_ins_deel_key = d.ins_deel_key
|
|
AND COALESCE (d.ins_alg_ruimte_type_org,
|
|
d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
AND rd.res_deel_aanmaak < ADD_MONTHS (p.mnd, 1)
|
|
AND (rd.res_deel_verwijder IS NULL
|
|
OR rd.res_deel_verwijder >= p.mnd)
|
|
AND rd.res_discipline_key = ds.ins_discipline_key) resbes,
|
|
--- aantal reserveringen en totaal aantal uren dat een object 'bezet' is per maand uitgaande van 7- 18 uur en werkdagen
|
|
( SELECT TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key,
|
|
COUNT ( * ) aant,
|
|
SUM(LEAST (
|
|
(rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot))
|
|
* 24,
|
|
18)
|
|
- GREATEST (
|
|
(rrd.res_rsv_deel_van
|
|
- TRUNC (rrd.res_rsv_deel_van))
|
|
* 24,
|
|
7))
|
|
tot_uren
|
|
FROM res_rsv_deel rrd,
|
|
res_rsv_ruimte rrr,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds
|
|
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
|
AND rd.res_discipline_key = ds.ins_discipline_key
|
|
AND rrd.res_rsv_deel_dirtlevel = 0
|
|
AND TRUNC (rrd.res_rsv_deel_van) =
|
|
TRUNC (rrd.res_rsv_deel_tot) -- Eendaags!
|
|
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (
|
|
TRUNC (SYSDATE, 'mm'),
|
|
-25)
|
|
AND TRUNC (SYSDATE, 'mm')
|
|
-- AND TO_CHAR (rrd.res_rsv_deel_tot, 'd') BETWEEN '2' AND '6' dit laat reserveringen weg die er wel in horen?!
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_vrije_dagen
|
|
WHERE TRUNC (mld_vrije_dagen_datum) =
|
|
TRUNC (rrd.res_rsv_deel_tot))
|
|
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
|
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
|
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
|
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
|
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
|
AND rrd.res_deel_key = rd.res_deel_key
|
|
AND rd.res_ins_deel_key = d.ins_deel_key
|
|
-- AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
GROUP BY TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm'),
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key
|
|
UNION ALL -- Meerdaagse voorzieningen!
|
|
SELECT TO_CHAR (p.dag, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key resource_key,
|
|
COUNT ( distinct rrr.res_reservering_key ) aant,
|
|
SUM(DECODE (
|
|
p.dag,
|
|
TRUNC (rrd.res_rsv_deel_van),
|
|
18
|
|
- GREATEST (
|
|
(rrd.res_rsv_deel_van
|
|
- TRUNC (rrd.res_rsv_deel_van))
|
|
* 24,
|
|
7),
|
|
TRUNC (rrd.res_rsv_deel_tot),
|
|
LEAST (
|
|
(rrd.res_rsv_deel_tot
|
|
- TRUNC (rrd.res_rsv_deel_tot))
|
|
* 24,
|
|
18)
|
|
- 7,
|
|
11)) -- = 18-7
|
|
uren
|
|
FROM res_rsv_deel rrd,
|
|
res_rsv_ruimte rrr,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds,
|
|
( SELECT TRUNC (SYSDATE, 'mm') - LEVEL dag
|
|
FROM DUAL
|
|
CONNECT BY LEVEL <=
|
|
TRUNC (SYSDATE, 'mm')
|
|
- ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -25)) p
|
|
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
|
AND rd.res_discipline_key = ds.ins_discipline_key
|
|
AND rrd.res_rsv_deel_dirtlevel = 0
|
|
AND TRUNC (rrd.res_rsv_deel_van) !=
|
|
TRUNC (rrd.res_rsv_deel_tot) -- Meerdaags!
|
|
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (
|
|
TRUNC (SYSDATE, 'mm'),
|
|
-25)
|
|
AND TRUNC (SYSDATE, 'mm')
|
|
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
|
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
|
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
|
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
|
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
|
AND rrd.res_deel_key = rd.res_deel_key
|
|
AND rd.res_ins_deel_key = d.ins_deel_key
|
|
-- AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
AND p.dag BETWEEN TRUNC (rrd.res_rsv_deel_van)
|
|
AND TRUNC (rrd.res_rsv_deel_tot)
|
|
AND TO_CHAR (p.dag, 'd') BETWEEN '2' AND '6'
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_vrije_dagen
|
|
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (p.dag))
|
|
GROUP BY TO_CHAR (p.dag, 'yyyy-mm'),
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key) resbez,
|
|
res_discipline rd
|
|
WHERE resbes.mnd = resbez.mnd(+)
|
|
AND resbes.res_discipline_key = resbez.res_discipline_key(+)
|
|
AND resbes.res_deel_key = resbez.res_deel_key(+)
|
|
AND resbes.res_discipline_key = rd.ins_discipline_key(+)
|
|
AND resbes.ins_discipline_omschrijving='Vervoersmiddelen'
|
|
AND resbes.uren > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van reserveerbare ruimte = res_ruimte)!
|
|
AND COALESCE (resbez.tot_uren, 1) > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van res_rsv_ruimte/deel)!
|
|
GROUP BY resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving,
|
|
resbes.uren
|
|
ORDER BY resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving;
|
|
|
|
-- QUAW#39822 overzicht bezetting objecten niet van het soort vervoer (7-23 uur)
|
|
CREATE OR REPLACE VIEW QUAW_V_BEZETTING_OBJ
|
|
(
|
|
MND,
|
|
CATALOGUS,
|
|
OBJECT,
|
|
AANTAL_RES,
|
|
BESCH_UREN,
|
|
BEZ_UREN,
|
|
PERC
|
|
)
|
|
AS
|
|
SELECT resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving,
|
|
SUM (resbez.aant) aantal_reserveringen,
|
|
ROUND (resbes.uren, 2) bes_uren,
|
|
SUM (ROUND (resbez.tot_uren, 2)) bez_uren,
|
|
ROUND (
|
|
( (SUM (ROUND (resbez.tot_uren, 2))
|
|
/ SUM (ROUND (resbes.uren, 2)))
|
|
* 100),
|
|
2)
|
|
AS perc
|
|
FROM ( --- aantal uren dat een object beschikbaar is per maand uitgaande van res_t1 (7) en res_t2 (23) en werkdagen
|
|
SELECT TO_CHAR (p.mnd, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_key,
|
|
rd.res_deel_omschrijving,
|
|
fac.count_work_days (p.mnd - 1, ADD_MONTHS (p.mnd, 1) - 1)
|
|
* 16 -- bij quaw: 23-7 = 16
|
|
uren
|
|
FROM res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds,
|
|
( SELECT ADD_MONTHS (TRUNC (SYSDATE, 'mm'), LEVEL - 26) mnd
|
|
FROM DUAL
|
|
CONNECT BY LEVEL <= 25) p
|
|
WHERE rd.res_ins_deel_key = d.ins_deel_key
|
|
AND COALESCE (d.ins_alg_ruimte_type_org,
|
|
d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
AND rd.res_deel_aanmaak < ADD_MONTHS (p.mnd, 1)
|
|
AND (rd.res_deel_verwijder IS NULL
|
|
OR rd.res_deel_verwijder >= p.mnd)
|
|
AND rd.res_discipline_key = ds.ins_discipline_key) resbes,
|
|
--- aantal reserveringen en totaal aantal uren dat een object 'bezet' is per maand uitgaande van res_t1 (7) en res_t2 (23) en werkdagen
|
|
( SELECT TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key,
|
|
COUNT ( * ) aant,
|
|
SUM(LEAST (
|
|
(rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot))
|
|
* 24,
|
|
23)
|
|
- GREATEST (
|
|
(rrd.res_rsv_deel_van
|
|
- TRUNC (rrd.res_rsv_deel_van))
|
|
* 24,
|
|
7))
|
|
tot_uren
|
|
FROM res_rsv_deel rrd,
|
|
res_rsv_ruimte rrr,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds
|
|
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
|
AND rd.res_discipline_key = ds.ins_discipline_key
|
|
AND rrd.res_rsv_deel_dirtlevel = 0
|
|
AND TRUNC (rrd.res_rsv_deel_van) =
|
|
TRUNC (rrd.res_rsv_deel_tot) -- Eendaags!
|
|
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (
|
|
TRUNC (SYSDATE, 'mm'),
|
|
-25)
|
|
AND TRUNC (SYSDATE, 'mm')
|
|
-- AND TO_CHAR (rrd.res_rsv_deel_tot, 'd') BETWEEN '2' AND '6' dit laat reserveringen weg die er wel in horen?!
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_vrije_dagen
|
|
WHERE TRUNC (mld_vrije_dagen_datum) =
|
|
TRUNC (rrd.res_rsv_deel_tot))
|
|
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
|
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
|
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
|
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
|
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
|
AND rrd.res_deel_key = rd.res_deel_key
|
|
AND rd.res_ins_deel_key = d.ins_deel_key
|
|
-- AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
GROUP BY TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm'),
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key
|
|
UNION ALL -- Meerdaagse voorzieningen!
|
|
SELECT TO_CHAR (p.dag, 'yyyy-mm') mnd,
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key resource_key,
|
|
COUNT (DISTINCT rrr.res_reservering_key) aant,
|
|
SUM(DECODE (
|
|
p.dag,
|
|
TRUNC (rrd.res_rsv_deel_van),
|
|
23
|
|
- GREATEST (
|
|
(rrd.res_rsv_deel_van
|
|
- TRUNC (rrd.res_rsv_deel_van))
|
|
* 24,
|
|
7),
|
|
TRUNC (rrd.res_rsv_deel_tot),
|
|
LEAST (
|
|
(rrd.res_rsv_deel_tot
|
|
- TRUNC (rrd.res_rsv_deel_tot))
|
|
* 24,
|
|
23)
|
|
- 7,
|
|
16)) -- = 23-7
|
|
uren
|
|
FROM res_rsv_deel rrd,
|
|
res_rsv_ruimte rrr,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
res_discipline ds,
|
|
( SELECT TRUNC (SYSDATE, 'mm') - LEVEL dag
|
|
FROM DUAL
|
|
CONNECT BY LEVEL <=
|
|
TRUNC (SYSDATE, 'mm')
|
|
- ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -25)) p
|
|
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
|
AND rd.res_discipline_key = ds.ins_discipline_key
|
|
AND rrd.res_rsv_deel_dirtlevel = 0
|
|
AND TRUNC (rrd.res_rsv_deel_van) !=
|
|
TRUNC (rrd.res_rsv_deel_tot) -- Meerdaags!
|
|
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (
|
|
TRUNC (SYSDATE, 'mm'),
|
|
-25)
|
|
AND TRUNC (SYSDATE, 'mm')
|
|
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
|
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
|
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
|
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
|
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
|
AND rrd.res_deel_key = rd.res_deel_key
|
|
AND rd.res_ins_deel_key = d.ins_deel_key
|
|
-- AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
|
AND p.dag BETWEEN TRUNC (rrd.res_rsv_deel_van)
|
|
AND TRUNC (rrd.res_rsv_deel_tot)
|
|
AND TO_CHAR (p.dag, 'd') BETWEEN '2' AND '6'
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_vrije_dagen
|
|
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (p.dag))
|
|
GROUP BY TO_CHAR (p.dag, 'yyyy-mm'),
|
|
rd.res_discipline_key,
|
|
ds.ins_discipline_omschrijving,
|
|
rd.res_deel_omschrijving,
|
|
rd.res_deel_key) resbez,
|
|
res_discipline rd
|
|
WHERE resbes.mnd = resbez.mnd(+)
|
|
AND resbes.res_discipline_key = resbez.res_discipline_key(+)
|
|
AND resbes.res_deel_key = resbez.res_deel_key(+)
|
|
AND resbes.res_discipline_key = rd.ins_discipline_key(+)
|
|
AND resbes.ins_discipline_omschrijving <> 'Vervoersmiddelen'
|
|
AND resbes.uren > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van reserveerbare ruimte = res_ruimte)!
|
|
AND COALESCE (resbez.tot_uren, 1) > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van res_rsv_ruimte/deel)!
|
|
GROUP BY resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving,
|
|
resbes.uren
|
|
ORDER BY resbes.mnd,
|
|
resbes.ins_discipline_omschrijving,
|
|
resbes.res_deel_omschrijving;
|
|
|
|
COMMIT;
|
|
|
|
BEGIN
|
|
DBMS_UTILITY.COMPILE_SCHEMA (USER, FALSE);
|
|
END;
|
|
/
|
|
|
|
------ 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 |