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

CSUN#80929 PROCEDURE csun_processemail veel extra logging toegevoegd.

Browse Source 
svn path=/Customer/trunk/; revision=62877
This commit is contained in:
Jos Groot Lipman
2023-12-07 09:04:04 +00:00
parent 05ac2c1839
commit 494051155e
1 changed files with 98 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

117
CSUN/CSUN.sql
View File

@@ -7,7 +7,7 @@
DEFINE thisfile = 'CSUN.SQL'
DEFINE dbuser = 'CSUN'
SET ECHO ON
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
@@ -1329,6 +1329,11 @@ AS
v_client NUMBER;
v_new NUMBER; -- vlag om te testen of het om een nieuwe melding gaat.
BEGIN
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Step 1',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
v_new := 0;
errormsg := '(0x143)';
v_externnr := NULL;
@@ -1352,7 +1357,7 @@ BEGIN
FROM prs_perslid p, prs_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key
AND prs_perslid_verwijder IS NULL
AND
AND
--(UPPER (prs_perslid_email) = UPPER (v_from) OR --CSUN#76149: Niet meer kijken naar prs_perslid_email
EXISTS
(SELECT *
@@ -1361,6 +1366,11 @@ BEGIN
AND prs_link_key = p.prs_perslid_key
AND UPPER (kl.prs_kenmerklink_waarde) = UPPER (v_from));
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Sender ' || sender,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
BEGIN
SELECT fac.safe_to_number (prs_kenmerklink_waarde)
INTO v_client
@@ -1371,6 +1381,10 @@ BEGIN
v_client := NULL;
END;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'v_client ' || v_client,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
CASE
WHEN UPPER (pto) LIKE 'SERVICEDESK@%' OR UPPER (pto) LIKE 'DJI@%' OR UPPER (pto) LIKE 'KLANTSUPPORT@%'
@@ -1598,6 +1612,12 @@ BEGIN
|| ')');
END;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'v_locatie_code ' || v_locatie_code,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- append (as a note?) to an existing melding if #key is found in the subject
-- Alternatief was: scannen van fac_srtnotificatie_oms maar dat voelt ook niet echt lekker
-- subject_regexp := fac.getsetting ('mld_reply_subject_regexp'); -- [[:alpha:]]*[[:digit:]]{3,}
@@ -1616,6 +1636,11 @@ BEGIN
'i'); -- MA
mldkey := fac.safe_to_number (SUBSTR (mldnum, LENGTH (srtdisc) + 1));
fac.writelog ('PROCESSEMAIL#80929',
'I',
'mldkey ' || mldkey,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- DBMS_OUTPUT.PUT_LINE('mldnum: ' || mldnum);
-- DBMS_OUTPUT.PUT_LINE('srtdisc: ' || srtdisc);
-- DBMS_OUTPUT.PUT_LINE('mldkey: ' || mldkey);
@@ -1642,6 +1667,11 @@ BEGIN
-- DBMS_OUTPUT.PUT_LINE('mld_stdmelding_key: ' || TO_CHAR(stdmelding));
fac.writelog ('PROCESSEMAIL#80929',
'I',
'stdmelding ' || stdmelding,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
IF mldkey IS NULL
THEN
BEGIN
@@ -1665,6 +1695,13 @@ BEGIN
stdmelding := NULL;
END;
END IF;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'mldkey2 ' || mldkey,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
BEGIN
SELECT mld_melding_behandelaar_key
INTO behandelaar_key
@@ -1679,6 +1716,11 @@ BEGIN
behandelaar_key := NULL;
END;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'behandelaar_key ' || behandelaar_key,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
IF stdmelding IS NOT NULL
AND behandelaar_key IS NOT NULL
AND sender <> 23
@@ -1728,6 +1770,11 @@ BEGIN
2,
NULL);
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Notitie toegevoegd',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet
BEGIN
IF fac.getsetting('mld_melding_actiecode') = 1
@@ -1795,6 +1842,11 @@ BEGIN
RETURNING mld_melding_key
INTO mldkey;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Nieuwe melding ' || mldkey,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- DBMS_OUTPUT.PUT_LINE('Melding toegevoegd: ' || mldkey);
errormsg := '(0x165)';
mld.setmeldingstatus (mldkey, 2, sender);
@@ -1804,6 +1856,11 @@ BEGIN
fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || mldkey);
fac.writelog ('PROCESSEMAIL#80929',
'I',
'fac_result toegevoegd ',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
END;
-- Zoek het laagste bijlagen kenmerk om de bijlagen onder te stoppen
@@ -1849,6 +1906,11 @@ BEGIN
AND k1.mld_kenmerk_volgnummer >
k.mld_kenmerk_volgnummer);
fac.writelog ('PROCESSEMAIL#80929',
'I',
'kkey ' || kkey,
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
errormsg := '(0x153)';
IF kkey IS NOT NULL
@@ -1869,7 +1931,7 @@ BEGIN
|| kkey
|| '\');
END IF;
-- originele email wordt opgeslagen bij de melding
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
@@ -1877,7 +1939,7 @@ BEGIN
VALUES (psessionid,
'kenmerkorgmailpath',
'MLD\M' || TO_CHAR (TRUNC (mldkey / 1000), 'FM0000') || '___\M' || mldkey || '\' || 1561 || '\');
END IF;
ELSE
errormsg := '(0x187)';
@@ -1891,12 +1953,23 @@ BEGIN
|| errormsg);
END CASE;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Step 2',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- alleen locatiekenmerk aanmaken als het een nieuwe melding betreft. Anders krijgen we dubbele kenmerken.
IF v_locatie_code IS NOT NULL AND v_new = 1
THEN
csun_set_kenmerk('MLD',281, mldkey, v_locatie_code, 0); -- locatie_code klant kenmerk
CSUN.mld_after_insert (mldkey);
END IF;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Step 3',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-- Log het binnenkomende bericht als dat nodig is.
-- IF sender = 23 THEN -- ABNAMRO
-- Verwijder records uit de fac_rapport tabel omdat de key uniek moet zijn.
@@ -1904,6 +1977,12 @@ BEGIN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel, fac_rapport_soort)
VALUES (SUBSTR('MELDING_' || v_client, 1, 12), mldkey, SUBSTR(pbody, 1, 1990), 1);
-- END IF;
fac.writelog ('PROCESSEMAIL#80929',
'I',
'Einde!',
TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
EXCEPTION
WHEN OTHERS
THEN
@@ -4064,7 +4143,7 @@ AS
AND mld_srtkenmerk_key = 101
AND mk.mld_melding_key = m.melding_key
AND mk.mld_kenmerkmelding_verwijder IS NULL), NULL, NULL, m."MELDING_AFGEMELD"),
fac.gettrackingdate ('MLDAFR', m.melding_key))) datum_facturatie,
fac.gettrackingdate ('MLDAFR', m.melding_key))) datum_facturatie,
mc.accountcode,
mc.fclt_f_client,
mc.tijdstip,
@@ -6742,7 +6821,7 @@ AS
WHERE kosten_meetellen = 1
GROUP BY groep, planjaar;
CREATE OR REPLACE VIEW CSUN_V_NOTI_DM
(
CODE,
@@ -6804,7 +6883,7 @@ AS
FROM fac_notificatie_job
WHERE UPPER (
fac_notificatie_job_view) =
'CSUN_V_NOTI_DM');
'CSUN_V_NOTI_DM');
CREATE OR REPLACE VIEW CSUN_V_UDR_MELDING_KENTALIS
(
@@ -7048,7 +7127,7 @@ AS
AND mld_srtkenmerk_key = 101
AND mk.mld_melding_key = m.melding_key
AND mk.mld_kenmerkmelding_verwijder IS NULL), NULL, NULL, m."MELDING_AFGEMELD"),
fac.gettrackingdate ('MLDAFR', m.melding_key))) datum_facturatie,
fac.gettrackingdate ('MLDAFR', m.melding_key))) datum_facturatie,
mc.accountcode,
mc.fclt_f_client,
mc.tijdstip,
@@ -7120,7 +7199,7 @@ AS
FROM fac_usrdata
WHERE fac_usrtab_key = 342 -- Eigen Tabel 'NotificerenBB'
AND fac_usrdata_verwijder
IS NULL)
IS NULL)
UNION ALL
SELECT m.mld_melding_key,
sm.mld_ins_discipline_key,
@@ -7217,7 +7296,7 @@ AS
FROM fac_tracking t
WHERE t.fac_tracking_oms LIKE '%CUST10%'
AND t.fac_tracking_refkey = x.mld_melding_key));
CREATE OR REPLACE VIEW CSUN_V_NOTI_SLA_JDEKLACHT
(
CODE,
@@ -7270,8 +7349,8 @@ AS
(SELECT t.fac_tracking_refkey
FROM fac_tracking t
WHERE t.fac_tracking_oms LIKE '%CUST11%'
AND t.fac_tracking_refkey = m.mld_melding_key);
AND t.fac_tracking_refkey = m.mld_melding_key);
CREATE OR REPLACE VIEW CSUN_V_UDR_DEELINSPECT_JAARPLAN
(
GROEP,
@@ -7415,8 +7494,8 @@ AS
ins_srtcontrole_key,
taakcategorie,
srtcontrole_omschrijving
ORDER BY fclt_3d_locatie_key, ins_srtcontrole_key) x);
ORDER BY fclt_3d_locatie_key, ins_srtcontrole_key) x);
CREATE OR REPLACE PROCEDURE csun_mld_verwerken
AS
c_applname VARCHAR2 (50) := 'MLD_VERWERK';
@@ -7455,7 +7534,7 @@ EXCEPTION
v_mld_key || ' ' || v_errormsg,
'Daily taak verwerken meldingen afgebroken!');
END;
/
/
CREATE OR REPLACE PROCEDURE CSUN_DAILY
AS
@@ -7484,7 +7563,7 @@ AS
rm_pm
FROM csun_v_rap_locatiegegevens
WHERE rm_pm = '*' OR bb = '*';
CREATE OR REPLACE VIEW csun_v_noti_alginrichting
(
code,
@@ -7513,10 +7592,10 @@ AS
NULL,
NULL,
NULL
FROM csun_v_rap_alginrichting
FROM csun_v_rap_alginrichting
WHERE rm_pm = '*'
OR bb = '*';
OR bb = '*';
------ payload end ------
SET DEFINE OFF