Jump to content

dev botao
  • Este tópico foi criado há 2392 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

WhatsApp Image 2018-03-28 at 17.06.18.jpeg

Link to comment
Share on other sites

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!

Link to comment
Share on other sites

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!

Edited by FSoftware
Link to comment
Share on other sites

  • Moderadores
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.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.xpos.com.br
Link to comment
Share on other sites

  • Este tópico foi criado há 2392 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.