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

RWSN#30975 M2M-koppeling vanuit printer

Browse Source 
svn path=/Customer/trunk/; revision=44916
This commit is contained in:
Maarten van der Heide
2019-11-14 13:05:24 +00:00
parent 9365389df3
commit 5a2c43f24f
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
RWSN/rwsn.sql
View File

@@ -27471,9 +27471,13 @@ BEGIN
WHEN UPPER (pto) LIKE 'PRINTER.FACILITOR@%'
THEN
v_errormsg := 'Fout bepalen printer';
v_ci := TRIM (SUBSTR (psubject,
INSTR (psubject, 'EX'),
INSTR (REPLACE (REPLACE (REPLACE (SUBSTR (psubject, INSTR (psubject, 'EX')), ' ', '#'), CHR(13), '#'), CHR(10), '#') || '#', '#') - 1));
v_ci := SUBSTR (psubject, INSTR (UPPER (psubject), 'EX')) || '#';
IF SUBSTR (UPPER (v_ci), 1, 2) = 'EX'
THEN
v_ci := SUBSTR (v_ci, 1, REGEXP_INSTR (SUBSTR (v_ci, 3), '\D') + 1); -- Gedeelte tot eerste niet-cijfer na 'EX'!
ELSE
v_ci := '';
END IF;
-- Bepaal persoon met loginnaam _HMAIL.
v_errormsg := 'Fout bepalen Printer-melder';
@@ -27580,11 +27584,11 @@ BEGIN
IF INSTR (UPPER (pfrom), 'MAILS.FD.EBFD@RWS.NL') > 0
THEN
v_errormsg := 'Fout bepalen E-mail';
IF INSTR (pbody, 'mailto:') > 0
IF INSTR (LOWER (pbody), 'mailto:') > 0
THEN
v_email := TRIM (SUBSTR (pbody,
INSTR (pbody, 'mailto:') + 7,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, 'mailto:') + 7), '#') - 1));
INSTR (LOWER (pbody), 'mailto:') + 7,
INSTR (REPLACE (REPLACE (REPLACE (SUBSTR (pbody, INSTR (LOWER (pbody), 'mailto:') + 7), ' ', '#'), CHR (13), '#'), CHR (10), '#') || '#', '#') - 1));
ELSE
v_email := '';
END IF;