Fast Report - Duplicando "Salvar PDF"

[MarcosRWeimer]

Ao carregar o xml para impressão e clicar em gravar, está duplicando (usando o demo do ACBr, no sistema aparece mais vezes) o "salvar pdf"

 

 

- Não encontrei em que momento manipula esta opção

- Se imprimo algum outro relatório do sistema (tambem em fast report) não ocorre este problema.

- Tanto faz qual FR3 do demo eu selecione, acontece a mesma situação.

- Delphi 12.3 com Path de Maio

- Fast Report 2024.2.5

 

[Juliomar Marchetti]

Habilita no projeto para mostrar os memory leaks do exemplo

e veja senão está ficando algo na memoria. 

deve não estar destruindo o filtro pdf

[MarcosRWeimer]

Habilitei para exibir os memory leaks (ReportMemoryLeaksOnShutdown := True;) e ao fechar após visualizar a DANFE não reportou vazamentos de memória.

 

[Victor H. Gonzales - Panda]

isso na verdade é um comportamento do Proprio FastReports.

ele varre a aplicação inteira via RTTI para montar os filtros.

se você montar uma aplicação nova, colocar 5 DFe diferentes, verá que aparecerá vários filtros, como esses filtros não são globais e sim criados em cada componente, o Fast acaba reindexando e duplicando eles.

[MarcosRWeimer]

Tive tempo de voltar a mexer nesta questão hoje, a situação é a seguinte, realmente o fastreport adiciona um 'PDF Export' no menu para cada tfrxpdfexport que existir.

 

Teste:

- Crie um novo app

- Adicione um frxReport e um frxpdfexport

- adicione um botão para exibir o report, vá em salvar, terá 1 pdf export

- adicione mais um frxpdfexport e teste novamente, verá que terá 2 pdf export no menu.

 

Isto ocorre com frxpdfexport mesmo em outros forms.

 

A solução (paleativa) que encontrei no momento é remover os "duplicados":

  procedure RemoveExportPDFDup;
  var
    LCount: Integer;
  begin
    //Remove do menu, exportações de PDF "duplicadas"
    //FastReport varre a aplicação por RTTI buscando TfrxPDFExport
    //Para cada TfrxPDFExport é criado um item no menu
    //Este processo varre os plugins de exportação deixando apenas 1 (o ultimo) TfrxPDFExport
    LCount := 0;

    for var i: Integer := Pred(frxExportFilters.Count) downto 0 do
    begin
      if frxExportFilters[i].Filter.ClassName.ToUpper.Equals('TFRXPDFEXPORT') then
      begin
        if LCount > 0 then
          frxExportFilters.Delete(i)
        else
          Inc(LCount);
      end;
    end;
  end;

 

Chamo esta procedure ANTES de imprimir/visualizar o report, no momento é o que resolveu.

[Victor H. Gonzales - Panda]

4 horas atrás, MarcosRWeimer disse:

Tive tempo de voltar a mexer nesta questão hoje, a situação é a seguinte, realmente o fastreport adiciona um 'PDF Export' no menu para cada tfrxpdfexport que existir.

 

Teste:

- Crie um novo app

- Adicione um frxReport e um frxpdfexport

- adicione um botão para exibir o report, vá em salvar, terá 1 pdf export

- adicione mais um frxpdfexport e teste novamente, verá que terá 2 pdf export no menu.

 

Isto ocorre com frxpdfexport mesmo em outros forms.

 

A solução (paleativa) que encontrei no momento é remover os "duplicados":

  procedure RemoveExportPDFDup;
  var
    LCount: Integer;
  begin
    //Remove do menu, exportações de PDF "duplicadas"
    //FastReport varre a aplicação por RTTI buscando TfrxPDFExport
    //Para cada TfrxPDFExport é criado um item no menu
    //Este processo varre os plugins de exportação deixando apenas 1 (o ultimo) TfrxPDFExport
    LCount := 0;

    for var i: Integer := Pred(frxExportFilters.Count) downto 0 do
    begin
      if frxExportFilters[i].Filter.ClassName.ToUpper.Equals('TFRXPDFEXPORT') then
      begin
        if LCount > 0 then
          frxExportFilters.Delete(i)
        else
          Inc(LCount);
      end;
    end;
  end;

 

Chamo esta procedure ANTES de imprimir/visualizar o report, no momento é o que resolveu.

qual versão foi testado?

 

[MarcosRWeimer]

2 minutos atrás, Victor H. Gonzales - Panda disse:

qual versão foi testado?

 

D12 Pro + FR 2024.2.5 VCL

[Victor H. Gonzales - Panda]

1 minuto atrás, MarcosRWeimer disse:

D12 Pro + FR 2024.2.5 VCL

precisava testar isso no FR 4 antes de subir, e talvez FR 5

[MarcosRWeimer]

É o único ambiente que tenho para testar, não consigo testar em outras versões

 

[Victor H. Gonzales - Panda]

2 minutos atrás, MarcosRWeimer disse:

É o único ambiente que tenho para testar, não consigo testar em outras versões

 

antes de subir, vamos ver se a comunidade consegue testar, receio de quebrar

[MarcosRWeimer]

7 minutos atrás, Victor H. Gonzales - Panda disse:

antes de subir, vamos ver se a comunidade consegue testar, receio de quebrar

também acredito que va quebrar, dependendo da versão do FR muda a maneira de acessar os exports

 

[Alexandre de Paula]

Bom dia,

Criada a tarefa ACBR-8156 para avaliação.

Obrigado

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[MarcosRWeimer]

Boa Tarde!

 

Acabei de atualizar, não está mais duplicando.

Alteração aprovada.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.