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

UWVA#36449 2016.1 RES/BEZ: notificatie bezoekersoproepsysteem.

Browse Source 
svn path=/Database/branches/DB28/; revision=29459
This commit is contained in:
Erik Groener
2016-05-19 12:31:42 +00:00
parent b215265512
commit 3ed06d9e01
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
FAC/FAC_PAC.SRC
View File

@@ -3444,11 +3444,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- De normale notificatie gaat naar de contact (UWVA#19008)
-- Moeten dus kijken of psrtnotificatiekey naar BEZDON of BEZOUT wijst
-- Dan moeten we ook BEZDO2 of BEZOU2 versturen naar de host.
IF (lcode = 'BEZDON' OR lcode = 'BEZUNI')
IF lcode = 'BEZDON'
THEN
lcode2 := 'BEZDO2';
ELSIF (lcode = 'BEZDO2' OR lcode = 'BEZUNI')
THEN
lcode2 := 'BEZDO2';
res.notifypool(prefkey, lcode);
lcode := 'BEZDON'; -- Ook undo-checkin behandelen als checkin.
lcode := 'BEZDO2'; -- Ook undo-checkin behandelen als checkin.
ELSIF lcode = 'BEZOUT'
THEN
lcode2 := 'BEZOU2';

8
RES/RES_PAC.SRC
View File

@@ -1711,13 +1711,13 @@ AS
lmailfrom alg_locatie.alg_locatie_email%TYPE;
ltracking VARCHAR2(4000); -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
BEGIN
IF (pcode = 'BEZDON' OR pcode = 'BEZUNI') THEN
IF (pcode = 'BEZDO2' OR pcode = 'BEZUNI') THEN
SELECT bez_afspraak_naam
INTO lbezoeker
FROM bez_bezoekers
WHERE bez_bezoekers_key = pbez_bezoeker_key;
IF pcode = 'BEZDON' THEN
IF pcode = 'BEZDO2' THEN
lbericht := lcl.l('lcl_bez_is_in_1') || lbezoeker || lcl.l('lcl_bez_is_in_2');
ELSIF pcode = 'BEZUNI' THEN
lbericht := lcl.l('lcl_bez_is_in_1') || lbezoeker || lcl.l('lcl_bez_is_in_3');
@@ -1725,7 +1725,7 @@ AS
-- lbericht := lcl.l('lcl_bez_is_out_1') || lbezoeker || lcl.l('lcl_bez_is_out_2');
END IF;
lcode := 'BEZDON'; -- Behandel undo_checkin als srtnotificatie checkin.
lcode := 'BEZDO2'; -- Behandel undo_checkin als srtnotificatie checkin.
lnrreceivers := 0;
lreceivers := '';
@@ -1787,7 +1787,7 @@ AS
ltracking := REPLACE (ltracking, '{0}', lbericht);
ltracking := REPLACE (ltracking, '{1}', lreceivers);
DBMS_OUTPUT.PUT_LINE(ltracking);
fac.trackaction ('#BEZDON', pbez_bezoeker_key, NULL, NULL, SUBSTR(ltracking,1,2048)); -- maxlengte van fac_srtnotificatie_oms
fac.trackaction ('#BEZDO2', pbez_bezoeker_key, NULL, NULL, SUBSTR(ltracking,1,2048)); -- maxlengte van fac_srtnotificatie_oms
END IF;
END IF;
END;