Como Pegar Todos Os Retorno Xml

[murilo cosme da silva]

Bom dia,

 

Mais uma vez sei que muito tópicos são repetitivos, mais não identifiquei como pegar

todos os retornos assim que executo a função enviar ``ACBrNFe1.Enviar``

 

dentro desta funcao tem varias mensagens lote, lote recebido, e lote processado, 

existe uma path para salvar automaticamente esta mensagem mais não entendi

como pegar em tempo real para salvar algumas mensagem no banco de dados,

entendo que não posso mexer dentro do código do componente já que se houver 

alguma alteração no fonte vou perder este código, pelo menos é o que eu acredito,

alguém tem uma dica ou se este postagem já exista manda um link para que eu possa

entender, já fiz algumas busca mais nada do tipo que estou precisando.

 

Agradeço desde já.

 

[murilo cosme da silva]

Retorno a este tópico solicitando se alguém tem como me ajudar a pegar este retorno.

[murilo cosme da silva]

Bom dia,

 

dentro da função enviar acontece vários procedimento que estão dentro da unit acbr, o que estou

com duvida para entender é o que não posso mexer neste código, mais como pegar o retorno do que esta acontecendo

para pegar os status e atualizar o meu banco. 

[André Ferreira de Moraes]

Vc viu o demo?

  ACBrNFe1.Enviar(vNumLote,True);

  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('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);
// MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno;

{ ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].tpAmb
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].verAplic
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat
 ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo }

[murilo cosme da silva]

fica dando este erro não chega a gravar no memo

 

erro: requisicao nao enviada 403 forbidden.

[Italo Giurizzato Junior]

Boa noite Murilo,

 

Esse erro: 403 forbidden ocorre quando o certificado esta vencido.

[murilo cosme da silva]

 Bom dia,

 

o certificado e valido até 16/08/2015.

[renatojosecampos]

Bom dia !

 

Quando ocorre o erro 403 sempre verifico as seguintes questões.

 

0) Verifique a empresa esta credenciada para emissão de NF-e. (Homologação e produção).

1) Verifique a validade do certificado

2) Desative ou remova o anti-virus. e FIREWALL

3) Desative o Firewall do WINDOWS.

4) Resete as configurações do internet explorer ( Opções > Avançado >Restaurar configurações avançadas ).

Editado 21 Novembro, 2014 por renatojosecampos

[murilo cosme da silva]

já esta habilitado.

certificado ok.

firewall e anti-vírus desativado

já restaurei as configurações como solicitado.

[renatojosecampos]

Verifique também a data e hora do computador. (Não se esquece de configurar a hora de acordo com o estado(UF) do servidor da nf-e)

[murilo cosme da silva]

Já esta ok também a hora.

Alguma outra sugestão?

[murilo cosme da silva]

Boa tarde,

 

olha antes eu estava conseguindo só que deu um erro na minha maquina e atualizei a pasta ACBr,

sera que tem alguma coisa a ver.

[murilo cosme da silva]

[André Ferreira de Moraes]

Acho que vc não testou todos os campos que estão no demo comentados.

ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

[murilo cosme da silva]

Desculpa amigo não consigo identificar no exemplo este procedimento, se for dentro da função enviar tudo que esta lá pertence a unit acbr posso alterar lá porque quando for atualizado o componete entendo que vai alterar a unit novamente.

 

Desculpe mais uma vez minha ignorância pois estou meio perdido, nesta parte de envio e retorno.

[André Ferreira de Moraes]

Desculpa amigo não consigo identificar no exemplo este procedimento, se for dentro da função enviar tudo que esta lá pertence a unit acbr posso alterar lá porque quando for atualizado o componete entendo que vai alterar a unit novamente.

 

Desculpe mais uma vez minha ignorância pois estou meio perdido, nesta parte de envio e retorno.

O demo é um exemplo de como utilizar o componente ACBrNFe, vc deve implementar no seu programa o componente. Se você copiar o demo e fizer qualquer alteração nele, logicamente qdo vc atualizar, poderá ter conflitos com suas alterações.

[murilo cosme da silva]

Ok, entendi que o demo e um exemplo de como utilizar o componente o que eu não estou entendendo onde esta parte

de código no demo:

 

ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

[André Ferreira de Moraes]

Ok, entendi que o demo e um exemplo de como utilizar o componente o que eu não estou entendendo onde esta parte

de código no demo:

 

ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

Não tem....

No demo tem todas as linhas abaixo comentadas

{ ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].tpAmb
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].verAplic
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo }

Apenas coloquei um exemplo de como você poderia exibir a mensagem.

[murilo cosme da silva]

 É que guando da erro no enviar tudo em vermelho abaixo ele não faz.

 

  ACBrNFe1.Enviar(tbl_vNFe.FieldByName('NFE_B_NNF').AsInteger,True);

 

  rtfNFe.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

  memo_RespWs.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);

  LoadXML(rtfNFe, WBResposta);

 

  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);

 

  ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

 

  ACBrNFe1.NotasFiscais.Clear;

[André Ferreira de Moraes]

Ae vc precisa usar um try ... finally ou um try ... except

[Buruthagas Oliveira]

Boa tarde,

 

Estamos com um problema interno na função de envio que funciona em uma maquina porém em outra não. Mas não conseguimos ter acesso a mensagem de erro.

 

Como fazemos para ter acesso ao erro do evento enviar da nota fiscal eletrônica ?

[Juliomar Marchetti]

Debugar!

você tem os fontes do componente, agora é só debugar ele!

[Edy]

Em 24/11/2014 at 15:01, André Ferreira de Moraes disse:

 

Não tem....

 

No demo tem todas as linhas abaixo comentadas

 

 

{ ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].tpAmb
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].verAplic
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat
ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo }

Apenas coloquei um exemplo de como você poderia exibir a mensagem.

Meu caro colega, aonde você coloca esses retornos, porque coloco após o enviar, conforme abaixo e ele sempre me dá um erro, que é: List index out of bounds, como se não existisse nenhum item.

  ACBrNFe1.NotasFiscais.Assinar;
  ACBrNFe1.NotasFiscais.Validar;
  ACBrNFe1.WebServices.Envia('1', true);
ShowMessage(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo);

[Edy]

OK já encontrei a resposta. Pra outros que possam passar pelo mesmo problema... se informar modo SINCRONO=TRUE não se recebe esses retorno.

[FABRICIO DOS SANTOS BRITO]

Bom dia a todos do Grupo. 

1 - Gostaria de saber qual das duas formas tenho que aplicar para receber o cstat? Depois que a Nfe foi autorizada.

    a -   ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat; 
    b -   ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat; 

 

2 - Qual o cstat de retorno depois que a NFe foi aprovada  100 ou 104 ?

 

3 - Qual dos dois métodos estão corretos?depois da Nfe autorizada.

a -  ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].XMLprotNFe; 
b -  ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.XML_NFe;

 

Editado 15 Maio, 2018 por FABRICIO DOS SANTOS BRITO