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

FSN#11433

Browse Source 
svn path=/Database/trunk/; revision=9415
This commit is contained in:
Peter Feij
2007-01-12 15:22:18 +00:00
parent 7b4f67d7d6
commit eb5acd603f
2 changed files with 47 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
BEZ/BEZ_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 14 $
* $Modtime: 12-01-07 15:22 $
/* $Revision: 15 $
* $Modtime: 12-01-07 17:18 $
*/
#include "comsql.h"
@@ -73,6 +73,9 @@ BEGIN
END;
/
// Uitgangspunt: we notificeren op Afspraak, niet op bezoeker als het gaat om aanmelding etc
// We notificeren alleen op bezoeker als het gaat om binnenkomen en weggaan.
// Er is slechts 1 zo een notificatie per afspraak, bij nieuw weet je nog niets van de bezoekers
CREATE_TRIGGER(bez_t_notificatie_afspraak)
AFTER INSERT OR UPDATE
ON bez_afspraak
@@ -85,12 +88,10 @@ BEGIN
lreceiver prs_perslid.prs_perslid_key%TYPE;
BEGIN
-- Alleen registratie van globale mutaties; per bezoeker wordt ook genotificeerd
IF :OLD.bez_afspraak_datum <> :NEW.bez_afspraak_datum
OR :OLD.res_rsv_ruimte_key <> :NEW.res_rsv_ruimte_key
OR :OLD.alg_onrgoed_keys <> :NEW.alg_onrgoed_keys
THEN
scode := 'BEZMUT';
END IF;
-- Er is niet noodzakelijk iets gewijzigd, maar we notificeren wel
-- (er is immers een update), zodat de namen van de bezoekers
-- kunnen worden getoond.
scode := 'BEZMUT';
IF scode IS NOT NULL
THEN
@@ -107,33 +108,40 @@ BEGIN
RETURN;
END;
-- We support substitution of placeholders in the messages
-- ##KEY## = ins_srtdiscipline_prefix+key+/+volgnr
-- ##NAAM## = volledige naam van de afmelder
IF INSTR2 (soms, '#') > 0
THEN
SELECT bez_afspraak_naam
|| DECODE ((SELECT COUNT (*)
FROM bez_bezoekers
WHERE bez_afspraak_key = :NEW.bez_afspraak_key),
1, '',
'...'
)
BEGIN
SELECT bez_afspraak_naam || DECODE ((SELECT COUNT (*)
FROM bez_bezoekers
WHERE bez_afspraak_key = :NEW.bez_afspraak_key), 1, '', ' c.s.')
INTO lbezoek
FROM bez_bezoekers
WHERE bez_afspraak_key = :NEW.bez_afspraak_key;
soms :=
REPLACE (REPLACE (REPLACE (soms, '##NAAM##', lbezoek),
'##KEY##',
NUMBER_TO_CHAR (:NEW.bez_afspraak_key)
),
'##DATUM##',
DATE_TO_CHAR (:NEW.bez_afspraak_datum, 'DD-MM-YY HH:MI')
);
END IF;
fac.putnotificationsrt (:NEW.prs_perslid_key, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL);
-- We support substitution of placeholders in the messages
-- ##KEY## = ins_srtdiscipline_prefix+key+/+volgnr
-- ##NAAM## = volledige naam van de afmelder
IF INSTR (soms, '#') > 0
THEN
soms :=
REPLACE (REPLACE (REPLACE (soms, '##NAAM##', lbezoek), '##KEY##', TO_CHAR (:NEW.bez_afspraak_key)),
'##DATUM##',
TO_CHAR (:NEW.bez_afspraak_datum, 'DD-MM-YY HH:MI')
);
END IF;
fac.clrnotifications(scode, :NEW.bez_afspraak_key);
fac.putnotificationsrt (:NEW.prs_perslid_key,
lreceiver,
scode,
:NEW.bez_afspraak_key,
soms,
NULL,
NULL,
NULL
);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
fac.clrnotifications (scode, :NEW.bez_afspraak_key);
END;
END IF;
END;
END;
@@ -168,18 +176,17 @@ BEGIN
-- Geen notificatie van wijzigingen als afspraak onder een reservering hangt;
-- Die reservering notificeert dan (meestal) wel
IF :OLD.bez_bezoekers_key IS NULL AND :new.res_rsv_ruimte_key IS NULL
THEN
scode := 'BEZNEW';
ELSIF :OLD.bez_bezoekers_done IS NULL
IF :OLD.bez_bezoekers_done IS NULL
AND :NEW.bez_bezoekers_done IS NOT NULL
THEN
scode := 'BEZDON';
ldatum := :NEW.bez_bezoekers_done;
ELSIF :OLD.bez_bezoekers_out IS NULL
AND :NEW.bez_bezoekers_out IS NOT NULL
THEN
scode := 'BEZOUT';
ELSIF :new.res_rsv_ruimte_key IS NULL
ldatum := :NEW.bez_bezoekers_out;
ELSE
-- update komt eigenlijk niet voor (vanuit de GUI), want er wordt altijd delete+insert uitgevoerd
scode := 'BEZUPD';
END IF;
@@ -216,15 +223,11 @@ BEGIN
);
END IF;
-- Note: de clear wist alle bezoekers bij deze afspraak, zodat er maar 1 regel overblijft.
-- Indien hierin de naam van de bezoeker staat, is er de verdenking dat er iets niet goed is gegaan
-- Alternatief is om de BEZNEW niet te notificeren, want reservering of afspraak doen dat al.
-- We kunnen hier (diep in de trigger) niet kijken of er nog meer bezoekers zijn bij deze afspraak.
fac.clrnotifications(scode, :NEW.bez_afspraak_key);
fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL);
END IF;
END;
END;
/
#endif // BEZ

8
FAC/FAC_INI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef FAC // 13-03-96 AH
/* $Revision: 365 $
* $Modtime: 12-01-07 11:10 $
/* $Revision: 366 $
* $Modtime: 12-01-07 17:16 $
*/
#include "comsql.h"
@@ -2929,11 +2929,9 @@ DEF_FAC_SRTNOT('BES2AF', 0, 'Bestelopdracht ##KEY## is geleverd', '',
DEF_FAC_SRTNOT('BES2NE', 0, 'Bestelopdracht ##KEY## is aangemaakt', '', '0', 'bestelopdr');
DEF_FAC_SRTNOT('BES2VE', 0, 'Bestelopdracht ##KEY## is geheel verwerkt', '', '0', 'bestelopdr');
DEF_FAC_SRTNOT('BEZMUT', 1, 'Gegevens van uw bezoek ##KEY## (##NAAM## op ##DATUM##) zijn geregistreerd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('BEZDON', 9, 'Uw bezoeker ##NAAM## is gearriveerd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('BEZMUT', 1, 'Gegevens van uw afspraak ##KEY## voor ##DATUM## zijn gewijzigd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('BEZNEW', 1, 'Uw bezoeker ##NAAM## voor ##DATUM## is onder nummer ##KEY## geregistreerd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('BEZOUT', 1, 'Uw bezoeker ##NAAM## is uitgecheckt', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
//DEF_FAC_SRTNOT('BEZUPD', 0, 'Gegevens van uw bezoeker ##NAAM## voor ##DATUM## zijn gewijzigd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('MESMES', 1, '..deze tekst wordt niet gebruikt.. ', 'messages/message.asp?message_key=', '0', '');