SET TERM ^ ;

CREATE OR ALTER trigger ttbconta_receber_cobranca_b01u for tbconta_receber_cobranca
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
    HISTORICO = '';

    IF ( OLD.descricao <> NEW.descricao) THEN
    BEGIN
        HISTORICO = HISTORICO||'Desc.'|| OLD.descricao||'->'||NEW.descricao;
    END
    
    IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Reg. excluido.';
    END
    
    IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 1) THEN
    BEGIN
        HISTORICO = HISTORICO||'Exc. desfeita.';
    END

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

    IF ( OLD.CARTAO_BANDEIRA_ID <> NEW.CARTAO_BANDEIRA_ID) THEN
    BEGIN
         HISTORICO = HISTORICO||'Bandeira: '|| OLD.CARTAO_BANDEIRA_ID||'->'||NEW.CARTAO_BANDEIRA_ID;
    END
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBCONTA_RECEBER_COBRANCA',NEW.codigo, HISTORICO);
    END
END
^

SET TERM ; ^