SET TERM ^ ;

CREATE OR ALTER trigger ttbdief_apuracao_b02i for tbdief_apuracao
active before insert position 1
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('TBDIEF_APURACAO', NEW.ID, HISTORICO);
    END
END
^

SET TERM ; ^


SET TERM ^ ;

CREATE OR ALTER trigger ttbdief_apuracao_b01d for tbdief_apuracao
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('TBDIEF_APURACAO', OLD.ID, HISTORICO);
    END
END
^

SET TERM ; ^

/*
DROP TRIGGER TBDIEF_APURACAO_B01U;
*/

SET TERM ^ ;

CREATE OR ALTER trigger ttbdief_apuracao_b01u for tbdief_apuracao
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.OCORRENCIA_CODIGO <> NEW.OCORRENCIA_CODIGO) THEN
    BEGIN
        HISTORICO = HISTORICO||' Ocorrência Cód. '||OLD.OCORRENCIA_CODIGO||'->'||NEW.OCORRENCIA_CODIGO;
    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.DATA <> NEW.DATA) THEN
    BEGIN
        HISTORICO = HISTORICO||' Data '||OLD.DATA||'->'||NEW.DATA;
    END

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

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

SET TERM ; ^