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

UWVA#12769

Browse Source 
svn path=/Database/trunk/; revision=9543
This commit is contained in:
Peter Feij
2007-06-13 15:25:38 +00:00
parent 7aabd2e55b
commit ea38393954
3 changed files with 67 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
BEZ/BEZ_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 22 $
* $Modtime: 11-04-07 11:56 $
/* $Revision: 23 $
* $Modtime: 13-06-07 17:23 $
*/
#include "comsql.h"
@@ -171,68 +171,91 @@ CREATE_TRIGGER(bez_t_notificatie_bezoekers)
FOR EACH ROW
BEGIN
DECLARE
soms fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
scode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
lbezoek bez_bezoekers.bez_afspraak_naam%TYPE;
lreceiver prs_perslid.prs_perslid_key%TYPE;
lsender prs_perslid.prs_perslid_key%TYPE;
ldatum DATE;
soms fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
soms2 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
scode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
scode2 fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
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;
ldatum DATE;
BEGIN
SELECT COALESCE(bez_afspraak_host_key, bez_afspraak_contact_key), bez_afspraak_datum, prs_perslid_key
INTO lreceiver, ldatum, lsender
SELECT bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_datum, prs_perslid_key
INTO lreceiver, lreceiver2, ldatum, lsender
FROM bez_afspraak
WHERE bez_afspraak_key = :NEW.bez_afspraak_key;
-- Geen notificatie van wijzigingen als afspraak onder een reservering hangt;
-- Die reservering notificeert dan (meestal) wel
IF :OLD.bez_bezoekers_done IS NULL
AND :NEW.bez_bezoekers_done IS NOT NULL
IF :OLD.bez_bezoekers_done IS NULL AND :NEW.bez_bezoekers_done IS NOT NULL
THEN
scode := 'BEZDON';
scode2 := 'BEZDO2';
ldatum := :NEW.bez_bezoekers_done;
ELSIF :OLD.bez_bezoekers_out IS NULL
AND :NEW.bez_bezoekers_out IS NOT NULL
ELSIF :OLD.bez_bezoekers_out IS NULL AND :NEW.bez_bezoekers_out IS NOT NULL
THEN
scode := 'BEZOUT';
scode2 := 'BEZOU2';
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;
IF scode IS NOT NULL
IF scode IS NOT NULL OR scode2 IS NOT NULL
THEN
BEGIN
SELECT sn.fac_srtnotificatie_oms
INTO soms
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = scode
AND sn.fac_srtnotificatie_mode > 0;
WHERE sn.fac_srtnotificatie_code = scode AND sn.fac_srtnotificatie_mode > 0;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- Nothing to do
RETURN;
NULL;
END;
BEGIN
SELECT sn.fac_srtnotificatie_oms
INTO soms2
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = scode2 AND sn.fac_srtnotificatie_mode > 0;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- Nothing to do
NULL;
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
IF (soms IS NOT NULL OR soms2 IS NOT NULL) AND (INSTR2(soms, '#') > 0 OR INSTR2(soms2, '#') > 0)
THEN
lbezoek := :NEW.bez_afspraak_naam;
soms :=
REPLACE (REPLACE (REPLACE (soms, '##NAAM##', lbezoek),
'##KEY##',
NUMBER_TO_CHAR (:NEW.bez_afspraak_key)
),
REPLACE (REPLACE (REPLACE (soms, '##NAAM##', lbezoek), '##KEY##', TO_CHAR (:NEW.bez_afspraak_key)),
'##DATUM##',
DATE_TO_CHAR (ldatum, 'DD-MM-YY HH24:MI')
);
soms2 :=
REPLACE (REPLACE (REPLACE (soms2, '##NAAM##', lbezoek), '##KEY##', TO_CHAR (:NEW.bez_afspraak_key)),
'##DATUM##',
DATE_TO_CHAR (ldatum, 'DD-MM-YY HH24:MI')
);
END IF;
fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL, NULL);
IF soms IS NOT NULL
THEN
fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL, NULL);
END IF;
IF soms2 IS NOT NULL
THEN
fac.putnotificationsrt (lsender, lreceiver2, scode2, :NEW.bez_afspraak_key, soms2, NULL, NULL, NULL, NULL);
END IF;
END IF;
END;
END;

