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

YKPN#67562 notifybackoffice notificaties ook afzender uit discipline/locatie gebruiken

Browse Source 
svn path=/Database/trunk/; revision=55648
This commit is contained in:
Jos Groot Lipman
2022-04-20 14:09:08 +00:00
parent b8682de010
commit ad61876335
1 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
MLD/MLD_PAC.SRC
View File

@@ -575,6 +575,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
lreceivers1 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
ltracking VARCHAR2 (4000); -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
lnotifyooh mld_disc_params.mld_disc_params_offhours%TYPE;
lsender mld_discipline.ins_discipline_email%TYPE;
BEGIN
BEGIN
-- De vakgroep (discipline) setting MLD_DISC_PARAMS_BONOTIFY geeft aan of de notificatie moeten worden verstuurd.
@@ -648,6 +649,18 @@ CREATE OR REPLACE PACKAGE BODY mld AS
DBMS_OUTPUT.put_line ('melding zegt: hier moet genotificeerd worden');
-- These notifications are now sent on behalf of the system, what might be the local FM organisation
SELECT MAX (COALESCE(cd.ins_discipline_email, l.alg_locatie_email)) email
INTO lsender
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline cd,
alg_locatie l
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = cd.ins_discipline_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_melding_key = pmeldingkey;
-- Als die melding/status er niet is, is er niks te doen en sprongen we al naar de exception
-- Als die melding/status er wel is, gaan we verder
@@ -760,7 +773,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
NULL,
NULL,
lnotiprio, -- 1,2,3
NULL);
lsender);
RETURN; -- Dan doen we de rest van de gebruikers helemaal niet
END IF;
END IF;
@@ -842,7 +855,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
NULL,
NULL,
lnotiprio,
NULL);
lsender);
DBMS_OUTPUT.put_line ('bo-er: ' || boer.prs_perslid_key);
-- Het kan zijn dat er ook een extra spoed bericht gestuurd moet worden
@@ -859,7 +872,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
NULL,
NULL,
1, -- spoed dus :-)
NULL);
lsender);
END IF;
IF lnrreceivers = 0
@@ -1117,7 +1130,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = cd.ins_discipline_key
AND m.mld_alg_locatie_key = l.alg_locatie_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND o.mld_opdr_key = popdrkey;
-- Als die er niet is sprongen we al naar de exception
-- Als die er wel is, gaan we verder