contigencia ajuda

[joveci guedes de almeida]

// 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;

 

[Juliomar Marchetti]

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.