Files
Database/CAD/CAD_TRI.SRC
Peter Feij 772a04ce90 FSN#1251
svn path=/Database/trunk/; revision=9028
2005-09-21 11:52:12 +00:00

70 lines
1.7 KiB
Plaintext

/* $Revision: 7 $
* $Modtime: 21-09-05 13:11 $
*/
#include "comsql.h"
CREATE_TRIGGER(cad_t_cad_tekening_B_IU)
BEFORE INSERT OR UPDATE ON cad_tekening
FOR EACH ROW
BEGIN
-- Deze trigger is ook gedefinieerd in PRJ !!
UPDATE_PRIMARY_KEY(cad_tekening_key, cad_s_cad_tekening_key);
UPDATE_AANMAAKDATUM(cad_tekening, cad_tekening_aanmaak);
BEGIN IF :new.alg_verdieping_key IS NOT NULL THEN
SELECT alg_locatie_key INTO :new.alg_locatie_key
FROM alg_gebouw G, alg_verdieping V
WHERE G.alg_gebouw_key=V.alg_gebouw_key
AND V.alg_verdieping_key=:new.alg_verdieping_key;
END IF; END;
END;
/
CREATE_TRIGGER(cad_t_cad_tekening_A_U)
AFTER UPDATE ON cad_tekening
FOR EACH ROW
BEGIN
DELETE FROM cad_tekening WHERE cad_tekening_filenaam IS NULL;
END;
/
CREATE_TRIGGER(cad_t_cad_legenda_B_IU)
BEFORE INSERT OR UPDATE ON cad_legenda
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cad_legenda_key, cad_s_cad_legenda_key);
END;
/
CREATE_TRIGGER(cad_t_cad_legendawaarde_B_IU)
BEFORE INSERT OR UPDATE ON cad_legendawaarde
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cad_legendawaarde_key, cad_s_cad_legendawaarde_key);
END;
/
CREATE_TRIGGER(cad_t_cad_thema_B_IU)
BEFORE INSERT OR UPDATE ON cad_thema
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cad_thema_key, cad_s_cad_thema_key);
END;
/
CREATE_TRIGGER(cad_t_cad_label_B_IU)
BEFORE INSERT OR UPDATE ON cad_label
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cad_label_key, cad_s_cad_label_key);
END;
/
CREATE_TRIGGER(cad_t_cad_imp_contour_B_IU)
BEFORE INSERT OR UPDATE ON cad_imp_contour
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cad_imp_contour_key,cad_s_cad_imp_contour_key);
END;
/