SET TERM ^ ;

CREATE OR ALTER trigger ttbnf_ocorrencia_b01i for tbnf_ocorrencia
active before insert position 0
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('TBNF_OCORRENCIA', NEW.ID, HISTORICO);
    END
END
^

SET TERM ; ^


SET TERM ^ ;

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

SET TERM ; ^


SET TERM ^ ;

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

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

    IF (OLD.CODIGO_OCORRENCIA <> NEW.CODIGO_OCORRENCIA) THEN
    BEGIN
        HISTORICO = HISTORICO||' Ocorrência '||OLD.CODIGO_OCORRENCIA||' -> '||NEW.CODIGO_OCORRENCIA;
    END

    IF (OLD.DATA_OCORRENCIA <> NEW.DATA_OCORRENCIA) THEN
    BEGIN
        HISTORICO = HISTORICO||' Data Ocorrência '||OLD.DATA_OCORRENCIA||' -> '||NEW.DATA_OCORRENCIA;
    END

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

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

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

    IF (OLD.VALOR_BC_ICMS <> NEW.VALOR_BC_ICMS) THEN
    BEGIN
        HISTORICO = HISTORICO||' Base de Cálc. ICMS '||OLD.VALOR_BC_ICMS||' -> '||NEW.VALOR_BC_ICMS;
    END

    IF (OLD.VALOR_ALIQ_ICMS <> NEW.VALOR_ALIQ_ICMS) THEN
    BEGIN
        HISTORICO = HISTORICO||' Alíq. ICMS '||OLD.VALOR_ALIQ_ICMS||' -> '||NEW.VALOR_ALIQ_ICMS;
    END

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

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

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

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

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

SET TERM ; ^