SET TERM ^ ;

CREATE trigger ttbbase_conhecimento_menus_b01d for tbbase_conhecimento_menus
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
     HISTORICO = '';

     IF(OLD.ID > 0) THEN
     BEGIN
          HISTORICO = HISTORICO||'MENU EXCLUIDO: '||OLD.MENU_ID;
     END

     IF (HISTORICO <> '') THEN
     BEGIN
          EXECUTE PROCEDURE SPI_HISTORICO('TBBASE_CONHECIMENTO',OLD.BASE_ID, HISTORICO);
     END
END
^

SET TERM ; ^

