SET TERM ^ ;

CREATE trigger ttbcampanha_clientes_b01d for tbcampanha_clientes
active before delete position 1
AS
declare variable HISTORICO VARCHAR(500);
BEGIN
     HISTORICO = '';

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

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

SET TERM ; ^

