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

HPJI#76724 mailtje afkomstig van pooservice@elker.nl

Browse Source 
svn path=/Customer/trunk/; revision=59214
This commit is contained in:
Sander Schepers
2023-02-17 10:29:24 +00:00
parent fe889d723a
commit d1c9d1bc4b
1 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
HPJI/hpji.sql
View File

@@ -3400,7 +3400,9 @@ CREATE OR REPLACE PROCEDURE hpji_processemail (pfrom IN VARCHAR2,
pemailkey IN NUMBER)
AS
v_sender prs_perslid.prs_perslid_key%TYPE;
v_senderdefault prs_perslid.prs_perslid_key%TYPE;
v_kostenplaats prs_afdeling.prs_kostenplaats_key%TYPE;
v_kstnpldefault prs_afdeling.prs_kostenplaats_key%TYPE;
v_mldstat mld_melding.mld_melding_status%TYPE;
v_stdmelding mld_stdmelding.mld_stdmelding_key%TYPE;
v_stduitvoer mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE;
@@ -3413,7 +3415,8 @@ AS
v_mailorigin mld_kenmerk.mld_kenmerk_key%TYPE;
v_attachorigin mld_kenmerk.mld_kenmerk_key%TYPE;
BEGIN
v_sender := 4; --Standaard de persoon Facilitor
v_senderdefault := 4; --Standaard de persoon Facilitor
v_kstnpldefault := 1910; --Standaard kostenplaats Facilitair (persoon Facilitor)
v_stdmelding := fac.safe_to_number (fac.getsetting ('defaultstdmelding'));
v_mailorigin := 2081; --Kenmerk_key originele mail-bijlage
v_attachorigin := 2101; --Kenmerk_key bijlage uit email
@@ -3465,12 +3468,17 @@ BEGIN
-- Bij ict@hpji.facilitor.nl worden de mails via ict@elker.nl doorgestuurd.
-- In fromaddr zit dan het mailadres van de oorspronkelijke melder.
-- Bij ict meldingen mag de fromaddr de v_sender uit v_from overschrijven.
SELECT MIN (p.prs_perslid_key), MIN (d.prs_kostenplaats_key)
INTO v_sender, v_kostenplaats
FROM prs_perslid p, prs_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key
AND p.prs_perslid_verwijder IS NULL
AND UPPER (prs_perslid_email) = UPPER (v_fromaddr);
-- Maar niet altijd is v_fromaddr gevuld (HPJI#76724)
IF v_fromaddr IS NOT NULL
THEN
SELECT MIN (p.prs_perslid_key), MIN (d.prs_kostenplaats_key)
INTO v_sender, v_kostenplaats
FROM prs_perslid p, prs_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key
AND p.prs_perslid_verwijder IS NULL
AND UPPER (prs_perslid_email) = UPPER (v_fromaddr);
END IF;
-- v_errormsg :=
-- SUBSTR (('(0x202)' || psessionid || pfrom || m_body),
@@ -3570,9 +3578,9 @@ BEGIN
v_stdmelding,
NULL, -- Locatie onbekend
NULL,
v_sender,
v_sender,
v_kostenplaats,
COALESCE (v_sender, v_senderdefault),
COALESCE (v_sender, v_senderdefault),
COALESCE (v_kostenplaats, v_kstnpldefault),
3)
RETURNING mld_melding_key
INTO v_mldkey;