Ola pessoal tudo bem? Pessoal tem um cliente meu, que transmiti notas em lote, Exemplo 30 notas num lote e destas 30, 1 retorna o protocolo em branco.
Assim que eu transmito a nota, faço o seguinte comando para ter o retorno do protocolo:
try
protocolo:=ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtDFe.Items[posicao].nProt;
if Protocolo = '' then
protocolo:=ACBrNFe1.NotasFiscais.Items[posicao].NFe.procNFe.nProt;
except
protocolo:='';
end;
E o grande BO que o cliente consulta essa nota no site da sefaz e la mostra o numero do protocolo. Porem no sistema diz que não tem.
Ai toda vez que vai imprimir o Danfe eu verifico o numero do protocolo, caso não tiver, eu consulto la na sefaz, pela chave de acesso da seguinte forma:
ACBrNFe1.WebServices.Consulta.NFeChave := ChaveAcesso;
ACBrNFe1.WebServices.Consulta.Executar;
protocolo:=ACBrNFe1.WebServices.Consulta.Protocolo;
if protocolo = '' then
protocolo:=ACBrNFe1.WebServices.Consulta.protNFe.nProt;
Ai o Cliente reclama demora uns 25 minutos para liberar, quando acontece isso.
Existe alguma outra forma de ter esse numero do protocolo, já que na sefaz esse protocolo existe?