duvida com retorno de nfe

[felipeiw]

pessoal antes eu pegava os retornor da seguinte maneira:

      ACBrNFe.Enviar(0,True);

      // Autorizada
      if (ACBrNFe.WebServices.Retorno.cStat = 100) then
      begin
        sNotas1.Edit;
        sNotas1CHAVE.Value := ACBrNFe.WebServices.Retorno.ChaveNFe;
        sNotas1PROTOCOLO.Value := ACBrNFe.WebServices.Retorno.Protocolo;
        Notas1RECIBO.Value := ACBrNFe.WebServices.Retorno.Recibo;

porem agora gostaria de criar um metodo para tratar os retornos, entao estou tentando fazer da seguinte maneira:

      ACBrNFe.NotasFiscais.Clear;
      ACBrNFe.NotasFiscais.LoadFromFile(DiretorioXML+Trim(DM1Notas.CdsNotas1NFECHA.Value)+'-nfe.xml');
      ACBrNFe.Consultar;

      // Autorizada
      if (ACBrNFe.WebServices.Consulta.cStat = 100) then
      begin
        sNotas1.Edit;
        sNotas1CHAVE.Value := ACBrNFe.WebServices.Consulta.NFeChave;
        sNotas1CHAVE.Value := ACBrNFe.WebServices.Consulta.Protocolo;
        sNotas1CHAVE.Value := ACBrNFe.WebServices.Consulta.Recibo

mas nao existe a propriedade Recibo, existe alguma maneira de pegar o recibo no retorno ?

por gentileza qual a diferença dessas 2 maneiras de ler o retorno da situacao da nfe ?

 

Mt obrigado

 

 

[Celso Marigo Junior]

Na verdade o recibo só é retornado quando você faz um envio.

As informações do retorno de consulta são outras, quando tiver dúvidas, veja os fontes do ACBrMonitorPLUS, a unit DoACBrNFeUnit.pas, lá temos vários casos de tratamento de envio e resposta.

ACBrNFe1.WebServices.Consulta.Executar;

Cmd.Resposta := ACBrNFe1.WebServices.Consulta.Msg+sLineBreak+
  '[CONSULTA]'+sLineBreak+
  'Versao='+ACBrNFe1.WebServices.Consulta.verAplic+sLineBreak+
  'TpAmb='+TpAmbToStr(ACBrNFe1.WebServices.Consulta.TpAmb)+sLineBreak+
  'VerAplic='+ACBrNFe1.WebServices.Consulta.VerAplic+sLineBreak+
  'CStat='+IntToStr(ACBrNFe1.WebServices.Consulta.CStat)+sLineBreak+
  'XMotivo='+ACBrNFe1.WebServices.Consulta.XMotivo+sLineBreak+
  'CUF='+IntToStr(ACBrNFe1.WebServices.Consulta.CUF)+sLineBreak+
  'ChNFe='+ACBrNFe1.WebServices.Consulta.NFeChave+sLineBreak+
  'DhRecbto='+DateTimeToStr(ACBrNFe1.WebServices.Consulta.DhRecbto)+sLineBreak+
  'NProt='+ACBrNFe1.WebServices.Consulta.Protocolo+sLineBreak+
  'DigVal='+ACBrNFe1.WebServices.Consulta.protNFe.digVal+sLineBreak;