6
FAC/FAC_INI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef FAC // 13-03-96 AH
/* $Revision: 376 $
* $Modtime: 7-06-07 15:34 $
/* $Revision: 377 $
* $Modtime: 13-06-07 17:25 $
*/
#include "comsql.h"
@@ -2934,7 +2934,9 @@ DEF_FAC_SRTNOT('BES2VE', 0, 'Bestelopdracht ##KEY## is geheel verwerkt', '',
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('BEZDO2', 0, 'Bezoeker ##NAAM## is gearriveerd', '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('BEZOU2', 0, 'Bezoeker ##NAAM## is uitgecheckt', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('MESMES', 1, 'U heeft een Facilitor bericht ontvangen van ##NAAM##', 'messages/message.asp?message_key=', '0', 'message');

28
_UP/470to471.src
View File

@@ -1,5 +1,5 @@
--
-- Update script van Facilitor versie 4.70.5+ naar 4.71 $Revision: 5 $
-- Update script van Facilitor versie 4.70.5+ naar 4.71 $Revision: 6 $
--
/*
* This script is precompiled so #if(n)def MS_SQL can be used to distinguish between
@@ -36,8 +36,8 @@ PROMPT versie voor MS SQL Server
#else
PROMPT versie voor Oracle
#endif
PROMPT $Revision: 5 $
PROMPT $Modtime: 7-06-07 16:16 $
PROMPT $Revision: 6 $
PROMPT $Modtime: 13-06-07 17:26 $
PROMPT Copyright 1996-2007 Dijkoraad IT bv/Facilitor Software Nederland bv
PROMPT
SELECT 'De huidige versie van Facilitor is: '|| fac_module_version
@@ -193,17 +193,21 @@ CREATE TABLE fac_imp_onrgoed2
);
// Extra procedures toegevoegd aan FAC package: fac.imp_alg_delete_onrgoed
//--CREATE OR REPLACE PROCEDURE fac_import_onrgoed1..
//--CREATE OR REPLACE PROCEDURE fac_import_onrgoed2..
//--CREATE OR REPLACE PROCEDURE fac_import_onrgoed1_del = fac_import_onrgoed1
//--CREATE OR REPLACE PROCEDURE fac_import_onrgoed2_del = fac_import_onrgoed2
//--CREATE OR REPLACE PROCEDURE fac_update_onrgoed1..
//--CREATE OR REPLACE PROCEDURE fac_update_onrgoed2..
//--CREATE OR REPLACE PROCEDURE fac_update_onrgoed1_del = delete + fac_update_onrgoed1
//--CREATE OR REPLACE PROCEDURE fac_update_onrgoed2_del = delete + fac_update_onrgoed2
/////////////////////////////////////////////////////////////////////////////////////////// UWVA#12769
DEF_FAC_SRTNOT('BEZDO2', 0, 'Bezoeker ##NAAM## is gearriveerd', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
DEF_FAC_SRTNOT('BEZOU2', 0, 'Bezoeker ##NAAM## is uitgecheckt', 'visitors/register_input.asp?afspr_key=', '0', 'afspraak');
--CREATE OR REPLACE PROCEDURE fac_import_onrgoed1..
--CREATE OR REPLACE PROCEDURE fac_import_onrgoed2..
--CREATE OR REPLACE PROCEDURE fac_import_onrgoed1_del = fac_import_onrgoed1
--CREATE OR REPLACE PROCEDURE fac_import_onrgoed2_del = fac_import_onrgoed2
--CREATE OR REPLACE PROCEDURE fac_update_onrgoed1..
--CREATE OR REPLACE PROCEDURE fac_update_onrgoed2..
--CREATE OR REPLACE PROCEDURE fac_update_onrgoed1_del = delete + fac_update_onrgoed1
--CREATE OR REPLACE PROCEDURE fac_update_onrgoed2_del = delete + fac_update_onrgoed2
////////////////////////////////////////////// SOME GENERAL CLEANUP /////////////////////////////
//////////////////////////////////// approved by the Facilitor release manager //////////////////