Carta de Correção Transmite mas não aparece na sefaz

[ivan_juste]

Bom dia pessoal, preciso de ajuda.

Desenvolvi a carta de correção utilizando o ACBR, quando transmito aparentemente tudo esta funcionando, porem ao consultar a nota fiscal eletronica na sefaz não aparece a correção. Alguem poderia me ajudar???

Fonte:

FNFE.ACBrNFe.CartaCorrecao.CCe.Evento.Clear;

    FNFE.ACBrNFe.CartaCorrecao.CCe.idLote := 1;

    with FNFE.ACBrNFe.CartaCorrecao.CCe.Evento.Add do

    begin

      infEvento.chNFe :=                DM_NotaFiscal.CDSNotaFiscalNFCHAVEACESSO.AsString;

      infEvento.CNPJ :=                 copy(DM_NotaFiscal.CDSNotaFiscalNFCHAVEACESSO.AsString,7,14);

      infEvento.dhEvento :=             now;

      infEvento.tpEvento :=             110110;

      infEvento.nSeqEvento :=           DM_NotaFiscal.CDSCartaCorrecaoNFCSEQUENCIA.AsInteger;

      infEvento.versaoEvento :=         '1.00';

      infEvento.detEvento.descEvento := 'Carta de Correção';

      infEvento.detEvento.xCorrecao :=  DM_NotaFiscal.CDSCartaCorrecaoNFCCORRECAO.Value;

      infEvento.detEvento.xCondUso :=   ''; //Informar vazio, o componente vai colocar o texto correto

      InfEvento.cOrgao:=                DM_Principal.CDSParametroSistemaPANFECODIGOUF.AsInteger;

    end;

[marcelo_sp]

ACBrNFe1.EventoNFe.Evento.Clear;

ACBrNFe1.EventoNFe.idLote := Lote ;

with ACBrNFe1.EventoNFe.Evento.Add do

begin

infEvento.chNFe := Grid_NFs_Emitidas.CellByName['Chave_NFe',Grid_NFs_Emitidas.SelectedRow].AsString ;

infEvento.CNPJ := Grid_NFs_Emitidas.CellByName['Cnpj_Emitente',Grid_NFs_Emitidas.SelectedRow].AsString ;

infEvento.dhEvento := Now ;

infEvento.tpEvento := teCCe ;

infEvento.nSeqEvento := Numero_Sequencia ;

infEvento.detEvento.xCorrecao := Trim(Memo_CCe.Lines.Text) ;

infEvento.detEvento.xCondUso := '' ;

end;

ACBrNFe1.EnviarEventoNFe( Lote );

[Filipe Sortica]

Olá ivan_juste!

O que o marcelo_sp quis dizer é que o teu fonte deve ser alterado.

Recentemente, houveram alterações na maneira de enviar CCe.

Verifica se tu estás com os fontes atualizados e dá uma olhada novamente no demo.

Verás que não se está mais utilizando

ACBrNFe.CartaCorrecao.CCe.Evento

mas sim

ACBrNFe.EventoNFe.Evento

[ivan_juste]

ACBrNFe1.EventoNFe.Evento.Clear;

ACBrNFe1.EventoNFe.idLote := Lote ;

with ACBrNFe1.EventoNFe.Evento.Add do

begin

infEvento.chNFe := Grid_NFs_Emitidas.CellByName['Chave_NFe',Grid_NFs_Emitidas.SelectedRow].AsString ;

infEvento.CNPJ := Grid_NFs_Emitidas.CellByName['Cnpj_Emitente',Grid_NFs_Emitidas.SelectedRow].AsString ;

infEvento.dhEvento := Now ;

infEvento.tpEvento := teCCe ;

infEvento.nSeqEvento := Numero_Sequencia ;

infEvento.detEvento.xCorrecao := Trim(Memo_CCe.Lines.Text) ;

infEvento.detEvento.xCondUso := '' ;

end;

ACBrNFe1.EnviarEventoNFe( Lote );

Marcelo, você encontrou alguma diferença entre o meu fonte e o seu?

Obrigado

[ivan_juste]

Olá ivan_juste!

O que o marcelo_sp quis dizer é que o teu fonte deve ser alterado.

Recentemente, houveram alterações na maneira de enviar CCe.

Verifica se tu estás com os fontes atualizados e dá uma olhada novamente no demo.

Verás que não se está mais utilizando

ACBrNFe.CartaCorrecao.CCe.Evento

mas sim

ACBrNFe.EventoNFe.Evento

Fiz a atualização do ACBR, porém estou com um problema na linha:

infEvento.tpEvento := teCCe ;

Na outra versão era passado o codigo: 110110, agora esta passando o 'teCCe'. Devo usar alguma Unit???

Abraço.

[marcelo_sp]

Olá ivan_juste!

O que o marcelo_sp quis dizer é que o teu fonte deve ser alterado.

Recentemente, houveram alterações na maneira de enviar CCe.

Verifica se tu estás com os fontes atualizados e dá uma olhada novamente no demo.

Verás que não se está mais utilizando

ACBrNFe.CartaCorrecao.CCe.Evento

mas sim

ACBrNFe.EventoNFe.Evento

Fiz a atualização do ACBR, porém estou com um problema na linha:

infEvento.tpEvento := teCCe ;

Na outra versão era passado o codigo: 110110, agora esta passando o 'teCCe'. Devo usar alguma Unit???

Abraço.

uses pcnConversao

[ivan_juste]

Olá ivan_juste!

O que o marcelo_sp quis dizer é que o teu fonte deve ser alterado.

Recentemente, houveram alterações na maneira de enviar CCe.

Verifica se tu estás com os fontes atualizados e dá uma olhada novamente no demo.

Verás que não se está mais utilizando

ACBrNFe.CartaCorrecao.CCe.Evento

mas sim

ACBrNFe.EventoNFe.Evento

Fiz a atualização do ACBR, porém estou com um problema na linha:

infEvento.tpEvento := teCCe ;

Na outra versão era passado o codigo: 110110, agora esta passando o 'teCCe'. Devo usar alguma Unit???

Abraço.

uses pcnConversao

Obrigado, realizei um teste no ambiente de homologação e funcionou perfeitamente, obrigado a todos que ajudaram.