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

WELK#66143 Notificatie naar kerngebruikers bij notitie vanuit Valuemation

Browse Source 
svn path=/Customer/trunk/; revision=56585
This commit is contained in:
Sander Schepers
2022-07-14 12:05:33 +00:00
parent 8228545989
commit 06d5b6ff7f
1 changed files with 38 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
WELK/welk.sql
View File

@@ -341,7 +341,6 @@ AS
nj.fac_notificatie_job_nextrun
- (nj.fac_notificatie_job_interval / 24);
/* Formatted on 12/7/2022 22:01:33 (QP5 v5.371) */
CREATE OR REPLACE PROCEDURE WELK.welk_processemail (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
@@ -374,7 +373,7 @@ AS
v_vm_niet_akkoord VARCHAR2 (4000);
v_vm_niet_akkoord_cur VARCHAR2 (4000);
v_manager_email VARCHAR2 (4000);
v_kerngebruikers_email VARCHAR2 (4000);
v_kerngebruiker_email VARCHAR2 (4000);
v_manager_key prs_perslid.prs_perslid_key%TYPE;
v_lgkenmerk_key mld_kenmerk.mld_kenmerk_key%TYPE;
v_mailorigin mld_kenmerk.mld_kenmerk_key%TYPE;
@@ -384,7 +383,7 @@ BEGIN
sender := 4; --Standaard de persoon Facilitor
v_mailorigin := 410; --Kenmerk_key originele mail-bijlage
v_attachorigin := 411; --Kenmerk_key bijlage
v_kerngebruikers_email := NULL;
v_kerngebruiker_email := NULL;
-- Verwijder de Bounce Address Tag Validation
IF pfrom LIKE 'prvs=%'
@@ -534,27 +533,35 @@ BEGIN
|| v_mldkey
|| psubject;
SELECT (SELECT LISTAGG (email, '; ')
WITHIN GROUP (ORDER BY email) AS email
FROM (SELECT p.prs_perslid_email AS email
FROM mld_kenmerkmelding kmm,
mld_kenmerk km,
prs_perslid p
WHERE kmm.mld_melding_key =
m.mld_melding_key
AND kmm.mld_kenmerk_key =
km.mld_kenmerk_key
AND km.mld_srtkenmerk_key = 363 -- Kenmerksoort Kerngebruikers
AND kmm.mld_kenmerkmelding_verwijder
IS NULL
AND p.prs_perslid_email IS NOT NULL
AND p.prs_perslid_verwijder IS NULL
AND fac.safe_to_number (
kmm.mld_kenmerkmelding_waarde) =
p.prs_perslid_key))
INTO v_kerngebruikers_email
FROM mld_melding m
WHERE m.mld_melding_key = v_mldkey;
-- 14-07-2022: Anton gaf aan dat 'kerngebruiker' toch niet uit de kenmerken moest worden bepaald, maar dit moest Behandelaar van de melding worden.
-- SELECT (SELECT LISTAGG (email, '; ')
-- WITHIN GROUP (ORDER BY email) AS email
-- FROM (SELECT p.prs_perslid_email AS email
-- FROM mld_kenmerkmelding kmm,
-- mld_kenmerk km,
-- prs_perslid p
-- WHERE kmm.mld_melding_key =
-- m.mld_melding_key
-- AND kmm.mld_kenmerk_key =
-- km.mld_kenmerk_key
-- AND km.mld_srtkenmerk_key = 363 -- Kenmerksoort Kerngebruikers
-- AND kmm.mld_kenmerkmelding_verwijder
-- IS NULL
-- AND p.prs_perslid_email IS NOT NULL
-- AND p.prs_perslid_verwijder IS NULL
-- AND fac.safe_to_number (
-- kmm.mld_kenmerkmelding_waarde) =
-- p.prs_perslid_key))
-- INTO v_kerngebruiker_email
-- FROM mld_melding m
-- WHERE m.mld_melding_key = v_mldkey;
SELECT p.prs_perslid_email
INTO v_kerngebruiker_email
FROM prs_perslid p, mld_melding m
WHERE p.prs_perslid_email IS NOT NULL
AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_key = m.mld_melding_behandelaar_key
AND m.mld_melding_key = v_mldkey;
BEGIN
--Hieronder de acties die gedaan moeten worden.
@@ -729,7 +736,7 @@ BEGIN
NULL,
'#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie
IF v_kerngebruikers_email IS NOT NULL
IF v_kerngebruiker_email IS NOT NULL
THEN
INSERT INTO fac_notificatie (
fac_srtnotificatie_key,
@@ -741,7 +748,7 @@ BEGIN
VALUES (
442, --MLDNOB
2,
v_kerngebruikers_email,
v_kerngebruiker_email,
'Bij de opdracht bij melding '
|| v_mldkey
|| ' is een notitie binnengekomen vanuit Valuemation',
@@ -1019,7 +1026,7 @@ BEGIN
NULL,
'#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie
IF v_kerngebruikers_email IS NOT NULL
IF v_kerngebruiker_email IS NOT NULL
THEN
INSERT INTO fac_notificatie (
fac_srtnotificatie_key,
@@ -1031,7 +1038,7 @@ BEGIN
VALUES (
442, --MLDNOB
2,
v_kerngebruikers_email,
v_kerngebruiker_email,
'Bij de opdracht bij melding '
|| v_mldkey
|| ' is een notitie binnengekomen vanuit Valuemation',
@@ -1630,7 +1637,7 @@ BEGIN
NULL,
'#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie
IF v_kerngebruikers_email IS NOT NULL
IF v_kerngebruiker_email IS NOT NULL
THEN
INSERT INTO fac_notificatie (
fac_srtnotificatie_key,
@@ -1642,7 +1649,7 @@ BEGIN
VALUES (
442, --MLDNOB
2,
v_kerngebruikers_email,
v_kerngebruiker_email,
'Bij de opdracht bij melding '
|| v_mldkey
|| ' is een notitie binnengekomen vanuit Valuemation',
@@ -1798,6 +1805,7 @@ END;
/
CREATE OR REPLACE PROCEDURE welk_export_valuemation (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,