SET TERM ^ ;

CREATE OR ALTER trigger ttbprefixo_ean_b01u for tbprefixo_ean
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(5000);
BEGIN
    HISTORICO = '';

    IF (OLD.PREFIXO <> NEW.PREFIXO) THEN
    BEGIN
        HISTORICO = HISTORICO||' DESC:'||FN_ELIPSE2(OLD.PREFIXO, 230)||'->'||FN_ELIPSE2(NEW.PREFIXO, 230);
    END

    IF (OLD.STATUS <> NEW.STATUS) THEN
    BEGIN
        HISTORICO = HISTORICO||' DESC:'||FN_ELIPSE2(OLD.STATUS, 230)||'->'||FN_ELIPSE2(NEW.STATUS, 230);
    END

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

SET TERM ; ^