66 lines
1.5 KiB
Plaintext
66 lines
1.5 KiB
Plaintext
#ifdef CAD
|
|
/* CAD_TRI.SRC
|
|
* $Revision$
|
|
* $Id$
|
|
*/
|
|
|
|
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_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;
|
|
/
|
|
|
|
REGISTERRUN('$Workfile: CAD_TRI.SRC $','$Revision$')
|
|
|
|
#endif
|