489 lines
19 KiB
SQL
489 lines
19 KiB
SQL
/* Formatted on 23-1-2023 15:00:17 (QP5 v5.336) */
|
|
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the FACILITOR database
|
|
-- Voor dbuser invullen: - indien script voor 1 klant is: 'AADS' (de klantcode, zoals vermeld in fac_version_cust)
|
|
-- - script is voor meerdere klanten: 'AAXX' (de groepcode, zoals vermeld in fac_version_group)
|
|
-- - script is voor meerdere klanten met naam volgens een bepaald patroon: '^AA|^ASMS|^GULU|^NMMS|^RABO|^ZKHM'
|
|
-- Ook als het script gedraaid wordt voor de verkeerde cust wordt er een logfile gemaakt.
|
|
-- (dit in tegenstelling tot sample_xxxx.sql)
|
|
|
|
DEFINE thisfile = 'FBEA.SQL'
|
|
DEFINE dbuser = 'FBEA'
|
|
|
|
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 PROCEDURE fbea_processemail (pfrom IN VARCHAR2,
|
|
pto IN VARCHAR2,
|
|
psubject IN VARCHAR2,
|
|
pbody IN VARCHAR2,
|
|
psessionid IN VARCHAR2,
|
|
pemailkey IN NUMBER)
|
|
AS
|
|
v_count NUMBER;
|
|
sender prs_perslid.prs_perslid_key%TYPE;
|
|
defaultstdmelding fac_setting.fac_setting_default%TYPE;
|
|
v_newkey mld_melding.mld_melding_key%TYPE;
|
|
v_gebouwkey mld_melding.mld_alg_onroerendgoed_keys%TYPE;
|
|
v_locatiekey mld_melding.mld_alg_locatie_key%TYPE;
|
|
errormsg fac_result.fac_result_waarde%TYPE;
|
|
BEGIN
|
|
-- Valideer de sender in pfrom: kennen we deze?
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM prs_perslid p
|
|
WHERE UPPER (prs_perslid_email) = UPPER (pfrom);
|
|
|
|
-- Bekende afzender --> dat is de melder
|
|
IF (v_count = 1)
|
|
THEN
|
|
SELECT prs_perslid_key
|
|
INTO sender
|
|
FROM prs_perslid p
|
|
WHERE UPPER (prs_perslid_email) = UPPER (pfrom);
|
|
-- Geen bekende afzender --> _FACILITOR
|
|
ELSE
|
|
SELECT prs_perslid_key
|
|
INTO sender
|
|
FROM prs_perslid p
|
|
WHERE prs_perslid_key = 3;
|
|
END IF;
|
|
|
|
CASE
|
|
-- Op basis van het mailadres bepalen we het gebouw waar de melding voor bedoeld is
|
|
-- Voorlopig doen we dat alleen voor Het Eemhuis en ICOON
|
|
-- 11 Eemhuis
|
|
-- 2 ICOON
|
|
-- 3 Bibliotheek Baarn
|
|
-- 4 Bibliotheek Bunschoten
|
|
-- 5 Bibliotheek Hoogland
|
|
-- 6 Scholen in de Kunst Hoogland
|
|
-- 7 Bibliotheek Leusden Aanbouw
|
|
-- 8 Scholen in de Kunst Leusden
|
|
-- 9 Scholen in de Kunst Soest
|
|
-- 10 Bibliotheek Woudenberg
|
|
-- 901 Bibliotheek Woudenberg - Boerderij
|
|
-- 921 Bibliotheek Leusden Boerderij
|
|
|
|
|
|
WHEN UPPER (pto) LIKE 'HETEEMHUIS@%'
|
|
THEN
|
|
v_gebouwkey := '1';
|
|
WHEN UPPER (pto) LIKE 'ICOON@%'
|
|
THEN
|
|
v_gebouwkey := '2';
|
|
ELSE
|
|
NULL;
|
|
END CASE;
|
|
|
|
-- suggested extensions:
|
|
-- check for MLDUSE-write autorisations
|
|
-- parse the subject to find an appropriate stdmelding, if uniquely possible
|
|
IF v_gebouwkey IS NOT NULL
|
|
THEN
|
|
BEGIN
|
|
SELECT g.alg_locatie_key
|
|
INTO v_locatiekey
|
|
FROM alg_gebouw g
|
|
WHERE g.alg_gebouw_key = v_gebouwkey;
|
|
|
|
INSERT INTO mld_melding (mld_melding_module,
|
|
mld_meldbron_key,
|
|
mld_melding_datum,
|
|
mld_melding_onderwerp,
|
|
mld_melding_omschrijving,
|
|
mld_melding_status,
|
|
mld_stdmelding_key,
|
|
mld_alg_locatie_key,
|
|
mld_alg_onroerendgoed_keys,
|
|
prs_perslid_key,
|
|
prs_perslid_key_voor,
|
|
mld_melding_email_ext,
|
|
mld_melding_spoed)
|
|
VALUES (
|
|
'MLD',
|
|
4, -- email
|
|
SYSDATE,
|
|
SUBSTR (psubject, 1, 60),
|
|
SUBSTR (
|
|
REPLACE (
|
|
SUBSTR (pbody, 1, 4000),
|
|
CHR (13) || CHR (10) || CHR (13) || CHR (10),
|
|
CHR (13) || CHR (10)),
|
|
1,
|
|
4000), -- verwijder onnodige witregels
|
|
2,
|
|
61,
|
|
v_locatiekey,
|
|
v_gebouwkey,
|
|
sender,
|
|
sender,
|
|
pfrom,
|
|
3)
|
|
RETURNING mld_melding_key
|
|
INTO v_newkey;
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid,
|
|
fac_result_naam,
|
|
fac_result_waarde)
|
|
VALUES (psessionid,
|
|
'maillog',
|
|
'Geregistreerd onder melding ' || v_newkey);
|
|
END;
|
|
|
|
IF errormsg IS NOT NULL
|
|
THEN
|
|
INSERT INTO fac_result (fac_result_sessionid,
|
|
fac_result_naam,
|
|
fac_result_waarde)
|
|
VALUES (psessionid, 'errormsg', errormsg);
|
|
END IF;
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
fac.writelog (
|
|
'PROCESSEMAIL',
|
|
'W',
|
|
'Mail kon niet verwerkt worden afzender: '
|
|
|| pfrom
|
|
|| '['
|
|
|| errormsg
|
|
|| ']',
|
|
'OTHERS (error '
|
|
|| SQLCODE
|
|
|| '/'
|
|
|| SUBSTR (SQLERRM, 1, 100)
|
|
|| ')');
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid,
|
|
fac_result_naam,
|
|
fac_result_waarde)
|
|
VALUES (
|
|
psessionid,
|
|
'errormsg',
|
|
'Database fout - Neem contact op met uw systeembeheerder');
|
|
END fbea_processemail;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_TEAMLEIDERS_BIEB
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
PRS_PERSLID_NAAM,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key,
|
|
pf.prs_perslid_naam_friendly,
|
|
pf.prs_perslid_verwijder
|
|
FROM prs_perslid p, prs_v_perslid_fullnames_all pf, prs_srtperslid f
|
|
WHERE p.prs_perslid_key = pf.prs_perslid_key
|
|
AND p.prs_srtperslid_key = f.prs_srtperslid_key
|
|
AND f.prs_srtperslid_upper = 'TEAMLEIDER BIBLIOTHEEK';
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_NOTI_EVALUATIE
|
|
(
|
|
CODE,
|
|
SENDER,
|
|
RECEIVER,
|
|
TEXT,
|
|
KEY,
|
|
XKEY
|
|
)
|
|
AS
|
|
SELECT sn.fac_srtnotificatie_code,
|
|
'',
|
|
evaluatie.contact_key,
|
|
REPLACE (sn.fac_srtnotificatie_oms,
|
|
'##nr##',
|
|
evaluatie.reservering) tekst,
|
|
evaluatie.res_reservering_key,
|
|
evaluatie.res_rsv_ruimte_key
|
|
FROM (SELECT r.res_reservering_key,
|
|
r.res_rsv_ruimte_key,
|
|
r.res_reservering_key || '/' || r.res_rsv_ruimte_volgnr
|
|
reservering,
|
|
c.prs_perslid_key
|
|
contact_key,
|
|
c.prs_perslid_email
|
|
contact_email,
|
|
h.prs_perslid_key
|
|
host_key,
|
|
h.prs_perslid_email
|
|
host_email,
|
|
r.res_rsv_ruimte_tot,
|
|
TO_CHAR (r.res_rsv_ruimte_tot + 1, 'DD-MM-YYYY')
|
|
AS notificatie_datum,
|
|
r.res_rsv_ruimte_omschrijving
|
|
FROM res_rsv_ruimte r, prs_perslid h, prs_perslid c
|
|
WHERE r.res_activiteit_key = 30 --- actviteiten bibliotheken Eemland
|
|
AND r.res_rsv_ruimte_contact_key = c.prs_perslid_key
|
|
AND r.res_rsv_ruimte_host_key = h.prs_perslid_key)
|
|
evaluatie,
|
|
fac_notificatie_job nj,
|
|
fac_srtnotificatie sn
|
|
WHERE sn.fac_srtnotificatie_code = 'CUST01'
|
|
AND nj.fac_notificatie_job_view = 'FBEA_V_NOTI_EVALUATIE'
|
|
AND fac.safe_to_date (notificatie_datum, 'DD-MM-YYYY') =
|
|
TRUNC (SYSDATE);
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_RAP_INFOBORD
|
|
AS
|
|
SELECT res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
|
|
reservering,
|
|
(CASE
|
|
WHEN res_rsv_ruimte_van > SYSDATE THEN 'expected'
|
|
WHEN res_rsv_ruimte_tot < SYSDATE THEN 'passed'
|
|
ELSE 'active'
|
|
END)
|
|
aktief,
|
|
res_rsv_ruimte_van
|
|
datum,
|
|
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy')
|
|
dag,
|
|
TO_CHAR (res_rsv_ruimte_van, 'hh24:mi')
|
|
tijd_van,
|
|
TO_CHAR (res_rsv_ruimte_tot, 'hh24:mi')
|
|
tijd_tot,
|
|
res_ruimte_nr
|
|
ruimte,
|
|
gastheer.prs_perslid_naam_full
|
|
gastheer,
|
|
res_rsv_ruimte_omschrijving
|
|
omschrijving,
|
|
l.alg_locatie_omschrijving
|
|
locatie_omschrijving,
|
|
g.alg_gebouw_code
|
|
gebouw_code,
|
|
g.alg_gebouw_naam
|
|
gebouw,
|
|
v.alg_verdieping_omschrijving
|
|
verdieping_omschrijving,
|
|
v.alg_verdieping_volgnr
|
|
verdieping_volgnr,
|
|
clstr.cluster_omschr
|
|
cluster_omschr,
|
|
titel.titel,
|
|
po.omschrijving
|
|
publieke_omschrijving,
|
|
infob.icon,
|
|
infob.kleur
|
|
FROM res_v_aanwezigrsv_ruimte rrr,
|
|
res_ruimte_opstelling rro,
|
|
prs_v_perslid_fullnames aanvrager,
|
|
prs_v_perslid_fullnames gastheer,
|
|
res_v_res_ruimte_gegevens rrg,
|
|
alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
res_status_fo sf,
|
|
res_discipline rd,
|
|
(SELECT d.fac_usrdata_code kleur,
|
|
d.fac_usrdata_omschr icon,
|
|
fac_usrdata_parentkey cluster_key
|
|
FROM fac_usrtab t, fac_usrdata d
|
|
WHERE t.fac_usrtab_key = d.fac_usrtab_key
|
|
AND t.fac_usrtab_key = 21) infob,
|
|
(SELECT res_rsv_ruimte_key,
|
|
ud.fac_usrdata_code cluster_omschr,
|
|
ud.fac_usrdata_key clstr_key
|
|
FROM res_kenmerkwaarde kw,
|
|
res_kenmerk k,
|
|
res_srtkenmerk sk,
|
|
fac_usrdata ud,
|
|
fac_usrtab ut
|
|
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
|
|
AND fac.safe_to_number (kw.res_kenmerkreservering_waarde) =
|
|
ud.fac_usrdata_key
|
|
AND ud.fac_usrtab_key = ut.fac_usrtab_key
|
|
AND sk.res_srtkenmerk_key = 14
|
|
AND ut.fac_usrtab_key = 1) clstr,
|
|
(SELECT res_rsv_ruimte_key,
|
|
ud.fac_usrdata_omschr weergeven,
|
|
ud.fac_usrdata_key
|
|
FROM res_kenmerkwaarde kw,
|
|
res_kenmerk k,
|
|
res_srtkenmerk sk,
|
|
fac_usrdata ud,
|
|
fac_usrtab ut
|
|
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
|
|
AND fac.safe_to_number (kw.res_kenmerkreservering_waarde) =
|
|
ud.fac_usrdata_key
|
|
AND ud.fac_usrtab_key = ut.fac_usrtab_key
|
|
AND sk.res_srtkenmerk_key = 141
|
|
AND ut.fac_usrtab_key = 4) weergeven,
|
|
(SELECT kw.res_rsv_ruimte_key,
|
|
kw.res_kenmerkreservering_waarde titel
|
|
FROM res_kenmerkwaarde kw, res_kenmerk k
|
|
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND k.res_kenmerk_key = 102) titel,
|
|
(SELECT kw.res_rsv_ruimte_key,
|
|
kw.res_kenmerkreservering_waarde omschrijving
|
|
FROM res_kenmerkwaarde kw, res_kenmerk k
|
|
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND k.res_kenmerk_key = 201) po
|
|
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
|
|
AND rro.res_ruimte_key = rrg.res_ruimte_key
|
|
AND rrr.res_rsv_ruimte_host_key = gastheer.prs_perslid_key
|
|
AND rrr.res_rsv_ruimte_contact_key = aanvrager.prs_perslid_key
|
|
AND rrg.alg_locatie_key = l.alg_locatie_key
|
|
AND rrg.alg_gebouw_key = g.alg_gebouw_key
|
|
AND rrg.alg_verdieping_key = v.alg_verdieping_key
|
|
AND rrr.res_status_fo_key = sf.res_status_fo_key
|
|
AND rrg.res_discipline_key = rd.ins_discipline_key
|
|
AND infob.cluster_key = clstr.clstr_key
|
|
AND clstr.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
|
|
AND weergeven.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
|
|
AND titel.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
|
|
AND po.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
|
|
AND weergeven.fac_usrdata_key = 33 --- weergeven is 'Ja' of onbekend
|
|
AND UPPER (sf.res_status_fo_omschrijving) = 'DEFINITIEF';
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_RAP_AKKOORD_ACT
|
|
(
|
|
RES_RSV_RUIMTE_KEY,
|
|
RESERVERING_KEY,
|
|
RESERVERING,
|
|
DATUM_SPECIALIST,
|
|
BEOORDELING_SPECIALIST,
|
|
DATUM_TEAMLEIDER,
|
|
BEOORDELING_TEAMLEIDER,
|
|
DATUM_MARCOM,
|
|
BEOORDELING_MARCOM
|
|
)
|
|
AS
|
|
SELECT rr.res_rsv_ruimte_key,
|
|
res.res_reservering_key,
|
|
res.res_reservering_key || '/' || rr.res_rsv_ruimte_volgnr,
|
|
datum_spec_akkoord,
|
|
beoordeling_spec,
|
|
datum_tl_akkoord,
|
|
beoordeling_marcom,
|
|
datum_marcom_akkoord,
|
|
beoordeling_tl
|
|
FROM res_rsv_ruimte rr,
|
|
res_reservering res,
|
|
(SELECT kw.res_rsv_ruimte_key,
|
|
res_kenmerkwaarde_aanmaak datum_spec_akkoord,
|
|
ud.fac_usrdata_upper beoordeling_spec
|
|
FROM res_kenmerk k, res_kenmerkwaarde kw, fac_usrdata ud
|
|
WHERE k.res_kenmerk_key = 8 --- Specialist akkoord?
|
|
AND k.res_activiteit_key = 30
|
|
AND kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
|
AND ud.fac_usrdata_key =
|
|
fac.safe_to_number (kw.res_kenmerkreservering_waarde))
|
|
spec_akkoord,
|
|
(SELECT kw.res_rsv_ruimte_key,
|
|
res_kenmerkwaarde_aanmaak datum_tl_akkoord,
|
|
ud.fac_usrdata_upper beoordeling_tl
|
|
FROM res_kenmerk k, res_kenmerkwaarde kw, fac_usrdata ud
|
|
WHERE k.res_kenmerk_key = 10 --- Teamleider akkoord?
|
|
AND k.res_activiteit_key = 30
|
|
AND kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
|
AND ud.fac_usrdata_key =
|
|
fac.safe_to_number (kw.res_kenmerkreservering_waarde))
|
|
tl_akkoord,
|
|
(SELECT kw.res_rsv_ruimte_key,
|
|
res_kenmerkwaarde_aanmaak datum_marcom_akkoord,
|
|
ud.fac_usrdata_upper beoordeling_marcom
|
|
FROM res_kenmerk k, res_kenmerkwaarde kw, fac_usrdata ud
|
|
WHERE k.res_kenmerk_key = 12 --- MarCom akkoord?
|
|
AND k.res_activiteit_key = 30
|
|
AND kw.res_kenmerk_key = k.res_kenmerk_key
|
|
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
|
AND ud.fac_usrdata_key =
|
|
fac.safe_to_number (kw.res_kenmerkreservering_waarde))
|
|
marcom_akkoord
|
|
WHERE rr.res_rsv_ruimte_verwijder IS NULL
|
|
AND rr.res_activiteit_key = 30
|
|
AND rr.res_reservering_key = res.res_reservering_key
|
|
AND spec_akkoord.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
|
|
AND tl_akkoord.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
|
|
AND marcom_akkoord.res_rsv_ruimte_key = rr.res_rsv_ruimte_key;
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_NOTI_ACT_NIET_AKK
|
|
(
|
|
SENDER,
|
|
RECEIVER,
|
|
TEXT,
|
|
CODE,
|
|
FAC_SRTNOTIFICATIE_KEY,
|
|
KEY,
|
|
XKEY,
|
|
XEMAIL,
|
|
XMOBILE
|
|
)
|
|
AS
|
|
SELECT DISTINCT
|
|
NULL
|
|
sender,
|
|
NULL
|
|
receiver,
|
|
REPLACE (n.fac_srtnotificatie_oms, '##nr##', a.reservering)
|
|
tekst,
|
|
fac_srtnotificatie_code,
|
|
n.fac_srtnotificatie_key,
|
|
a.reservering_key,
|
|
a.res_rsv_ruimte_key,
|
|
'k.postel@bibliotheekeemland.nl;j.haanstra@bibliotheekeemland.nl'
|
|
xemail,
|
|
NULL
|
|
xmobile
|
|
FROM fbea_v_rap_akkoord_act a, fac_srtnotificatie n
|
|
WHERE n.fac_srtnotificatie_code = 'CUST02'
|
|
AND ( a.beoordeling_marcom = 'NIET AKKOORD'
|
|
OR a.beoordeling_specialist = 'NIET AKKOORD'
|
|
OR a.beoordeling_teamleider = 'NIET AKKOORD')
|
|
AND (GREATEST (datum_specialist, datum_teamleider, datum_marcom)) >
|
|
(SELECT fac_notificatie_job_nextrun
|
|
- fac_notificatie_job_interval / 24
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'FBEA_V_NOTI_ACT_NIET_AKK')
|
|
AND (GREATEST (datum_specialist, datum_teamleider, datum_marcom)) <
|
|
(SELECT fac_notificatie_job_nextrun
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'FBEA_V_NOTI_ACT_NIET_AKK');
|
|
|
|
|
|
------ 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 |