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

HPJI#67531 mail direct in Facilitor als melding

Browse Source 
svn path=/Customer/trunk/; revision=57214
This commit is contained in:
Sander Schepers
2022-09-08 13:47:46 +00:00
parent e153195771
commit 1d478f9299
1 changed files with 50 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
HPJI/hpji.sql
View File

@@ -2926,39 +2926,39 @@ BEGIN
AND p.prs_perslid_verwijder IS NULL
AND UPPER (prs_perslid_email) = UPPER (v_fromaddr);
v_errormsg :=
SUBSTR (('(0x202)' || psessionid || pfrom || m_body),
0,
4000);
-- pas de omschrijving van de melding aan. Verwijder onnodige html ballast.
v_body := REPLACE (v_body, ' ', ' '); -- spatie
v_body := REPLACE (v_body, '!', '!');
v_body := REPLACE (v_body, '"', CHR (34)); -- double quote
v_body := REPLACE (v_body, '#', '#');
v_body := REPLACE (v_body, '$', '$');
v_body := REPLACE (v_body, '%', '%');
v_body := REPLACE (v_body, '&', '&');
v_body := REPLACE (v_body, ''', CHR (39)); -- single quote
v_body := REPLACE (v_body, '(', '(');
v_body := REPLACE (v_body, ')', ')');
v_body := REPLACE (v_body, '*', '*');
v_body := REPLACE (v_body, '+', '+');
v_body := REPLACE (v_body, ',', ','); -- komma
v_body := REPLACE (v_body, '-', '-'); -- min teken
v_body := REPLACE (v_body, '.', '.'); -- punt
v_body := REPLACE (v_body, '/', '/');
v_body := REPLACE (v_body, ':', ':'); -- dubbele punt
v_body := REPLACE (v_body, '&#x3b;', ';'); -- punt komma
v_body := REPLACE (v_body, '&#x3c;', '<');
v_body := REPLACE (v_body, '&#x3d;', '=');
v_body := REPLACE (v_body, '&#x3e;', '>');
v_body := REPLACE (v_body, '&#x3f;', '?');
v_body := REPLACE (v_body, '&#x40;', '@');
v_body :=
REPLACE (v_body,
' ' || CHR (10) || CHR (13),
CHR (10) || CHR (13)); -- soms komt er ineens een een spatie achter de tag.
-- v_errormsg :=
-- SUBSTR (('(0x202)' || psessionid || pfrom || m_body),
-- 0,
-- 4000);
--
-- -- pas de omschrijving van de melding aan. Verwijder onnodige html ballast.
-- v_body := REPLACE (v_body, '&#x20;', ' '); -- spatie
-- v_body := REPLACE (v_body, '&#x21;', '!');
-- v_body := REPLACE (v_body, '&#x22;', CHR (34)); -- double quote
-- v_body := REPLACE (v_body, '&#x23;', '#');
-- v_body := REPLACE (v_body, '&#x24;', '$');
-- v_body := REPLACE (v_body, '&#x25;', '%');
-- v_body := REPLACE (v_body, '&#x26;', '&');
-- v_body := REPLACE (v_body, '&#x27;', CHR (39)); -- single quote
-- v_body := REPLACE (v_body, '&#x28;', '(');
-- v_body := REPLACE (v_body, '&#x29;', ')');
-- v_body := REPLACE (v_body, '&#x2a;', '*');
-- v_body := REPLACE (v_body, '&#x2b;', '+');
-- v_body := REPLACE (v_body, '&#x2c;', ','); -- komma
-- v_body := REPLACE (v_body, '&#x2d;', '-'); -- min teken
-- v_body := REPLACE (v_body, '&#x2e;', '.'); -- punt
-- v_body := REPLACE (v_body, '&#x2f;', '/');
-- v_body := REPLACE (v_body, '&#x3a;', ':'); -- dubbele punt
-- v_body := REPLACE (v_body, '&#x3b;', ';'); -- punt komma
-- v_body := REPLACE (v_body, '&#x3c;', '<');
-- v_body := REPLACE (v_body, '&#x3d;', '=');
-- v_body := REPLACE (v_body, '&#x3e;', '>');
-- v_body := REPLACE (v_body, '&#x3f;', '?');
-- v_body := REPLACE (v_body, '&#x40;', '@');
-- v_body :=
-- REPLACE (v_body,
-- ' ' || CHR (10) || CHR (13),
-- CHR (10) || CHR (13)); -- soms komt er ineens een een spatie achter de tag.
EXCEPTION
WHEN OTHERS
THEN
@@ -3063,24 +3063,23 @@ BEGIN
|| v_attachorigin
|| '\');
-- Originele email wordt opgeslagen bij de opdracht
v_errormsg := '(0x232`)' || v_mldkey || psubject;
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES (
psessionid,
'kenmerkpath',
'MLD\M'
|| TO_CHAR (TRUNC (v_mldkey / 1000),
'FM0000')
|| '___\M'
|| v_mldkey
|| '\'
|| v_mailorigin
|| '\');
-- -- Originele email wordt opgeslagen bij de opdracht
-- v_errormsg := '(0x232`)' || v_mldkey || psubject;
--
-- INSERT INTO fac_result (fac_result_sessionid,
-- fac_result_naam,
-- fac_result_waarde)
-- VALUES (
-- psessionid,
-- 'kenmerkpath',
-- 'MLD\M'
-- || TO_CHAR (TRUNC (v_mldkey / 1000),
-- 'FM0000')
-- || '___\M'
-- || v_mldkey
-- || '\'
-- || v_mailorigin
-- || '\');
END;
END IF;
ELSE