SET TERM ^ ;

CREATE trigger ttbcampanha_b01u for tbcampanha
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
     HISTORICO = '';

     IF(NEW.DESCRICAO <> OLD.DESCRICAO) THEN
     BEGIN
          HISTORICO = HISTORICO||'DESC: '||OLD.DESCRICAO||' -> '||NEW.DESCRICAO;
     END 

     IF(NEW.DATA_INICIO <> OLD.DATA_INICIO) THEN
     BEGIN
          HISTORICO = HISTORICO||'DT.INI: '||OLD.DATA_INICIO||' -> '||NEW.DATA_INICIO;
     END

     IF(NEW.DATA_FINAL <> OLD.DATA_FINAL) THEN
     BEGIN
          HISTORICO = HISTORICO||'DT.FIM: '||OLD.DATA_FINAL||' -> '||NEW.DATA_FINAL;
     END

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

SET TERM ; ^

