Jump to content

dev botao
  • Este tópico foi criado há 2400 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_Transparent-02.png
 

 

Link to comment
Share on other sites

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

The popup will be closed in 10 seconds...