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

FCLT#79277 -- Te lange tekenreeksen opgelost in mail2melding

Browse Source 
svn path=/Customer/trunk/; revision=61271
This commit is contained in:
Robin Stoker
2023-07-21 11:51:07 +00:00
parent 04daf1e007
commit 7baefe3683
1 changed files with 13 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
VRTW/vrtw.sql
View File

@@ -485,16 +485,11 @@ END IF;
prs_perslid_key,
mld_melding_note_flag)
VALUES (v_mldkey,
SUBSTR (
psubject || CHR (13) || CHR (10)
|| REPLACE (
SUBSTR (pbody,
1,
4000 - (LENGTH (psubject) + 2)),
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10)),
1,
4000), -- verwijder onnodige witregels
fac.safe_concat (
psubject || CHR (10) || CHR (13),
REPLACE (pbody,
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10))), -- verwijder onnodige witregels
sender,
0); -- 0 is NIET zichtbaar FE (want is system-user, zinloos).
@@ -596,22 +591,14 @@ END IF;
SYSDATE,
55, -- spaansland
SUBSTR (psubject, 1, 75), -- onderwerp is max 80 posities
CASE
WHEN LENGTH (psubject) > 75
THEN
'Volledig onderwerp: ' || psubject -- wanneeer het onderwerp is afgekapt plakken we het volledige onderwerp in de omschrijving
ELSE
NULL
END
|| CHR (10) || CHR (13) ||
SUBSTR ( REPLACE (
SUBSTR (pbody,
1,
4000 - (LENGTH (psubject) + 2)),
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10)),
1,
4000), -- verwijder onnodige witregels
fac.safe_concat (
CASE WHEN LENGTH (psubject) > 75
THEN 'Volledig onderwerp: ' || psubject || CHR (10) || CHR (13)
ELSE NULL
END,
REPLACE (pbody,
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10))), -- verwijder onnodige witregels
NULL,
defaultstdmelding,
sender,