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

WELK#66143 Herinrichting meldingenstructuur en koppeling Valuemation

Browse Source 
svn path=/Customer/trunk/; revision=55899
This commit is contained in:
Sander Schepers
2022-05-15 21:08:46 +00:00
parent 6381438448
commit 832f394d94
1 changed files with 99 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
WELK/welk.sql
View File

@@ -317,7 +317,7 @@ CREATE OR REPLACE VIEW welk_v_noti_receptie
par2, par2,
xkey xkey
) )
AS AS
SELECT sn.fac_srtnotificatie_code, SELECT sn.fac_srtnotificatie_code,
fac.gettrackinguserkey ('MLDNEW', m.mld_melding_key), fac.gettrackinguserkey ('MLDNEW', m.mld_melding_key),
DECODE (std.mld_ins_discipline_key, 361, 1541, 1181), DECODE (std.mld_ins_discipline_key, 361, 1541, 1181),
@@ -328,23 +328,25 @@ AS
NULL NULL
FROM mld_melding m, FROM mld_melding m,
mld_stdmelding std, mld_stdmelding std,
ins_tab_discipline d,
fac_notificatie_job nj, fac_notificatie_job nj,
fac_srtnotificatie sn fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = 'CUST01' WHERE sn.fac_srtnotificatie_code = 'CUST01'
AND m.mld_stdmelding_key = std.mld_stdmelding_key AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_melding_status = 2 AND m.mld_melding_status = 2
AND nj.fac_notificatie_job_key = 41 AND nj.fac_notificatie_job_key = 41
AND d.ins_discipline_key = std.mld_ins_discipline_key
AND d.ins_srtdiscipline_key = 1
AND fac.gettrackingdate ('MLDNEW', m.mld_melding_key) >= AND fac.gettrackingdate ('MLDNEW', m.mld_melding_key) >=
nj.fac_notificatie_job_nextrun nj.fac_notificatie_job_nextrun
- (nj.fac_notificatie_job_interval / 24); - (nj.fac_notificatie_job_interval / 24);
CREATE OR REPLACE PROCEDURE welk_processemail ( CREATE OR REPLACE PROCEDURE welk_processemail (pfrom IN VARCHAR2,
pfrom IN VARCHAR2, pto IN VARCHAR2,
pto IN VARCHAR2, psubject IN VARCHAR2,
psubject IN VARCHAR2, pbody IN VARCHAR2,
pbody IN VARCHAR2, psessionid IN VARCHAR2,
psessionid IN VARCHAR2, pemailkey IN NUMBER)
pemailkey IN NUMBER)
AS AS
sender prs_perslid.prs_perslid_key%TYPE; sender prs_perslid.prs_perslid_key%TYPE;
mldkey mld_melding.mld_melding_key%TYPE; mldkey mld_melding.mld_melding_key%TYPE;
@@ -377,9 +379,9 @@ AS
v_attachorigin mld_kenmerk.mld_kenmerk_key%TYPE; v_attachorigin mld_kenmerk.mld_kenmerk_key%TYPE;
BEGIN BEGIN
v_errormsg := '(0x143)' || v_mldkey || psubject || v_actie; v_errormsg := '(0x143)' || v_mldkey || psubject || v_actie;
sender := 4; --Standaard de persoon Facilitor sender := 4; --Standaard de persoon Facilitor
v_mailorigin := 410; --Kenmerk_key originele mail-bijlage v_mailorigin := 410; --Kenmerk_key originele mail-bijlage
v_attachorigin := 411; --Kenmerk_key bijlage v_attachorigin := 411; --Kenmerk_key bijlage
-- Verwijder de Bounce Address Tag Validation -- Verwijder de Bounce Address Tag Validation
IF pfrom LIKE 'prvs=%' IF pfrom LIKE 'prvs=%'
@@ -940,23 +942,15 @@ BEGIN
VALUES ( VALUES (
v_opdrkey, v_opdrkey,
SUBSTR ( SUBSTR (
psubject REPLACE (
|| CHR (13) SUBSTR (pbody,
|| CHR (10) 1,
|| REPLACE ( 4000),
SUBSTR ( CHR (13)
pbody, || CHR (10)
1, || CHR (13)
4000 || CHR (10),
- ( LENGTH ( CHR (13) || CHR (10)),
psubject)
+ 2)),
CHR (13)
|| CHR (10)
|| CHR (13)
|| CHR (10),
CHR (13)
|| CHR (10)),
1, 1,
4000), -- Verwijder onnodige witregels 4000), -- Verwijder onnodige witregels
sender); sender);
@@ -1539,23 +1533,15 @@ BEGIN
VALUES ( VALUES (
v_opdrkey, v_opdrkey,
SUBSTR ( SUBSTR (
psubject REPLACE (
|| CHR (13) SUBSTR (pbody,
|| CHR (10) 1,
|| REPLACE ( 4000),
SUBSTR ( CHR (13)
pbody, || CHR (10)
1, || CHR (13)
4000 || CHR (10),
- ( LENGTH ( CHR (13) || CHR (10)),
psubject)
+ 2)),
CHR (13)
|| CHR (10)
|| CHR (13)
|| CHR (10),
CHR (13)
|| CHR (10)),
1, 1,
4000), -- Verwijder onnodige witregels 4000), -- Verwijder onnodige witregels
sender); sender);
@@ -1584,72 +1570,72 @@ BEGIN
END IF; END IF;
-- -- Zoek het laagste bijlagen kenmerk om de bijlagen onder te stoppen -- -- Zoek het laagste bijlagen kenmerk om de bijlagen onder te stoppen
-- -- v_errormsg := 'Fout bij zoeken naar kenmerkbijlage'; -- v_errormsg := 'Fout bij zoeken naar kenmerkbijlage';
-- -- --
-- -- SELECT MIN (mld_kenmerk_key) -- SELECT MIN (mld_kenmerk_key)
-- -- INTO v_kenmerk_key -- INTO v_kenmerk_key
-- -- FROM mld_kenmerk k, -- FROM mld_kenmerk k,
-- -- mld_srtkenmerk sk, -- mld_srtkenmerk sk,
-- -- mld_stdmelding std, -- mld_stdmelding std,
-- -- ins_tab_discipline d -- ins_tab_discipline d
-- -- WHERE mld_srtkenmerk_kenmerktype = 'M' -- WHERE mld_srtkenmerk_kenmerktype = 'M'
-- -- AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key -- AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
-- -- AND std.mld_stdmelding_key = stdmelding -- AND std.mld_stdmelding_key = stdmelding
-- -- AND std.mld_ins_discipline_key = d.ins_discipline_key -- AND std.mld_ins_discipline_key = d.ins_discipline_key
-- -- AND ( (k.mld_stdmelding_key = std.mld_stdmelding_key -- AND ( (k.mld_stdmelding_key = std.mld_stdmelding_key
-- -- AND k.mld_kenmerk_niveau = 'S') -- AND k.mld_kenmerk_niveau = 'S')
-- -- OR (k.mld_stdmelding_key = d.ins_discipline_key -- OR (k.mld_stdmelding_key = d.ins_discipline_key
-- -- AND k.mld_kenmerk_niveau = 'D') -- AND k.mld_kenmerk_niveau = 'D')
-- -- OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key -- OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key
-- -- AND k.mld_kenmerk_niveau = 'T')) -- AND k.mld_kenmerk_niveau = 'T'))
-- -- AND k.mld_kenmerk_verwijder IS NULL -- AND k.mld_kenmerk_verwijder IS NULL
-- -- AND NOT EXISTS -- AND NOT EXISTS
-- -- (SELECT mld_kenmerk_volgnummer -- (SELECT mld_kenmerk_volgnummer
-- -- FROM mld_kenmerk k1, -- FROM mld_kenmerk k1,
-- -- mld_srtkenmerk sk1, -- mld_srtkenmerk sk1,
-- -- mld_stdmelding std1, -- mld_stdmelding std1,
-- -- ins_tab_discipline d1 -- ins_tab_discipline d1
-- -- WHERE sk1.mld_srtkenmerk_kenmerktype = 'M' -- WHERE sk1.mld_srtkenmerk_kenmerktype = 'M'
-- -- AND sk1.mld_srtkenmerk_key = -- AND sk1.mld_srtkenmerk_key =
-- -- k1.mld_srtkenmerk_key -- k1.mld_srtkenmerk_key
-- -- AND std1.mld_stdmelding_key = stdmelding -- AND std1.mld_stdmelding_key = stdmelding
-- -- AND std1.mld_ins_discipline_key = -- AND std1.mld_ins_discipline_key =
-- -- d1.ins_discipline_key -- d1.ins_discipline_key
-- -- AND ( (k1.mld_stdmelding_key = -- AND ( (k1.mld_stdmelding_key =
-- -- std1.mld_stdmelding_key -- std1.mld_stdmelding_key
-- -- AND k1.mld_kenmerk_niveau = 'S') -- AND k1.mld_kenmerk_niveau = 'S')
-- -- OR (k1.mld_stdmelding_key = -- OR (k1.mld_stdmelding_key =
-- -- d1.ins_discipline_key -- d1.ins_discipline_key
-- -- AND k1.mld_kenmerk_niveau = 'D') -- AND k1.mld_kenmerk_niveau = 'D')
-- -- OR (k1.mld_stdmelding_key = -- OR (k1.mld_stdmelding_key =
-- -- d1.ins_srtdiscipline_key -- d1.ins_srtdiscipline_key
-- -- AND k1.mld_kenmerk_niveau = 'T')) -- AND k1.mld_kenmerk_niveau = 'T'))
-- -- AND k1.mld_kenmerk_verwijder IS NULL -- AND k1.mld_kenmerk_verwijder IS NULL
-- -- AND k1.mld_kenmerk_volgnummer > -- AND k1.mld_kenmerk_volgnummer >
-- -- k.mld_kenmerk_volgnummer); -- k.mld_kenmerk_volgnummer);
-- -- --
-- -- IF v_opdrkey IS NOT NULL -- IF v_opdrkey IS NOT NULL
-- -- THEN -- THEN
-- -- Bijlagen toevoegen uit email -- Bijlagen toevoegen uit email
-- v_errormsg := v_errormsg :=
-- '(0x601)' || v_mldkey || psubject || v_actie; '(0x601)' || v_mldkey || psubject || v_actie;
--
-- INSERT INTO fac_result (fac_result_sessionid, INSERT INTO fac_result (fac_result_sessionid,
-- fac_result_naam, fac_result_naam,
-- fac_result_waarde) fac_result_waarde)
-- VALUES ( VALUES (
-- psessionid, psessionid,
-- 'kenmerkpath', 'kenmerkpath',
-- 'MLD\O' 'MLD\O'
-- || TO_CHAR (TRUNC (v_opdrkey / 1000), || TO_CHAR (TRUNC (v_opdrkey / 1000),
-- 'FM0000') 'FM0000')
-- || '___\O' || '___\O'
-- || v_opdrkey || v_opdrkey
-- || '\' || '\'
-- || v_attachorigin || v_attachorigin
-- || '\'); || '\');
--
-- -- END IF; -- END IF;
-- Originele email wordt opgeslagen bij de opdracht -- Originele email wordt opgeslagen bij de opdracht
v_errormsg := v_errormsg :=
@@ -1672,11 +1658,12 @@ BEGIN
END IF; END IF;
END; END;
ELSE ELSE
v_errormsg := '(0x900)' || v_mldkey || psubject || v_actie || ' - geen pto herkend';
INSERT INTO fac_result (fac_result_sessionid, INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam, fac_result_naam,
fac_result_waarde) fac_result_waarde)
VALUES (psessionid, VALUES (psessionid,
'maillog - geen pto herkend', 'maillog',
v_errormsg); v_errormsg);
END CASE; END CASE;
EXCEPTION EXCEPTION
@@ -1706,6 +1693,7 @@ EXCEPTION
END; END;
/ /
CREATE OR REPLACE PROCEDURE welk_export_valuemation ( CREATE OR REPLACE PROCEDURE welk_export_valuemation (
p_applname IN VARCHAR2, p_applname IN VARCHAR2,
p_applrun IN VARCHAR2, p_applrun IN VARCHAR2,