Jump to content

click.png click.png click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

duvida com retorno de nfe


  • Este tópico foi criado há 1562 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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

 

 

Link to comment
Share on other sites

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;

 

Consultor SAC ACBr

Celso Marigo Junior

Conheça o Portal do Projeto ACBr
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.