37 lines
868 B
Plaintext
37 lines
868 B
Plaintext
/* REVISIONS:
|
|
*
|
|
*/
|
|
|
|
#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 CAD !!
|
|
UPDATE_PRIMARY_KEY(cad_tekening_key
|
|
,cad_s_cad_tekening_key);
|
|
UPDATE_AANMAAKDATUM(cad_tekening
|
|
,cad_tekening_aanmaak);
|
|
IF :new.cad_tekening_type IN ('P', 'C') AND
|
|
:new.ins_discipline_key IS NOT NULL
|
|
THEN
|
|
APPLICATION_ERROR(-20000, 'CAD_M010');
|
|
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;
|
|
/
|
|
|
|
CREATE_TRIGGER(cad_t_cad_symbool_B_IU)
|
|
BEFORE INSERT OR UPDATE ON cad_symbool
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(cad_symbool_key, cad_s_cad_symbool_key);
|
|
END;
|
|
/
|