Erro ao enviar Carta de Correção - Falha na Validação

[Lucas Marcondes]

Bom dia!

Quando faço o envio da carta de correção, ele me retorna o seguinte erro:

Falha na validação da Mensagem do Evento:  --> 1871 - Element '{http://www.portalfiscal.inf.br/nfe}chNFe': This element is not expected. Expected is one of ( {http://www.portalfiscal.inf.br/nfe}CNPJ, {http://www.portalfiscal.inf.br/nfe}CPF ).

Já fiz a atualização dos Schemas baixando a ultima versão pelo SVN, porem não resolveu. 

O envio faço do seguinte modo.

 

  idLote           := '1';
  nSeqEvento := IntToStr(Random(5));

  with ACBrNFe.EventoNFe.Evento.New do
    begin
      infEvento.chNFe                         := Chave da nota;
      infEvento.CNPJ                           := CNPJ da empresa que emitiu a nota;
      infEvento.dhEvento                    := now;
      infEvento.tpEvento                     := teCCe;
      infEvento.nSeqEvento                := StrToInt(nSeqEvento);
      infEvento.detEvento.xCorrecao := Correcao;
    end;
 

    ACBrNFe.EnviarEvento(StrToInt(idLote));

 

Alguém saberia me dizer onde estou errando? Não estou conseguindo entender o problema.

Desde já agradeço.

[Juliomar Marchetti]

ACBr atualizado e com o instalador rodado?

[Lucas Marcondes]

Boa tarde @Juliomar Marchetti!!

Sim. Baixei esta semana via SVN. Achei que os Schemas estivessem desatualizados, porem sem sucesso. 

Alguma dica?

Desde já agradeço.

[Juliomar Marchetti]

rodou o instalador?

[Lucas Marcondes]

Bom dia @Juliomar Marchetti!!

Sim, rodei o instalador.

[Juliomar Marchetti]

2 horas atrás, Lucas Marcondes disse:

Bom dia @Juliomar Marchetti!!

Sim, rodei o instalador.

olha só se for configuração.

versão 4.0? CCe só serve para NFe

[Lucas Marcondes]

@Juliomar Marchetti segue as configurações que eu uso:

 

  ACBrNFe.Configuracoes.WebServices.UF                                         :=  'SP'

  ACBrNFe.Configuracoes.WebServices.Ambiente                             :=  taProducao ;

  ACBrNFe.Configuracoes.Arquivos.PathSchemas                             :=  'C:\Arquivos\Schemas\NFe\';
  ACBrNFe.Configuracoes.Arquivos.PathSalvar                                  :=  'C:\Arquivos\temp\';

  AcbrNFE.Configuracoes.WebServices.IntervaloTentativas              :=  2000;
  AcbrNFE.Configuracoes.WebServices.TimeOut                                :=  4000;
  AcbrNFE.Configuracoes.WebServices.Tentativas                             :=  5;
  AcbrNFE.Configuracoes.WebServices.AguardarConsultaRet          :=  3000;
  ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;

  ACBrNFe.Configuracoes.Geral.ExibirErroSchema                            := False;
  ACBrNFe.Configuracoes.Geral.VersaoDF                                         := ve400;
  ACBrNFe.SSL.SSLType                                                                      := TSSLType(LT_TLSv1_2);
  ACBrNFe.Configuracoes.Geral.SSLCryptLib                                    := cryWinCrypt;
  ACBrNFe.Configuracoes.Geral.SSLHttpLib                                      := httpWinHttp;
  ACBrNFe.Configuracoes.Geral.SSLLib                                              := libWinCrypt;
  ACBrNFe.Configuracoes.Geral.SSLXmlSignLib                                := xsLibXml2;
  ACBrNFe.Configuracoes.Geral.AtualizarXMLCancelado                  :=  True;

 

Teria mais alguma ou alguma esta errada? 

Antes de Alimentar o evento eu limpa as notas do componente assim:  ACBrNFe.NotasFiscais.Clear; 

Ai adiciono o evento conforme a primeira postagem. Teria algo a ver isso?

 

[Djalma Grivol]

Boa tarde Lucas!

Tudo bem?

Estou com o mesmo problema.

Você conseguiu resolver?

Att
Djalma Grivol

[Juliomar Marchetti]

1 hora atrás, Djalma Grivol disse:

Boa tarde Lucas!

Tudo bem?

Estou com o mesmo problema.

Você conseguiu resolver?

Att
Djalma Grivol

Schemas desatualizados?

[Djalma Grivol]

17 minutos atrás, Juliomar Marchetti disse:

Schemas desatualizados?

 

A ultima atualização que fiz foi 11/2023.

 

 

eNFeConfig.ini

         ACBrNFe1.EventoNFe.Evento.Clear;
         ACBrNFe1.EventoNFe.idLote := ID;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now;
         if CbTipo.ItemIndex = 0 then
            ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestConfirmacao;
         if CbTipo.ItemIndex = 1 then
            ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestCiencia;
         if CbTipo.ItemIndex = 2 then
            ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestDesconhecimento;
         if CbTipo.ItemIndex = 3 then
            begin
            ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestOperNaoRealizada;
            ACBrNFe1.EventoNFe.Evento.New.InfEvento.detEvento.xJust := eJust.Text;
            end;
         ACBrNFe1.EnviarEvento(ID);
         fSta := ACBrNFe1.WebServices.EnvEvento.RetWS;
 

[BigWings]

14 minutos atrás, Djalma Grivol disse:

         ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe;
         ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now;

O problema está aí, chamar Evento.New várias vezes, não está preenchendo corretamente.

Faça assim:

var
  infEvento: ACBrNFe.EventoClass.TInfEvento;
begin

[...]
infEvento := NFe.EventoNFe.Evento.New.InfEvento;

infEvento.cOrgao := StrToInt(Copy(ChaveNFe, 1, 2));
infEvento.CNPJ := Cnpj;
infEvento.chNFe := ChaveNFe;
infEvento.dhEvento := Now;
[...]

 

[Djalma Grivol]

24 minutos atrás, BigWings disse:

O problema está aí, chamar Evento.New várias vezes, não está preenchendo corretamente.

Faça assim:

var
  infEvento: ACBrNFe.EventoClass.TInfEvento;
begin

[...]
infEvento := NFe.EventoNFe.Evento.New.InfEvento;

infEvento.cOrgao := StrToInt(Copy(ChaveNFe, 1, 2));
infEvento.CNPJ := Cnpj;
infEvento.chNFe := ChaveNFe;
infEvento.dhEvento := Now;
[...]

 

Show!
Deu certo.
Me desculpe, Obrigado!

 

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.