Jump to content

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

Recommended Posts

// como faco pra colocar em contigencia alguem por favor pode ajudar ;;;

try
      ACBRNFCe.NotasFiscais.clear;
      Imprime_display('          AGUARDE...  GERANDO NFC-E', CLWHITE, tiLivre);
      grid.Repaint;
      GerarNFCe(vAux);
      Imprime_display('          AGUARDE...  ENVIANDO NFC-E', CLWHITE, tiLivre);
      grid.Repaint;

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

      Imprime_display('          AGUARDE...  GERANDO QRCODE DA NFC-E',
        CLWHITE, tiLivre);
      grid.Repaint;
      //GerarQrCode;
      ACBRNFCe.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
      Zint.Barcode.Data := MemoDados.text;
      bc := TBitmap.create;
      Zint.Barcode.GetBarcode(bc);
      bc.SaveToFile('C:\Sac\PDV\xml\qrcode' + copy(ChaveNFCE, 4, 47)
        + '.bmp');
      FreeAndNil(bc);
     // ACBRDANFENFCe.FastFile := 'C:\Sac\PDV\Schemas\DANFeNFCe.fr3';
      if FileExists(frmPrincipal.LerINi(sConfiguracoes, 'PDV',
        'CAMINHO_LOGO', '')) then
        ACBRDANFENFCe.Logo := frmPrincipal.LerINi(sConfiguracoes, 'PDV',
          'CAMINHO_LOGO', '');
      ACBRDANFENFCe.Detalhado := true;
      ACBRDANFENFCe.vTroco := ed_troco.value;
      ACBRNFCe.NotasFiscais.Imprimir;

      ACBRNFCe.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;
      end;

 

Link to comment
Share on other sites

  • Moderadores

boa noite

você já não fez a pergunta aqui:

convido a ler as regras do fórum!

também anexe trechos de códigos e não cole no post fica grande inlegível pra ajudar

Mais uma dica no fonte do ACBrMonitorPLUS tem o tratamento para emissão offline basta abrir os *.pas e rever o código.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2261 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.