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

CSUN#40184 -- Locatie specifiek BB-er mail adres

Browse Source 
svn path=/Customer/trunk/; revision=36401
This commit is contained in:
Arthur Egberink
2017-12-18 15:08:14 +00:00
parent 4fa5854864
commit 34224493b8
1 changed files with 45 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
CSUN/CSUN.sql
View File

@@ -543,24 +543,32 @@ CREATE OR REPLACE PROCEDURE csun_export_mailnoti (
AS
CURSOR c
IS
SELECT DISTINCT m.mld_melding_key, DECODE (m.mld_alg_locatie_key, 11139, 'Aab.amsterdam@csu.nl', p.prs_perslid_email) prs_perslid_email
FROM prs_perslid p,
mld_melding m,
alg_locatie l,
alg_locatie l2,
prs_v_perslidwerkplek_gegevens pwpg
SELECT DISTINCT
m.mld_melding_key,
COALESCE (
(SELECT alg_onrgoedkenmerk_waarde
FROM alg_onrgoedkenmerk aogk
WHERE alg_onrgoed_key = l.alg_locatie_key
AND alg_kenmerk_key = 1260), -- locatie spec. BB-er adres
prs_perslid_email)
prs_perslid_email
FROM prs_perslid p,
mld_melding m,
alg_locatie l,
alg_locatie l2,
prs_v_perslidwerkplek_gegevens pwpg
WHERE m.mld_alg_locatie_key = l.alg_locatie_key
AND m.mld_stdmelding_key != 41 -- ontvangen berichten
AND m.mld_stdmelding_key != 41 -- ontvangen berichten
AND pwpg.alg_locatie_key = l2.alg_locatie_key
AND l.alg_district_key = l2.alg_district_key
AND pwpg.prs_perslid_key = p.prs_perslid_key
AND p.prs_srtperslid_key = 32 -- BBer
AND p.prs_perslid_email IS NOT NULL
AND NOT EXISTS
(SELECT fac_tracking_key
FROM fac_tracking t
WHERE fac_tracking_oms LIKE 'Gemaild naar BBer:%'
AND t.fac_tracking_refkey = mld_melding_key);
(SELECT fac_tracking_key
FROM fac_tracking t
WHERE fac_tracking_oms LIKE 'Gemaild naar BBer:%'
AND t.fac_tracking_refkey = mld_melding_key);
v_dummy VARCHAR2 (128);
BEGIN
@@ -652,6 +660,8 @@ AS
v_locatie_key NUMBER;
v_client NUMBER; -- klantcode
v_perslid_key NUMBER; -- melder
v_locatie_code VARCHAR2(100);
v_gebouw_code VARCHAR2(100);
BEGIN
BEGIN
SELECT mld_melding_status, mld_alg_locatie_key, prs_perslid_key
@@ -669,6 +679,28 @@ AS
v_client := NULL;
END;
SELECT mld_kenmerkmelding_waarde
INTO v_locatie_code
FROM ( SELECT mld_kenmerkmelding_waarde, mld_melding_key
FROM mld_kenmerkmelding km,
mld_kenmerk k
WHERE k.mld_srtkenmerk_key = 181 -- Klant locatiecode
AND km.mld_kenmerk_key = k.mld_kenmerk_key) kl,
mld_melding m
WHERE m.mld_melding_key = kl.mld_melding_key(+)
AND m.mld_melding_key = p_key;
SELECT mld_kenmerkmelding_waarde
INTO v_gebouw_code
FROM ( SELECT mld_kenmerkmelding_waarde, mld_melding_key
FROM mld_kenmerkmelding km,
mld_kenmerk k
WHERE k.mld_srtkenmerk_key = 201 -- Klant gebouwcode
AND km.mld_kenmerk_key = k.mld_kenmerk_key) kg,
mld_melding m
WHERE m.mld_melding_key = kg.mld_melding_key(+)
AND m.mld_melding_key = p_key;
IF v_locatie_key = 28581 AND v_client IS NOT NULL -- Locatie key van locatie ONBEKEND
THEN
BEGIN
@@ -739,7 +771,7 @@ AS
INSERT INTO mld_melding_note (mld_melding_key,
prs_perslid_key,
mld_melding_note_omschrijving)
VALUES (p_key, 4, 'Locatie kan niet gekoppeld worden');
VALUES (p_key, 4, 'Locatie kan niet gekoppeld worden: ' || v_locatie_code || '-' || v_gebouw_code);
END;
END IF;
EXCEPTION
@@ -749,7 +781,7 @@ AS
INSERT INTO mld_melding_note (mld_melding_key,
prs_perslid_key,
mld_melding_note_omschrijving)
VALUES (p_key, 4, 'Locatie kan niet gekoppeld worden');
VALUES (p_key, 4, 'Locatie kan niet gekoppeld worden: ' || v_locatie_code || '-' || v_gebouw_code);
END;
END;
END;