SET TERM ^ ;

CREATE OR ALTER trigger tbfaixa_producao_b01u for tbfaixa_producao
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(5000);
BEGIN

    HISTORICO = '';

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

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

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

    IF ( OLD.imagem <> NEW.imagem) THEN
    BEGIN
        HISTORICO = HISTORICO||' IMAGEM ALTERADA';
    END

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

    IF (HISTORICO <> '') THEN
    BEGIN
        HISTORICO = 'REGISTRO ALTERADO:'||HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBFAIXA_PRODUCAO', OLD.ID, FN_elipse(HISTORICO, 500));
    END
END
^

SET TERM ; ^