SET TERM ^ ;

CREATE trigger ttbcampanha_clientes_b02i for tbcampanha_clientes
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN                          
     HISTORICO = '';

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

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

SET TERM ; ^

