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

DHLD#89451 'OTHERS (error -1489/ORA-01489: Concatenatie van tekenreeksen resulteert in een te lange reeks.)'

Browse Source 
svn path=/Customer/trunk/; revision=69842
This commit is contained in:
Sander Schepers
2025-07-23 16:44:33 +00:00
parent 08c6855e96
commit 30977ce011
1 changed files with 46 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
DHLD/dhld.sql
View File

@@ -313,25 +313,22 @@ BEGIN
'MLD',
4, -- email
SYSDATE,
SUBSTR (psubject, 1, 200),
SUBSTR (
REPLACE (
SUBSTR (
'Mail van: '
|| v_from
|| ':'
|| CHR (13)
|| CHR (10)
|| v_body,
1,
4000),
CHR (13)
|| CHR (10)
|| CHR (13)
|| CHR (10),
CHR (13) || CHR (10)),
1,
4000), -- verwijder onnodige witregels
fac.safe_concat(
SUBSTR(psubject, 1, 200) || CHR(13) || CHR(10),
REPLACE(
pbody,
CHR(13) || CHR(10) || CHR(13) || CHR(10),
CHR(13) || CHR(10)
)
),
fac.safe_concat(
'Mail van: ' || v_from || ':' || CHR(13) || CHR(10),
REPLACE(
v_body,
CHR(13) || CHR(10) || CHR(13) || CHR(10),
CHR(13) || CHR(10)
)
), -- verwijder onnodige witregels
v_mldstat,
NULL, -- v_stduitvoer
v_stdmelding,
@@ -438,33 +435,24 @@ BEGIN
v_errormsg := 'Fout toevoegen opdracht-notitie';
INSERT INTO mld_opdr_note (mld_opdr_key,
prs_perslid_key,
mld_opdr_note_omschrijving)
VALUES (
v_opdracht_key,
v_sender,
SUBSTR (
REPLACE (
SUBSTR (
'Mail van: '
|| v_from
|| ':'
|| CHR (13)
|| CHR (10)
|| psubject
|| CHR (13)
|| CHR (10)
|| v_body,
1,
4000),
CHR (13)
|| CHR (10)
|| CHR (13)
|| CHR (10),
CHR (13) || CHR (10)),
1,
4000)); -- verwijder onnodige witregels
INSERT INTO mld_opdr_note (
mld_opdr_key,
prs_perslid_key,
mld_opdr_note_omschrijving
)
VALUES (
v_opdracht_key,
v_sender,
fac.safe_concat(
'Mail van: ' || NVL(v_from, '(onbekend)') || ':' || CHR(13) || CHR(10) ||
NVL(psubject, '') || CHR(13) || CHR(10),
REPLACE(
NVL(v_body, ''),
CHR(13) || CHR(10) || CHR(13) || CHR(10),
CHR(13) || CHR(10)
)
)
); -- verwijder onnodige witregels
-- Find the lowest volgnummer of the Folder-flexfield.
v_errormsg := 'Fout toevoegen opdracht-bijlage';
@@ -514,23 +502,21 @@ EXCEPTION
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES (psessionid, 'maillog', v_errormsg);
VALUES (psessionid, 'maillog', SUBSTR(v_errormsg, 1, 4000));
fac.writelog (
fac.writelog(
'PROCESSEMAIL',
'E',
'Mail kon niet ingelezen worden afzender:'
|| pfrom
|| '['
|| v_errormsg
|| v_mldkey
|| psubject
|| ']',
'OTHERS (error '
|| SQLCODE
|| '/'
|| SUBSTR (SQLERRM, 1, 100)
|| ')');
SUBSTR(
fac.safe_concat(
'Mail kon niet ingelezen worden afzender: ' || NVL(pfrom, '(onbekend)') || CHR(13) || CHR(10),
'[' || NVL(v_errormsg, '') || ' ' || NVL(v_mldkey, '') || ' ' || NVL(psubject, '') || ']'
),
1,
1000
),
'OTHERS (error ' || SQLCODE || '/' || SUBSTR(SQLERRM, 1, 100) || ')'
);
END;
/