admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VNOG#78645 VNOG0

Browse Source 
svn path=/Customer/trunk/; revision=64110
This commit is contained in:
Maarten van der Heide
2024-04-02 06:33:03 +00:00
parent cdce22b619
commit c9788c7f44
1 changed files with 779 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

779
VNOG/vnog.sql Normal file
View File

@@ -0,0 +1,779 @@
--
-- $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 ------
-- QRcode 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 ins_deel i,
ins_v_alg_overzicht o,
ins_srtdeel s,
ins_srtgroep g,
ins_discipline d,
alg_locatie l,
fac_bookmark b
WHERE b.fac_bookmark_naam = 'QRC_MELDING'
AND (b.fac_bookmark_expire IS NULL
OR b.fac_bookmark_expire > SYSDATE)
AND ins_deel_verwijder IS NULL
AND i.ins_deel_module = 'INS'
AND i.ins_deel_parent_key IS NULL
AND s.ins_srtdeel_key = i.ins_srtdeel_key
AND g.ins_srtgroep_key = s.ins_srtgroep_key
AND d.ins_discipline_key = g.ins_discipline_key
AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
AND o.alg_locatie_key = i.ins_alg_locatie_key
AND i.ins_alg_locatie_key = l.alg_locatie_key;
-- Mail2Melding-stromen:
-- - SERVICEDESK -: Registreren melding van Soortmelding=861=Servicedesk/Algemeen/Open melding!
-- - 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);
subject_regexp VARCHAR2 (1000);
v_mldnum VARCHAR2 (1000);
v_melding_key NUMBER (10);
v_melder_key NUMBER (10);
v_discipline_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_body VARCHAR2 (4000);
v_folder_kkey NUMBER (10);
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 gevolgd door spatie uit onderwerp proberen
-- te bepalen.
-- 2) Het 1e nummer uit onderwerp wordt gezien als meldingnr en evt.
-- andere nummers (verder naar rechts) worden genegeerd.
-- 3) Het mailadres van afzender is gelijk aan die van melder??? => VERVALLEN
--subject_regexp := '[[:alpha:]]*[M|O][[:digit:]]{1,} ';
subject_regexp := '[[:digit:]]{1,}';
v_mldnum := REGEXP_SUBSTR (psubject || ' ', subject_regexp, 1, 1, 'i'); -- 1234, of 12345, of 12, of 1 etc.
--v_srtdisc := REGEXP_SUBSTR (v_mldnum, '[[:alpha:]]', 1, 1, 'i'); -- M of O
--v_mld_key_uit_subject := fac.safe_to_number (SUBSTR (v_mldnum, LENGTH (v_srtdisc) + 1)); -- 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));
/*
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet.
BEGIN
IF fac.getsetting ('mld_melding_actiecode') = 1
THEN
UPDATE mld_melding
SET mld_melding_actiecode = 1 + 128 -- Backoffice + Attentie
WHERE mld_melding_key = v_melding_key;
END IF;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('Niet gelukt om Attentie te zetten.');
END;
-- Bepalen vakgroeptype prefix en behandelaar van melding.
SELECT sd.ins_srtdiscipline_prefix, m.mld_melding_behandelaar_key, m.mld_melding_behandelaar2_key
INTO v_mldprefix, v_behandelaar_key, v_behandelaar2_key
FROM mld_melding m, mld_stdmelding sm, mld_discipline md, ins_srtdiscipline sd
WHERE m.mld_melding_key = v_melding_key
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;
IF v_behandelaar2_key IS NOT NULL -- Melding en actieve behandelaar bekend?
THEN
-- Notificatie naar actieve behandelaar
fac.putnotificationsrtprio (
NULL,
v_behandelaar2_key,
'MLDAB2',
v_melding_key,
'Melding ' || v_mldprefix || v_melding_key || ' is gewijzigd.',
2,
NULL,
NULL,
NULL,
2,
NULL);
ELSIF v_behandelaar_key IS NOT NULL -- Melding en behandelaar bekend?
THEN
-- Notificatie naar behandelaar
fac.putnotificationsrtprio (
NULL,
v_behandelaar_key,
'MLDNOB',
v_melding_key,
'Melding ' || v_mldprefix || v_melding_key || ' is gewijzigd.',
2,
NULL,
NULL,
NULL,
2,
NULL);
END IF;
*/
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;
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
--v_errormsg := 'Fout strippen disclaimer';
--IF INSTR (UPPER (pbody), 'DISCLAIMER') > 0 --AND INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') > 0
--THEN
--v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') - 12));
-- v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER') - 1));
--ELSE
-- v_body := pbody;
--END IF;
v_body := pbody;
-- 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 (v_body, 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 ' || 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
*/
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 1e nummer uit onderwerp wordt gezien als meldingnr en evt.
-- andere nummers (verder naar rechts) worden genegeerd.
-- 3) Het mailadres van afzender is gelijk aan die van melder??? => VERVALLEN
--subject_regexp := '[[:alpha:]]*[M|O][[:digit:]]{1,} ';
subject_regexp := '[[:digit:]]{1,}';
v_mldnum := REGEXP_SUBSTR (psubject || ' ', subject_regexp, 1, 1, 'i'); -- 1234, of 12345, of 12, of 1 etc.
--v_srtdisc := REGEXP_SUBSTR (v_mldnum, '[[:alpha:]]', 1, 1, 'i'); -- M of O
--v_mld_key_uit_subject := fac.safe_to_number (SUBSTR (v_mldnum, LENGTH (v_srtdisc) + 1)); -- 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));
/*
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet.
BEGIN
IF fac.getsetting ('mld_melding_actiecode') = 1
THEN
UPDATE mld_melding
SET mld_melding_actiecode = 1 + 128 -- Backoffice + Attentie
WHERE mld_melding_key = v_melding_key;
END IF;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('Niet gelukt om Attentie te zetten.');
END;
-- Bepalen vakgroeptype prefix en behandelaar van melding.
SELECT sd.ins_srtdiscipline_prefix, m.mld_melding_behandelaar_key, m.mld_melding_behandelaar2_key
INTO v_mldprefix, v_behandelaar_key, v_behandelaar2_key
FROM mld_melding m, mld_stdmelding sm, mld_discipline md, ins_srtdiscipline sd
WHERE m.mld_melding_key = v_melding_key
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;
IF v_behandelaar2_key IS NOT NULL -- Melding en actieve behandelaar bekend?
THEN
-- Notificatie naar actieve behandelaar
fac.putnotificationsrtprio (
NULL,
v_behandelaar2_key,
'MLDAB2',
v_melding_key,
'Melding ' || v_mldprefix || v_melding_key || ' is gewijzigd.',
2,
NULL,
NULL,
NULL,
2,
NULL);
ELSIF v_behandelaar_key IS NOT NULL -- Melding en behandelaar bekend?
THEN
-- Notificatie naar behandelaar
fac.putnotificationsrtprio (
NULL,
v_behandelaar_key,
'MLDNOB',
v_melding_key,
'Melding ' || v_mldprefix || v_melding_key || ' is gewijzigd.',
2,
NULL,
NULL,
NULL,
2,
NULL);
END IF;
*/
ELSE
-- Bepaal de afgesproken soortmelding met key=752=Uitdiensttredingsformulier (vast/inhuur)!
-- TODO:Acceptatie-key=752 en Productie-key=???
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;
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
--v_errormsg := 'Fout strippen disclaimer';
--IF INSTR (UPPER (pbody), 'DISCLAIMER') > 0 --AND INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') > 0
--THEN
--v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') - 12));
-- v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER') - 1));
--ELSE
-- v_body := pbody;
--END IF;
v_body := pbody;
-- 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 (v_body, 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 ' || 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,
COALESCE (odv.ins_discipline_omschrijving, od.ins_discipline_omschrijving) voertuig_discipline,
COALESCE (sgv.ins_srtgroep_omschrijving, sg.ins_srtgroep_omschrijving) voertuig_objectgroep,
COALESCE (sdv.ins_srtdeel_omschrijving, sd.ins_srtdeel_omschrijving) voertuig_objectsoort,
COALESCE (dv.ins_deel_omschrijving, d.ins_deel_omschrijving) voertuig,
od.ins_discipline_omschrijving discipline,
sg.ins_srtgroep_omschrijving objectgroep,
sd.ins_srtdeel_omschrijving objectsoort,
d.ins_deel_key,
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 totaal,
f.fin_factuur_totaal_btw btw
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,
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,
fin_factuurregel fr,
fin_factuur_statuses fs
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_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(+)
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,
COALESCE (odv.ins_discipline_omschrijving, od.ins_discipline_omschrijving) voertuig_discipline,
COALESCE (sgv.ins_srtgroep_omschrijving, sg.ins_srtgroep_omschrijving) voertuig_objectgroep,
COALESCE (sdv.ins_srtdeel_omschrijving, sd.ins_srtdeel_omschrijving) voertuig_objectsoort,
COALESCE (dv.ins_deel_omschrijving, d.ins_deel_omschrijving) voertuig,
od.ins_discipline_omschrijving discipline,
sg.ins_srtgroep_omschrijving objectgroep,
sd.ins_srtdeel_omschrijving objectsoort,
d.ins_deel_key,
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, l2.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 totaal,
f.fin_factuur_totaal_btw btw
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,
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 WHERE bes_kenmerkbesteli_verwijder IS NULL AND bes_kenmerk_key = 2) bik, -- Leverancier
prs_bedrijf l2,
fin_factuur f,
fin_factuurregel fr,
fin_factuur_statuses fs
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_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(+);
------ 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