VNOG#78645 VNOG0
svn path=/Customer/trunk/; revision=64110
This commit is contained in:
Maarten van der Heide
779
VNOG/vnog.sql
Normal file
779
VNOG/vnog.sql
Normal 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
|
||||
Reference in New Issue
Block a user