1097 lines
57 KiB
SQL
1097 lines
57 KiB
SQL
--
|
||
-- $Id$
|
||
--
|
||
-- Script containing customer specific db-configuration for VNOG.
|
||
DEFINE thisfile = 'VNOG.SQL'
|
||
DEFINE dbuser = '^VNOG'
|
||
|
||
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 ------
|
||
|
||
-- QR-code rapportage (objecten / meldingen).
|
||
CREATE OR REPLACE VIEW vnog_v_rap_qrc
|
||
AS
|
||
SELECT i.ins_deel_omschrijving hide_f_sort,
|
||
l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
|
||
fclt_f_locatie,
|
||
o.alg_gebouw_omschrijving fclt_f_gebouw,
|
||
o.alg_plaatsaanduiding fclt_f_plaats,
|
||
d.ins_discipline_omschrijving fclt_f_discipline,
|
||
g.ins_srtgroep_omschrijving fclt_f_objectgroep,
|
||
s.ins_srtdeel_omschrijving fclt_f_objectsoort,
|
||
i.ins_deel_omschrijving fclt_f_identificatie,
|
||
i.ins_deel_key,
|
||
s.ins_srtdeel_key,
|
||
o.alg_gebouw_code,
|
||
o.alg_verdieping_code,
|
||
i.ins_discipline_key fclt_3d_discipline_key,
|
||
l.alg_locatie_key fclt_3d_locatie_key,
|
||
i.ins_alg_ruimte_type,
|
||
i.ins_alg_ruimte_key,
|
||
b.fac_bookmark_id hide_f_bookmark_id
|
||
FROM fac_bookmark b,
|
||
ins_deel i,
|
||
ins_srtdeel s,
|
||
ins_srtgroep g,
|
||
ins_discipline d,
|
||
ins_v_alg_overzicht o,
|
||
alg_locatie l
|
||
WHERE b.fac_bookmark_naam = 'QRC_MELDING'
|
||
AND (b.fac_bookmark_expire IS NULL OR b.fac_bookmark_expire > SYSDATE)
|
||
AND i.ins_deel_verwijder IS NULL
|
||
AND i.ins_deel_module = 'INS'
|
||
AND i.ins_deel_parent_key IS NULL
|
||
AND i.ins_srtdeel_key = s.ins_srtdeel_key
|
||
AND s.ins_srtgroep_key = g.ins_srtgroep_key
|
||
AND g.ins_discipline_key = d.ins_discipline_key
|
||
AND i.ins_alg_ruimte_type = o.alg_onroerendgoed_type
|
||
AND i.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
|
||
AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
||
AND i.ins_alg_locatie_key = o.alg_locatie_key
|
||
AND i.ins_alg_locatie_key = l.alg_locatie_key;
|
||
/*
|
||
-- Mail2Melding-stromen:
|
||
-- - SERVICEDESK -: Registreren nieuwe melding van Soortmelding=861=Servicedesk/Algemeen/Open melding of notitie bij bestaande melding of notitie bij bestaande opdracht!
|
||
-- - UITDIENST -: Registreren melding van Soortmelding=???=Wijziging/Uit dienst/Uitdiensttredingsformulier (vast/inhuur)!
|
||
CREATE OR REPLACE PROCEDURE VNOG_processemail (pfrom IN VARCHAR2,
|
||
pto IN VARCHAR2,
|
||
psubject IN VARCHAR2,
|
||
pbody IN VARCHAR2,
|
||
psessionid IN VARCHAR2,
|
||
pemailkey IN NUMBER)
|
||
AS
|
||
c_onbekend_key NUMBER (10) := 4; -- TODO:API-user tbv. hMail-koppeling?
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_perslid_key NUMBER (10);
|
||
v_kostenplaats_key NUMBER (10);
|
||
v_locatie_key NUMBER (10);
|
||
v_exists_id VARCHAR2 (255);
|
||
v_melding_key NUMBER (10);
|
||
v_melder_key NUMBER (10);
|
||
v_opdracht_key NUMBER (10);
|
||
v_typeopdr_key NUMBER (10);
|
||
v_discipline_key NUMBER (10);
|
||
v_stdmelding_key NUMBER (10);
|
||
v_folder_kkey NUMBER (10);
|
||
subject_regexp VARCHAR2 (1000);
|
||
v_mldnum VARCHAR2 (1000);
|
||
v_count NUMBER (10);
|
||
BEGIN
|
||
CASE
|
||
--WHEN INSTR (UPPER (pfrom), '???') > 0 AND UPPER (pto) LIKE 'SERVICEDESK@%'
|
||
WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
|
||
THEN
|
||
-- Bepaal de mailer op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen mailer';
|
||
SELECT COUNT ( * )
|
||
INTO v_count
|
||
FROM prs_v_aanwezigperslid
|
||
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
|
||
|
||
IF v_count = 1
|
||
THEN
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
|
||
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
||
FROM prs_v_aanwezigperslid p, prs_afdeling a,
|
||
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
|
||
FROM prs_perslidwerkplek pw
|
||
WHERE NOT EXISTS
|
||
(SELECT 1
|
||
FROM prs_perslidwerkplek
|
||
WHERE prs_perslid_key = pw.prs_perslid_key
|
||
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
|
||
prs_v_werkplekperslid_gegevens wpg
|
||
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
||
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
|
||
AND p.prs_perslid_key = pw.prs_perslid_key(+)
|
||
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
||
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
|
||
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend en 87=APDM/Apeldoorn de Maten
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 87
|
||
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
||
FROM prs_v_aanwezigperslid p, prs_afdeling a
|
||
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
||
AND p.prs_perslid_key = c_onbekend_key;
|
||
END IF;
|
||
|
||
-- 1) Eerst meldingnr 123 of opdrachtnr 123/1 gevolgd door spatie uit
|
||
-- onderwerp proberen te bepalen.
|
||
-- 2) Het eerste voorkomen beginnend met een cijfer wordt gezien als
|
||
-- meldingnr of opdrachtnr en evt. andere voorkomens (verder naar
|
||
-- rechts) worden genegeerd.
|
||
v_errormsg := 'Fout bepalen melding/opdracht';
|
||
v_exists_id := psubject;
|
||
IF REGEXP_INSTR (v_exists_id, '\d') > 0
|
||
THEN
|
||
v_exists_id := SUBSTR (v_exists_id, REGEXP_INSTR (v_exists_id, '\d')) || ' '; -- Gedeelte vanaf eerste cijfer in v_exists_id plus ' '!
|
||
v_exists_id := SUBSTR (v_exists_id, 1, REGEXP_INSTR (v_exists_id, '\s') - 1); -- Gedeelte tot eerste white space in v_exists_id!
|
||
END IF;
|
||
|
||
IF INSTR (v_exists_id, '/') = 0 -- Slash in eerste voorkomen beginnend met een cijfer?
|
||
THEN -- Melding
|
||
v_errormsg := 'Fout bepalen melding ' || v_exists_id;
|
||
SELECT MAX (mld_melding_key), MAX (prs_perslid_key) -- MAX() om te zorgen dat v_melding_key=NULL als meldingnr niet bestaat!
|
||
INTO v_melding_key, v_melder_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exists_id);
|
||
|
||
IF v_melding_key IS NOT NULL -- AND INSTR (UPPER (pfrom), '@VNOG.NL') > 0 -- Melding bestaat <20>n VNOG-mailer?
|
||
THEN
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
mld_melding_note_omschrijving,
|
||
prs_perslid_key,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
SUBSTR (psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 4000 - (LENGTH (psubject) + 2)), 1, 4000),
|
||
v_perslid_key,
|
||
DECODE (v_perslid_key, -- Notitie open=1 als mailer=melder, anders gesloten=0!
|
||
v_melder_key, 1,
|
||
0));
|
||
|
||
-- Default tracking is even goed genoeg.
|
||
fac.trackaction ('MLDNOT', v_melding_key, v_perslid_key, NULL, '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Als notitie toegevoegd aan melding ' || TO_CHAR (v_melding_key));
|
||
ELSE
|
||
-- Bepaal de afgesproken soortmelding met key=861=Open melding!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key
|
||
INTO v_discipline_key, v_stdmelding_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 861;
|
||
|
||
-- Suggested extensions:
|
||
-- - Check for MLDUSE-write autorisations
|
||
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
|
||
-- - Append (as a note?) to an existing melding if #key is found in the subject
|
||
v_errormsg := 'Fout toevoegen melding';
|
||
INSERT INTO mld_melding (mld_melding_module,
|
||
mld_meldbron_key,
|
||
mld_alg_locatie_key,
|
||
mld_alg_onroerendgoed_keys,
|
||
mld_melding_datum,
|
||
mld_melding_omschrijving,
|
||
mld_stdmelding_key,
|
||
mld_melding_t_uitvoertijd,
|
||
prs_kostenplaats_key,
|
||
prs_perslid_key,
|
||
prs_perslid_key_voor,
|
||
mld_melding_status,
|
||
mld_melding_spoed,
|
||
mld_melding_onderwerp,
|
||
mld_melding_behandelaar2_key,
|
||
mld_ins_discipline_key)
|
||
VALUES ('MLD',
|
||
4, -- Email
|
||
COALESCE (v_locatie_key, 87), -- Fallback op 87=APDM/Apeldoorn de Maten
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- Prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
NULL) -- BT?
|
||
RETURNING mld_melding_key
|
||
INTO v_melding_key;
|
||
|
||
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || TO_CHAR (v_melding_key));
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
-- PAS OP: 'Alle vakgroeptypen'-kenmerken hier niet beschouwd en dat bijt
|
||
-- dus nooit met kenmerk hieronder tbv. Originele mail!
|
||
v_errormsg := 'Fout toevoegen melding-bijlage';
|
||
SELECT MIN (k1.mld_kenmerk_key)
|
||
INTO v_folder_kkey
|
||
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
|
||
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
|
||
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
||
AND k1.mld_kenmerk_verwijder IS NULL
|
||
AND k1.mld_kenmerk_key != 441 -- Originele mail
|
||
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
||
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND (k1.mld_kenmerk_niveau = 'A'
|
||
OR (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'))
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
|
||
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
|
||
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
|
||
AND k2.mld_kenmerk_verwijder IS NULL
|
||
AND k2.mld_kenmerk_key != 441 -- Originele mail
|
||
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
||
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND (k2.mld_kenmerk_niveau = 'A'
|
||
OR (k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
|
||
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
|
||
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T'))
|
||
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
||
|
||
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_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
|
||
END IF;
|
||
|
||
-- Per 2021.1 mogelijk dat originele mail ook wordt opgeslagen!
|
||
-- PAS OP: Voorkennis dat dit een 'Alle vakgroeptypen'-kenmerk is
|
||
-- en dus nooit bijt met Bijlage(n)-kenmerk hierboven!
|
||
v_errormsg := 'Fout toevoegen originele mail';
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || 441 || '\');
|
||
ELSE -- Opdracht
|
||
v_errormsg := 'Fout bepalen opdracht ' || v_exists_id;
|
||
SELECT mld_opdr_key, mld_typeopdr_key
|
||
INTO v_opdracht_key, v_typeopdr_key
|
||
FROM mld_opdr
|
||
WHERE TO_CHAR (mld_melding_key) || '/' || TO_CHAR (mld_opdr_bedrijfopdr_volgnr) = SUBSTR (v_exists_id, REGEXP_INSTR (v_exists_id, '\d'));
|
||
|
||
v_errormsg := 'Fout toevoegen opdracht-notitie';
|
||
INSERT INTO mld_opdr_note (mld_opdr_key,
|
||
prs_perslid_key,
|
||
mld_opdr_note_omschrijving)
|
||
VALUES (v_opdracht_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000));
|
||
|
||
v_errormsg := 'Fout bijwerken opdracht-kleurbolletje';
|
||
UPDATE mld_opdr
|
||
SET mld_opdr_flag = 1 -- Zwart
|
||
WHERE mld_opdr_key = v_opdracht_key;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
v_errormsg := 'Fout toevoegen opdracht-bijlage';
|
||
SELECT MIN (k1.mld_kenmerk_key)
|
||
INTO v_folder_kkey
|
||
FROM mld_kenmerk k1, mld_srtkenmerk sk1
|
||
WHERE k1.mld_typeopdr_key = v_typeopdr_key
|
||
AND k1.mld_kenmerk_verwijder IS NULL
|
||
AND k1.mld_kenmerk_niveau = 'O'
|
||
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
||
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM mld_kenmerk k2, mld_srtkenmerk sk2
|
||
WHERE k2.mld_typeopdr_key = v_typeopdr_key
|
||
AND k2.mld_kenmerk_verwijder IS NULL
|
||
AND k2.mld_kenmerk_niveau = 'O'
|
||
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
||
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
||
|
||
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\O' || TO_CHAR (TRUNC (v_opdracht_key / 1000), 'FM0000') || '___\O' || v_opdracht_key || '\' || v_folder_kkey || '\');
|
||
END IF;
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'UITDIENST@%'
|
||
THEN
|
||
-- Bepaal de mailer op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen mailer';
|
||
SELECT COUNT ( * )
|
||
INTO v_count
|
||
FROM prs_v_aanwezigperslid
|
||
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
|
||
|
||
IF v_count = -1 -- Altijd op Onbekend!
|
||
THEN
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key
|
||
INTO v_perslid_key, v_kostenplaats_key
|
||
FROM prs_v_aanwezigperslid p, prs_afdeling a,
|
||
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
|
||
FROM prs_perslidwerkplek pw
|
||
WHERE NOT EXISTS
|
||
(SELECT 1
|
||
FROM prs_perslidwerkplek
|
||
WHERE prs_perslid_key = pw.prs_perslid_key
|
||
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
|
||
prs_v_werkplekperslid_gegevens wpg
|
||
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
||
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
|
||
AND p.prs_perslid_key = pw.prs_perslid_key(+)
|
||
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
||
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
|
||
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key
|
||
INTO v_perslid_key, v_kostenplaats_key
|
||
FROM prs_v_aanwezigperslid p, prs_afdeling a
|
||
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
||
AND p.prs_perslid_key = c_onbekend_key;
|
||
END IF;
|
||
|
||
-- 1) Eerst meldingnr 123 gevolgd door spatie uit onderwerp proberen
|
||
-- te bepalen.
|
||
-- 2) Het eerste voorkomen beginnend met een cijfer wordt gezien als
|
||
-- meldingnr en evt. andere voorkomens (verder naar rechts) worden
|
||
-- genegeerd.
|
||
-- 3) Het mailadres van afzender is gelijk aan die van melder??? => VERVALLEN
|
||
subject_regexp := '[[:digit:]]{1,}';
|
||
v_mldnum := REGEXP_SUBSTR (psubject || ' ', subject_regexp, 1, 1, 'i'); -- 1234, of 12345, of 12, of 1 etc.
|
||
|
||
-- Bepaal melding op basis van meldingnr uit onderwerp?
|
||
v_errormsg := 'Fout bepalen melding';
|
||
SELECT MAX (mld_melding_key), MAX (prs_perslid_key) -- MAX() om te zorgen dat v_melding_key=NULL als meldingnr niet bestaat!
|
||
INTO v_melding_key, v_melder_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_mldnum);
|
||
|
||
IF v_melding_key IS NOT NULL -- AND INSTR (UPPER (pfrom), '@VNOG.NL') > 0 -- Melding bestaat <20>n VNOG-mailer?
|
||
THEN
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
mld_melding_note_omschrijving,
|
||
prs_perslid_key,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
SUBSTR (psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 4000 - (LENGTH (psubject) + 2)), 1, 4000),
|
||
v_perslid_key,
|
||
DECODE (v_perslid_key, -- Notitie open=1 als mailer=melder, anders gesloten=0!
|
||
v_melder_key, 1,
|
||
0));
|
||
|
||
-- Default tracking is even goed genoeg.
|
||
fac.trackaction ('MLDNOT', v_melding_key, v_perslid_key, NULL, '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Als notitie toegevoegd aan melding ' || TO_CHAR (v_melding_key));
|
||
ELSE
|
||
-- Bepaal de afgesproken soortmelding met key=752=Uitdiensttredingsformulier (vast/inhuur)!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key
|
||
INTO v_discipline_key, v_stdmelding_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 752;
|
||
|
||
-- Suggested extensions:
|
||
-- - Check for MLDUSE-write autorisations
|
||
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
|
||
-- - Append (as a note?) to an existing melding if #key is found in the subject
|
||
v_errormsg := 'Fout toevoegen melding';
|
||
INSERT INTO mld_melding (mld_melding_module,
|
||
mld_meldbron_key,
|
||
mld_alg_locatie_key,
|
||
mld_alg_onroerendgoed_keys,
|
||
mld_melding_datum,
|
||
mld_melding_omschrijving,
|
||
mld_stdmelding_key,
|
||
mld_melding_t_uitvoertijd,
|
||
prs_kostenplaats_key,
|
||
prs_perslid_key,
|
||
prs_perslid_key_voor,
|
||
mld_melding_status,
|
||
mld_melding_spoed,
|
||
mld_melding_onderwerp,
|
||
mld_melding_behandelaar2_key,
|
||
mld_ins_discipline_key)
|
||
VALUES ('MLD',
|
||
4, -- Email
|
||
NULL, -- Geen locatie!
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- Prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
NULL) -- BT?
|
||
RETURNING mld_melding_key
|
||
INTO v_melding_key;
|
||
|
||
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || TO_CHAR (v_melding_key));
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
-- PAS OP: 'Alle vakgroeptypen'-kenmerken hier niet beschouwd en dat bijt
|
||
-- dus nooit met kenmerk hieronder tbv. Originele mail!
|
||
v_errormsg := 'Fout toevoegen melding-bijlage';
|
||
SELECT MIN (k1.mld_kenmerk_key)
|
||
INTO v_folder_kkey
|
||
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
|
||
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
|
||
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
||
AND k1.mld_kenmerk_verwijder IS NULL
|
||
AND k1.mld_kenmerk_key != 441 -- Originele mail
|
||
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
||
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND (k1.mld_kenmerk_niveau = 'A'
|
||
OR (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'))
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
|
||
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
|
||
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
|
||
AND k2.mld_kenmerk_verwijder IS NULL
|
||
AND k2.mld_kenmerk_key != 441 -- Originele mail
|
||
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
||
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
||
AND (k2.mld_kenmerk_niveau = 'A'
|
||
OR (k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
|
||
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
|
||
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T'))
|
||
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
||
|
||
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_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
|
||
END IF;
|
||
|
||
-- Per 2021.1 mogelijk dat originele mail ook wordt opgeslagen!
|
||
-- PAS OP: Voorkennis dat dit een 'Alle vakgroeptypen'-kenmerk is en
|
||
-- dus nooit bijt met Bijlage(n)-kenmerk hierboven!
|
||
v_errormsg := 'Fout toevoegen originele mail';
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || 441 || '\');
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
ELSE
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
|
||
END CASE;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
||
fac.writelog ('PROCESSEMAIL', 'E', 'VNOG_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
|
||
COMMIT;
|
||
END;
|
||
/
|
||
*/
|
||
CREATE OR REPLACE VIEW VNOG_V_RAP_ML_OBJ_KOSTEN
|
||
AS
|
||
SELECT l.alg_locatie_code locatie_code,
|
||
l.alg_locatie_omschrijving locatie_naam,
|
||
COALESCE (aog.alg_gebouw_code, aog.alg_terreinsector_code) gebouw_code,
|
||
COALESCE (aog.alg_gebouw_naam, aog.alg_terreinsector_naam) gebouw_naam,
|
||
od.ins_discipline_omschrijving objectdiscipline,
|
||
sg.ins_srtgroep_omschrijving objectgroep,
|
||
sd.ins_srtdeel_omschrijving objectsoort,
|
||
d.ins_deel_key,
|
||
TRIM (DECODE (od.ins_discipline_key, 561, SUBSTR (d.ins_deel_omschrijving, 1, INSTR (d.ins_deel_omschrijving || '/', '/') - 1), NULL)) roepnr,
|
||
TRIM (DECODE (od.ins_discipline_key, 561, SUBSTR (d.ins_deel_omschrijving, INSTR (d.ins_deel_omschrijving || '/', '/') + 1), NULL)) kenteken,
|
||
d.ins_deel_omschrijving identificatie,
|
||
m.mld_melding_key melding_key,
|
||
fac.gettrackingdate ('MLDNEW', m.mld_melding_key) melding_aanmaak,
|
||
sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) melding_nr,
|
||
--o.mld_opdr_key verpl_key,
|
||
fac.gettrackingdate ('ORDNEW', o.mld_opdr_key) verpl_aanmaak,
|
||
DECODE (o.mld_opdr_key, NULL, NULL, sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr))
|
||
verpl_nr,
|
||
os.mld_statusopdr_omschrijving verpl_status,
|
||
u.prs_bedrijf_naam leverancier,
|
||
f.fin_factuur_nr fact_nr,
|
||
fr.fin_factuurregel_omschrijving fact_oms,
|
||
fs.fin_factuur_statuses_omschr fact_status,
|
||
(f.fin_factuur_totaal / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) excl_btw,
|
||
(f.fin_factuur_totaal_btw / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) btw,
|
||
((COALESCE (f.fin_factuur_totaal, 0) + COALESCE (f.fin_factuur_totaal_btw, 0)) / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) incl_btw,
|
||
b.fac_bijlagen_key,
|
||
--b.fac_bijlagen_aanmaak,
|
||
DECODE (b.fac_bijlagen_key,
|
||
NULL, NULL,
|
||
TO_CHAR (d.ins_deel_omschrijving) || CHR (92) || sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || CHR (92) || b.fac_bijlagen_filename)
|
||
fac_bijlagen_zippath, -- Let op, padnaam kan/mag MAX 258 posities hebben (ivm. insuffficient memory)
|
||
DECODE (b.fac_bijlagen_key,
|
||
NULL, NULL,
|
||
TO_CHAR (LENGTH (TO_CHAR (d.ins_deel_omschrijving) || CHR (92) || sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || CHR (92) || b.fac_bijlagen_filename)))
|
||
check_lengte
|
||
FROM mld_melding_object mo,
|
||
ins_v_aanwezigdeel d,
|
||
--ins_deelkoppeling dkn,
|
||
--ins_deel dv,
|
||
--ins_srtdeel sdv,
|
||
--ins_srtgroep sgv,
|
||
--(SELECT * FROM ins_discipline WHERE ins_discipline_key IN (561, 562)) odv, -- M+L
|
||
ins_srtdeel sd,
|
||
ins_srtgroep sg,
|
||
(SELECT * FROM ins_discipline WHERE ins_discipline_key IN (561, 562)) od, -- M+L
|
||
alg_v_allonrgoed_gegevens aog,
|
||
alg_locatie l,
|
||
mld_melding m,
|
||
( SELECT mld_melding_key, COUNT (*) aantal
|
||
FROM mld_melding_object
|
||
GROUP BY mld_melding_key) m2o, -- Aantal om kosten evenredig te verdelen over gekoppelde objecten!
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
ins_srtdiscipline sd,
|
||
(SELECT *
|
||
FROM mld_opdr
|
||
WHERE mld_typeopdr_key != 781) o, -- Alle opdrachten behalve Offerteaanvraag!
|
||
mld_statusopdr os,
|
||
prs_bedrijf u,
|
||
fin_factuur f,
|
||
(SELECT fin_factuur_key, MIN (fin_factuurregel_omschrijving) fin_factuurregel_omschrijving FROM fin_factuurregel GROUP BY fin_factuur_key) fr,
|
||
fin_factuur_statuses fs,
|
||
(SELECT *
|
||
FROM fac_v_bijlagen
|
||
WHERE fac_bijlagen_verwijder IS NULL
|
||
AND fac_bijlagen_module = 'FIN') b
|
||
WHERE mo.ins_deel_key = d.ins_deel_key
|
||
--AND d.ins_deel_key = dkn.ins_deelkoppeling_naar_key(+)
|
||
--AND dkn.ins_deelkoppeling_van_key = dv.ins_deel_key(+)
|
||
--AND dv.ins_srtdeel_key = sdv.ins_srtdeel_key(+)
|
||
--AND sdv.ins_srtgroep_key = sgv.ins_srtgroep_key(+)
|
||
--AND sgv.ins_discipline_key = odv.ins_discipline_key(+)
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
||
AND sg.ins_discipline_key = od.ins_discipline_key
|
||
AND d.ins_alg_ruimte_type IN ('R', 'T')
|
||
AND d.ins_alg_ruimte_key = aog.alg_onroerendgoed_keys(+)
|
||
AND aog.alg_locatie_key = l.alg_locatie_key(+)
|
||
AND mo.mld_melding_key = m.mld_melding_key
|
||
AND m.mld_melding_key = m2o.mld_melding_key(+)
|
||
AND m.mld_meldbron_nr IS NULL -- Niet gemigreerd uit TOPdesk
|
||
AND m.mld_melding_key > 15795 -- Niet gemigreerd uit Axxerion
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
||
AND m.mld_melding_key = o.mld_melding_key(+)
|
||
AND o.mld_statusopdr_key = os.mld_statusopdr_key(+)
|
||
AND o.mld_uitvoerende_keys = u.prs_bedrijf_key(+)
|
||
AND o.mld_opdr_key = f.mld_opdr_key
|
||
AND f.fin_factuur_key = fr.fin_factuur_key
|
||
AND f.fin_factuur_statuses_key = fs.fin_factuur_statuses_key(+)
|
||
AND f.fin_factuur_key = b.fac_bijlagen_refkey(+)
|
||
UNION ALL
|
||
SELECT l.alg_locatie_code locatie_code,
|
||
l.alg_locatie_omschrijving locatie_naam,
|
||
COALESCE (aog.alg_gebouw_code, aog.alg_terreinsector_code) gebouw_code,
|
||
COALESCE (aog.alg_gebouw_naam, aog.alg_terreinsector_naam) gebouw_naam,
|
||
od.ins_discipline_omschrijving objectdiscipline,
|
||
sg.ins_srtgroep_omschrijving objectgroep,
|
||
sd.ins_srtdeel_omschrijving objectsoort,
|
||
d.ins_deel_key,
|
||
TRIM (DECODE (od.ins_discipline_key, 561, SUBSTR (d.ins_deel_omschrijving, 1, INSTR (d.ins_deel_omschrijving || '/', '/') - 1), NULL)) roepnr,
|
||
TRIM (DECODE (od.ins_discipline_key, 561, SUBSTR (d.ins_deel_omschrijving, INSTR (d.ins_deel_omschrijving || '/', '/') + 1), NULL)) kenteken,
|
||
d.ins_deel_omschrijving identificatie,
|
||
m.mld_melding_key melding_key,
|
||
fac.gettrackingdate ('MLDNEW', m.mld_melding_key) melding_aanmaak,
|
||
sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) melding_nr,
|
||
--bo.bes_bestelopdr_key verpl_key,
|
||
fac.gettrackingdate ('BES2NE', bo.bes_bestelopdr_key) verpl_aanmaak,
|
||
DECODE (bo.bes_bestelopdr_key, NULL, NULL, 'B' || COALESCE (bo.bes_bestelopdr_id, TO_CHAR (b.bes_bestelling_key)))
|
||
verpl_nr,
|
||
bos.bes_bestelopdrstatuses_omschr verpl_status,
|
||
COALESCE (l2.prs_bedrijf_naam, l1.prs_bedrijf_naam) leverancier,
|
||
f.fin_factuur_nr fact_nr,
|
||
fr.fin_factuurregel_omschrijving fact_oms,
|
||
fs.fin_factuur_statuses_omschr fact_status,
|
||
(f.fin_factuur_totaal / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) excl_btw,
|
||
(f.fin_factuur_totaal_btw / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) btw,
|
||
((COALESCE (f.fin_factuur_totaal, 0) + COALESCE (f.fin_factuur_totaal_btw, 0)) / DECODE (COALESCE (m2o.aantal, 0), 0, 1, m2o.aantal)) incl_btw,
|
||
b.fac_bijlagen_key,
|
||
--b.fac_bijlagen_aanmaak,
|
||
DECODE (b.fac_bijlagen_key,
|
||
NULL, NULL,
|
||
TO_CHAR (d.ins_deel_omschrijving) || CHR (92) || sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || CHR (92) || b.fac_bijlagen_filename)
|
||
fac_bijlagen_zippath, -- Let op, padnaam kan/mag MAX 258 posities hebben (ivm. insuffficient memory)
|
||
DECODE (b.fac_bijlagen_key,
|
||
NULL, NULL,
|
||
TO_CHAR (LENGTH (TO_CHAR (d.ins_deel_omschrijving) || CHR (92) || sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || CHR (92) || b.fac_bijlagen_filename)))
|
||
check_lengte
|
||
FROM mld_melding_object mo,
|
||
ins_v_aanwezigdeel d,
|
||
--ins_deelkoppeling dkn,
|
||
--ins_deel dv,
|
||
--ins_srtdeel sdv,
|
||
--ins_srtgroep sgv,
|
||
--(SELECT * FROM ins_discipline WHERE ins_discipline_key IN (561, 562)) odv, -- M+L
|
||
ins_srtdeel sd,
|
||
ins_srtgroep sg,
|
||
(SELECT * FROM ins_discipline WHERE ins_discipline_key IN (561, 562)) od, -- M+L
|
||
alg_v_allonrgoed_gegevens aog,
|
||
alg_locatie l,
|
||
mld_melding m,
|
||
( SELECT mld_melding_key, COUNT (*) aantal
|
||
FROM mld_melding_object
|
||
GROUP BY mld_melding_key) m2o, -- Aantal om kosten evenredig te verdelen over gekoppelde objecten!
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
ins_srtdiscipline sd,
|
||
bes_bestelling b,
|
||
bes_bestelling_item bi,
|
||
bes_bestelopdr_item boi,
|
||
bes_bestelopdr bo,
|
||
bes_bestelopdrstatuses bos,
|
||
prs_bedrijf l1,
|
||
(SELECT *
|
||
FROM bes_kenmerkbesteli kbi, bes_kenmerk k
|
||
WHERE kbi.bes_kenmerkbesteli_verwijder IS NULL
|
||
AND kbi.bes_kenmerk_key = k.bes_kenmerk_key
|
||
AND k.bes_srtkenmerk_key = 1) bik, -- Leverancier
|
||
prs_bedrijf l2,
|
||
fin_factuur f,
|
||
(SELECT fin_factuur_key, MIN (fin_factuurregel_omschrijving) fin_factuurregel_omschrijving FROM fin_factuurregel GROUP BY fin_factuur_key) fr,
|
||
fin_factuur_statuses fs,
|
||
(SELECT *
|
||
FROM fac_v_bijlagen
|
||
WHERE fac_bijlagen_verwijder IS NULL
|
||
AND fac_bijlagen_module = 'FIN') b
|
||
WHERE mo.ins_deel_key = d.ins_deel_key
|
||
--AND d.ins_deel_key = dkn.ins_deelkoppeling_naar_key(+)
|
||
--AND dkn.ins_deelkoppeling_van_key = dv.ins_deel_key(+)
|
||
--AND dv.ins_srtdeel_key = sdv.ins_srtdeel_key(+)
|
||
--AND sdv.ins_srtgroep_key = sgv.ins_srtgroep_key(+)
|
||
--AND sgv.ins_discipline_key = odv.ins_discipline_key(+)
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
||
AND sg.ins_discipline_key = od.ins_discipline_key
|
||
AND d.ins_alg_ruimte_type IN ('R', 'T')
|
||
AND d.ins_alg_ruimte_key = aog.alg_onroerendgoed_keys(+)
|
||
AND aog.alg_locatie_key = l.alg_locatie_key(+)
|
||
AND mo.mld_melding_key = m.mld_melding_key
|
||
AND m.mld_melding_key = m2o.mld_melding_key(+)
|
||
AND m.mld_meldbron_nr IS NULL -- Niet gemigreerd uit TOPdesk
|
||
AND m.mld_melding_key > 15795 -- Niet gemigreerd uit Axxerion
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
||
AND m.mld_melding_key = b.mld_melding_key(+)
|
||
AND b.bes_bestelling_key = bi.bes_bestelling_key(+)
|
||
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
|
||
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
|
||
AND bo.bes_bestelopdr_status = bos.bes_bestelopdrstatuses_key(+)
|
||
AND bo.prs_bedrijf_key = l1.prs_bedrijf_key(+)
|
||
AND bi.bes_bestelling_item_key = bik.bes_bestelling_item_key(+)
|
||
AND fac.safe_to_number (bik.bes_kenmerkbesteli_waarde) = l2.prs_bedrijf_key(+)
|
||
AND bo.bes_bestelopdr_key = f.bes_bestelopdr_key
|
||
AND f.fin_factuur_key = fr.fin_factuur_key
|
||
AND f.fin_factuur_statuses_key = fs.fin_factuur_statuses_key(+)
|
||
AND f.fin_factuur_key = b.fac_bijlagen_refkey(+);
|
||
/*
|
||
CREATE OR REPLACE VIEW VNOG_V_NOTI_RESREMINDER
|
||
(
|
||
CODE,
|
||
SENDER,
|
||
RECEIVER,
|
||
TEXT,
|
||
KEY,
|
||
XKEY,
|
||
XEMAIL,
|
||
XMOBILE,
|
||
FAC_SRTNOTIFICATIE_KEY,
|
||
ATTACHMENTS,
|
||
XSENDER,
|
||
PRS_BEDRIJFADRES_KEY
|
||
)
|
||
AS
|
||
SELECT 'RESINF',
|
||
NULL,
|
||
rsvr.res_rsv_ruimte_contact_key,
|
||
'Reservering '
|
||
|| rsvr.res_reservering_key
|
||
|| ': U heeft op '
|
||
|| TO_CHAR (rsvr.res_rsv_ruimte_van, 'DD-MM')
|
||
|| ' van '
|
||
|| TO_CHAR (rsvr.res_rsv_ruimte_van, 'HH24:MI')
|
||
|| ' tot '
|
||
|| TO_CHAR (rsvr.res_rsv_ruimte_tot, 'HH24:MI')
|
||
|| ' ruimte '
|
||
|| r.res_ruimte_nr
|
||
|| ' gereserveerd.',
|
||
rsvr.res_reservering_key,
|
||
rsvr.res_rsv_ruimte_key,
|
||
NULL xemail,
|
||
NULL xmobile,
|
||
NULL fac_srtnotificatie_key,
|
||
NULL attachments,
|
||
NULL xsender,
|
||
NULL prs_bedrijfadres_key
|
||
FROM res_v_aanwezigrsv_ruimte rsvr,
|
||
--res_v_aanwezigreservering res,
|
||
res_ruimte_opstelling opst,
|
||
res_ruimte r,
|
||
res_disc_params rdp
|
||
WHERE fac.getweekdaynum (SYSDATE) NOT IN (1, 7)
|
||
AND rsvr.res_rsv_ruimte_van >= SYSDATE
|
||
AND rsvr.res_status_fo_key <= 5
|
||
--AND rsvr.res_reservering_key = res.res_reservering_key
|
||
AND rsvr.res_ruimte_opstel_key = opst.res_ruimte_opstel_key
|
||
AND opst.res_ruimte_key = r.res_ruimte_key
|
||
AND r.res_discipline_key = rdp.res_ins_discipline_key
|
||
AND rdp.res_disc_params_noti_dagen IS NOT NULL
|
||
AND rsvr.res_rsv_ruimte_van BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen, 'DAGEN')
|
||
AND fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen + 1, 'DAGEN')
|
||
UNION ALL
|
||
SELECT 'RESINF',
|
||
NULL,
|
||
res_rsv_ruimte_contact_key,
|
||
'Reservering '
|
||
|| res_reservering_key
|
||
|| ': U heeft op '
|
||
|| TO_CHAR (MIN (van), 'dd-mm')
|
||
|| DECODE (
|
||
MIN (van),
|
||
MAX (tot),
|
||
' om ' || TO_CHAR (MIN (van), 'hh24:mi'),
|
||
' van '
|
||
|| TO_CHAR (MIN (van), 'hh24:mi')
|
||
|| ' tot '
|
||
|| TO_CHAR (MAX (tot), 'hh24:mi'))
|
||
|| ' in ruimte ('
|
||
|| (SELECT alg_gebouw_code
|
||
|| '-'
|
||
|| alg_verdieping_code
|
||
|| '-'
|
||
|| alg_ruimte_nr
|
||
FROM alg_v_onroerendgoed_gegevens arg
|
||
WHERE arg.alg_ruimte_key = ruimte_key)
|
||
|| ') '
|
||
|| COUNT (res_reservering_key)
|
||
|| ' voorziening(en) gereserveerd.',
|
||
res_reservering_key,
|
||
res_rsv_ruimte_key,
|
||
NULL xemail,
|
||
NULL xmobile,
|
||
NULL fac_srtnotificatie_key,
|
||
NULL attachments,
|
||
NULL xsender,
|
||
NULL prs_bedrijfadres_key
|
||
FROM (SELECT rsvr.res_reservering_key,
|
||
rsvr.res_rsv_ruimte_key,
|
||
rsvr.res_rsv_ruimte_contact_key,
|
||
rsva.res_rsv_artikel_levering van,
|
||
rsva.res_rsv_artikel_levering tot,
|
||
rsvr.alg_ruimte_key ruimte_key
|
||
FROM res_v_aanwezigrsv_ruimte rsvr,
|
||
--res_v_aanwezigreservering res,
|
||
res_rsv_artikel rsva,
|
||
res_artikel ra,
|
||
res_disc_params rdp
|
||
WHERE fac.getweekdaynum (SYSDATE) NOT IN (1, 7)
|
||
AND rsvr.res_status_fo_key <= 5
|
||
AND rsvr.res_ruimte_opstel_key IS NULL
|
||
--AND rsvr.res_reservering_key = res.res_reservering_key
|
||
AND rsvr.res_rsv_ruimte_key = rsva.res_rsv_ruimte_key
|
||
AND rsva.res_rsv_artikel_verwijder IS NULL
|
||
AND rsva.res_artikel_key = ra.res_artikel_key
|
||
AND ra.res_discipline_key = rdp.res_ins_discipline_key
|
||
AND rdp.res_disc_params_noti_dagen IS NOT NULL
|
||
AND rsva.res_rsv_artikel_levering >= SYSDATE
|
||
AND rsva.res_rsv_artikel_levering BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen, 'DAGEN')
|
||
AND fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen + 1, 'DAGEN')
|
||
UNION ALL
|
||
SELECT rsvr.res_reservering_key,
|
||
rsvr.res_rsv_ruimte_key,
|
||
rsvr.res_rsv_ruimte_contact_key,
|
||
rsvd.res_rsv_deel_van van,
|
||
rsvd.res_rsv_deel_tot tot,
|
||
rsvr.alg_ruimte_key ruimte_key
|
||
FROM res_v_aanwezigrsv_ruimte rsvr,
|
||
--res_v_aanwezigreservering res,
|
||
res_rsv_deel rsvd,
|
||
res_deel rd,
|
||
res_disc_params rdp
|
||
WHERE fac.getweekdaynum (SYSDATE) NOT IN (1, 7)
|
||
AND rsvr.res_status_fo_key <= 5
|
||
AND rsvr.res_ruimte_opstel_key IS NULL
|
||
--AND rsvr.res_reservering_key = res.res_reservering_key
|
||
AND rsvr.res_rsv_ruimte_key = rsvd.res_rsv_ruimte_key
|
||
AND rsvd.res_rsv_deel_verwijder IS NULL
|
||
AND rsvd.res_deel_key = rd.res_deel_key
|
||
AND rd.res_discipline_key = rdp.res_ins_discipline_key
|
||
AND rdp.res_disc_params_noti_dagen IS NOT NULL
|
||
AND rsvd.res_rsv_deel_van >= SYSDATE
|
||
AND rsvd.res_rsv_deel_van BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen, 'DAGEN')
|
||
AND fac.datumtijdplusuitvoertijd (SYSDATE, rdp.res_disc_params_noti_dagen + 1, 'DAGEN'))
|
||
GROUP BY res_rsv_ruimte_contact_key,
|
||
res_reservering_key,
|
||
res_rsv_ruimte_key,
|
||
ruimte_key;
|
||
*/
|
||
CREATE OR REPLACE VIEW VNOG_V_NOTI_INHUUR
|
||
(
|
||
CODE,
|
||
SENDER,
|
||
RECEIVER,
|
||
TEXT,
|
||
KEY,
|
||
XKEY,
|
||
XSENDER,
|
||
XEMAIL,
|
||
XMOBILE,
|
||
ATTACHMENTS
|
||
)
|
||
AS
|
||
SELECT sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
NULL,
|
||
REPLACE (sn.fac_srtnotificatie_oms,
|
||
'##KEY##',
|
||
TO_CHAR (m.mld_melding_key)),
|
||
m.mld_melding_key,
|
||
NULL,
|
||
NULL,
|
||
DECODE (sn.fac_srtnotificatie_code,
|
||
'CUST01', 'inkoop@vnog.nl',
|
||
'CUST02', 'financien-beleid@vnog.nl',
|
||
'personeelsadministratie@vnog.nl') -- CUST03
|
||
xemail,
|
||
NULL xmobile,
|
||
NULL attachments
|
||
FROM fac_tracking t,
|
||
mld_melding m,
|
||
fac_srtnotificatie sn,
|
||
fac_notificatie_job nj
|
||
WHERE t.fac_srtnotificatie_key = 52 -- MLDNEW
|
||
AND t.fac_tracking_refkey = m.mld_melding_key
|
||
AND m.mld_stdmelding_key = 949 -- Goedkeuringsaanvraag inhuur[A=946]
|
||
AND sn.fac_srtnotificatie_code IN ('CUST01', 'CUST02', 'CUST03')
|
||
AND nj.fac_notificatie_job_view = 'VNOG_V_NOTI_INHUUR'
|
||
AND t.fac_tracking_datum > COALESCE (nj.fac_notificatie_job_lastrun, TRUNC (SYSDATE))
|
||
UNION ALL
|
||
SELECT sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
NULL,
|
||
REPLACE (sn.fac_srtnotificatie_oms,
|
||
'##KEY##',
|
||
TO_CHAR (m.mld_melding_key)),
|
||
m.mld_melding_key,
|
||
NULL,
|
||
NULL,
|
||
p.prs_perslid_email xemail,
|
||
NULL xmobile,
|
||
NULL attachments
|
||
FROM fac_tracking t,
|
||
mld_melding m,
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 555) kmgi, -- Goedkeuring Inkoop J/N[A=819]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 565) kmgf, -- Goedkeuring Financi<63>n J/N[A=820]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 581) kmgh, -- Goedkeuring HRM J/N[A=821]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 537) kmp, -- Persoonsgegevens bekend J/N[A=827]
|
||
prs_v_aanwezigperslid p,
|
||
fac_srtnotificatie sn,
|
||
fac_notificatie_job nj
|
||
WHERE t.fac_srtnotificatie_key = 55 -- MLDUPD
|
||
AND t.fac_tracking_refkey = m.mld_melding_key
|
||
AND m.mld_stdmelding_key = 949 -- Goedkeuringsaanvraag inhuur[A=946]
|
||
AND m.mld_melding_key = kmgi.mld_melding_key
|
||
AND kmgi.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmgf.mld_melding_key
|
||
AND kmgf.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmgh.mld_melding_key
|
||
AND kmgh.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmp.mld_melding_key
|
||
AND kmp.mld_kenmerkmelding_waarde = '2' -- Nee
|
||
AND m.prs_perslid_key_voor = p.prs_perslid_key
|
||
AND sn.fac_srtnotificatie_code = 'CUST04'
|
||
AND nj.fac_notificatie_job_view = 'VNOG_V_NOTI_INHUUR'
|
||
AND t.fac_tracking_datum > nj.fac_notificatie_job_lastrun
|
||
AND GREATEST (kmgi.mld_kenmerkmelding_aanmaak, kmgf.mld_kenmerkmelding_aanmaak, kmgh.mld_kenmerkmelding_aanmaak) > COALESCE (nj.fac_notificatie_job_lastrun, TRUNC (SYSDATE))
|
||
;
|
||
|
||
CREATE OR REPLACE PACKAGE VNOG
|
||
AS
|
||
PROCEDURE afmelden_mld;
|
||
PROCEDURE afmelden_ord;
|
||
END;
|
||
/
|
||
|
||
CREATE OR REPLACE PACKAGE BODY VNOG
|
||
AS
|
||
-- Inkoop/Financi<63>n/HRM akkoord en kandidaat bekend, dan melding afmelden
|
||
-- en personeelsadministratie@vnog.nl CUST05-notificeren.
|
||
PROCEDURE afmelden_mld
|
||
AS
|
||
c_applname VARCHAR2 (50) := 'AFMELDEN_MLD';
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_count_tot NUMBER (10);
|
||
|
||
CURSOR c_mld_inhuur
|
||
IS
|
||
SELECT m.mld_melding_key, m.mld_melding_onderwerp, m.mld_melding_status
|
||
FROM mld_melding m, mld_stdmelding sm,
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 555) kmgi, -- Goedkeuring Inkoop J/N[A=819]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 565) kmgf, -- Goedkeuring Financi<63>n J/N[A=820]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 581) kmgh, -- Goedkeuring HRM J/N[A=821]
|
||
(SELECT * FROM mld_kenmerkmelding WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_kenmerk_key = 537) kmp -- Persoonsgegevens bekend J/N[A=827]
|
||
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_stdmelding_key = 949 -- Goedkeuringsaanvraag inhuur[A=946]
|
||
AND m.mld_melding_key = kmgi.mld_melding_key
|
||
AND kmgi.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmgf.mld_melding_key
|
||
AND kmgf.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmgh.mld_melding_key
|
||
AND kmgh.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_key = kmp.mld_melding_key
|
||
AND kmp.mld_kenmerkmelding_waarde = '1' -- Ja
|
||
AND m.mld_melding_status NOT IN (1, 5, 6) -- Afgewezen, Afgemeld, Historie
|
||
AND NOT EXISTS -- Geen lopende opdrachten (zou zo moeten zijn)
|
||
(SELECT 1
|
||
FROM mld_opdr
|
||
WHERE mld_statusopdr_key IN (3, 4, 5, 8, 10) -- Ter fiattering/Gefiatteerd/Toegekend/Geaccepteerd/Ter goedkeuring
|
||
AND mld_melding_key = m.mld_melding_key)
|
||
ORDER BY 1;
|
||
BEGIN
|
||
v_count_tot := 0;
|
||
FOR rec IN c_mld_inhuur
|
||
LOOP
|
||
v_errormsg := 'Fout afmelden goedkeuringsaanvraag';
|
||
v_aanduiding := '[' || TO_CHAR (rec.mld_melding_key) || '|' || rec.mld_melding_onderwerp || '] ';
|
||
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- Afgemeld (incl. tracking)
|
||
|
||
-- Notificatie naar personeelsadministratie@vnog.nl
|
||
v_errormsg := 'Fout toevoegen CUST05-email';
|
||
fac.putnotificationsrtprio (NULL, -- pfrom
|
||
NULL, -- pto
|
||
'CUST05', -- pcode
|
||
rec.mld_melding_key, -- pref
|
||
NULL, -- poptmessage
|
||
NULL, -- poptstatus
|
||
'personeelsadministratie@vnog.nl', -- poptemail
|
||
NULL, -- poptmobile
|
||
NULL, -- pxref
|
||
NULL, -- pprio
|
||
NULL, -- psender
|
||
NULL -- pattach
|
||
);
|
||
|
||
--v_errormsg := 'Fout toevoegen CUST05-track';
|
||
--fac.trackaction ('CUST05', rec.mld_melding_key, NULL, NULL, NULL);
|
||
|
||
v_count_tot := v_count_tot + 1;
|
||
IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
|
||
END LOOP;
|
||
fac.writelog (c_applname, 'S', '#Inhuur-meldingen gesloten: ' || 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;
|
||
|
||
-- Externe opdrachten in de nacht na uitgeven automatisch afmelden (zoals
|
||
-- op 26-4-2024 telefonisch afgestemd met Rauno Oostra).
|
||
-- Hierdoor krijgt de bovenliggende melding de status Niet opgelost en in
|
||
-- de werkvoorraad 'Te behandelen' de gewenste aandachtswaarde.
|
||
PROCEDURE afmelden_ord
|
||
AS
|
||
c_applname VARCHAR2 (50) := 'AFMELDEN_ORD';
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_count_tot NUMBER (10);
|
||
|
||
CURSOR c_ord_extern
|
||
IS
|
||
SELECT o.mld_opdr_key, mld_melding_key, mld_opdr_bedrijfopdr_volgnr
|
||
FROM mld_opdr o
|
||
WHERE o.mld_typeopdr_key = 881 -- Externe opdracht
|
||
AND o.mld_statusopdr_key IN (3, 4, 5, 8, 10) -- Lopend
|
||
ORDER BY 1;
|
||
BEGIN
|
||
v_count_tot := 0;
|
||
FOR rec IN c_ord_extern
|
||
LOOP
|
||
v_errormsg := 'Fout afmelden externe opdracht';
|
||
v_aanduiding := '[' || TO_CHAR (rec.mld_melding_key) || '/' || TO_CHAR (rec.mld_opdr_bedrijfopdr_volgnr) || '] ';
|
||
MLD.setopdrachtstatus (rec.mld_opdr_key, 6, NULL); -- Afgemeld (incl. tracking)
|
||
MLD.updatemeldingstatus (rec.mld_melding_key, 0, NULL);
|
||
v_count_tot := v_count_tot + 1;
|
||
IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
|
||
END LOOP;
|
||
fac.writelog (c_applname, 'S', '#Externe opdrachten gesloten: ' || 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 VNOG_DAILY
|
||
AS
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
BEGIN
|
||
vnog.afmelden_mld;
|
||
vnog.afmelden_ord;
|
||
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 VNOG_DAILY;
|
||
/
|
||
|
||
CREATE OR REPLACE VIEW vnog_v_rap_mails
|
||
(
|
||
perslid_key,
|
||
email
|
||
)
|
||
AS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_email
|
||
FROM prs_perslid p
|
||
WHERE p.prs_perslid_verwijder IS NULL
|
||
AND p.prs_perslid_email IS NOT NULL;
|
||
|
||
------ 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
|