SET TERM ^ ;

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

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

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

     IF(NEW.PALAVRAS_CHAVE <> OLD.PALAVRAS_CHAVE) THEN
     BEGIN
          HISTORICO = HISTORICO||'PALAV.CHAVE: '||OLD.PALAVRAS_CHAVE||' -> '||NEW.PALAVRAS_CHAVE;
     END

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

SET TERM ; ^

