Jump to content

dev botao

Webservice Retorno


Go to solution Solved by Antonio Paulo Mangili,
  • Este tópico foi criado há 3466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

pessoal bom dia

eu não sei o que esta acontecendo até na sexta estava ok, depois que fiz uma atualização no svn esta acontecendo o seguinte

quando envio a nfe e da a duplicidate não esta gravando o retorno

faço essa clausula para verificar o cstat o que podera esta acontecendo

 

if ACBrNFe1.WebServices.Retorno.cStat = 100 then //Autorizado o uso da NF-e //imprimi

 

else

 da o erro

 

obrigado

a todos

 

Link to comment
Share on other sites

  • Consultores

Qual é a mensagem completa do erro?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Membros Pro

ola embarbosa.

é assim, vamos ver si consigo explicar.

na minha aplicação eu faço o seguinte:

 
//Função que gera o XML
GerarNFe(vAux);
ACBrNFe1.NotasFiscais.GerarNFe;
 
 //Função que Validar/Assinar/Enviar a NFe a sefaz
 ACBrNFe1.Enviar(vNumLote,True);
 
na volta do retorno eu pegava essas informações e gravava em minha tabela.
acontece que quando dá duplicidade por algum erro de numeração da NFe, não vem mais o retorno, para que eu possa gravar em minha tabela de log.
         
          pgRespostas.ActivePageIndex := 5; //aba dados Resposta
          MemoDados.Clear;
 
          if ACBrNFe1.WebServices.Retorno.cStat = 100 then //Autorizado o uso da NF-e
          begin
               MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
               memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
               LoadXML(MemoResp, WBResposta);
 
               MemoDados.Lines.Add('');
               MemoDados.Lines.Add('Resultado do Envio da NFe');
               MemoDados.Lines.Add('');
 
               MemoDados.Lines.Add('Ambiente: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
               MemoDados.Lines.Add('Status: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
               MemoDados.Lines.Add('UF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
               MemoDados.Lines.Add('Motivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
               MemoDados.Lines.Add('CD Msg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
               MemoDados.Lines.Add('Msg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
               MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
               MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
               MemoDados.Lines.Add('Chave NFe: ' +ACBrNFe1.WebServices.Retorno.ChaveNFe);
 
               //salvar dados da NFe_xml em banco de dados
               CdsTabLogNFE.Insert;
               CdsTabLogNFeCHAVENFE.AsString     := ACBrNFe1.WebServices.Retorno.ChaveNFe;
               CdsTabLogNFeRECIBO.AsString       := ACBrNFe1.WebServices.Retorno.Recibo;
               CdsTabLogNFeNFE.AsString          := CdsTabEmpNFISCAL.AsString;
               CdsTabLogNFeDATA.AsString         := MskData.Text;
               CdsTabLogNFeVENDA.AsString        := EditPedidoR.Text;
               CdsTabLogNFePROCESSADO.AsString   := ACBrNFe1.WebServices.Retorno.xMotivo;
               CdsTabLogNFeUSUARIO.AsString      := CdsUsuUSUARIO.AsString;
               CdsTabLogNFeXMLARQ.Value          := ACBrNFe1.NotasFiscais.Items[0].XML;
               CdsTabLogNFeCNPJ.AsString         := edtEmitCNPJ.Text;
 
               CdsTabLogNFe.Post;
               CdsTabLogNFe.ApplyUpdates(-1);
 

 

sera que houve alguma alteração no componente acbrnfe??

obrigado

paulinho

Link to comment
Share on other sites

  • Membros Pro
  • Solution

por favor

alguem poderia me ajudar. o que eu percebi é que quando tento enviar uma NFe com o mesmo numero onde me retorna duplicidade, mas não me traz os retornos dessas funções:

 
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
               memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
               LoadXML(MemoResp, WBResposta)
meu aplicativo esta todo perdido. alguem sabe si mudou alguma coisa no componente acbrnfe.enviar
 
obrigado
paulinho
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.