#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
   -- Geeft een 44002 als invalid
   :new.cad_thema_view := DBMS_ASSERT.SQL_OBJECT_NAME(:new.cad_thema_view);
   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
   -- Geeft een 44002 als invalid
   :new.cad_label_view := DBMS_ASSERT.SQL_OBJECT_NAME(:new.cad_label_view);
   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('$Id$')

#endif
