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

MNNL#72460 M2M-HR/Mails uit AFAS niet ontvangen

Browse Source 
svn path=/Customer/trunk/; revision=56514
This commit is contained in:
Maarten van der Heide
2022-07-07 13:45:06 +00:00
parent 0d8a790058
commit 74648e2b59
1 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
MNNL/mnnl.sql
View File

@@ -3855,9 +3855,12 @@ BEGIN
v_errormsg := 'Fout bepalen HR-leidinggevende';
IF INSTR (pbody, '@LEIDINGGEVENDE:') > 0
THEN
v_leidinggevende := TRIM (SUBSTR (pbody,
INSTR (pbody, '@LEIDINGGEVENDE:') + 16,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@LEIDINGGEVENDE:') + 16), '#') - 1));
--v_leidinggevende := TRIM (SUBSTR (pbody,
-- INSTR (pbody, '@LEIDINGGEVENDE:') + 16,
-- INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@LEIDINGGEVENDE:') + 16), '#') - 1));
v_leidinggevende := SUBSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@LEIDINGGEVENDE:') + 16)),
1,
REGEXP_INSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@LEIDINGGEVENDE:') + 16)) || ' ', '\s') - 1);
ELSE
v_leidinggevende := '';
END IF;
@@ -3865,9 +3868,12 @@ BEGIN
v_errormsg := 'Fout bepalen HR-melding';
IF INSTR (pbody, '@MELDING:') > 0
THEN
v_melding := TRIM (SUBSTR (pbody,
INSTR (pbody, '@MELDING:') + 9,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@MELDING:') + 9), '#') - 1));
-- Pak 100 tekens (anders dan whitespace) in pbody na 1e voorkomen van @MELDING: en plaats daarachter een '#'.
-- Een standaardmelding is max. 60 tekens, dus buffer is groot genoeg!
v_melding := TRIM (SUBSTR (pbody, INSTR (pbody, '@MELDING:') + 9, 100)) || '#';
-- Vervang newlines [CHR (13) en/of CHR (10)] door # en pak gedeelte tot 1e #.
-- In principe dus tot 1e newline en anders tot # geplaatst op eind van buffer.
v_melding := SUBSTR (v_melding, 1, INSTR (REPLACE (REPLACE (v_melding, CHR (13), '#'), CHR (10), '#'), '#') - 1);
ELSE
v_melding := '';
END IF;
@@ -3875,9 +3881,12 @@ BEGIN
v_errormsg := 'Fout bepalen HR-medewerker';
IF INSTR (pbody, '@MEDEWERKER:') > 0
THEN
v_medewerker := TRIM (SUBSTR (pbody,
INSTR (pbody, '@MEDEWERKER:') + 12,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@MEDEWERKER:') + 12), '#') - 1));
--v_medewerker := TRIM (SUBSTR (pbody,
-- INSTR (pbody, '@MEDEWERKER:') + 12,
-- INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@MEDEWERKER:') + 12), '#') - 1));
v_medewerker := SUBSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@MEDEWERKER:') + 12)),
1,
REGEXP_INSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@MEDEWERKER:') + 12)) || ' ', '\s') - 1);
ELSE
v_medewerker := '?';
END IF;
@@ -3885,9 +3894,12 @@ BEGIN
v_errormsg := 'Fout bepalen HR-ingangsdatum';
IF INSTR (pbody, '@INGANGSDATUM:') > 0
THEN
v_ingangsdatum := TRIM (SUBSTR (pbody,
INSTR (pbody, '@INGANGSDATUM:') + 14,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@INGANGSDATUM:') + 14), '#') - 1));
--v_ingangsdatum := TRIM (SUBSTR (pbody,
-- INSTR (pbody, '@INGANGSDATUM:') + 14,
-- INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@INGANGSDATUM:') + 14), '#') - 1));
v_ingangsdatum := SUBSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@INGANGSDATUM:') + 14)),
1,
REGEXP_INSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@INGANGSDATUM:') + 14)) || ' ', '\s') - 1);
ELSE
v_ingangsdatum := '?';
END IF;
@@ -3895,9 +3907,12 @@ BEGIN
v_errormsg := 'Fout bepalen HR-vrijstellingsdatum';
IF INSTR (pbody, '@VRIJSTELLINGSDATUM:') > 0
THEN
v_vrijstellingsdatum := TRIM (SUBSTR (pbody,
INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20,
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20), '#') - 1));
--v_vrijstellingsdatum := TRIM (SUBSTR (pbody,
-- INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20,
-- INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20), '#') - 1));
v_vrijstellingsdatum := SUBSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20)),
1,
REGEXP_INSTR (TRIM (SUBSTR (pbody, INSTR (pbody, '@VRIJSTELLINGSDATUM:') + 20)) || ' ', '\s') - 1);
ELSE
v_vrijstellingsdatum := '';
END IF;
@@ -4367,6 +4382,8 @@ EXCEPTION
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('PROCESSEMAIL', 'E', 'MNNL_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', v_errormsg);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
COMMIT;