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

LOGI#13756

Browse Source 
svn path=/Database/trunk/; revision=9725
This commit is contained in:
Peter Feij
2008-02-14 11:36:50 +00:00
parent c864d11590
commit 7f7b568683
5 changed files with 127 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
BEZ/BEZ_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 26 $
* $Modtime: 3-01-08 15:03 $
/* $Revision: 27 $
* $Modtime: 13-02-08 13:11 $
*/
#include "comsql.h"
@@ -102,6 +102,7 @@ BEGIN
scode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
lbezoek VARCHAR2 (50);
lreceiver prs_perslid.prs_perslid_key%TYPE;
lsender fac_notificatie.fac_notificatie_sender_email%TYPE;
BEGIN
-- Alleen registratie van globale mutaties; per bezoeker wordt ook genotificeerd
-- Er is niet noodzakelijk iets gewijzigd, maar we notificeren wel
@@ -151,8 +152,19 @@ BEGIN
DATE_TO_CHAR (:NEW.bez_afspraak_datum, 'DD-MM-YY HH24:MI')
);
END IF;
BEGIN
SELECT l.alg_locatie_email
INTO lsender
FROM alg_locatie l
WHERE l.alg_locatie_key = :new.alg_locatie_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
lsender := NULL;
END;
fac.clrnotifications(scode, :NEW.bez_afspraak_key);
fac.putnotificationsrt (:NEW.prs_perslid_key,
fac.putnotificationsrtprio (:NEW.prs_perslid_key,
:NEW.bez_afspraak_contact_key,
scode,
:NEW.bez_afspraak_key,
@@ -160,7 +172,9 @@ BEGIN
NULL,
NULL,
NULL,
NULL
NULL,
2,
lsender
);
EXCEPTION
WHEN NO_DATA_FOUND
@@ -197,11 +211,13 @@ BEGIN
lbezoek bez_bezoekers.bez_afspraak_naam%TYPE;
lreceiver prs_perslid.prs_perslid_key%TYPE;
lreceiver2 prs_perslid.prs_perslid_key%TYPE;
lsender prs_perslid.prs_perslid_key%TYPE;
lsenderkey prs_perslid.prs_perslid_key%TYPE;
lalglocatiekey bez_afspraak.alg_locatie_key%TYPE;
lsender fac_notificatie.fac_notificatie_sender_email%TYPE;
ldatum DATE;
BEGIN
SELECT bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_datum, prs_perslid_key
INTO lreceiver, lreceiver2, ldatum, lsender
SELECT bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_datum, prs_perslid_key, alg_locatie_key
INTO lreceiver, lreceiver2, ldatum, lsenderkey, lalglocatiekey
FROM bez_afspraak
WHERE bez_afspraak_key = :NEW.bez_afspraak_key;
@@ -265,16 +281,27 @@ BEGIN
DATE_TO_CHAR (ldatum, 'DD-MM-YY HH24:MI')
);
END IF;
BEGIN
SELECT l.alg_locatie_email
INTO lsender
FROM alg_locatie l
WHERE l.alg_locatie_key = lalglocatiekey;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
lsender := NULL;
END;
-- Prevent sending these messages to self
IF soms IS NOT NULL AND lsender != lreceiver
IF soms IS NOT NULL AND lsenderkey != lreceiver
THEN
fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL, NULL);
fac.putnotificationsrtprio (lsenderkey, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL, NULL, 2, lsender);
END IF;
IF soms2 IS NOT NULL AND lsender != lreceiver2
IF soms2 IS NOT NULL AND lsenderkey != lreceiver2
THEN
fac.putnotificationsrt (lsender, lreceiver2, scode2, :NEW.bez_afspraak_key, soms2, NULL, NULL, NULL, NULL);
fac.putnotificationsrtprio (lsenderkey, lreceiver2, scode2, :NEW.bez_afspraak_key, soms2, NULL, NULL, NULL, NULL, 2, lsender);
END IF;
END IF;
END;