SET TERM ^ ;

CREATE trigger ttbajuste_apur_ipi_b01d for tbajuste_apur_ipi
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
    HISTORICO = '';

    IF ( OLD.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO EXCLUIDO';
    END

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

SET TERM ; ^


SET TERM ^ ;

CREATE trigger ttbajuste_apur_ipi_b03i for tbajuste_apur_ipi
active before insert position 2
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
    HISTORICO = '';

    IF ( NEW.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO INCLUIDO';
    END

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

SET TERM ; ^


SET TERM ^ ;

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

    IF (OLD.ESTABELECIMENTO_CODIGO <> NEW.ESTABELECIMENTO_CODIGO) THEN
    BEGIN
        HISTORICO = HISTORICO||' Estab. Cód. '||OLD.ESTABELECIMENTO_CODIGO||'->'||NEW.ESTABELECIMENTO_CODIGO;
    END

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

    IF (OLD.MES <> NEW.mes) THEN
    BEGIN
        HISTORICO = HISTORICO||' Mês '||OLD.MES||'->'||NEW.MES;
    END

    IF (OLD.CODIGO <> NEW.CODIGO) THEN
    BEGIN
        HISTORICO = HISTORICO||' Cód. '||OLD.CODIGO||'->'||NEW.CODIGO;
    END

    IF (OLD.IND_DOC <> NEW.IND_DOC) THEN
    BEGIN
        HISTORICO = HISTORICO||' Ind. Doc. '||OLD.IND_DOC||'->'||NEW.IND_DOC;
    END

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

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

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

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

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

SET TERM ; ^