Consultar Nfe

[Command Perfect]

Preciso consultar uma NF e retornar qual é o seu status (cstat).

Qual é a melhor e mais confiável forma de consultar uma NF?

Qual é a diferença entre as opções?

se utilizar "ACBrNFe1.WebServices.Retorno.Executar" preciso cosultar depois?

 

Pelo que eu vi tem 3 opções.

 

Chave de acesso, NR. do recibo e pelo XML.

 

Chave

ACBrNFe1.WebServices.Consulta.NFeChave := vChave;

ACBrNFe1.WebServices.Consulta.Executar;

 

 

Nr. Recibo

ACBrNFe1.WebServices.Recibo.Recibo := vRecibo;

ACBrNFe1.WebServices.Recibo.Executar;

 

ou

 

ACBrNFe1.WebServices.Retorno.Recibo := vRecibo;

ACBrNFe1.WebServices.Retorno.Executar;

Aqui

 

Pelo xml

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(vXML);

ACBrNFe1.Consultar;

 

 

Obrigado.

[Italo Giurizzato Junior]

Boa tarde,

 

Vamos as diferenças:

 

Consultar pelo numero do recibo, obtemos como resposta se o lote foi ou não processado, se sim, obtemos o Protocolo de autorização.

 

Consultar pelo XML, há necessidade de se ter o XML, caso você não tenha não tem como utilização, se tem será retornado a situação atual da NF-e, se esta autorizada ou cancelada bem como os eventos vinculado a mesma caso existam.

 

Consultar pela chave, o retorno é o mesmo da consulta pelo XML, a diferença que não há necessidade de se ter o XML.

 

Após a consulta pelo XML ou pela chave é possível ler a propriedade cStat para obter o status da mesma da seguinte forma:

 

Status := ACBrNFe1.WebServices.Consulta.cStat;

 

Espero ter ajudado.

[HELIO DA SILVA RODRIGUES]

Ola Italo. Segue meu codigo:

 

ACBrCTe1.WebServices.Recibo.Recibo := edRecibo.Text;

ACBrCTe1.WebServices.Recibo.Executar;
 

edChave.text :=  ACBrCTe1.WebServices.Consulta.CTeChave;

Porém, o CTeChave esta vazio. Acontece uma situação que não tenho mais a chave do cte, como faço para recuperar ? Se puder me ajudar ficarei muito grato.

Grato

[Italo Giurizzato Junior]

Boa tarde Helio,

 

Se você esta executando:

 

ACBrCTe1.WebServices.Recibo.Executar;

 

como você quer obter a chave do CTe através da linha?

 

edChave.text :=  ACBrCTe1.WebServices.Consulta.CTeChave;