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

FSN#1251

Browse Source 
svn path=/Database/trunk/; revision=9028
This commit is contained in:
Peter Feij
2005-09-21 11:52:12 +00:00
parent 170435b757
commit 772a04ce90
1 changed files with 55 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
CAD/CAD_TRI.SRC
View File

@@ -1,5 +1,5 @@
/* REVISIONS: /* $Revision: 7 $
* * $Modtime: 21-09-05 13:11 $
*/ */
#include "comsql.h" #include "comsql.h"
@@ -8,29 +8,63 @@ CREATE_TRIGGER(cad_t_cad_tekening_B_IU)
BEFORE INSERT OR UPDATE ON cad_tekening BEFORE INSERT OR UPDATE ON cad_tekening
FOR EACH ROW FOR EACH ROW
BEGIN BEGIN
-- Deze trigger is ook gedefinieerd in CAD !! -- Deze trigger is ook gedefinieerd in PRJ !!
UPDATE_PRIMARY_KEY(cad_tekening_key UPDATE_PRIMARY_KEY(cad_tekening_key, cad_s_cad_tekening_key);
,cad_s_cad_tekening_key); UPDATE_AANMAAKDATUM(cad_tekening, cad_tekening_aanmaak);
UPDATE_AANMAAKDATUM(cad_tekening BEGIN IF :new.alg_verdieping_key IS NOT NULL THEN
,cad_tekening_aanmaak); SELECT alg_locatie_key INTO :new.alg_locatie_key
IF :new.cad_tekening_type IN ('P', 'C') AND FROM alg_gebouw G, alg_verdieping V
:new.ins_discipline_key IS NOT NULL WHERE G.alg_gebouw_key=V.alg_gebouw_key
THEN AND V.alg_verdieping_key=:new.alg_verdieping_key;
APPLICATION_ERROR(-20000, 'CAD_M010'); END IF; END;
END IF;
#ifdef PRJ
IF :new.prj_project_key IS NOT NULL
THEN
:new.cad_tekening_filenaam := :new.cad_tekening_key ||'.DWG';
END IF;
#endif
END; END;
/ /
CREATE_TRIGGER(cad_t_cad_symbool_B_IU) CREATE_TRIGGER(cad_t_cad_tekening_A_U)
BEFORE INSERT OR UPDATE ON cad_symbool AFTER UPDATE ON cad_tekening
FOR EACH ROW FOR EACH ROW
BEGIN BEGIN
UPDATE_PRIMARY_KEY(cad_symbool_key, cad_s_cad_symbool_key); DELETE FROM cad_tekening WHERE cad_tekening_filenaam IS NULL;
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;
/