Jump to content

Search the Community

Showing results for tags 'fastreport'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrMonitor PLUS
    • ACBrDFe
    • ACBrTEFD e Dúvidas sobre TEF
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
    • Dia do ACBr
  • Suporte Pago - SAC
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • ACBrLib - SAC
    • Dia do ACBr 1a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • ACBrLIB
    • Apresentações - Palestras

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • Feriados Nacionais

Blogs

  • Daniel Simoes' Blog
  • André Ferreira de Moraes
  • Moderadores ACBr
  • Teste de Blog
  • Notícias do ACBr

Categories

  • Suporte Pago - SAC
    • Webinars
    • Video Aulas
    • Palestras - Dia do ACBr 1a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Palestras - Dia do ACBr 1a Ediçao
  • Campanhas promocionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Skype


Localização


Interesses


CNPJ da Empresa


CPF

Found 126 results

  1. Olá, realizei algumas alterações no layout do DANFCe bobina desenvolvido em Fast. Renomeei o arquivo para "DANFeNFCe5_00.fr3", o adaptando conforme o Manual de Padrões versão 5.0, o último liberado pelo Encat. Foram necessárias algumas alterações na unit ACBrNFeDANFEFRDM.pas também. No seguintes locais: 1) Na geração do valor a pagar, conforme: Antes: FieldByName('ValorApagar').AsFloat := VProd - VDesc - vICMSDeson + VOutro; Agora: FieldByName('ValorApagar').AsFloat := VProd + FNFe.Total.ISSQNtot.vServ; Deixei como já está no modelo EscPos, que imagino ser o mais usado e consequentemente o mais apurado. Não concordo com fazer cálculos na impressão do Danfe, os cálculos já devem ser feitos ao gerar o XML. 2) No preenchimento do nome do cliente: Antes: if EstaVazio(FieldByName('CNPJCPF').AsString) then FieldByName('Consumidor').AsString := ACBrStr('CONSUMIDOR NÃO IDENTIFICADO') else FieldByName('Consumidor').AsString := IfThen(Length(CNPJCPF) = 11, 'CPF: ', 'CNPJ: ') + Trim(FieldByName('CNPJCPF').AsString) + ' ' + trim(FieldByName('XNome').AsString); Agora: if EstaVazio(FieldByName('CNPJCPF').AsString) then FieldByName('Consumidor').AsString := ACBrStr('CONSUMIDOR NÃO IDENTIFICADO') else FieldByName('Consumidor').AsString := IfThen(Length(CNPJCPF) = 11, 'CONSUMIDOR CPF: ', 'CONSUMIDOR CNPJ: ') + Trim(FieldByName('CNPJCPF').AsString) + ' ' + trim(FieldByName('XNome').AsString); Apenas inseri o prefixo "CONSUMIDOR" antes do CPF ou do CNPJ do cliente. 3) Na geração do texto da área de mensagem fiscal: Antes: if (FNFe.Ide.Modelo = 65) then begin FieldByName('DEmi').AsString := FormatDateTimeBr(FNFe.Ide.DEmi); if FNFe.Ide.TpAmb = taHomologacao then FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') else begin if (FNFe.Ide.tpEmis <> teNormal) and EstaVazio(FNFe.procNFe.nProt) then FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA'+LineBreak+'Pendente de autorização') else FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL'); end; . . . . Agora: if (FNFe.Ide.Modelo = 65) then begin FieldByName('DEmi').AsString := FormatDateTimeBr(FNFe.Ide.DEmi); if (FNFe.Ide.tpEmis <> teNormal) and EstaVazio(FNFe.procNFe.nProt) then FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA'+LineBreak+'Pendente de autorização'); if FNFe.Ide.TpAmb = taHomologacao then FieldByName('MensagemFiscal').AsString := FieldByName('MensagemFiscal').AsString+LineBreak+LineBreak+ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL'); if EstaVazio(FieldByName('MensagemFiscal').AsString) then FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL'); . . . . Alterei para que a frase "EMITIDA EM CONTINGÊNCIA Pendente de autorização" seja gerada sempre que a NFCe estiver pendente, independente do ambiente utilizado (produção ou homologação) Se alguém puder validar e encaminhar ao repositório. ACBrNFeDANFEFRDM.pas DANFeNFCe5_00.fr3
  2. Fui implementar o modelo de DANFCe em Fast DANFeNFCe4_20, e obtive o erro abaixo ao tentar visualizá-lo: "Script Error at 22:9: Undeclared identifier: 'Memo25' " Não sei se alguém está utilizando esse layout, mas o erro se deve ao trecho abaixo no fonte desse modelo: A última linha se refere a um componente que não existe, "Memo25". Remvi a linha, fiz algumas impressões e não constatei algum componente que correspondesse (talvez o componente existisse mas apenas o nome estava errado). Enfim, estou anexando o arquivo, se alguém puder dar uma olhada e subir. Grato. DANFeNFCe4_20.fr3
  3. Bom dia a todos, Estou com o seguinte problema: Usando o Fast Report tenho mo Footer dois subreportes. Um em baixo do outro, quando o de cima aumenta ele passa por cima do de baixo. Tem algum método de resolver isso ? Obrigado desde já
  4. Na impressão do boleto usando Fast Report (unit ACBrBoletoFCFR), a logo do banco é carregada sempre pelo diretório de logos, através do método ImprimeLogoMarca. Anexei a unit com as alterações para chamar o método CarregaLogo da TACBrBoletoFCClass no ImprimeLogoMarca, com o objetivo de disparar primeiro o evento OnObterLogo e, se não tratado, daí carregar a imagem do diretório de logos. Olhei os fontes da impressão usando Fortes Report e lá é usado o CarregaLogo. ACBrBoletoFCFR.pas
  5. bom dia, estou tentando imprimir em A4 o danfe da NFCe, com 3 ou mais casas decimais e não está aceitando, ele está fixo 2 casas, nas propriedades qCom e na vUnCom. fiz testes usando os seguintes arquivos: DANFeNFCeA4.fr3 - DANFeNFCe.fr3 - estes estão fixos as 2 casas e - DANFeNFCe4_20.fr3 esta dando erro "Script Error at 22:9: Undeclared identifier: 'Memo25' " grato pela ajuda.
  6. Boa tarde, Estamos com travamento na visualização de várias danfes ao mesmo tempo. Até 10 registros é bem rápido, dai para frente vai ficando extremamente lento, acima de 15 fica travado. Utilizamos o código para impressão: ACBrDanfeObj.MostraStatus := False; ACBrDanfeObj.PreparedReport.PreviewOptions.Buttons := [pbPrint, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick]; // Aqui jo método PreparedReport já é lento . ACBrNFeObj.NotasFiscais.Imprimir; percebemos que a lentidão a partir da 10 NFe ocorre nesse ponto da unit ACBrNFeDANFEFRDM: Tem alguma ideia do que possa ser?
  7. Bom Dia, Estou com o seguinte, problema, na visualização do DANFE saiu tudo belelza, mas quando mando pra impressora só imprimi no formato A4. Estou usando o FastReport.
  8. Boa dia a todos! Gostaria de tirar algumas dúvidas sobre NFCe: Não está pré-visualizando a impressão: Ao executar o método Imprimir de uma NFCe com a propriedade MostraPreview=True está sendo exibido a tela de impressão direto, sem a pré visualização. Troco na impressão e no XML: O valor do troco, quando 0, não está sendo enviado no XML (não sei se este é o procedimento correto). Impressão da NFCe sem troco (FastReport) imprime a palavra Troco duas vezes e com um valor bizarro, na casa dos milhões. O cabeçalho da NFCe está cortando os dados do endereço Segue anexo o pdf de uma NFCe emitida com os detalhes citados. nfce.pdf
  9. Gandalf

    DANFE FastReport

    Bom dia, atualizei os componentes e percebi que foi tornada privada a propriedade dmDanfe. O problema agora é que quando eu tento acessar a propriedade PreparedReport, não consigo, porque ela está nula. Eu vi que já teve um tópico igual aqui, mas o usuário relatou que conseguiu resolver e o tópico foi fechado. Infelizmente ele não postou como conseguiu resolver. Abaixo vai meu código. Minha classe herda da TACBrNFe. var Fixos: TDadosFixos; OK: Boolean; VersaoDF: TpcnVersaoDF; begin inherited; PegouCertificado := False; Fixos := TDadosFixos.Consulta; if (not Fixos.VersaoNFe.HasValue) or (Fixos.VersaoNFe = '3.10') then VersaoDF := ve310 else if Fixos.VersaoNFe = '4.00' then begin VersaoDF := ve400; Configuracoes.Arquivos.PathSchemas := Fixos.EndSchemas + '\Schemas'; end else raise Exception.Create('Versão NFe não definida na classe MeuACBrNFe'); Configuracoes.Geral.Salvar := True; Configuracoes.Geral.VersaoDF := VersaoDF; Configuracoes.Arquivos.Salvar := True; Configuracoes.Certificados.NumeroSerie := Fixos.NSerieCertDigital; Configuracoes.WebServices.UF := Fixos.Cidade.UF; Configuracoes.WebServices.Ambiente := StrToTpAmb(OK, IntToStr(Fixos.TIPONFELETRONICA)); Configuracoes.WebServices.TimeOut := 15000; Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK, IntToStr(Fixos.TIPOEMISSAONFE + 1)); Configuracoes.Geral.RetirarAcentos := True; //Configuracoes.Geral.SSLLib := libCapicom; Configuracoes.Geral.SSLLib := libWinCrypt; Configuracoes.Geral.SSLXmlSignLib := xsMsXML; if Fixos.UsarTSL12 then SSL.SSLType := LT_TLSv1_2; //DownloadNFe.Download.CNPJ := Fixos.CNPJ; MinhaDANFE := TACBrNFeDANFEFR.Create(nil); MinhaDanfe.IncorporarBackgroundPdf := False; // feito para diminuir o tamanho da danfe MinhaDANFE.IncorporarFontesPdf := False; // feito para diminuir o tamanho da danfe //MinhaDANFE. ImprimirUnQtVlComercial := iuComercial; with MinhaDANFE do begin FastFile := Fixos.ArquivoDANFE; FastFileEvento := Fixos.ArquivoDANFE; Sistema := 'GAF - Gerenciador Administrativo Financeiro'; MostraPreview := False; Logo := Fixos.ArquivoLogoDANFE; end; Self.DANFE := MinhaDANFE; if Fixos.MensagemRodapeNFe <> '' then (Self.DANFE as TACBrNFeDANFEFR).PreparedReport.Script.Variables['MensagemRodape'] := Fixos.MensagemRodapeNFe ---> aqui já dá o erro else (Self.DANFE as TACBrNFeDANFEFR).PreparedReport.Script.Variables['MensagemRodape'] := ''; FreeAndNil(Fixos);
  10. Boa tarde a todos! Nosso software em Delphi, efetua a impressão de um recibo através do Fast Report em impressoras térmicas (Epson T20, Bematech MP 4200, CIS, etc...). Porém está ocorrendo alguns casos, onde o documento fica preso no Spool dessas impressoras e consequentemente não é impresso mais os recibos. Ao desligar e ligar a impressora geralmente ela volta a imprimir, ou as vezes, temos que remover o cabo USB e conectar novamente, ou reiniciar o micro. Porém isso ocorre somente quando o sistema faz essa impressão em Fast Report. Alguém já passou por isso? Tem alguma alguma dica? Obrigado.
  11. Bom dia. Eu atualizei o meu fastReport para a versão 6.0 e a partir de então começou a dar erros no acbrBoleto na units correspondente ao fastReport; (ACBr_BoletoFR) Estou a instalar novamente o ACBr porém está dando o seguinte erro: Packages 'frxe25' and 'frx25' both contain unit 'frxNetUtils' Tudo que esteja relacionado com o fastReport dá erro: ACBr_NFeDanfeFR.dpk(94) Error: E2199 Packages 'frxe25' and 'frx25' both contain unit 'frxNetUtils' ACBr_NFeDanfeFR.dpk(94) Fatal: F2220 Could not compile package 'frxe25' Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Alguém pode me ajudar?
  12. Segue correção para carregar o logotipo do DACTe em FastReport a partir de um Stream. DACTE_Ve300.fr3 DACTE.fr3 DACTE_OS.fr3
  13. Amigos, boa noite. Esta acontecendo um problema no Fastreport utilizando os textos. Coloco um componente de texto alinhamento certinho no relatório, com outro dado vindo da tabela. Na tela esta ok, quando rodo o relatório, o texto fica abaixo do colocado no relatório, desalinhando tudo. Alguem pode me ajudar? Já estou a 2 dias nisto sem solução.Abaixo o exemplo como fica.
  14. Bom dia, sempre gosto de pesquisar bem antes de publicar qualquer dúvida, já procurei em vários fóruns e nada até o momento então peço que me auxiliem por favor... [Descrição do erro] Application Error Error reading frxReport.OnProgressStart: Invalid property value. [Suposição] Acredito que o problema deve estar no meu componente ACBrBoletoFCFR ou ACBrBoleto pois são únicos que iniciam com meu Data Módulo, não permitindo que o sistema funcione... se eu remover esse DM do auto create consigo iniciar normalmente.. [Meu erro] Fiquei um certo período sem atualizar o ACBr, alguns meses, e agora após atualizar o SVN e remover e recompilar o Trunk2 novamente me deparei com esse problema, creio que outros estão por vir rsrs.
  15. Efetuei uma pequena correção nas quebras de linhas dos Dados Adicionais na Danfe do FastReport. Ao concatenar as informações dos campos infAdFisco e infCpl não estava quebrando a linha. Método alterado: Function TACBrNFeFRClass.ManterInfAdi( swObs : String ) : String; var i : Integer; TmpStr, TmpInfoFisco : String; begin result := swObs; TmpStr := ''; TmpInfoFisco := ''; with FNFe.InfAdic do begin for i := 0 to ObsFisco.Count - 1 do begin with ObsFisco.Items do TmpStr := TmpStr + XCampo + ': ' + XTexto + ';'; end; //Fisco if Length(InfAdFisco) = 0 then TmpInfoFisco := '' else TmpInfoFisco := InfAdFisco + ';'; result := result + TmpStr + TmpInfoFisco; TmpStr := ''; for i := 0 to ObsCont.Count - 1 do begin with ObsCont.Items do TmpStr := TmpStr + XCampo + ': ' + XTexto + ';'; end; //Inf. Complementar if Length(InfCpl) = 0 then InfCpl := ''; result := result + TmpStr + InfCpl; end; end; ACBrNFeDANFEFRDM.pas
  16. Estou instalando o acbr do zero, usando a nfe, nfce e sat mas com o relatório do fortes. Na opção de gerador de relatórios (Fastreport) não selecionei nenhuma opção. Porém ao complicar o sistema recebo: ACBrDAMDFEFR.as(44): F2063 Could not compile used unit 'frxClass' A minha dúvida é se preciso instalar o fast report mesmo que não use ele? Desde já obrigado.
  17. Boa Tarde! Estou com um problema que depois que atualizei a versão do ACBr as notas fiscais emitidas estão saindo com as Observações em duas filhas quando era para sair somente em uma. Revisei os parametros mas não encontrei nada de diferente #FAST REPORT <infAdic> <infAdFisco>I - "DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL" | II - "NAO GERA DIREITO A CREDITO FISCAL DE IPI".</infAdFisco> <infCpl>PAGTO A VISTA</infCpl> </infAdic>
  18. Olá pessoal, atualizei recentemente para o FastReport 5 (5.3.16) e estou com problemas quando exporto o DANFSe para PDF. A exportação ocorre normalmente mas ao abrir o PDF recebo esta mensagem: Dando um OK o PDF fica assim: O que achei mais estranho é que somente os dados do prestador de serviços tem esse problema, os dados do tomador são exibidos corretamente. Mesmo se tratando do pretador, os campos de IM e Tel são exibidos também. Dei uma olhada no arquivo .fr3 e não encontrei diferença alguma nos Memos usados e todos usam a fonte "arial" com style "fsBold". Procurei por algo no código que pudesse alterar alguma propriedade mas não encontrei nada. Problemas com instalação da fonte em si não pode ser pois os outros campos também usam a mesma fonte/style. Alguém enfrentou este problema? Alguém mais usa esta versão do Fast? Desde já agradeço a atenção.
  19. Depois da ultima atualização do ACBr (Trunk2), o Danfe do Manifesto aparece sujeiras na impressão, utilizo o XE10 Seattle e para o danfe o componente do FastReports Alguem sabe como contornar este problema? DAMDFe_Retrato.pdf
  20. Consultoria/Desenvolvimento Delphi/Lazarus Firebird/PostGreSQL/SQL Server/MySQL/MariaDB/SQLite/Oracle Consultoria/Desenvolvimento Delphi/Lazarus Firebird/PostGreSQL/SQL Server/MySQL/MariaDB/SQLite/Oracle
  21. Realizamos uma modificação para que, durante a exportação do DACTE e do DANFE para PDF, não seja disparada a mensagem do FastReport: "Exportando página 1" seguida de um botão "Cancelar". Ver o print abaixo. O que motivou essa alteração é o fato dessa janela ficar sendo exibida (piscando) ao ser feita a exportação em lote de vários arquivos para PDF. Seguem os arquivos ACBrCTeDACTEFR.pas e ACBrNFeDANFEFRDM.pas com as modificações. No DAMDFE já está desabilitado. ACBrCTeDACTEFR.pas ACBrNFeDANFEFRDM.pas
  22. Olá amigos, boa tarde! Realizamos algumas melhorias e ajustes na impressão do DANFE para fastreport e gostaríamos de disponibilizar o arquivo .fr3 para ser incorporado no projeto e disponibilizado para todos. Ajuste na numeração de páginas na impressão de NFe em lote Ao carregar diversas notas fiscais no componente e imprimi-las todas de uma vez era informado o número total de páginas incorretamente. Agora o totalizador de páginas segue a quantidade de páginas para cada chave de nfe. Ajuste na impressão da continuação dos dados complementares Ao imprimir uma NFe com dados complementares muito longos, a continuação dos dados complementares era impressa dentro da próxima página na seção "produtos" incorretamente. Agora a continuação dos dados complementares é impressa na última página (se couber) ou em uma nova página assim como acontece no Fortes. Preenchimento dos espaços em branco na impressão de produtos antes da impressão dos dados complementares. DANFeRetratoNovo.fr3
  23. 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).
  24. Olá amigos, recentemente está dando esse erro no momento que eu adiciono um ACBRDANFeFR a qualquer form. Poderiam me dar uma luz sobre o que está dando de errado? Desde já agradeço a colaboração.
×
×
  • Create New...