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

SZDB#71833 Notificatie als object aan (ander) persoon toegewezen wordt/is

Browse Source 
svn path=/Database/trunk/; revision=56657
This commit is contained in:
Peter Feij
2022-07-21 15:40:15 +00:00
parent 47e872b766
commit 7d7f5e6bb2
2 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
FAC/FAC_PAC.SRC
View File

@@ -4289,11 +4289,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
bericht := ins.sprintf (loms, prefkey);
END IF;
-- Beheeracties notificeren we niet, zou niet weten naar wie.
IF lcode IN ('INSOUT', 'INSINN', 'INSIN2')
IF lcode IN ('INSOUT', 'INSINN', 'INSIN2') OR lcode IN ('INSNEW', 'INSUPD', 'INSDEL')
THEN
-- Beheeracties notificeren we naar de (nieuwe) eigenaar, if any. Je zou ook de objectbeheerder
-- kunnen bedenken, maar die beheert het juist, is de aanname, dus al op de hoogte.
-- Bij uitlenen sturen we een notificatie naar de tijdelijke nieuwe eigenaar (UWVA#21528)
-- Bij innemen sturen we een notificatie naar de oorspronkelijke eigenaar (indien persoon; zeldzaam)
-- Die bepalen we dus altijd met ins_alg_ruimte_key (niet ins_alg_ruimte_key_org)
SELECT ins_alg_ruimte_key, ins_alg_locatie_key
INTO lreceiver, lalglocatiekey
FROM ins_deel

17
INS/INS_PAC.SRC
View File

@@ -170,18 +170,23 @@ CREATE OR REPLACE PACKAGE BODY ins AS
RETURN varchar2
IS
lins_deel_omschrijving ins_deel.ins_deel_omschrijving%TYPE;
lins_deel_opmerking ins_deel.ins_deel_opmerking%TYPE;
lins_srtdeel_omschrijving ins_srtdeel.ins_srtdeel_omschrijving%TYPE;
s varchar2 (2048 CHAR);
BEGIN
s := ps;
-- We support substitution of placeholders in the messages
-- ##DESC## = ins_deel_omschrijving
-- ##DESC## = ins_deel_omschrijving (eigenlijk de ID, maar te laat om aan te passen)
-- ##REMARK## = ins_deel_opmerking
-- ##TYPE## = ins_srtdeel_omschrijving
IF INSTR2 (s, '#') > 0
THEN
SELECT ins_deel_omschrijving
INTO lins_deel_omschrijving
FROM ins_deel
WHERE ins_deel_key = pins_deel_key;
s := REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key));
SELECT ins_deel_omschrijving, ins_deel_opmerking, ins_srtdeel_omschrijving
INTO lins_deel_omschrijving, lins_deel_opmerking, lins_srtdeel_omschrijving
FROM ins_deel id, ins_srtdeel isd
WHERE id.ins_srtdeel_key = isd.ins_srtdeel_key
AND ins_deel_key = pins_deel_key;
s := REPLACE (REPLACE (REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key)), '##REMARK##', lins_deel_opmerking), '##TYPE##', lins_srtdeel_omschrijving) ;
END IF;
RETURN s;