Pesquisar na Comunidade

Boa tarde pessoal. Estou tentando implementar a impressão de PDF GNRe em meu sistema: public override async Task<FileResponse> GerarPdfAsync(Guid id) { try { var gnre = await _gnreService.GetByIdAsync(id.ToString()); if (gnre == null) throw new Exception("GNRE não encontrado para o ID informado."); //await ConfigurarComponente(gnre.EmpresaId!.Value, gnre.ContaId!.Value, false); //Config Geral DfeLib.Config.ExibirErroSchema = true;// ckbExibirErroSchema.Checked; DfeLib.Config.FormatoAlerta = "TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%."; DfeLib.Config.FormaEmissao = TipoEmissao.teNormal; DfeLib.Config.VersaoDF = VersaoGNRe.ve100; DfeLib.Config.RetirarAcentos = true; DfeLib.Config.SalvarWS = true; DfeLib.Config.PathSalvar = ""; DfeLib.Config.PathSchemas = ""; //Config Webservice DfeLib.Config.DFe.UF = ""; DfeLib.Config.SSLType = SSLType.LT_TLSv1_2; DfeLib.Config.Timeout = 5000; DfeLib.Config.Ambiente = TipoAmbiente.taHomologacao; DfeLib.Config.Visualizar = true; DfeLib.Config.SalvarWS = false; DfeLib.Config.AjustaAguardaConsultaRet = true; DfeLib.Config.AguardarConsultaRet = 0; DfeLib.Config.Tentativas = 0; DfeLib.Config.IntervaloTentativas = 0; DfeLib.Config.Proxy.Servidor = ""; DfeLib.Config.Proxy.Porta = ""; DfeLib.Config.Proxy.Usuario = ""; DfeLib.Config.Proxy.Senha = ""; //Config Certificado DfeLib.Config.DFe.SSLCryptLib = SSLCryptLib.cryNone; DfeLib.Config.DFe.SSLHttpLib = SSLHttpLib.httpNone; DfeLib.Config.DFe.SSLXmlSignLib = SSLXmlSignLib.xsNone; DfeLib.Config.DFe.ArquivoPFX = ""; DfeLib.Config.DFe.Senha = ""; DfeLib.Config.DFe.NumeroSerie = ""; //Config Arquivos DfeLib.Config.SalvarGer = true; DfeLib.Config.SepararPorMes = false; DfeLib.Config.AdicionarLiteral = false; DfeLib.Config.EmissaoPathGNRe = false; DfeLib.Config.SepararPorCNPJ = false; DfeLib.Config.SepararPorModelo = false; DfeLib.Config.PathGNRe = ""; //Config Email DfeLib.Config.Email.Nome = ""; DfeLib.Config.Email.Conta = ""; DfeLib.Config.Email.Usuario = ""; DfeLib.Config.Email.Senha = ""; DfeLib.Config.Email.Servidor = ""; DfeLib.Config.Email.Porta = ""; DfeLib.Config.Email.SSL = false; DfeLib.Config.Email.TLS = false; DfeLib.ConfigGravar(); var path = Path.GetTempPath(); var ini = gnre.ToString(); DfeLib.Config.Guia.PathPDF = path; DfeLib.LimparListaGuiaRetorno(); DfeLib.CarregarINI(ini); var xml = DfeLib.ObterXml(0); //DfeLib.CarregarXML(xml); DfeLib.CarregarGuiaRetorno(xml); //DfeLib.LimparLista(); DfeLib.ImprimirPDF(); var arquivoPdf = Directory .GetFiles(path, "*.pdf") .OrderByDescending(File.GetCreationTime) .FirstOrDefault(); if (arquivoPdf == null) throw new FileNotFoundException("Nenhum arquivo PDF foi gerado pela ACBrLib."); var nomeArquivo = Path.GetFileName(arquivoPdf); var fileStream = new FileStream(arquivoPdf, FileMode.Open, FileAccess.Read, FileShare.Read); return new FileResponse(MIME.PDF, nomeArquivo, path, fileStream); } catch (Exception ex) { throw new Exception("Erro ao gerar PDF GNRE", ex); } } Algumas observações: Não estou com o certificado cadastrado. Já estou com uma impressora configurada como padrão no meu computador. Coloquei algumas configurações (inicio do metodo) na tentativa de sanar o erro. Logo após, quando ele chega no método DfeLib.ImprimirPDF(); imprime o seguinte erro: RLGNRe: Erro durante a preparação do relatório EAccessViolation(Access violation). E o PDF gerado está corrompido.

Olá pessoal! Estava gerando CTes de duas maquinas, com um sistema com as mesmas configurações, em questão de arquivos e caminho de banco de dados( 2 terminais pra um mesmo servidor), ambos emitem o CTe sem problemas, da "Autorizado pela sefaz", porem na hora de imprimir, 1 deles(Vou definir como PC1) gera o DACTE correto, com o novo padrão com QRCode, mas a outra(PC2) gera sem o QRCode, mesmo com o xml contendo a tag, tentei trocar pasta schemas, até copiei a pasta completa do sistema do PC1 para o PC2, porem ainda o layout de impressão continuou diferente. Alguem ja passou por algo parecido ou saiba o que possa estar acontecendo?

Olá, estou com o seguinte problema com a impressão do PDF do evento de cancelamento : "ImprimirPDF não implementado em: TACBrNFeDANFCeFortes". Segue abaixo o fragmento do código com o qual estou tentando gerar o PDF de concacelamento... DM1.ACBrNFeDANFeRL.MostrarPreview := True; DM1.ACBrNFe.NotasFiscais.Clear; DM1.ACBrNFe.NotasFiscais.LoadFromFile(vCaminhoXML); DM1.ACBrNFe.EventoNFe.Evento.Clear; DM1.ACBrNFe.EventoNFe.LerXML(vCaminhoXMLCancel); if not FileExists(DM1.ACBrNFe.DANFE.PathPDF) then forcedirectories(DM1.ACBrNFe.DANFE.PathPDF); DM1.ACBrNFe.ImprimirEventoPDF; Gente, devo dizer que sou iniciante trabalhando com ACBr, então qualquer amadorismo peço desculpas. Alguém poderia me ajudar com este problema ?

Bom dia, deixo claro que provavelmente o erro foi causado por um erro MEU e não do componente. Contextualizando: em um certo dia, tive que atualizar o FortesReportCE, baixei os arquivos novos do Git e instalei sem antes remover o componente do Delphi. Antes de abrir o Delphi, fui ao ACBr, removi os arquivos, atualizei e instalei (fiz este processo pois sei que o ACBr utiliza o FortesReport e gostaria que estive tudo ok). Ao abrir o Delphi, apareceu a MSG de uma BPL não tinha sido encontrada e se eu gostaria de carregar na próxima abertura do sistema. Marquei não e tudo continuou "normal". (MSG: alguma coisa com o final you want to attempt to load this package the next time a project is loaded) Só fui perceber a falha qnd um cliente notou o mal funcionamento, a função da função ImprimirPDF (ACBrNFe1.NotasFiscais.Items.ImprimirPDF;) não imprime o arquivo PDF. Sei que deve ser pq marquei não na msg anterior, pois removi tds componentes ACBr e FortesReport, até no Packages do Delphi, reinstalei tudo e o problema continua. Como solucionar? ou pelo menos, como fazer o Delphi forçar o carregamento da BPL que marquei como NÃO? (pois assim pelo menos saberei o que desmarquei)

Quando uso o ACBrNFSe.NotasFiscais.Imprimir q aparece o PREVIEW, o DANFE mostra tudo alinhado perfeitamente Quando uso o ACBrNFSe.NotasFiscais.ImprimirPDF ele gera boa parte desalinhado (anexo uma imagem mostrando melhor). Tanto Delphi quanto Lazarus utiliznado FortesReport. Isso é problema no FortesReport? Minha maquina?

Bom dia, Eu utilizo uma procedure para facilitar para o cliente salvar o xml + o pdf onde ele desejar. Após a atualização que realizei na semana passada, o comportamento mudou. já tentei setar nas <ACBr.NFe>.configuracoes.arquivos, todas as propertys como false e limpar os path, mas não consegui; Quando eu não emiti nenhuma nota pelo sistema, a impressão do pdf é no caminho que eu defini <ACBr.NFe>.DANFE.PathPDF, mas após emitir qualquer NFe, ele cria no <ACBr.NFe>.DANFE.PathPDF a estrutura CNPJ + NFe+ chavexml-nfe.xml. procedure salvaDocumentoFiscal(xXML : string); var diretorioSelecionado : string; begin if SelectDirectory('Selecione a Pasta de Destino:', 'C:\', diretorioSelecionado, [sdNewUI, sdNewFolder]) then begin diretorioSelecionado := diretorioSelecionado; end; with NFE.Configuracoes.Arquivos do begin PathNFe := ''; PathSalvar := ''; Salvar := False; SepararPorMes := False; SepararPorDia := False; SepararPorAno := False; SepararPorCNPJ := False; SepararPorModelo := False; AdicionarLiteral := False; EmissaoPathNFe := False; SalvarEvento := False; end; NFE.NotasFiscais.Clear; NFE.NotasFiscais.LoadFromString(xXML); NFE.DANFE.PathPDF := diretorioSelecionado; NFE.NotasFiscais.ImprimirPDF; NFE.NotasFiscais.GravarXML(diretorioSelecionado+'\'+OnlyNumber(NFE.NotasFiscais.Items[0].NFe.infNFe.ID)+'-nfe.xml'); end; No envio utilizo a seguinte configuração:: SepararPorMes := True; AdicionarLiteral := True; EmissaoPathNFe := True; SalvarEvento := True; SepararPorCNPJ := True; SepararPorModelo := False; Como eu faço para resolver essa questão, preciso salvar tanto o xml como o pdf no diretório informado c:\Temp\PDF\, na procedure as informações / configurações do componente não deveriam ser re-escrita? antes de emitir nfe e executar a procedure c:\Temp\PDF\12345678901234567890123456789012345678901234-nfe.pdf c:\Temp\PDF\12345678901234567890123456789012345678901234-nfe.xml após emitir nfe e executar a procedure c:\Temp\PDF\12123123123412\NFe\12345678901234567890123456789012345678901234-nfe.pdf c:\Temp\PDF\12345678901234567890123456789012345678901234-nfe.xml Delphi Seattle + ACBr 13653 (25/07/2017).

Ja existe outro tópico parecido mas como o meu PDF ficou um pouco diferente e não consegui encontrar uma solução em nenhum outro tópico estou criando este. o PDF esta cortando caracteres, ja atualizei o svn, reinstalei o acbr, tudo e mais um pouco e continua o problema, segue arquivo anexo. Por favor me ajudem, agradeço desde ja a atenção e peço desculpa por criar um novo tópico de assunto parecido. 41160284948694000183550010000000731000000736-nfe.pdf