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

BRCF#79277 -- Te lange tekenreeksen opgelost in mail2melding

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

39
BRCF/brcf.sql
View File

@@ -729,16 +729,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).
@@ -842,22 +837,14 @@ END IF;
COALESCE (v_locatie_key, 1281), -- Locatie onbekend wanneer deze leeg is
COALESCE (v_gebouw_key, 5301), -- Gebouw onbekend wanneer deze leeg is
SUBSTR (psubject, 1, 75), -- onderwerp is max 80 posities
CASE
WHEN LENGTH (psubject) > 75
THEN
'Volledig onderwerp: ' || psubject -- wanneer 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))),
NULL,
defaultstdmelding,
sender,