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

FBEA#68658 Implementatie Facilitair Bedrijf Eemland, mail2melding

Browse Source 
svn path=/Customer/trunk/; revision=54470
This commit is contained in:
Suzan Wiegerinck
2022-01-11 18:04:59 +00:00
parent f4c420f551
commit 77812f52ad
1 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
FBEA/FBEA.sql
View File

@@ -42,6 +42,7 @@ AS
v_count NUMBER;
sender prs_perslid.prs_perslid_key%TYPE;
defaultstdmelding fac_setting.fac_setting_default%TYPE;
v_newkey mld_melding.mld_melding_key%TYPE;
v_gebouwkey mld_melding.mld_alg_onroerendgoed_keys%TYPE;
v_locatiekey mld_melding.mld_alg_locatie_key%TYPE;
errormsg fac_result.fac_result_waarde%TYPE;
@@ -111,32 +112,34 @@ BEGIN
prs_perslid_key,
prs_perslid_key_voor,
mld_melding_spoed)
VALUES (
'MLD',
4, -- email
SYSDATE,
SUBSTR (psubject, 1, 60),
SUBSTR (
REPLACE (
SUBSTR (pbody, 1, 4000),
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10)),
1,
4000), -- verwijder onnodige witregels
NULL,
101,
v_locatiekey,
v_gebouwkey,
sender,
sender,
3);
VALUES (
'MLD',
4, -- email
SYSDATE,
SUBSTR (psubject, 1, 60),
SUBSTR (
REPLACE (
SUBSTR (pbody, 1, 4000),
CHR (13) || CHR (10) || CHR (13) || CHR (10),
CHR (13) || CHR (10)),
1,
4000), -- verwijder onnodige witregels
NULL,
101,
v_locatiekey,
v_gebouwkey,
sender,
sender,
3)
RETURNING mld_melding_key
INTO v_newkey;
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES (psessionid,
'maillog',
'Geregistreerd onder melding ' || newkey);
'Geregistreerd onder melding ' || v_newkey);
END;
IF errormsg IS NOT NULL