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

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;