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

CSUN#40292 -- Berichtenlayout ABN AMRO aangepast

Browse Source 
svn path=/Customer/trunk/; revision=34060
This commit is contained in:
Arthur Egberink
2017-05-30 10:32:38 +00:00
parent b236d1a611
commit 7d4cd8200e
1 changed files with 108 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

123
CSUN/CSUN.sql
View File

@@ -606,6 +606,44 @@ BEGIN
END;
/
CREATE OR REPLACE PACKAGE CSUN
AS
FUNCTION convert_esc (p_str VARCHAR2)
RETURN VARCHAR2;
END;
/
CREATE OR REPLACE PACKAGE BODY CSUN
AS
FUNCTION convert_esc (p_str VARCHAR2)
RETURN VARCHAR2
AS
v_str VARCHAR2 (4000);
v_pos NUMBER;
v_chr VARCHAR2 (1);
v_asc NUMBER;
v_hex VARCHAR2 (2);
BEGIN
v_str := p_str;
v_pos := INSTR (p_str, '&#x');
IF v_pos <> 0
THEN
v_hex := SUBSTR (p_str, v_pos + 3, 2);
v_asc := TO_NUMBER (v_hex, 'XX');
v_chr := CHR (v_asc);
v_str := REPLACE (p_str, '&#x' || v_hex || ';', v_chr);
IF v_str <> p_str
THEN
v_str := convert_esc (v_str);
END IF;
END IF;
RETURN (v_str);
END;
END;
/
CREATE OR REPLACE FUNCTION csun_get_html_valuepair (p_text IN VARCHAR2,
p_start IN VARCHAR2,
@@ -728,70 +766,125 @@ BEGIN
IF sender = 23
THEN
-- pas de omschrijving van de melding aan. Verwijder onnodige html ballast.
v_pos := INSTR (pbody, '--> Werkbon');
v_pos := INSTR (v_body, '--> Werkbon');
IF v_pos > 0
THEN
v_body :=
csun_get_html_valuepair (pbody,
csun_get_html_valuepair (v_body,
'Planonnr.',
'Omschrijving')
|| CHR (10)
|| csun_get_html_valuepair (pbody,
|| csun_get_html_valuepair (v_body,
'Omschrijving',
'Toelichting')
|| CHR (10)
|| csun_get_html_valuepair (pbody,
|| csun_get_html_valuepair (v_body,
'Toelichting',
'Apparaatnummer')
|| CHR (10)
|| csun_get_html_valuepair (pbody,
|| csun_get_html_valuepair (v_body,
'Apparaatnummer',
'Locatie')
|| CHR (10)
|| csun_get_html_valuepair (pbody, 'Gebouw', 'Adres')
|| csun_get_html_valuepair (v_body, 'Gebouw', 'Adres')
|| CHR (10)
|| csun_get_html_valuepair (
pbody,
v_body,
'Adres',
'Postcode ' || CHR (38) || 'amp; plaats')
|| CHR (10)
|| csun_get_html_valuepair (
pbody,
v_body,
'Postcode ' || CHR (38) || 'amp; plaats',
'Ruimte')
|| CHR (10)
|| csun_get_html_valuepair (pbody, 'Ruimtenummer', 'Omschrijving ruimte')
|| csun_get_html_valuepair (v_body, 'Ruimtenummer', 'Omschrijving ruimte')
|| CHR (10)
|| csun_get_html_valuepair (pbody, 'Omschrijving ruimte', 'Melder')
|| csun_get_html_valuepair (v_body, 'Omschrijving ruimte', 'Melder')
|| CHR (10)
|| REPLACE (
csun_get_html_valuepair (pbody,
csun_get_html_valuepair (v_body,
'Melder',
'Contactgegevens'),
'Melder' || CHR (10) || CHR (13))
|| CHR (10)
|| REPLACE (
csun_get_html_valuepair (pbody,
csun_get_html_valuepair (v_body,
'Contactgegevens',
'E-mail'),
CHR (10) || CHR (13))
|| CHR (10)
|| csun_get_html_valuepair (pbody,
|| csun_get_html_valuepair (v_body,
'E-mail',
'Melddatum')
|| CHR (10)
|| csun_get_html_valuepair (pbody,
|| csun_get_html_valuepair (v_body,
'Melddatum',
'Urgentie')
|| CHR (10)
|| csun_get_html_valuepair (
pbody,
v_body,
'Urgentie',
'ABN AMRO Bank N.V.Facility Desk020 - 6288060facility.desk@nl.abnamro.com');
-- || CHR (10)
-- || 'Origineel voor testdoeleinden:' || CHR(10)
-- || pbody;
ELSE
v_body := CSUN.convert_esc(v_body);
v_body :=
csun_get_html_valuepair (v_body,
'Planonnr.',
'Omschrijving')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Omschrijving',
'Werkordergroep')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Werkordergroep',
'Toelichting')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Toelichting',
'Apparaatnummer')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Gebouw',
'Adres')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Adres',
'Postcode ' || CHR (38) || 'amp; plaats')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Postcode ' || CHR (38) || 'amp; plaats',
'Ruimtenummer')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Ruimtenummer',
'Omschrijving ruimte')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Omschrijving ruimte',
'Melder')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Melder',
'Contactgegevens')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Contactgegevens',
'E-mail')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'E-mail',
'Melddatum')
|| CHR (10)
|| csun_get_html_valuepair (v_body,
'Melddatum',
'Urgentie');
END IF;
END IF;
EXCEPTION