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

  • ACBrLib
  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • 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
    • Curso Dominando o ACBrMonitor
    • Webinars
    • Video Aulas
    • Palestras - Dia do ACBr 2a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Dia do ACBr 2a Ediçao
    • Dia do ACBr 1a Ediçao
    • Homologação ACBr
  • 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 133 results

  1. Boa tarde a todos! A sefaz do Rio mudou as regras no que diz respeito a exibição de descontos no documento fiscal: A SEFAZ-RJ publicou no DOE em 04/11/2019 a Lei 8.603, a qual cria regras de divulgação de promoções e ofertas, as quais devem estar impressas nos DFes, conforme exigência a seguir. Art. 1º O comércio varejista do Estado do Rio de Janeiro fica obrigado a aplicar o desconto anunciado de forma clara e individualizada, por produto, no cupom fiscal. § 2º O desconto deverá ser aplicado imediatamente abaixo do produto em promoção no cupom fiscal ou documento equivalente. Art. 2º Fica vedado à rede varejista compilar o valor total economizado com promoções ao final do cupom fiscal ou documento equivalente. Eu estou tendo problemas pra exibir os descontos no fastreport utilizando a classe (TACBrNFeDANFCEFR). Mesmo marcando a propriedade "ImprimeDescAcrescItem" (como na imagem em anexo) a informação do desconto não é exibida no DanfCe. Existe outra propriedade pra ser marcada a fim dessa informação ser exibida? Uma outra informação, quando utilizo a impressão com os componentes: TACBrNFeDANFeESCPOS e TACBrNFeDANFCeFortes imprime normalmente, somente não consigo imprimir com o TACBrNFeDANFCEFR Desde já agradeço pela ajuda!
  2. Black Friday 2019 - promoção em todos os produtos, destaque: FastReport for [x]Harbour (bônus*), independe se sua aplicação é console ou GUI (Xailer, VxH, Fivewin, Minigui/HMG, Hwgui). * confirme com o fornecedor se inclui a versão VCL Delphi Xailer GUI/RAD - ambiente de desenvolvimento completo (ferramenta mais robusta, produtiva e intuitiva que existe para [x]Harbour), veja nosso overview, instalação Compra, downloads, Demo completo (inclui exemplos, docs) no site oficial (Xailer, OZ): https://xailer.com/ https://www.ozs.es Contatos para desenvolvimentos em geral e treinamentos, meu site e chat (DevClub ou Facebook), informe seu e-mail, ddd+fone (ou skype)...
  3. Bom dia. Gostaria de saber se a versão compatível do FastReport com o ACBR e Delphi Community é: VCL (Embarcadero RAD Studio/Delphi/C++ Builder) / FastReport 6 VCL / Do You Need Full Source Code? No/ Standard /
  4. Bom dia, sou novo no Delphi, estou usando o 10.3 RIO versão Community. Entrei na empresa a pouco tempo, e já tinha um software básico que o antigo TI tinha desenvolvido para fazer monitoração de produtos, campanhas de vendas e assim vai. Ele estava funcionando normalmente, sem nenhum erro, recentemente compramos um servidor novo e fizemos a transferência do ERP para esse novo servidor e o antigo ficou apenas de arquivos, então o Software de Monitoramento deu erro, pois não achava mais a base de dados para pegar os produtos e as fotos deles. Abri o projeto, fui no componente de conexão (o ERP tem duas base de dados) uma de foto e a outra padrão ele (contendo clientes, produtos, NFe etc), está configurado por TCPIP porta 3050, base de dados FB 2.5, faço o teste de conexão por dentro do componente aparece que a conexão foi estabelecida com sucesso. Porém começou a dar uns erros na hora de compilar (FastReport VCL 6 instalado com sucesso) Acbr Trunk 2 instalado com sucesso. E continua com alguns erros, uns que não estão declaradas algumas variáveis (faço a declaração o erro some) porém tem outro erro que não o motivo continua, mesmo olhando na Library está la para ser usada e mesmo assim o erro persiste. Lembrando que não fiz nenhuma alteração no código fonte apenas abri o componente e configurei apontando para as duas novas Base. Tentei reinstalar o Acbr Trunk2 para ver se resolvia, ele dava erro na instalação nos itens de gerador de relatório do fastreport. Segue as imagens. A conexão com a base principal (produtos, clientes etc) está funcionando no Software, apenas a das fotos que não. Como as ultimas fotos, ele não encontra a base de fotos apenas a que contem os produtos.
  5. Boa tarde, Pequeno ajuste na função "AjustaDiscriminacao" na unit para impressão com o FastReport "ACBrNFSeDANFSeFR.pas", esta função é responsável por separar os itens quando esta nota contiver mais de um item. PS: Anexo Unit alterada. Favor analisar a alteração !. ACBrNFSeDANFSeFR.pas
  6. Boa tarde. Gostaria de relatar um problema que ocorreu com nosso sistema emissor, com relação ao preview/impressão da Carta de Correção da NF-e. O que acontece é que após exibir um DANFE e depois tentar exibir o preview de uma Carta de Correção ocorre um Access Violation, nesse caso testei apenas usando a engine FastReport. Percebi que o erro ocorre nos métodos "PrepareReport" e "frxReportBeforePrint" da unit "Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas". Ao que parece o objeto NFe (FNFe) que é usado dentro deles está assigned mas suas propriedades estão nil, ele passa na verificação do Assigned(), mas ao acessar as propriedades elas estão nil. Se carregar uma NF-e no componente ACBrNFe e emitir um DANFE ele fica com referências apontadas internamente no DANFE associado ao ACBrNFe, então mesmo se der um ACBrNFe.NotasFiscais.Clear e carregar somente o XML do evento de CCe o erro ocorre. O que eu fiz foi apenas passar nil para as variáveis FNFe e FEvento ao final de cada método "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF", para assim não apontar para uma referência inválida e a verificação funcionar corretamente em "PrepareReport" e "frxReportBeforePrint". // Está em "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF": { DONE -oLeandro : (03/09/2019) - Alteração para não causar AccessViolation após: 1 - Imprimir um DANFE; 2 - Imprimir um Evento (Carta de Correção); AccessViolation ocorre nos métodos: * PrepareReport * frxReportBeforePrint Provável motivo: Objeto NFe (FNFe) está assigned mas suas propriedades estão nil. } FNFe := nil; FEvento := nil; Segue o arquivo ACBrNFeDANFEFRDM.pas em anexo, as alterações estão marcadas com um "DONE -oLeandro :" , se a alteração proceder e for útil, peço aos administradores que adicionem a alteração no svn. Muito obrigado. ACBrNFeDANFEFRDM.pas
  7. Notei que ao exportar para PDF do DANFE em Fastreport através do preview do componente a qualidade da imagem da logo fica melhor que usando a procedure ImprimirDANFEPDF para fazer a geração do PDF direto. Usando esta procedure a logo acaba ficando distorcida... Fiz um pequeno ajustes nesta procedure para acertar este detalhe e gostaria da análise do pessoal para ver a possibilidade de incluir este ajuste no SVN. Apenas incluí o código "frxPDFExport.PrintOptimized := True;" logo após a linha 458 da unit ACBrNFeDANFEFR.pas, ficando conforme abaixo: ... frxPDFExport.EmbeddedFonts := False; frxPDFExport.Background := False; frxPDFExport.PrintOptimized := True; // Linha incluída para melhorar a qualidade da logo Desta forma geração do PDF por meio do comando ACBrNFe.NotasFiscais.ImprimirPDF gera o arquivo com uma boa qualidade na logo ficando com uma visualização melhor. Notei também uma melhora na qualidade do código de barras da chave da DANFE. Anexo segue também o arquivo com a alteração. Obrigado. ACBrNFeDANFEFR.pas
  8. Ola, estou tentando fazer a instalação do ACBr no meu que esta no disco D: e estou tendo o erro de {dynamic link library} conforme na imagem: O erro segue em todos os componentes da parte do FastReport. já tentei o procedimento de outros posts que encontrei no fórum mas ainda sem solução. poderia ser por meu Delphi estar no disco D? grato pela ajuda.
  9. 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
  10. 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
  11. 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á
  12. 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
  13. 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.
  14. 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?
  15. 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.
  16. 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
  17. 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);
  18. Consultoria/Desenvolvimento Delphi/Lazarus Firebird/PostGreSQL/SQL Server/MySQL/MariaDB/SQLite/Oracle Consultoria/Desenvolvimento Delphi/Lazarus Firebird/PostGreSQL/SQL Server/MySQL/MariaDB/SQLite/Oracle
  19. 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.
  20. Segue correção para carregar o logotipo do DACTe em FastReport a partir de um Stream. DACTE_Ve300.fr3 DACTE.fr3 DACTE_OS.fr3
  21. Boa noite pessoal criei uma aplicação NFe / NFCe em Firemonkey + ACBR, porém estou com dificuldades na hora de imprimir pois os fontes de impressão do acbr são todos em VCL alguém tem eles em firemonkey? pode ser para fastreport ou fortesreport. Obrigado!
  22. 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?
  23. Olá amigos, de acordo com o que o ACBr sugeriu efetuei a migração de minha aplicação desenvolvida em Delphi 7 para a versão Delphi Seattle Update1, porém estou com problemas na impressão do DAMDFe, anteriormente no Delphi 7 com o acbr com uma versão de 3 meses atras a impressão saia ok, quando atualizei o ACBr e compilei no delphi Seattle a impressão sempre mostra a Mensagem de HOMOLOGAÇÃO, MDF-E PREVISÃO e MDF-E CANCELADO. Já verifiquei as propriedades da impressão e elas estão sendo alimentadas da forma correta, caso algum amigo teve o mesmo problema gostaria de saber o que fez para resolver. Em anexo segue o PDF demonstrando o DAMDFe impresso no Delphi7 e no Seattle. DAMDFe_Retrato_D7.pdf DAMDFe_Retrato_SEATTLE.pdf
  24. 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
  25. Pessoal venho recorrer a vocês, estou com um problema em alguns clientes, não são todos. Ambos os clientes utilizam os 2 tipos de notas... nota fiscal eletrônica, e nota fiscal a consumidor... Inicialmente tenho um conflito antigo que até hoje se encontra sem solução, se o cliente usa os 2 tipos de nota na mesma aplicação, não consigo imprimir 100% das notas em Fortes, logo tenho que jogar a NFCe para Fortes, e a NFe para Fast pelo seguinte motivo. Se eu colocar ambos os 2 tipos de documento para imprimir no Fortes, quando mando imprimir uma NFCe ela sai normal do tamanho de um cupom, se em seguida eu tentar imprimir uma NFe 55 modelo A4, ele imprime só no cantinho da folha na mesma largura de um cupom de NFCe... já fiz de tudo pra tentar resolver isso, tentei até criar o componente DANFe do Fortes runtime com Try e Finally descarregando ele ao final do uso... não consigo resolver mesmo destruindo a instância do componente e criando novamente ele recorda a configuração anterior e imprime na largura do cupom de NFCe... tentei especificar manualmente tamanho de papel, tipo de DANFe, etc... tentei tudo antes do comando imprimir, de acordo com o tipo de documento mas não resolveu.... para contornar isso, na epoca passei o FortesReports apenas para a NFCe, e o FastReport para a NFe 55... Hoje estou com um problema diferente, em alguns clientes "não todos" passou a aparecer do nada alguns "access violation" durante a impressão do fast report... a cada 2 ou 3 notas modelo 55 impressas no Fast aparece alguns access violation no centro da tela, pressionando OK para a mensagem o cliente prossegue com o uso do sistema, mas algumas vezes acumula várias mensagens na tela, e fica insistente até fechar todas... então eu estou tentando descobrir o motivo... só para teste eu tentei colocar o Fortes para imprimir as notas 55 e o não acontece mais o problema, porém não posso deixar em Fortes pelo motivo que descrevi no inicio... Já fiz algumas tentativas: *atualizei a DLL midas na pasta System32 "todos os clientes que estão com o problema em comum estão usando windows 32" *atualizei o arquivo fr3 da DANFe tentei usar o mais recente, e também tentei alguns antigos o erro persiste, creio que não tenha a ver com isso *atualizei todo os meus componentes, rodei a instalação do ACBr novamente, compilei tudo novamente, fontes todos atualizados... *tentei adicionar o MidasLib no uses do meu projeto o problema persiste, se alguém já passou por isso e quiser compartilhar informações fico agradecido, qualquer sugestão é bem vinda... obrigado a todos.
×
×
  • Create New...