658 lines
27 KiB
SQL
658 lines
27 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the SURF database
|
|
|
|
|
|
DEFINE thisfile = 'SURF.SQL'
|
|
DEFINE dbuser = 'SURF'
|
|
|
|
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 ------
|
|
|
|
CREATE OR REPLACE PACKAGE SURF
|
|
AS
|
|
PROCEDURE res_optie_del;
|
|
PROCEDURE res_outlook_def;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY SURF
|
|
AS
|
|
PROCEDURE res_optie_del
|
|
AS
|
|
c_applname VARCHAR2 (50) := 'RES_OPTIE_DEL';
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_aanduiding VARCHAR2 (200);
|
|
v_count_tot NUMBER (10);
|
|
|
|
CURSOR c1 IS
|
|
SELECT r.res_rsv_ruimte_key, r.res_reservering_key
|
|
FROM res_rsv_ruimte r, res_kenmerkwaarde rk
|
|
WHERE rk.res_rsv_ruimte_key = r.res_rsv_ruimte_key
|
|
AND rk.res_kenmerk_key = 161 -- In optie of definitief, alleen bij optioneel notificeren
|
|
AND rk.res_kenmerkreservering_waarde = 2
|
|
AND TRUNC (r.res_rsv_ruimte_aanmaak) = TRUNC (SYSDATE - 15);
|
|
BEGIN
|
|
v_count_tot := 0;
|
|
FOR rec IN c1
|
|
LOOP
|
|
v_errormsg := 'Fout verwijderen optie reservering';
|
|
v_aanduiding := '[' || TO_CHAR (rec.res_rsv_ruimte_key) || '|' || TO_CHAR (rec.res_reservering_key) || '] ';
|
|
BEGIN
|
|
UPDATE res_rsv_ruimte
|
|
SET res_rsv_ruimte_opmerking = 'Optie verwijderd door systeem',
|
|
res_status_fo_key = 1,
|
|
res_rsv_ruimte_verwijder = SYSDATE
|
|
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
|
|
|
|
fac.trackaction ('RESDEL',
|
|
rec.res_rsv_ruimte_key,
|
|
6,
|
|
NULL,
|
|
NULL);
|
|
|
|
UPDATE res_reservering
|
|
SET res_reservering_verwijder = SYSDATE
|
|
WHERE res_reservering_key = rec.res_reservering_key
|
|
AND NOT EXISTS
|
|
(SELECT *
|
|
FROM res_v_aanwezigrsv_ruimte
|
|
WHERE res_reservering_key = rec.res_reservering_key);
|
|
END;
|
|
v_count_tot := v_count_tot + 1;
|
|
END LOOP;
|
|
fac.writelog (c_applname, 'S', '#Optionele reserveringen verwijderd: ' || TO_CHAR (v_count_tot), '');
|
|
COMMIT;
|
|
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 (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
|
|
END;
|
|
|
|
PROCEDURE res_outlook_def
|
|
AS
|
|
c_applname VARCHAR2 (50) := 'RES_OUTLOOK_DEF';
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_aanduiding VARCHAR2 (200);
|
|
v_count_tot NUMBER (10);
|
|
|
|
CURSOR c1 IS
|
|
SELECT r.res_rsv_ruimte_key
|
|
FROM res_rsv_ruimte r
|
|
WHERE r.res_rsv_ruimte_verwijder IS NULL
|
|
AND r.res_rsv_ruimte_externnr IS NOT NULL -- Outlook
|
|
AND NOT EXISTS -- Kenmerk is nog niet gevuld
|
|
(SELECT 'x'
|
|
FROM res_kenmerkwaarde rk
|
|
WHERE rk.res_rsv_ruimte_key = r.res_rsv_ruimte_key
|
|
AND rk.res_kenmerk_key = 161);
|
|
BEGIN
|
|
v_count_tot := 0;
|
|
FOR rec IN c1
|
|
LOOP
|
|
v_errormsg := 'Fout definitief maken reservering';
|
|
v_aanduiding := '[' || TO_CHAR (rec.res_rsv_ruimte_key)|| '] ';
|
|
BEGIN
|
|
flx.setflex ('RES',
|
|
161,
|
|
rec.res_rsv_ruimte_key,
|
|
'1');
|
|
|
|
fac.trackaction ('RESUPD',
|
|
rec.res_rsv_ruimte_key,
|
|
6,
|
|
NULL,
|
|
'Reservering uit Outlook op definitief gezet');
|
|
END;
|
|
v_count_tot := v_count_tot + 1;
|
|
END LOOP;
|
|
fac.writelog (c_applname, 'S', '#Reservering definitief gemaakt: ' || TO_CHAR (v_count_tot), '');
|
|
COMMIT;
|
|
|
|
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 (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
|
|
END;
|
|
END;
|
|
/
|
|
|
|
/*
|
|
CREATE OR REPLACE PROCEDURE SURF_DAILY
|
|
AS
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
BEGIN
|
|
surf.res_optie_del;
|
|
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 SURF_DAILY;
|
|
/
|
|
*/
|
|
|
|
CREATE OR REPLACE PROCEDURE surf_import_perslid(p_import_key IN NUMBER
|
|
)
|
|
AS
|
|
v_seq_of_columns VARCHAR(255);
|
|
BEGIN
|
|
v_seq_of_columns := '1;2;3;4;5;6;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;18;19;12;0;20;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47';
|
|
prs.import_perslid(p_import_key, v_seq_of_columns, 'Locatiecode;Gebouwcode;Bouwlaagvolgnummer;Ruimtenummer;Werkplekvolgnummer;Omschrijving;Afdelingscode;PersoonAchternaam;Tussenvoegsel;Voorletters;Voornaam;TitelAanhef;Telefoonnummer;Mobiel;Email;Functie;Personeelsnummer;Loginnaam;Password;Kostenplaatsnr%');
|
|
END;
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE surf_update_perslid (
|
|
p_import_key IN NUMBER
|
|
) IS
|
|
BEGIN
|
|
prs.update_perslid (p_import_key, 'LOGIN', 'A', 1);
|
|
END surf_update_perslid;
|
|
/
|
|
|
|
|
|
|
|
--
|
|
-- Looplijst Cateraar
|
|
--
|
|
CREATE OR REPLACE VIEW surf_v_rap_catering_totaal
|
|
(
|
|
KEY,
|
|
NUMMER,
|
|
RES_OMSCHRIJVING,
|
|
INVOERDATUM,
|
|
DATUM,
|
|
GASTHEER,
|
|
ZICHTBARE_GASTHEER,
|
|
CONTACT,
|
|
GASTHEER_EMAIL,
|
|
CONTACT_EMAIL,
|
|
INVOERDER,
|
|
KOSTENSOORTGROEP,
|
|
KOSTENSOORT,
|
|
KPN,
|
|
KPN_OMSCHRIJVING,
|
|
KPN_EXTERN,
|
|
FCLT_3D_DIVISIE_KEY,
|
|
DIVISIE_NAAM,
|
|
DIVISIE_OMSCHRIJVING,
|
|
FCLT_3D_AFDELING_KEY,
|
|
AFDELING_CODE,
|
|
AFDELING_OMSCHRIJVING,
|
|
REGIO_OMSCHRIJVING,
|
|
DISTRICT_OMSCHIJVING,
|
|
FCLT_3D_LOCATIE_KEY,
|
|
LOCATIE,
|
|
LOCATIE_OMSCHRIJVING,
|
|
LOCATIE_PLAATS,
|
|
GEBOUW,
|
|
VERDIEPING,
|
|
RUIMTE,
|
|
OPSTELLING,
|
|
CAPACITEIT,
|
|
NO_SHOW,
|
|
ACTUAL_SHOWN,
|
|
MANDAAT,
|
|
PERSONEELSNR,
|
|
FCLT_3D_DISCIPLINE_KEY,
|
|
CATALOGUS_KEY,
|
|
CATALOGUS,
|
|
RESERVEERBARE_RUIMTE,
|
|
BEZOEKERS,
|
|
VAN,
|
|
TOT,
|
|
DUUR,
|
|
STATUS,
|
|
BOSTATUS,
|
|
ACTIVITEIT,
|
|
SRTACTIVITEIT_KEY,
|
|
ACTIVITEITSOORT,
|
|
OPMERKING,
|
|
VISIBILITY,
|
|
BEZORGMODE,
|
|
VOORZIENING_DISCIPLINE_KEY,
|
|
VOORZIENING_SOORT,
|
|
VOORZIENING_CATALOGUS,
|
|
LEVERANCIER,
|
|
VOORZIENING_PRODUCT_KEY,
|
|
VOORZIENING_PRODUCT,
|
|
VOORZIENING_TYPE,
|
|
VOORZIENING_DIEETWENSEN,
|
|
VOORZIENING_TOTAALPRIJS,
|
|
VOORZIENING_VAN,
|
|
VOORZIENING_TOT,
|
|
VOORZIENING_AANTAL,
|
|
VOORZIENING_PRIJS
|
|
)
|
|
AS
|
|
SELECT rrr.res_rsv_ruimte_key,
|
|
res.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr,
|
|
rrr.res_rsv_ruimte_omschrijving,
|
|
COALESCE (rrr.res_rsv_ruimte_aanmaak, voorz.van),
|
|
rrr.res_rsv_ruimte_van,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
DECODE (
|
|
p.prs_perslid_visibility,
|
|
1, (SELECT prs_perslid_naam_friendly
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
a.prs_afdeling_omschrijving)
|
|
zichtbare_gastheer,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
|
|
(SELECT ph.prs_perslid_email
|
|
FROM prs_perslid ph
|
|
WHERE ph.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
(SELECT pc.prs_perslid_email
|
|
FROM prs_perslid pc
|
|
WHERE pc.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
|
|
(SELECT pf.prs_perslid_naam_full
|
|
FROM fac_tracking tr,
|
|
fac_srtnotificatie str,
|
|
prs_v_perslid_fullnames_all pf
|
|
WHERE tr.prs_perslid_key = pf.prs_perslid_key
|
|
AND str.fac_srtnotificatie_code = 'RESNEW'
|
|
AND tr.fac_srtnotificatie_key = str.fac_srtnotificatie_key
|
|
AND tr.fac_tracking_refkey = rrr.res_rsv_ruimte_key),
|
|
(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 disc.prs_kostensoort_key
|
|
FROM res_discipline disc
|
|
WHERE disc.ins_discipline_key =
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key =
|
|
ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key =
|
|
rr.res_ruimte_key
|
|
AND rr.res_discipline_key =
|
|
d.ins_discipline_key))))
|
|
kostensoortgroep,
|
|
(SELECT ks.prs_kostensoort_oms
|
|
FROM prs_kostensoort ks
|
|
WHERE ks.prs_kostensoort_key =
|
|
(SELECT disc.prs_kostensoort_key
|
|
FROM res_discipline disc
|
|
WHERE disc.ins_discipline_key =
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key =
|
|
ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key =
|
|
rr.res_ruimte_key
|
|
AND rr.res_discipline_key =
|
|
d.ins_discipline_key))))
|
|
kostensoort,
|
|
k.prs_kostenplaats_nr,
|
|
k.prs_kostenplaats_omschrijving,
|
|
k.prs_kostenplaats_extern,
|
|
an.prs_afdeling_key,
|
|
an.prs_afdeling_naam,
|
|
an.prs_afdeling_omschrijving,
|
|
a.prs_afdeling_key,
|
|
a.prs_afdeling_naam,
|
|
a.prs_afdeling_omschrijving,
|
|
(SELECT rg.alg_regio_omschrijving
|
|
FROM alg_regio rg,
|
|
alg_district d,
|
|
alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE rg.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 = r2a.alg_ruimte_key),
|
|
(SELECT d.alg_district_omschrijving
|
|
FROM alg_district d,
|
|
alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE 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 = r2a.alg_ruimte_key),
|
|
(SELECT l.alg_locatie_key
|
|
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 r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_code
|
|
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 r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_omschrijving
|
|
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 r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_plaats
|
|
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 r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_gebouw_code
|
|
FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
|
|
WHERE g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_verdieping_code
|
|
FROM alg_verdieping v, alg_ruimte r
|
|
WHERE v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
r2a.ruimte_nr,
|
|
r2a.opstelling,
|
|
r2a.capaciteit,
|
|
rrr.res_rsv_ruimte_noshow,
|
|
rrr.res_rsv_ruimte_bezoekers_shown,
|
|
NVL ((SELECT pr.fac_profiel_limiet
|
|
FROM fac_profiel pr
|
|
WHERE p.fac_profiel_key = pr.fac_profiel_key),
|
|
0),
|
|
prs_perslid_nr,
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key =
|
|
ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key)),
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key),
|
|
(SELECT ins_discipline_omschrijving
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key),
|
|
DECODE (rrr.alg_ruimte_key, NULL, 'Ja', 'Nee'),
|
|
rrr.res_rsv_ruimte_bezoekers,
|
|
rrr.res_rsv_ruimte_van,
|
|
rrr.res_rsv_ruimte_tot,
|
|
COALESCE ((rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24,
|
|
0),
|
|
(SELECT res_status_fo_omschrijving
|
|
FROM res_status_fo rs
|
|
WHERE rs.res_status_fo_key = rrr.res_status_fo_key),
|
|
(SELECT res_status_bo_omschrijving
|
|
FROM res_status_bo rs
|
|
WHERE rs.res_status_bo_key = rrr.res_status_bo_key),
|
|
ra.res_activiteit_omschrijving,
|
|
rsa.res_srtactiviteit_key,
|
|
rsa.res_srtactiviteit_omschrijving,
|
|
rrr.res_rsv_ruimte_opmerking,
|
|
rrr.res_rsv_ruimte_visibility,
|
|
DECODE (rrr.res_rsv_ruimte_cvab_mode,
|
|
0, lcl.l ('lcl_res_afhalen'),
|
|
1, lcl.l ('lcl_res_bezorgen'),
|
|
''),
|
|
voorz.ins_discipline_key,
|
|
voorz.vtype,
|
|
voorz.catalogus,
|
|
(SELECT prs_bedrijf_naam
|
|
FROM res_disc_params rdp, prs_bedrijf b
|
|
WHERE rdp.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND rdp.res_ins_discipline_key = voorz.ins_discipline_key),
|
|
voorz.product_key,
|
|
voorz.product,
|
|
voorz.type_lunch,
|
|
voorz.dieetwensen,
|
|
voorz.totaalprijs,
|
|
TO_CHAR (voorz.van, 'hh24:mi'),
|
|
TO_CHAR (voorz.tot, 'hh24:mi'),
|
|
voorz.aantal,
|
|
voorz.prijs
|
|
FROM res_v_aanwezigrsv_ruimte rrr,
|
|
res_activiteit ra,
|
|
res_srtactiviteit rsa,
|
|
res_reservering res,
|
|
prs_kostenplaats k,
|
|
prs_perslid p,
|
|
prs_afdeling a,
|
|
prs_afdeling an,
|
|
prs_v_afdeling_boom ab,
|
|
( SELECT res_rsv_ruimte_key,
|
|
MAX (o.res_opstelling_omschrijving) opstelling,
|
|
MAX (ro.res_ruimte_opstel_bezoekers) capaciteit,
|
|
MAX (ra.alg_ruimte_key) alg_ruimte_key,
|
|
MAX (rr.res_ruimte_nr) ruimte_nr
|
|
FROM res_rsv_ruimte r,
|
|
res_ruimte_opstelling ro,
|
|
res_opstelling o,
|
|
res_ruimte rr,
|
|
res_alg_ruimte ra
|
|
WHERE r.res_rsv_ruimte_verwijder IS NULL
|
|
AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND ro.res_opstelling_key = o.res_opstelling_key
|
|
AND rr.res_ruimte_key = ra.res_ruimte_key
|
|
GROUP BY res_rsv_ruimte_key
|
|
UNION ALL
|
|
SELECT res_rsv_ruimte_key,
|
|
'' opstelling,
|
|
NULL capaciteit,
|
|
rrr.alg_ruimte_key,
|
|
r.alg_ruimte_nr
|
|
FROM res_rsv_ruimte rrr, alg_ruimte r
|
|
WHERE rrr.alg_ruimte_key IS NOT NULL
|
|
AND r.alg_ruimte_key = rrr.alg_ruimte_key) r2a,
|
|
(SELECT rrd.res_rsv_ruimte_key
|
|
res_rsv_ruimte_key,
|
|
-rd.res_deel_key
|
|
product_key,
|
|
rd.res_deel_omschrijving
|
|
product,
|
|
NULL
|
|
type_lunch,
|
|
NULL
|
|
dieetwensen,
|
|
DECODE (
|
|
rd.res_deel_prijs_vast,
|
|
1, NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs),
|
|
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
|
|
* 24
|
|
* NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs))
|
|
totaalprijs,
|
|
rrd.res_rsv_deel_van
|
|
van,
|
|
rrd.res_rsv_deel_tot
|
|
tot,
|
|
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
|
|
aantal,
|
|
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs)
|
|
prijs,
|
|
c.ins_discipline_key
|
|
ins_discipline_key,
|
|
c.ins_discipline_omschrijving
|
|
catalogus,
|
|
'object'
|
|
vtype
|
|
FROM res_v_aanwezigrsv_deel rrd,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
ins_tab_discipline c
|
|
WHERE rrd.res_deel_key = rd.res_deel_key
|
|
AND d.ins_deel_key = rd.res_ins_deel_key
|
|
AND rrd.res_rsv_ruimte_key IS NOT NULL
|
|
AND c.ins_discipline_key = rd.res_discipline_key
|
|
UNION ALL
|
|
SELECT rra.res_rsv_ruimte_key
|
|
res_rsv_ruimte_key,
|
|
ra.res_artikel_key
|
|
product_key,
|
|
ra.res_artikel_omschrijving
|
|
product,
|
|
CASE
|
|
WHEN ra.res_artikel_key = 41
|
|
THEN
|
|
(SELECT f.fac_usrdata_omschr
|
|
FROM res_kenmerkartikel rka, fac_usrdata f
|
|
WHERE rra.res_rsv_artikel_key =
|
|
rka.res_rsv_artikel_key
|
|
AND rka.res_kenmerk_key = 61 -- soort lunch utrecht
|
|
AND rka.res_kenmerkartikel_waarde =
|
|
TO_CHAR (f.fac_usrdata_key))
|
|
WHEN ra.res_artikel_key = 61
|
|
THEN
|
|
(SELECT f.fac_usrdata_omschr
|
|
FROM res_kenmerkartikel rka, fac_usrdata f
|
|
WHERE rra.res_rsv_artikel_key =
|
|
rka.res_rsv_artikel_key
|
|
AND rka.res_kenmerk_key = 82 -- soort lunch amsterdam
|
|
AND rka.res_kenmerkartikel_waarde =
|
|
TO_CHAR (f.fac_usrdata_key))
|
|
ELSE
|
|
NULL
|
|
END
|
|
type_lunch,
|
|
CASE
|
|
WHEN ra.res_artikel_key = 41
|
|
THEN
|
|
(SELECT rka.res_kenmerkartikel_waarde
|
|
FROM res_kenmerkartikel rka
|
|
WHERE rra.res_rsv_artikel_key =
|
|
rka.res_rsv_artikel_key
|
|
AND rka.res_kenmerk_key = 102)
|
|
WHEN ra.res_artikel_key = 61
|
|
THEN
|
|
(SELECT rka.res_kenmerkartikel_waarde
|
|
FROM res_kenmerkartikel rka
|
|
WHERE rra.res_rsv_artikel_key =
|
|
rka.res_rsv_artikel_key
|
|
AND rka.res_kenmerk_key = 101)
|
|
WHEN ra.res_artikel_key = 81
|
|
THEN
|
|
(SELECT rka.res_kenmerkartikel_waarde
|
|
FROM res_kenmerkartikel rka
|
|
WHERE rra.res_rsv_artikel_key =
|
|
rka.res_rsv_artikel_key
|
|
AND rka.res_kenmerk_key = 181)
|
|
ELSE
|
|
NULL
|
|
END
|
|
dieetwensen,
|
|
NVL (rra.res_rsv_artikel_prijs,
|
|
rra.res_rsv_artikel_aantal * res_artikel_prijs)
|
|
totaalprijs,
|
|
rra.res_rsv_artikel_levering
|
|
van,
|
|
NULL
|
|
tot,
|
|
rra.res_rsv_artikel_aantal
|
|
aantal,
|
|
NVL (
|
|
rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal,
|
|
res_artikel_prijs)
|
|
prijs,
|
|
c.ins_discipline_key
|
|
ins_discipline_key,
|
|
c.ins_discipline_omschrijving
|
|
catalogus,
|
|
'consumable'
|
|
vtype
|
|
FROM res_v_aanwezigrsv_artikel rra,
|
|
res_artikel ra,
|
|
ins_tab_discipline c
|
|
WHERE rra.res_artikel_key = ra.res_artikel_key
|
|
AND ra.res_discipline_key = c.ins_discipline_key) voorz
|
|
WHERE rrr.res_reservering_key = res.res_reservering_key
|
|
AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
|
|
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
|
|
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key
|
|
AND rrr.res_activiteit_key = ra.res_activiteit_key
|
|
AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key
|
|
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_afdeling_key = ab.prs_afdeling_key
|
|
AND ab.prs_afdeling_key1 = an.prs_afdeling_key
|
|
AND ( rrr.res_ruimte_opstel_key IS NOT NULL
|
|
OR voorz.res_rsv_ruimte_key IS NOT NULL)
|
|
AND rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
|
|
|
|
|
|
|
|
------ 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
|