diff --git a/WELK/welk.sql b/WELK/welk.sql index 21eb041c7..1fd124325 100644 --- a/WELK/welk.sql +++ b/WELK/welk.sql @@ -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,