Consulta Com Xml

[Marcos Gerene]

Boa tarde a todos,

 

Estou a algum tempo tendo uma certa dificuldade sobre a consulta da NFe com XML pelo

componente. Em alguns clientes (em torno de uns 4 ou 5) a nota está transmitida, consulto

ela pelo site da Fazenda e está ok, porém quando consulto a NF-e pelo sistema

a mesma está marcada apenas com a assinatura, sem transmissão.

 

Baixei o XML transmitido do site do Sefaz, e coloquei para consultar pelo sistema (mesmo

já estando com a tag de transmitido) e para minha surpresa a NF-e voltou para o sistema

como não transmitido (apenas assinado como disse acima).

 

Meu fonte do ACBr está atualizado e o Schemas do meu cliente também, o código

da consulta segue abaixo (em Delphi):

procedure TFrmNFE.BitBtn5Click(Sender: TObject);
begin
ACBrNFe1.NotasFiscais.Clear;
If FileExists(Diretorio+'nfe\xml\'+Protocolo) Then
   ACBrNFe1.NotasFiscais.LoadFromFile(Diretorio+'nfe\xml\'+Protocolo)
Else
   begin
   protocolo := VerificaProtocolo(BitBtn5);
   ACBRNFe1.NotasFiscais.LoadFromFile(Diretorio+'nfe\xml\'+protocolo);
   End;
ACBrNFe1.Consultar;
Memo1.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS);
LoadXML(Memo1, WebBrowser1);

if Assigned(FrmVendas) Then
   Begin
   With QryProtocolo, SQL Do
      Begin
      ParamByName('PROTOCOLO').AsString := ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe';
      ParamByName('VDA_CODIGO').AsInteger := StrToInt(FrmVendas.VDA_CODIGO.Text);
      ExecSQL;
      End;
   protocolo := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44)+'-nfe';
   End
Else
   begin
   ShowMessage('Protocolo: '+ACBrNFe1.WebServices.Consulta.Protocolo+#13+
               'Motivo: '+ACBrNFe1.WebServices.Consulta.XMotivo);
   if Application.MessageBox('Deseja visualizar a nota?', 'Confirmação', Mb_IconQuestion+MB_YESNO+MB_DEFBUTTON1)= mrYes Then
      ACBrNFe1.NotasFiscais.Items[0].Imprimir;
   end;
end;

O sistema não me retorna nenhum erro, mas após algumas consultas seguidas (meu cliente 

tentou consultar diversas vezes) ele me retorna consumo indevido (devido ao excesso de

tentativas).

 

Alguém tem uma dica sobre isso?

Editado 5 Dezembro, 2013 por Marcos Spirito