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