SET TERM ^ ;

CREATE OR ALTER trigger ttbcampanha_clientes_b02d for tbcampanha_clientes
active before delete position 0
AS
DECLARE VARIABLE TEM_CONTATO INTEGER;
BEGIN
     TEM_CONTATO = COALESCE((SELECT FIRST 1 T.ID FROM TBCAMPANHA_CLIENTES_CONTATO T WHERE T.CAMPANHA_CLIENTE_ID = OLD.ID), 0);

     IF(TEM_CONTATO > 0) THEN
     BEGIN
          EXCEPTION "..." 'EXISTEM CLIENTE(S) QUE POSSUEM CONTATO(S). OPERACAO CANCELADA.';
     END
END
^

SET TERM ; ^

