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

UWVA#13273

Browse Source 
svn path=/Database/trunk/; revision=9658
This commit is contained in:
Peter Feij
2007-12-21 12:36:42 +00:00
parent 6b7b41432e
commit 104d3d986b
7 changed files with 219 additions and 268 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
BEZ/BEZ_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 24 $
* $Modtime: 10-12-07 10:18 $
/* $Revision: 25 $
* $Modtime: 20-12-07 13:54 $
*/
#include "comsql.h"
@@ -49,14 +49,30 @@ BEGIN
(select SUBSTRING(alg_plaatsaanduiding,1,30) FROM alg_v_plaatsaanduiding_all WHERE alg_onroerendgoed_keys=:new.alg_onrgoed_keys)
where bez_afspraak_key = @new__bez_afspraak_key;
#else
SELECT SUBSTR(alg_plaatsaanduiding,1,30)
INTO :new.bez_afspraak_ruimte FROM alg_v_plaatsaanduiding_all
WHERE alg_onroerendgoed_keys=:new.alg_onrgoed_keys AND alg_onroerendgoed_type<> 'L';
BEGIN
SELECT SUBSTR (alg_plaatsaanduiding, 1, 30)
INTO :NEW.bez_afspraak_ruimte
FROM alg_v_plaatsaanduiding_all
WHERE alg_onroerendgoed_keys = :NEW.alg_onrgoed_keys AND alg_onroerendgoed_type <> 'L';
EXCEPTION
WHEN OTHERS
THEN
:NEW.bez_afspraak_ruimte := SUBSTR ('*' || :NEW.bez_afspraak_ruimte, 1, 30);
END;
#endif
END IF;
END;
/
CREATE_TRIGGER(bez_t_bez_afspraak_d)
AFTER DELETE
ON bez_afspraak
FOR EACH ROW
BEGIN
DELETE FROM bez_bezoekers WHERE bez_afspraak_key=:OLD.bez_afspraak_key;
END;
/
CREATE_TRIGGER(bez_t_bez_bezoekers_B_IU)
BEFORE INSERT OR UPDATE ON bez_bezoekers
FOR EACH ROW