Gustavo de Souza

Boa noite! Obrigado

Boa tarde! Alguém pode me informar onde consigo baixar a tabela CEST atual.

Boa tarde! Alguém pode me ajudar nesse problema? quando finalizo a emissão do cupom a impressão está como fortes, mas não chega a visualizar o relatório, fica somente preparando o relatório.

Obrigado pela resposta!

Boa noite! Gostaria de saber se existe uma forma de saber se a impressora está online ou offline antes de usar o comando, "ACBrPosPrinter1.Ativar". Desde já agradeço a atenção.

Boa tarde! Peço encarecidamente descupas o código está correto, estava pegando a xml de outra tabela. Minhas sinceras descupas.

Boa tarde! Estou tentando fazer o cancelamento da NFC-e e está dando um erro (UF em branco), alguém sabe me dizer onde estou errando? Segue o código abaixo. Obs: o arquivo vem de um campo BLOB do BD. Desde já agradeço a atenção procedure TfrmMonitor.CancelaVenda; var idLote : string; begin if frmPrincipal.dfe = 'NFCE' then begin with frmPrincipal do begin with DmPrincipal.qryNFCe do begin Close; SQL.Clear; SQL.Add('SELECT * FROM NFCE '); SQL.Add('WHERE VENDA = :VND'); ParamByName('VND').Value:=codVenda; Open; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(FieldByName('XML_ENV').AsString); idLote :='1'; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := StrToInt(idLote); with ACBrNFe1.EventoNFe.Evento.New do begin infEvento.dhEvento :=now; infEvento.tpEvento :=teCancelamento; infEvento.detEvento.xJust :=motivo; end; ACBrNFe1.EnviarEvento(StrToInt(idLote)); if rbEscPos.Checked then ACBrNFe1.DANFE :=AcbrNfeDANFCeESCPOS1 else ACBrNFe1.DANFE :=ACBrNFeDANFCeFortes1; ACBrNFe1.NotasFiscais.Imprimir; end; with frmPrincipal.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento do begin Stat :=Items[0].RetInfEvento.cStat; motivo :=Items[0].RetInfEvento.xMotivo; saidaNFCe :=Items[0].RetInfEvento.dhRegEvento; protocolo :=Items[0].RetInfEvento.nProt; dataNFCe :=EncodeDate(YearOf(saidaNFCe),MonthOf(saidaNFCe),DayOf(saidaNFCe)); with DmPrincipal.qryNFCe do begin Edit; FieldByName('DATA_CAN').AsDateTime :=dataNFCe; FieldByName('PROC_CAN').AsString :=protocolo; FieldByName('MOTIVO').AsString :=motivo; FieldByName('XML_CAN').AsString :=Items[0].RetInfEvento.XML; Post; ApplyUpdates(0); Close; end; end; end; end; end;

Boa tarde! Debugando ou não, esse erro está dando com o certificado A1, eu desinstalei o certificado digital e instalei novamente usando a opção "Marcar esta chave como exportavel" compilei o projeto deu certo tanto Debug como Release. Obrigado pela atenção.

Boa tarde! quando faço o envio de NF-e ou NFC-e aparece o erro exception : cryptExportKey - len. tanto em debug quanto em realese Alguem poderia me ajudar nesse excessão que o Delphi mostra? Segue imagens das configurações e da mensagem. Desde já agradeço a atenção.

Tá atualizado, tanto o ACBR como o Fortes Report

Sim está atualizado

Bom dia! Está sim no demo do acbr SAT também está acontecendo este mesmo problema. Tem alguma solução pra isso?

Boa tarde! Alguem poderia me ajudar? quando meu cliente vai salvar o cupom em PDF para enviar por email não aparece a opção PDF. aparece as opções: Padrão ACBRBoleto - http://acbr.sf.net ACBRBoleto - http://acbr.sf.net sei que uma é pra HTML e outra e pra PDF, mas o cliente não sabe e confunde a cabeça, tem como alterar a descrição para PDF e HTML? Desde já agradeço a ateção de todos.

Bom dia! vou testar com outros tipos de codigos pra ve se gera, obrigado.

Boa tarde! Estou meio enrolado com o Acbr etq, gostaaria de alguem possa me ajudar. os produtos são cadastrados e depois o sistema gera automáticamente o código de barras, isso ta fazendo bonitinho, problema é que ele muda sempre o ultimo digito gerado tipo o codigo é 78901010, mas quando vai imprimir o código sempre muda o ultimo caractere, tipo o '0' substitui por utro valor numerico, segue um anexo do meu codigo. CodBar é uma variavel do codigo gerado antes de imprimir. AtivarACBrETQ; with acbrtqEtq1 do begin ImprimirTexto(orNormal, 1, 1, 2, 1, 5,proRef + ' ' + preco); ImprimirBarras(orNormal, barEAN8, 2, 2, 4, 2, CodBar, 8); ImprimirTexto(orNormal, 1, 1, 2, 1, 35, proRef + ' ' + preco); ImprimirBarras(orNormal, barEAN8, 2, 2, 4, 32, CodBar, 8); ImprimirTexto(orNormal, 1, 1, 2, 1, 65, proRef + ' ' + preco); ImprimirBarras(orNormal, barEAN8, 2, 2, 4, 62, CodBar, 8); FinalizarEtiqueta; ImprimirEtiquetaComCopiasEAvanco; Desativar; preco :=''; CodBar :=''; end; Por favor se alguém puder me ajudar, nesse probleminha