SUTF#66144 Herinrichting meldingenmodule, aansluiting AFAS op Mail2Melding
svn path=/Customer/trunk/; revision=54337
This commit is contained in:
Sander Schepers
348
SUTF/sutf.sql
348
SUTF/sutf.sql
@@ -2252,6 +2252,13 @@ AS
|
||||
pbody IN VARCHAR2,
|
||||
psessionid IN VARCHAR2,
|
||||
pemailkey IN NUMBER);
|
||||
|
||||
PROCEDURE mail_idu (pfrom IN VARCHAR2,
|
||||
pto IN VARCHAR2,
|
||||
psubject IN VARCHAR2,
|
||||
pbody IN VARCHAR2,
|
||||
psessionid IN VARCHAR2,
|
||||
pemailkey IN NUMBER);
|
||||
END;
|
||||
/
|
||||
|
||||
@@ -2295,16 +2302,17 @@ AS
|
||||
|
||||
v_stdmelding_key :=
|
||||
fac.safe_to_number (fac.getsetting ('defaultstdmelding'));
|
||||
--PROD
|
||||
v_locatie_key := 261; --Locatie nvt
|
||||
v_sender := 4; --4 = Facilitor
|
||||
v_kkey := 1121; --Kenmerk_key bijlagen email
|
||||
v_mailorigin := 1101; --Kenmerk_key originele mail-bijlage
|
||||
|
||||
--ACCEPT:
|
||||
--v_locatie_key := 241; --Locatie nvt
|
||||
--v_sender := 4; --4 = Facilitor
|
||||
--v_kkey := 1145; --Kenmerk_key bijlagen email
|
||||
--v_mailorigin := 1146; --Kenmerk_key originele mail-bijlage
|
||||
--ACCEPT:
|
||||
-- v_locatie_key := 241; --Locatie nvt
|
||||
-- v_sender := 4; --4 = Facilitor
|
||||
-- v_kkey := 1145; --Kenmerk_key bijlagen email
|
||||
-- v_mailorigin := 1146; --Kenmerk_key originele mail-bijlage
|
||||
|
||||
-- filter nu de essentiele velden uit de mailbody
|
||||
-- vervang cr door lf
|
||||
@@ -2391,6 +2399,8 @@ AS
|
||||
'maillog',
|
||||
'Geregistreerd onder melding ' || v_melding_key);
|
||||
|
||||
|
||||
|
||||
IF v_melding_key = NULL
|
||||
THEN
|
||||
-- foutafhandeling
|
||||
@@ -2476,6 +2486,334 @@ AS
|
||||
'Fout bij verwerken mail Supportdesk: '
|
||||
|| psubject);
|
||||
END;
|
||||
|
||||
PROCEDURE mail_idu (pfrom IN VARCHAR2,
|
||||
pto IN VARCHAR2,
|
||||
psubject IN VARCHAR2,
|
||||
pbody IN VARCHAR2,
|
||||
psessionid IN VARCHAR2,
|
||||
pemailkey IN NUMBER)
|
||||
AS
|
||||
v_sender prs_perslid.prs_perslid_key%TYPE;
|
||||
v_from VARCHAR2 (4000);
|
||||
v_body VARCHAR2 (4000);
|
||||
v_count NUMBER;
|
||||
|
||||
v_onderwerp mld_melding.mld_melding_onderwerp%TYPE;
|
||||
v_omschrijving mld_melding.mld_melding_omschrijving%TYPE;
|
||||
v_melding_key mld_melding.mld_melding_key%TYPE;
|
||||
v_stdmelding_key mld_stdmelding.mld_stdmelding_key%TYPE;
|
||||
v_uitvoertijd mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE;
|
||||
v_melding_status mld_melding.mld_melding_status%TYPE;
|
||||
v_volgnr NUMBER;
|
||||
v_locatie_key alg_locatie.alg_locatie_key%TYPE;
|
||||
v_kkey mld_kenmerk.mld_kenmerk_key%TYPE;
|
||||
v_mailorigin mld_kenmerk.mld_kenmerk_key%TYPE;
|
||||
v_perslid_key prs_perslid.prs_perslid_key%TYPE;
|
||||
v_mutatie VARCHAR2 (1000);
|
||||
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
v_errormsg fac_result.fac_result_waarde%TYPE;
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
BEGIN
|
||||
-- Verwijder de Bounce Address Tag Validation
|
||||
IF pfrom LIKE 'prvs=%'
|
||||
THEN
|
||||
v_from := SUBSTR (pfrom, INSTR (pfrom, '=', -1) + 1);
|
||||
ELSE
|
||||
v_from := pfrom;
|
||||
END IF;
|
||||
|
||||
|
||||
-- PROD
|
||||
v_stdmelding_key := 1723; -- Startmelding IDU
|
||||
v_locatie_key := 261; --Locatie nvt
|
||||
v_sender := 4; --4 = Facilitor
|
||||
v_kkey := 1121; --Kenmerk_key bijlagen email
|
||||
v_mailorigin := 1101; --Kenmerk_key originele mail-bijlage
|
||||
|
||||
-- ACCEPT:
|
||||
-- v_stdmelding_key := 1658; -- Startmelding IDU
|
||||
-- v_locatie_key := 241; --Locatie nvt
|
||||
-- v_sender := 4; --4 = Facilitor
|
||||
-- v_kkey := 1145; --Kenmerk_key bijlagen email
|
||||
-- v_mailorigin := 1146; --Kenmerk_key originele mail-bijlage
|
||||
|
||||
-- filter nu de essentiele velden uit de mailbody
|
||||
-- vervang cr door lf
|
||||
v_body := pbody;
|
||||
v_body := REPLACE (v_body, CHR (13), CHR (10));
|
||||
-- verwijder dubbele lf's
|
||||
v_body := REPLACE (v_body, CHR (10) || CHR (10), CHR (10));
|
||||
v_omschrijving := v_body;
|
||||
v_onderwerp := psubject;
|
||||
--
|
||||
v_errorhint := 'Bepaal volgnummer';
|
||||
|
||||
SELECT COALESCE (MAX (fac_rapport_volgnr), 0)
|
||||
INTO v_volgnr
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node = 'IDU';
|
||||
|
||||
v_errorhint := 'Bewaar mail ' || v_volgnr;
|
||||
v_errormsg := '(0x110)';
|
||||
|
||||
INSERT INTO fac_rapport (fac_rapport_node,
|
||||
fac_rapport_volgnr,
|
||||
fac_rapport_regel)
|
||||
VALUES (
|
||||
'IDU',
|
||||
v_volgnr + 1,
|
||||
pfrom
|
||||
|| CHR (10)
|
||||
|| psubject
|
||||
|| CHR (10)
|
||||
|| v_omschrijving);
|
||||
|
||||
-- nu gaan we de uitvoertijd bepalen
|
||||
v_errorhint := 'Bepaal uitvoertijd ' || v_volgnr;
|
||||
v_errormsg := '(0x120)';
|
||||
|
||||
SELECT mld_stdmelding_t_uitvoertijd
|
||||
INTO v_uitvoertijd
|
||||
FROM mld_stdmelding
|
||||
WHERE mld_stdmelding_key = v_stdmelding_key;
|
||||
|
||||
-- nu gaan we de melding aanmaken
|
||||
v_errorhint := 'Melding aanmaken ' || v_volgnr;
|
||||
v_errormsg := 'Melding kan niet aangemaakt worden (0x150)';
|
||||
|
||||
INSERT INTO mld_melding (mld_melding_module,
|
||||
mld_meldbron_key,
|
||||
mld_melding_datum,
|
||||
mld_melding_onderwerp,
|
||||
mld_melding_omschrijving,
|
||||
mld_melding_status,
|
||||
mld_melding_t_uitvoertijd,
|
||||
mld_stdmelding_key,
|
||||
prs_perslid_key,
|
||||
prs_perslid_key_voor,
|
||||
prs_kostenplaats_key,
|
||||
mld_melding_spoed,
|
||||
mld_alg_locatie_key,
|
||||
mld_alg_onroerendgoed_keys)
|
||||
VALUES ('MLD',
|
||||
6, -- system
|
||||
SYSDATE,
|
||||
v_onderwerp,
|
||||
v_omschrijving,
|
||||
NULL,
|
||||
v_uitvoertijd,
|
||||
v_stdmelding_key,
|
||||
v_sender,
|
||||
v_sender,
|
||||
NULL,
|
||||
3,
|
||||
v_locatie_key,
|
||||
NULL)
|
||||
RETURNING mld_melding_key
|
||||
INTO v_melding_key;
|
||||
|
||||
v_errormsg := '(0x180)';
|
||||
mld.setmeldingstatus (v_melding_key, 2, v_sender);
|
||||
|
||||
INSERT INTO fac_result (fac_result_sessionid,
|
||||
fac_result_naam,
|
||||
fac_result_waarde)
|
||||
VALUES (psessionid,
|
||||
'maillog',
|
||||
'Geregistreerd onder melding ' || v_melding_key);
|
||||
|
||||
v_errormsg := '(0x190)';
|
||||
-- Indien het een melding is die start is van een workflow, dan moet ook de eerstvolgende stap(pen) aangemaakt worden.
|
||||
mld.mld_nextworkflowstep (v_melding_key, -1);
|
||||
|
||||
-- nu gaan we mutatietype bepalen aanzetten
|
||||
v_errorhint := 'Mutatietype bepalen ' || v_volgnr;
|
||||
v_errormsg := 'Mutatietype kan niet bepaald worden (0x220)';
|
||||
|
||||
CASE
|
||||
WHEN UPPER (psubject) LIKE '%MELDING NIEUW%'
|
||||
THEN
|
||||
v_mutatie := NULL;
|
||||
WHEN UPPER (psubject) LIKE '%MELDING UIT%'
|
||||
THEN
|
||||
v_mutatie := '3269';
|
||||
WHEN UPPER (psubject) LIKE '%MELDING HER%'
|
||||
THEN
|
||||
v_mutatie := '3268';
|
||||
ELSE
|
||||
v_mutatie := NULL; -- Dit is de verzamelbak van binnenkomende meldingen/mails waarvan niet de juiste stdmelding kan worden bepaald.
|
||||
END CASE;
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1143, v_mutatie); --ACCEPT = 1161
|
||||
|
||||
|
||||
-- nu gaan we de vinkjes aanzetten
|
||||
v_errorhint := 'Vinkjes zetten ' || v_volgnr;
|
||||
v_errormsg := 'Vinkjes kunnen niet gezet worden (0x220)';
|
||||
|
||||
-- In ACCEPT zijn dit kenmerk_keys 1121 t/m 1135 (vinkjes op melding 'Startmelding').
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1164, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1166, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1168, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1169, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1171, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1173, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1176, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1146, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1149, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1151, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1152, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1155, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1157, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1159, 1);
|
||||
|
||||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||||
mld_kenmerk_key,
|
||||
mld_kenmerkmelding_waarde)
|
||||
VALUES (v_melding_key, 1161, 1);
|
||||
|
||||
IF v_melding_key = NULL
|
||||
THEN
|
||||
-- foutafhandeling
|
||||
v_errorhint := 'Geen melding key ' || v_volgnr;
|
||||
v_errormsg := 'Melding kan niet aangemaakt worden (0x910)';
|
||||
fac.writelog ('MAIL_IDU',
|
||||
'E',
|
||||
v_errormsg,
|
||||
SUBSTR (pbody, 1, 1000));
|
||||
|
||||
INSERT INTO fac_result (fac_result_sessionid,
|
||||
fac_result_naam,
|
||||
fac_result_waarde)
|
||||
VALUES (psessionid,
|
||||
'errormsg',
|
||||
'Fout bij verwerken mail IDU ' || psubject);
|
||||
ELSE
|
||||
-- nu gaan we de bijlagen toevoegen
|
||||
v_errorhint := 'Bijlagen toevoegen ' || v_volgnr;
|
||||
v_errormsg := 'Bijlagen toevoegen lukt niet (0x210)';
|
||||
|
||||
IF v_kkey IS NOT NULL
|
||||
THEN
|
||||
v_errormsg := '(0x230)';
|
||||
|
||||
INSERT INTO fac_result (fac_result_sessionid,
|
||||
fac_result_naam,
|
||||
fac_result_waarde)
|
||||
VALUES (
|
||||
psessionid,
|
||||
'kenmerkpath',
|
||||
'MLD\M'
|
||||
|| TO_CHAR (TRUNC (v_melding_key / 1000),
|
||||
'FM0000')
|
||||
|| '___\M'
|
||||
|| v_melding_key
|
||||
|| '\'
|
||||
|| v_kkey
|
||||
|| '\');
|
||||
END IF;
|
||||
|
||||
-- originele email wordt opgeslagen bij de melding
|
||||
INSERT INTO fac_result (fac_result_sessionid,
|
||||
fac_result_naam,
|
||||
fac_result_waarde)
|
||||
VALUES (
|
||||
psessionid,
|
||||
'kenmerkorgmailpath',
|
||||
'MLD\M'
|
||||
|| TO_CHAR (TRUNC (v_melding_key / 1000),
|
||||
'FM0000')
|
||||
|| '___\M'
|
||||
|| v_melding_key
|
||||
|| '\'
|
||||
|| v_mailorigin
|
||||
|| '\');
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
v_errormsg
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.writelog ('MAIL_SUPPORTDESK',
|
||||
'E',
|
||||
v_errormsg,
|
||||
v_errorhint);
|
||||
|
||||
INSERT INTO fac_result (fac_result_sessionid,
|
||||
fac_result_naam,
|
||||
fac_result_waarde)
|
||||
VALUES (psessionid,
|
||||
'errormsg',
|
||||
'Fout bij verwerken mail IDU: ' || psubject);
|
||||
END;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
Reference in New Issue
Block a user