AAGN#34728: Notificaties ook naar gebouw kunnen sturen.
svn path=/Database/trunk/; revision=27949
This commit is contained in:
Maykel Geerdink
@@ -2927,6 +2927,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
lcode2 fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
|
||||
loms fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
|
||||
loms2 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
|
||||
lsrtnotigebouw fac_srtnotificatie.fac_srtnotificatie_gebouw%TYPE;
|
||||
bericht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
|
||||
bericht2 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
|
||||
lreceiver fac_notificatie.prs_perslid_key_receiver%TYPE;
|
||||
@@ -2941,6 +2942,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
lstart_key mld_melding.mld_melding_start_key%TYPE;
|
||||
luitvtype mld_v_uitvoerende.TYPE%TYPE;
|
||||
lemail prs_bedrijf.prs_bedrijf_email%TYPE;
|
||||
lemail3 alg_gebouw.alg_gebouw_email%TYPE;
|
||||
lphone prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
|
||||
lreskey res_rsv_ruimte.res_reservering_key%TYPE;
|
||||
lres_ruimte_opstel_key res_rsv_ruimte.res_ruimte_opstel_key%TYPE;
|
||||
@@ -2948,6 +2950,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
lxrefkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
|
||||
lalg_ruimte_key res_rsv_ruimte.alg_ruimte_key%TYPE;
|
||||
lalglocatiekey alg_locatie.alg_locatie_key%TYPE;
|
||||
lalgonrgoedkey mld_melding.mld_alg_onroerendgoed_keys%TYPE;
|
||||
lmld_adres_key mld_adres.mld_adres_key%TYPE;
|
||||
lprs_bedrijf_key prs_bedrijf.prs_bedrijf_key%TYPE;
|
||||
lmldbehandelaar mld_melding.mld_melding_behandelaar_key%TYPE;
|
||||
@@ -2975,9 +2978,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
bericht := ptracking_oms; -- als die leeg is zoeken we zelf
|
||||
|
||||
-- welk type?
|
||||
SELECT fac_srtnotificatie_xmlnode, fac_srtnotificatie_code,
|
||||
lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
|
||||
INTO lxmlnode, lcode, loms
|
||||
SELECT fac_srtnotificatie_xmlnode,
|
||||
fac_srtnotificatie_code,
|
||||
lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
|
||||
fac_srtnotificatie_gebouw
|
||||
INTO lxmlnode,
|
||||
lcode,
|
||||
loms,
|
||||
lsrtnotigebouw
|
||||
FROM fac_srtnotificatie
|
||||
WHERE fac_srtnotificatie_key = psrtnotificatiekey;
|
||||
|
||||
@@ -2998,6 +3006,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
m.mld_stdmelding_key,
|
||||
m.mld_adres_key,
|
||||
m.mld_alg_locatie_key,
|
||||
m.mld_alg_onroerendgoed_keys,
|
||||
mld_disc_params_notify,
|
||||
stdm.mld_stdmelding_notify,
|
||||
d.ins_discipline_email,
|
||||
@@ -3010,6 +3019,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
lmld_stdmelding_key,
|
||||
lmld_adres_key,
|
||||
lalglocatiekey,
|
||||
lalgonrgoedkey,
|
||||
lnotify,
|
||||
lmnotify,
|
||||
lsender,
|
||||
@@ -3099,6 +3109,18 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
WHERE l2.alg_locatie_key = lalglocatiekey;
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
-- Controleren of er ook naar het gebouw een mailtje gestuurd moet worden.
|
||||
IF lsrtnotigebouw = 1 AND lalgonrgoedkey IS NOT NULL
|
||||
THEN
|
||||
-- Stuur een notificatie naar het e-mail adres van het gebouw.
|
||||
SELECT g.alg_gebouw_email
|
||||
INTO lemail3
|
||||
FROM alg_v_allonroerendgoed aog,
|
||||
alg_gebouw g
|
||||
WHERE aog.alg_gebouw_key = g.alg_gebouw_key
|
||||
AND aog.alg_onroerendgoed_keys = lalgonrgoedkey;
|
||||
END IF;
|
||||
WHEN lxmlnode = 'opdracht'
|
||||
THEN
|
||||
IF ptracking_oms IS NULL
|
||||
@@ -3170,8 +3192,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
|
||||
-- de afzender
|
||||
BEGIN
|
||||
SELECT ins_discipline_email
|
||||
INTO lsender
|
||||
SELECT ins_discipline_email,
|
||||
m.mld_alg_onroerendgoed_keys
|
||||
INTO lsender,
|
||||
lalgonrgoedkey
|
||||
FROM ins_tab_discipline d,
|
||||
mld_stdmelding sm,
|
||||
mld_melding m,
|
||||
@@ -3183,8 +3207,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
|
||||
IF lsender IS NULL
|
||||
THEN
|
||||
SELECT COALESCE (l1.alg_locatie_email, l2.alg_locatie_email)
|
||||
INTO lsender
|
||||
SELECT COALESCE (l1.alg_locatie_email, l2.alg_locatie_email),
|
||||
m.mld_alg_onroerendgoed_keys
|
||||
INTO lsender,
|
||||
lalgonrgoedkey
|
||||
FROM mld_melding m,
|
||||
mld_adres ma,
|
||||
alg_locatie l1,
|
||||
@@ -3201,6 +3227,18 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
THEN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
-- Controleren of er ook naar het gebouw een mailtje gestuurd moet worden.
|
||||
IF lsrtnotigebouw = 1 AND lalgonrgoedkey IS NOT NULL
|
||||
THEN
|
||||
-- Stuur een notificatie naar het e-mail adres van het gebouw.
|
||||
SELECT g.alg_gebouw_email
|
||||
INTO lemail3
|
||||
FROM alg_v_allonroerendgoed aog,
|
||||
alg_gebouw g
|
||||
WHERE aog.alg_gebouw_key = g.alg_gebouw_key
|
||||
AND aog.alg_onroerendgoed_keys = lalgonrgoedkey;
|
||||
END IF;
|
||||
WHEN lxmlnode = 'reservering' OR lxmlnode = 'xreservering'
|
||||
THEN
|
||||
IF ptracking_oms IS NULL
|
||||
@@ -3669,6 +3707,21 @@ CREATE OR REPLACE PACKAGE BODY fac AS
|
||||
2,
|
||||
lsender);
|
||||
END IF;
|
||||
|
||||
IF lemail3 IS NOT NULL
|
||||
THEN
|
||||
fac.putnotificationsrtprio (pperslid_key,
|
||||
NULL,
|
||||
lcode,
|
||||
lrefkey,
|
||||
bericht,
|
||||
NULL,
|
||||
lemail3,
|
||||
lphone,
|
||||
lxrefkey,
|
||||
2,
|
||||
lsender);
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
|
||||
Reference in New Issue
Block a user