Erro Leitura Xml

[João Batista Da Silva Junior]

Galera atualizei hoje meu trunk2 e agora não consigo pegar o retorno da NFCe... o estranho é que da NFe volta certinho. Estou testando com o ACBrNFe_demo,vou mandar uns print pra darem uma olhada... 

No TEste 1 fiz a emissao da NFE, foi de boa, veio o danfe e o log com retorno tudo 100%

Ja no Teste 2 fiz a emissao da NFCe, foi de boa, veio o danfe..... porém o log nao foi carregado e o engraçado que o xml gerado na pasta está 100% 

o retorno da NFCE nao ta funcionando

 MemoDados.Lines.Add('');
  MemoDados.Lines.Add('Envio NFe');
  MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
  MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
  MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
  MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
  MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
  MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
  MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
  MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
  MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo)

 

vem tudo em branco, ja da nfe vem tudo certinho!! 

 

Galera da um help ai!!

 

Obrigado!

 

TESTE 1 - NFE - 11150905935671000168550010007000071007000075-nfe.xml

TESTE 2 - NFCE - 11150905935671000168650080000000501000000508-nfe.xml

[Daniel Simoes]

Hoje debugando... notei que aparentemente o ProcNFe não está sendo tratado corretamente em: TNFeRecepcao.TratarResposta... e isso poderia explicar o fato não estar funcionando na NFCe (síncrono)

Já mandei uma msg para o Italo, solicitando o auxílio para esse problema...

[João Batista Da Silva Junior]

OOOhhhh Daniel Simoes... obrigado pelo retorno rápido!! até essa hora "trampando" tb!!  vou ficar no aguardo!! obrigado mais uma vez!!

[Daniel Simoes]

Apliquei uma possível correção no SVN

-- ACBrNFeNotasFiscais --     (por: DSA)
[*] Remoção de código comentado
[*] NotaFiscal.CalcularNomeArquivo, modificado, para considerar NFe.procNFe.cStat
    e nomear o arquivo com o sufixo '-nfe.xml' ou '-den.xml'

-- ACBrNFeWebServices --
[-] Ajuste em TNFeRecepcao.TratarResposta para que ProcNFe conste no XML e nos
    arquivos salvos
[-] Ajuste em TNFeRetRecepcao.TratarRespostaFinal para que ProcNFe conste no XML e nos
    arquivos salvos. Remoção de código comentado.      

[João Batista Da Silva Junior]

Bom dia Daniel,

Fiz o update agora e refiz os testes e continua com o mesmo problema no envio Síncrono já se o envio for feito Assíncrono demora mais o processo de envio e retorno mas funciona.

 

 

[Daniel Simoes]

Nos meus testes está tudo ok...

Dê mais detalhes para chegar no problema... Forneça um passo a passo, usando o Demo do ACBrNFe...

[João Batista Da Silva Junior]

Olá novamente Daniel, eu exclui meu Demo do ACBR e fiz um novo update, gravei um video com o teste com ele... 

Da uma olhada ai...

[Daniel Simoes]

O problema parece ser no Demo do ACBr, que está lendo os dados de um  WebServices que ele não utilizou "Retorno", pois a consulta é síncrona...

Em consultas Síncronas, apenas o WebServices "Enviar" é exeutado...

Acho que uma possível correção seria:

  if not Sincrono then
  begin
    MemoResp.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS;
    memoRespWS.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS;
    LoadXML(MemoResp, WBResposta);

    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFCe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
    MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
    MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
    MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
    MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
    MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
    MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
  end
  else
  begin
    MemoResp.Lines.Text := ACBrNFe1.WebServices.Enviar.RetWS;
    memoRespWS.Lines.Text := ACBrNFe1.WebServices.Enviar.RetornoWS;
    LoadXML(MemoResp, WBResposta);

    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFCe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Enviar.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Enviar.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cStat));
    MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cUF));
    MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Enviar.xMotivo);
    //MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cMsg));
    //MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Enviar.xMsg);
    MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo);
    //MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Enviar.Protocolo);
  end;

 

[João Batista Da Silva Junior]

Daniel, vou teste a solução!! posto o resultado mais tarde!!

[João Batista Da Silva Junior]

Olá Daniel, desculpe a demora... tava na correria... refiz os testes o retorno assim está vindo filé... só um campo que vem vazio

 MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo);

O Recibo está retornando em branco. Isso é pq não tem mesmo? ou é algum problema.

Estarei no aguardo!!

Mais uma vez obrigado pela ajuda!

[Daniel Simoes]

O Recibo não irá retornar pois o documento já foi aprovado...

O Recibo só tem sentido se você precisa consultar o documento que está aguardando uma aprovação (NFe, assíncrona)

[João Batista Da Silva Junior]

Daniel, tem razão...

Obrigado pela ajuda!!