erro Timeout

[AllyRafhiyy E N Nunes]

pessoal estou com um problema, quando ocorre esse erro de timeout 

que vou inutilizar a nfce diz que um numero de faixa ja foi utilizado.

codigo que uso para enviar a NFCe

procedure TUFinaliza_Venda.PreparaNFCE;
var
   vNota:string;
   pCodigo:integer;
Begin
  nfce_autorizada := false;
  fmodulo.LerACBRNFe;
   vAux := uFrente_caixa.codifica('888888',6);

  vSincrono := '1';
  vNumLote := '1';
  Sincrono := true;
  with fmodulo do
  begin
    try
      ACBRNFe1.NotasFiscais.clear;
      ufrente_caixa.Imprime_display('          AGUARDE...  GERANDO NFC-E', CLWHITE, tiLivre);
      //grid.Repaint;
      GerarNota(vAux);
      ufrente_caixa.Imprime_display('          AGUARDE...  ENVIANDO NFC-E', CLWHITE, tiLivre);
      //grid.Repaint;
      ACBRNFe1.Enviar(vNumLote, false, Sincrono);

      if ACBRNFe1.NotasFiscais.Items[0].Confirmada then
      begin
        If ACBRNFe1.WebServices.Enviar.cStat = 100 then
        begin
          cStatus := 100;
          ChaveNFCE := ACBRNFe1.NotasFiscais.Items[0].NFe.infNFe.Id;
          NumeroNFCe := strtoint(vAux);
        end;
      end
      else
      begin
        ufrente_caixa.Imprime_display(ACBRNFe1.WebServices.Enviar.xMotivo, CLWHITE, tiLivre);
      end;

      ufrente_caixa.Imprime_display('          AGUARDE...  GERANDO QRCODE DA NFC-E',
        CLWHITE, tiLivre);
      //grid.Repaint;

      GerarQrCode;
    //  Zint.Barcode.Data := MemoDados.text;  arrumar depois
//      bc := TBitmap.create;
    //  Zint.Barcode.GetBarcode(bc);
//      bc.SaveToFile('C:\Store_Protheus\PDV\xml\qrcode' + copy(ChaveNFCE, 4, 47)
//        + '.bmp');
//      FreeAndNil(bc);

       ACBrNFe1.DANFE:=DanfeFast;
       DanfeFast.FastFile := 'C:\AthenasPDV\DANFE\DanfeNFCe3_50.fr3';
       DanfeFast.Logo     := edtLogoMarca;
       //ACBrNFeDANFCeFortes1.vTroco:=ed_troco.value;
       //ACBRDANFENFCe.vTroco := ed_troco.value;
       ACBRNFe1.NotasFiscais.Imprimir;
       ACBRNFe1.NotasFiscais.clear;

      if cStatus = 100 then
        nfce_autorizada := true
      else
        nfce_autorizada := false;
    except
      on e: exception do
      begin
        application.messagebox(pwidechar('Erro na geração da NFCE' + #13 +
          'Erro: ' + e.Message), 'Erro', mb_ok + MB_ICONERROR);
        nfce_autorizada := false;
        vCodNFCe:=numeroNFCe;
      end;
    end;
  end;
end;

[FSoftware]

No meu caso quando ocorre esse erro de timeout eu deixo a NFC-e como offline 

ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;
ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.dhCont := Now;
ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.xJust  := 'Nota fiscal emitida em contingência';

ACBrNFCe.NotasFiscais.GerarNFe; // Gera novamente o XML
ACBrNFCe.NotasFiscais.Assinar;  // Assina novamente o XML

Gravo ela como offline e imprimo para o cliente. Depois temos um monitor que envia a NFC-e automaticamente..

Tem alguns tópicos aqui no fórum também falando sobre isso!

[AllyRafhiyy E N Nunes]

ta ficando assim quando consulto, na imagem!!

[FSoftware]

Aqui 

 

[FSoftware]

Vi que no seu código tem um GerarQrCode.. Mas o ACBr já inclui o QrCode no XML..

Verifica se no seu componente está marcado 

ACBrNFCe.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;

Qualquer coisa, post o XML para verificar!

Editado 29 Março, 2018 por FSoftware

[AllyRafhiyy E N Nunes]

nao uso, mais nao! o GerarQRCode!!

[André Ferreira de Moraes]

27 minutos atrás, FSoftware disse:

No meu caso quando ocorre esse erro de timeout eu deixo a NFC-e como offline 

ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;
ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.dhCont := Now;
ACBrNFCe.NotasFiscais.Items[0].NFe.Ide.xJust  := 'Nota fiscal emitida em contingência';

ACBrNFCe.NotasFiscais.GerarNFe; // Gera novamente o XML
ACBrNFCe.NotasFiscais.Assinar;  // Assina novamente o XML

Gravo ela como offline e imprimo para o cliente. Depois temos um monitor que envia a NFC-e automaticamente..

Tem alguns tópicos aqui no fórum também falando sobre isso!

Vc deve mudar o número da nota antes de trocar para offline.