CREATE OR REPLACE TRIGGER GRAVA_ATUA_CONTCTBL_LANCCUSTO
BEFORE UPDATE
ON LANCCONT FOR EACH ROW
DECLARE
BEGIN
   IF UPDATING THEN
      UPDATE LANCCCUSTO
         SET CDCONTCTBL = :NEW.CDCONTCTBL
       WHERE CDEMPRESA  = :OLD.CDEMPRESA
         AND NRLANCCONT = :OLD.NRLANCCONT
         AND NRSEQLANC  = :OLD.NRSEQLANC;
   END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('GRAVA_ATUA_CONTCTBL_LANCCUSTO','5.30.000'); END;
/