CSUN#41760 -- Rare tekens in ABN-AMRO berichten.

svn path=/Customer/trunk/; revision=36048
This commit is contained in:
Arthur Egberink
2017-11-17 16:18:20 +00:00
parent 159f4b508b
commit f1e115e10f

View File

@@ -908,6 +908,12 @@ BEGIN
v_body := REPLACE(v_body, '.', '.'); -- punt
v_body := REPLACE(v_body, '/', '/');
v_body := REPLACE(v_body, ':', ':'); -- dubbele punt
v_body := REPLACE(v_body, '&#x3b;', ';'); -- punt komma
v_body := REPLACE(v_body, '&#x3c;', '<');
v_body := REPLACE(v_body, '&#x3d;', '=');
v_body := REPLACE(v_body, '&#x3e;', '>');
v_body := REPLACE(v_body, '&#x3f;', '?');
v_body := REPLACE(v_body, '&#x40;', '@');
v_body := REPLACE(v_body, ' ' || CHR (10) || CHR (13), CHR (10) || CHR (13)); -- soms komt er ineens een een spatie achter de tag.
-- gaat het om een normale werkbon, dan is v_pos > 0; anders gaat het om een klacht.
v_pos := INSTR (v_body, '--> Werkbon');