MNNL#56038 M2M-koppeling/Afmeldtekst (en andere velden niet altijd correct bepaald)

svn path=/Customer/trunk/; revision=40539
This commit is contained in:
Maarten van der Heide
2019-01-15 11:24:14 +00:00
parent e72aca824a
commit 6231d04444

View File

@@ -3671,17 +3671,17 @@ BEGIN
v_errormsg := 'Fout bepalen Nimbus-vakgroep';
v_vakgroep := TRIM (SUBSTR (pbody,
INSTR (pbody, '@VAKGROEP:') + 10,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@VAKGROEP:') + 10), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@VAKGROEP:') + 10), '#') - 1));
v_errormsg := 'Fout bepalen Nimbus-message';
v_message := TRIM (SUBSTR (pbody,
INSTR (pbody, '@MESSAGE:') + 9,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@MESSAGE:') + 9), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@MESSAGE:') + 9), '#') - 1));
v_errormsg := 'Fout bepalen Nimbus-CI';
v_ci := TRIM (SUBSTR (pbody,
INSTR (pbody, '@CI:') + 4,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@CI:') + 4), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@CI:') + 4), '#') - 1));
-- Bepaal persoon met key=12784 (Monitoring NimBUS)?
v_errormsg := 'Fout bepalen Nimbus-melder';
@@ -3786,27 +3786,27 @@ BEGIN
v_errormsg := 'Fout bepalen HR-leidinggevende';
v_leidinggevende := TRIM (SUBSTR (pbody,
INSTR (pbody, '@LEIDINGGEVENDE:') + 16,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@LEIDINGGEVENDE:') + 16), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@LEIDINGGEVENDE:') + 16), '#') - 1));
v_errormsg := 'Fout bepalen HR-melding';
v_melding := TRIM (SUBSTR (pbody,
INSTR (pbody, '@MELDING:') + 9,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@MELDING:') + 9), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@MELDING:') + 9), '#') - 1));
v_errormsg := 'Fout bepalen HR-medewerker';
v_medewerker := TRIM (SUBSTR (pbody,
INSTR (pbody, '@MEDEWERKER:') + 12,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@MEDEWERKER:') + 12), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@MEDEWERKER:') + 12), '#') - 1));
v_errormsg := 'Fout bepalen HR-ingangsdatum';
v_ingangsdatum := TRIM (SUBSTR (pbody,
INSTR (pbody, '@INGANGSDATUM:') + 14,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@INGANGSDATUM:') + 14), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@INGANGSDATUM:') + 14), '#') - 1));
v_errormsg := 'Fout bepalen HR-vrijstellingsdatum';
v_vrijstellingsdatum := TRIM (SUBSTR (pbody,
INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20), '#') - 1));
-- Bepaal de melder op basis van loginnaam zoals in pbody achter
-- @LEIDINGGEVENDE?
@@ -3889,7 +3889,7 @@ BEGIN
v_errormsg := 'Fout bepalen afmeldtekst';
v_afmeldtekst := TRIM (SUBSTR (pbody,
INSTR (UPPER (pbody), '@AFMELDTEKST:') + 13,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#'), INSTR (UPPER (pbody), '@AFMELDTEKST:') + 13), '#') - 1));
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR(13), '#'), CHR(10), '#') || '#', INSTR (UPPER (pbody), '@AFMELDTEKST:') + 13), '#') - 1));
-- Bepaal de noteur op basis van e-mail adres zoals in pfrom?