SUTF#70194 Module Mail2Melding
svn path=/Customer/trunk/; revision=54287
This commit is contained in:
Sander Schepers
235
SUTF/sutf.sql
235
SUTF/sutf.sql
@@ -2244,6 +2244,241 @@ AS
|
|||||||
AND ins_kenmerkdeel_waarde = TO_CHAR (SYSDATE - 1, 'DD-MM-YYYY')
|
AND ins_kenmerkdeel_waarde = TO_CHAR (SYSDATE - 1, 'DD-MM-YYYY')
|
||||||
AND ins_alg_ruimte_key_org IS NOT NULL;
|
AND ins_alg_ruimte_key_org IS NOT NULL;
|
||||||
|
|
||||||
|
CREATE OR REPLACE PACKAGE SUTF
|
||||||
|
AS
|
||||||
|
PROCEDURE mail_supportdesk (pfrom IN VARCHAR2,
|
||||||
|
pto IN VARCHAR2,
|
||||||
|
psubject IN VARCHAR2,
|
||||||
|
pbody IN VARCHAR2,
|
||||||
|
psessionid IN VARCHAR2,
|
||||||
|
pemailkey IN NUMBER);
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
|
CREATE OR REPLACE PACKAGE BODY SUTF
|
||||||
|
AS
|
||||||
|
PROCEDURE mail_supportdesk (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_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;
|
||||||
|
|
||||||
|
v_stdmelding_key :=
|
||||||
|
fac.safe_to_number (fac.getsetting ('defaultstdmelding'));
|
||||||
|
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
|
||||||
|
|
||||||
|
-- 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 = 'SUPPORTDESK';
|
||||||
|
|
||||||
|
v_errorhint := 'Bewaar mail ' || v_volgnr;
|
||||||
|
v_errormsg := '(0x110)';
|
||||||
|
|
||||||
|
INSERT INTO fac_rapport (fac_rapport_node,
|
||||||
|
fac_rapport_volgnr,
|
||||||
|
fac_rapport_regel)
|
||||||
|
VALUES (
|
||||||
|
'SUPPORTDESK',
|
||||||
|
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);
|
||||||
|
|
||||||
|
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_SUPPORTDESK',
|
||||||
|
'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 Supportdesk '
|
||||||
|
|| 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 Supportdesk: '
|
||||||
|
|| psubject);
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
------ payload end ------
|
------ payload end ------
|
||||||
|
|
||||||
SET DEFINE OFF
|
SET DEFINE OFF
|
||||||
|
|||||||
Reference in New Issue
Block a user