891 lines
38 KiB
SQL
891 lines
38 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;
|
|
subject_regexp 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;
|
|
v_mldnum VARCHAR2 (4000);
|
|
v_mldkey mld_melding.mld_melding_key%TYPE;
|
|
v_email fac_notificatie.fac_notificatie_receiver_email%TYPE;
|
|
v_check NUMBER;
|
|
v_pbody VARCHAR2 (4000);
|
|
v_folder_kkey mld_kenmerk.mld_kenmerk_key%TYPE;
|
|
-- kkey mld_kenmerk.mld_kenmerk_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;
|
|
|
|
-- Check of de afzender pfrom een reply op een bestaande melding doet, in dat geval wordt dat in notities genoteerd.
|
|
-- 1) Eerst uit het onderwerp het meldingnummer proberen te onderscheppen, uitgangspunt dat in het onderwerp het meldingnummer '1234' kan worden opgevist, met ervoor en erna een spatie
|
|
-- 2) Het 1e nummer dat in het onderwerp staat wordt gezien als meldingnummer, eventuele andere nummers later in het onderwerp worden genegeerd.
|
|
subject_regexp := '[[:digit:]]{1,}';
|
|
v_mldnum :=
|
|
REGEXP_SUBSTR (psubject,
|
|
subject_regexp,
|
|
1,
|
|
1,
|
|
'i');
|
|
|
|
v_mldkey := fac.safe_to_number (v_mldnum);
|
|
|
|
--- kijken of er inderdaad een melding bestaat met het gevonden nummer
|
|
SELECT COUNT (m.mld_melding_key)
|
|
INTO v_check
|
|
FROM mld_melding m
|
|
WHERE m.mld_melding_key = v_mldkey;
|
|
|
|
IF v_check = 1
|
|
THEN
|
|
-- Bestaande melding gevonden dus we zetten de mail als notitie bij deze melding
|
|
BEGIN
|
|
INSERT INTO mld_melding_note (mld_melding_key,
|
|
mld_melding_note_omschrijving,
|
|
prs_perslid_key)
|
|
VALUES (
|
|
v_mldkey,
|
|
SUBSTR (
|
|
psubject
|
|
|| CHR (13)
|
|
|| CHR (10)
|
|
|| REPLACE (
|
|
SUBSTR (v_pbody,
|
|
1,
|
|
4000 - (LENGTH (psubject) + 2)),
|
|
CHR (13)
|
|
|| CHR (10)
|
|
|| CHR (13)
|
|
|| CHR (10),
|
|
CHR (13) || CHR (10)),
|
|
1,
|
|
4000), -- verwijder onnodige witregels
|
|
sender);
|
|
|
|
--- vlaggeteje melding bij aanvrager zetten
|
|
UPDATE mld_melding
|
|
SET mld_melding_actiecode = 2
|
|
WHERE mld_melding_key = v_mldkey;
|
|
|
|
--- notificatie naar (niet geregistreerd) aanvrager
|
|
SELECT COALESCE (m.mld_melding_email_ext,
|
|
p.prs_perslid_email) email
|
|
INTO v_email
|
|
FROM mld_melding m, prs_perslid p
|
|
WHERE m.prs_perslid_key_voor = p.prs_perslid_key
|
|
AND m.mld_melding_key = v_mldkey;
|
|
|
|
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
|
|
fac_notificatie_status,
|
|
prs_perslid_key_receiver,
|
|
fac_notificatie_receiver_email,
|
|
fac_notificatie_oms,
|
|
fac_notificatie_refkey,
|
|
fac_notificatie_prioriteit)
|
|
VALUES (
|
|
69, --- mldnot
|
|
2,
|
|
NULL,
|
|
v_email,
|
|
'Er is een opmerking geplaatst bij melding '
|
|
|| TO_CHAR (v_mldkey),
|
|
v_mldkey,
|
|
2);
|
|
|
|
-- Find the lowest volgnummer of the Folder-flexfield.
|
|
SELECT MIN (k1.mld_kenmerk_key)
|
|
INTO v_folder_kkey
|
|
FROM mld_stdmelding sm1,
|
|
ins_tab_discipline td1,
|
|
mld_kenmerk k1,
|
|
mld_srtkenmerk sk1,
|
|
mld_melding m
|
|
WHERE m.mld_stdmelding_key = sm1.mld_stdmelding_key
|
|
AND m.mld_melding_key = v_mldkey
|
|
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
|
AND k1.mld_kenmerk_verwijder IS NULL
|
|
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
|
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ( ( k1.mld_stdmelding_key =
|
|
sm1.mld_stdmelding_key
|
|
AND k1.mld_kenmerk_niveau = 'S')
|
|
OR ( k1.mld_stdmelding_key =
|
|
td1.ins_discipline_key
|
|
AND k1.mld_kenmerk_niveau = 'D')
|
|
OR ( k1.mld_stdmelding_key =
|
|
td1.ins_srtdiscipline_key
|
|
AND k1.mld_kenmerk_niveau = 'T')
|
|
OR (k1.mld_kenmerk_niveau = 'A'));
|
|
|
|
IF v_folder_kkey IS NOT NULL
|
|
THEN
|
|
INSERT INTO fac_result (fac_result_sessionid,
|
|
fac_result_naam,
|
|
fac_result_waarde)
|
|
VALUES (
|
|
psessionid,
|
|
'kenmerkpath',
|
|
'MLD\M'
|
|
|| TO_CHAR (TRUNC (v_mldkey / 1000), 'FM0000')
|
|
|| '___\M'
|
|
|| v_mldkey
|
|
|| '\'
|
|
|| v_folder_kkey
|
|
|| '\');
|
|
END IF;
|
|
|
|
fac.trackaction ('MLDTRK',
|
|
v_mldkey,
|
|
NULL,
|
|
NULL,
|
|
'Nieuwe notitie via Mail2melding');
|
|
END;
|
|
ELSE
|
|
|
|
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;
|
|
|
|
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,
|
|
NULL xkey
|
|
FROM ( SELECT r.res_reservering_key,
|
|
r.res_reservering_key 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,
|
|
MAX (r.res_rsv_ruimte_tot),
|
|
r.res_rsv_ruimte_omschrijving,
|
|
TO_CHAR (MAX (r.res_rsv_ruimte_tot) + 1, 'DD-MM-YYYY') AS notificatie_datum
|
|
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
|
|
GROUP BY r.res_reservering_key,
|
|
r.res_reservering_key,
|
|
c.prs_perslid_key,
|
|
c.prs_perslid_email,
|
|
h.prs_perslid_key,
|
|
h.prs_perslid_email,
|
|
r.res_rsv_ruimte_omschrijving) 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,
|
|
titel.titel,
|
|
po.omschrijving
|
|
publieke_omschrijving
|
|
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 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 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');
|
|
|
|
CREATE OR REPLACE VIEW FBEA_V_COORD_SIDK
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
PRS_PERSLID_NAAM,
|
|
PRS_PERSLID_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key,
|
|
p.prs_perslid_naam_friendly,
|
|
p.prs_perslid_verwijder
|
|
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
|
|
WHERE g.fac_groep_key = 261
|
|
AND gg.fac_groep_key = g.fac_groep_key
|
|
AND p.prs_perslid_key = gg.prs_perslid_key;
|
|
|
|
CREATE OR REPLACE PROCEDURE fbea_export_topdesk (p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2,
|
|
p_filedir IN VARCHAR2,
|
|
p_filename IN VARCHAR2)
|
|
AS
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_errorhint VARCHAR2 (100);
|
|
v_aanduiding VARCHAR2 (100);
|
|
v_locatie_key NUMBER;
|
|
v_lengte NUMBER;
|
|
v_new_note VARCHAR2 (4000);
|
|
|
|
-- Dit haalt het externnummer op uit de opdrachtomschrijving indien externnr bij de melding nog leeg is
|
|
CURSOR externnr IS
|
|
SELECT DISTINCT
|
|
m.mld_melding_key,
|
|
o.mld_opdr_key,
|
|
o.mld_opdr_externnr AS externnr,
|
|
SUBSTR (o.mld_opdr_omschrijving,
|
|
INSTR (o.mld_opdr_omschrijving, 'TOPdesk nr:') + 12) topdesknr
|
|
FROM mld_melding m, mld_opdr o
|
|
WHERE m.mld_melding_key = o.mld_melding_key
|
|
AND o.mld_opdr_externnr IS NOT NULL
|
|
AND o.mld_uitvoerende_keys = 1081 --- voorlopig in ieder geval alleen Duzz ICT
|
|
AND o.mld_statusopdr_key NOT IN (1,
|
|
2,
|
|
6,
|
|
7,
|
|
9)
|
|
AND m.mld_melding_externnr IS NULL;
|
|
|
|
-- Onderstaande cursor verzamelt de gegevens om te bepalen welke meldingen nieuwe opmerkingen heeft en die verzonden kunnen worden naar Topdesk
|
|
-- Alle notities bij een melding die niet al eerder zijn verstuurd en niet door DUZZ zijn gemaakt mogen verstuurd worden
|
|
CURSOR sync IS
|
|
SELECT n.mld_melding_key,
|
|
n.mld_opdr_key,
|
|
n.notitie,
|
|
n.mld_melding_note_aanmaak
|
|
FROM ( SELECT mld.mld_melding_key,
|
|
o.mld_opdr_key,
|
|
LISTAGG (
|
|
pfn.prs_perslid_naam_friendly
|
|
|| '/'
|
|
|| mn.mld_melding_note_aanmaak
|
|
|| ' '
|
|
|| mn.mld_melding_note_omschrijving,
|
|
'; ')
|
|
WITHIN GROUP (ORDER BY mld.mld_melding_key)
|
|
notitie,
|
|
MAX (mn.mld_melding_note_aanmaak)
|
|
mld_melding_note_aanmaak
|
|
FROM mld_melding mld,
|
|
mld_melding_note mn,
|
|
mld_opdr o,
|
|
prs_perslid p,
|
|
prs_v_perslid_fullnames_all pfn
|
|
WHERE mn.mld_melding_key = mld.mld_melding_key
|
|
AND mn.prs_perslid_key = pfn.prs_perslid_key
|
|
AND pfn.prs_perslid_key = p.prs_perslid_key
|
|
AND ( UPPER (p.prs_perslid_email) NOT LIKE '%DUZZ%'
|
|
OR p.prs_perslid_email IS NULL) -- notities door Duzz zelf gemaakt sturen we niet terug
|
|
AND mld.mld_melding_key = o.mld_melding_key -- alleen naar Duzz als er ook een opdracht bij Duzz is
|
|
AND o.mld_uitvoerende_keys = 1081 -- We doen dit alleen voor opdrachten die voor Duzz zijn
|
|
AND o.mld_statusopdr_key IN (5, 8)
|
|
AND mld_melding_note_aanmaak > o.mld_opdr_datumbegin
|
|
AND ( mld.mld_melding_externsyncdate <
|
|
mld_melding_note_aanmaak
|
|
OR mld.mld_melding_externsyncdate IS NULL)
|
|
GROUP BY mld.mld_melding_key, o.mld_opdr_key
|
|
ORDER BY mld_melding_key, mld_melding_note_aanmaak DESC) n,
|
|
(SELECT mld_melding_key, aant_char
|
|
FROM ( SELECT mld.mld_melding_key,
|
|
SUM (
|
|
LENGTH (mn.mld_melding_note_omschrijving)) aant_char
|
|
FROM mld_melding mld,
|
|
mld_melding_note mn,
|
|
mld_stdmelding sm,
|
|
mld_opdr o,
|
|
prs_v_perslid_fullnames_all prs,
|
|
prs_perslid p
|
|
WHERE mn.mld_melding_key = mld.mld_melding_key
|
|
AND sm.mld_stdmelding_key =
|
|
mld.mld_stdmelding_key
|
|
AND mn.prs_perslid_key = prs.prs_perslid_key
|
|
AND prs.prs_perslid_key = p.prs_perslid_key
|
|
AND ( UPPER (p.prs_perslid_email) NOT LIKE
|
|
'%DUZZ%'
|
|
OR p.prs_perslid_email IS NULL)
|
|
AND mld.mld_melding_key = o.mld_melding_key -- Enkel bijwerken indien er ook een opdracht is.
|
|
AND o.mld_uitvoerende_keys = 1081 -- We doen dit alleen voor opdrachten die bij Duzz liggen
|
|
AND o.mld_statusopdr_key IN (5, 8)
|
|
AND mld_melding_note_aanmaak >
|
|
o.mld_opdr_datumbegin
|
|
AND ( mld.mld_melding_externsyncdate <
|
|
mld_melding_note_aanmaak
|
|
OR mld.mld_melding_externsyncdate IS NULL)
|
|
GROUP BY mld.mld_melding_key)
|
|
WHERE aant_char < 4000) t
|
|
WHERE t.mld_melding_key = n.mld_melding_key;
|
|
|
|
--- meldingen waarbij het totaal te versturen notities de 4000 karakters overschrijdt
|
|
--- deze zetten we in de tracking
|
|
CURSOR large IS
|
|
SELECT mld_melding_key, mld_opdr_key, aant_char
|
|
FROM ( SELECT mld.mld_melding_key,
|
|
o.mld_opdr_key,
|
|
SUM (LENGTH (mn.mld_melding_note_omschrijving)) aant_char
|
|
FROM mld_melding mld,
|
|
mld_melding_note mn,
|
|
mld_stdmelding sm,
|
|
mld_opdr o,
|
|
prs_v_perslid_fullnames_all prs,
|
|
prs_perslid p
|
|
WHERE mn.mld_melding_key = mld.mld_melding_key
|
|
AND sm.mld_stdmelding_key = mld.mld_stdmelding_key
|
|
AND mn.prs_perslid_key = prs.prs_perslid_key
|
|
AND p.prs_perslid_key = prs.prs_perslid_key
|
|
AND ( UPPER (p.prs_perslid_email) NOT LIKE '%DUZZ%'
|
|
OR p.prs_perslid_email IS NULL)
|
|
AND mld.mld_melding_key = o.mld_melding_key -- Enkel relavant indien er ook een opdracht is.
|
|
AND o.mld_uitvoerende_keys = 1081 -- We doen dit alleen voor opdrachten die voor Duzz zijn
|
|
AND o.mld_statusopdr_key IN (5, 8)
|
|
AND mld_melding_note_aanmaak > o.mld_opdr_datumbegin
|
|
AND ( mld.mld_melding_externsyncdate <
|
|
mld_melding_note_aanmaak
|
|
OR mld.mld_melding_externsyncdate IS NULL)
|
|
GROUP BY mld.mld_melding_key, o.mld_opdr_key)
|
|
WHERE aant_char > 4000;
|
|
BEGIN
|
|
v_errorhint := 'init';
|
|
v_lengte := 0;
|
|
|
|
-- Hier vullen we het externnr bij de melding bij de opdracht binnenkomt vanuit Topdesk
|
|
FOR rec IN externnr
|
|
LOOP
|
|
BEGIN
|
|
v_aanduiding :=
|
|
'Topdesknr zetten bij melding: ' || rec.mld_melding_key;
|
|
v_errorhint :=
|
|
'Melding vullen met externnr voor melding '
|
|
|| rec.mld_melding_key;
|
|
|
|
UPDATE mld_melding
|
|
SET mld_melding_externnr = rec.topdesknr
|
|
WHERE mld_melding_key = rec.mld_melding_key;
|
|
|
|
-- Vervolgens zetten we de sync state zodat we weten vanaf wanneer de sync van notities en bijlagen mag gaan lopen
|
|
UPDATE mld_melding
|
|
SET mld_melding_externsyncdate = SYSDATE
|
|
WHERE mld_melding_externsyncdate IS NULL
|
|
AND mld_melding_key = rec.mld_melding_key;
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
|
|
-- aanmaken mldtrk in fac_tracking
|
|
INSERT INTO fac_tracking (fac_srtnotificatie_key,
|
|
fac_tracking_refkey,
|
|
fac_tracking_oms)
|
|
VALUES (
|
|
207,
|
|
rec.mld_melding_key,
|
|
v_aanduiding
|
|
|| '/'
|
|
|| oracle_err_num
|
|
|| ': '
|
|
|| oracle_err_mes);
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN sync
|
|
LOOP
|
|
BEGIN
|
|
-- Eerst verzamelen we alle nieuwe notities en zetten deze klaar in een kenmerk voor verzending
|
|
v_aanduiding :=
|
|
'Note naar Topdesk voor melding: ' || rec.mld_melding_key;
|
|
v_errorhint :=
|
|
'Notities verzamelen voor verzending ' || rec.mld_melding_key;
|
|
|
|
-- Daarvoor moeten we de juiste kenmerkkey bepalen, dit kenmerk is bij alle opdrachttypen aangemaakt
|
|
SELECT k.mld_kenmerk_key
|
|
INTO v_new_note
|
|
FROM mld_kenmerk k, mld_srtkenmerk sk
|
|
WHERE sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
|
|
AND UPPER (sk.mld_srtkenmerk_omschrijving) = 'UPDATE NOTITIES';
|
|
|
|
-- De oude notitie gooien we weg
|
|
DELETE MLD_KENMERKOPDR ko
|
|
WHERE ko.mld_opdr_key = rec.mld_opdr_key
|
|
AND ko.mld_kenmerk_key = v_new_note;
|
|
|
|
-- Dan vullen we de nieuwe notitie
|
|
mld.upsertopdrachtkenmerk (v_new_note,
|
|
rec.mld_opdr_key,
|
|
rec.notitie);
|
|
|
|
v_errorhint :=
|
|
'Opdracht opnieuw te verzenden naar Topdesk voor melding: '
|
|
|| rec.mld_melding_key;
|
|
|
|
-- Eerst zetten we de opdracht opnieuw klaar om te verzenden
|
|
UPDATE mld_opdr o
|
|
SET mld_opdr_teverzenden = 2, mld_opdr_verzonden = NULL
|
|
WHERE o.mld_opdr_key = rec.mld_opdr_key;
|
|
|
|
v_errorhint :=
|
|
'Syncdatum Topdesk bijwerken voor melding '
|
|
|| rec.mld_melding_key;
|
|
|
|
-- Als er nog niet eerder gesynchroniseerd is maken we een kenmerk aan met de syncdatum
|
|
-- Als al eerder gesynchroniseerd is werken we de syncdatum bij
|
|
-- Hiermee komt deze notitie de volgende keer niet meer voor in de cursor
|
|
|
|
UPDATE mld_melding m
|
|
SET m.mld_melding_externsyncdate = SYSDATE
|
|
WHERE rec.mld_melding_key = m.mld_melding_key;
|
|
|
|
--- deze notitie moet resulteren in een patch naar Topdesk
|
|
--- dat wordt getriggerd door een ordupd
|
|
fac.trackaction ('ORDUPD',
|
|
rec.mld_opdr_key,
|
|
NULL,
|
|
NULL,
|
|
'Notitie naar Duzz: ' || rec.notitie);
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
|
|
-- aanmaken ordtrk in fac_tracking
|
|
INSERT INTO fac_tracking (fac_srtnotificatie_key,
|
|
fac_tracking_refkey,
|
|
fac_tracking_oms)
|
|
VALUES (
|
|
210,
|
|
rec.mld_opdr_key,
|
|
v_aanduiding
|
|
|| '/'
|
|
|| oracle_err_num
|
|
|| ': '
|
|
|| oracle_err_mes);
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN large
|
|
LOOP
|
|
BEGIN
|
|
--
|
|
v_aanduiding :=
|
|
'Notities bij melding '
|
|
|| rec.mld_melding_key
|
|
|| ' te groot voor export naar Topdesk.';
|
|
|
|
-- aanmaken mldtrk in fac_tracking
|
|
INSERT INTO fac_tracking (fac_srtnotificatie_key,
|
|
fac_tracking_refkey,
|
|
fac_tracking_oms)
|
|
VALUES (207, rec.mld_opdr_key, v_aanduiding);
|
|
END;
|
|
END LOOP;
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
oracle_err_num || '/' || oracle_err_mes,
|
|
v_errorhint);
|
|
END fbea_export_topdesk;
|
|
/
|
|
|
|
------ 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 |