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

ARAI#56657 -- Mail2Melding Rigging negeren witregels in body

Browse Source 
svn path=/Customer/trunk/; revision=45564
This commit is contained in:
Robin Stoker
2020-01-23 15:12:07 +00:00
parent 008cccf319
commit 90fcabea0a
1 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
ARAI/arai.sql
View File

@@ -8848,10 +8848,12 @@ AS
v_standnrpos NUMBER (10);
v_riggingpnt NUMBER (10);
v_event NUMBER (10);
-- v_ontwerp NUMBER (10);
v_hal NUMBER (10);
v_getriggingpnt VARCHAR2 (50);
v_getevent VARCHAR2 (50);
v_gethal VARCHAR2 (50);
v_getontwerp VARCHAR2 (50);
BEGIN
@@ -8987,7 +8989,7 @@ BEGIN
IF defaultstdmelding = 4141
THEN
v_getevent :=
REGEXP_SUBSTR (pbody,
REGEXP_SUBSTR (REPLACE (pbody, CHR(10), ' '),
'event id *'||subject_regexp,
1,
1,
@@ -9003,7 +9005,7 @@ BEGIN
'i');
v_gethal :=
REGEXP_SUBSTR (pbody,
REGEXP_SUBSTR (REPLACE (pbody, CHR(10), ' '),
'hallen *'||subject_regexp,
1,
1,
@@ -9019,7 +9021,7 @@ BEGIN
v_gebcode := LPAD(v_hal,2,'0');
v_getriggingpnt :=
REGEXP_SUBSTR (pbody,
REGEXP_SUBSTR (REPLACE (pbody, CHR(10), ' '),
'punten *'||subject_regexp,
1,
1,
@@ -9031,6 +9033,23 @@ BEGIN
1,
1,
'i');
-- LET OP, ontwerp werkt nog niet!
-- v_getontwerp :=
-- REGEXP_SUBSTR (REPLACE (pbody, CHR(10), ' '),
-- 'ontwerp *'||subject_regexp,
-- 1,
-- 1,
-- 'i');
--
-- SELECT f.fac_usrdata_key
-- INTO v_ontwerp
-- FROM fac_usrdata f
-- WHERE f.fac_usrtab_key = 381
-- AND f.fac_usrdata_omschr = REGEXP_SUBSTR (v_getontwerp,
-- subject_regexp,
-- 1,
-- 1,
-- 'i');
END IF;
-- ARAI heeft geen vakgroeptype-prefix, dus v_srtdisc is nu niet van toepassing
@@ -9248,6 +9267,10 @@ BEGIN
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_mldkey, 3241, v_riggingpnt); -- aantal riggingpunten
-- INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
-- VALUES (v_mldkey, 3181, v_ontwerp); -- status ontwerp
-- Vullen van kenmerkwaarde "e-mail adres"
IF pfrom IS NOT NULL AND v_mailadres_kenmerk_key IS NOT NULL