TACBrNFSeDANFSeFR.PrepareReport lento para muitas notas fiscais

[MagoSchmidt]

Ao gerar um relatorio com mais de 200 notas fiscais (sim, o cliente imprime tudo de uma vez para enviar ao contador) fica absurdamente lento.

Identifiquei que o problema é um bug conhecido do fast report neste ponto:

function TACBrNFSeDANFSeFR.PrepareReport(NFSe: TNFSe): Boolean;

.

.

.

      for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 do
      begin

        CarregaDados(TACBrNFSe(ACBrNFSe).NotasFiscais.Items.NFSe);

        if (I > 0) then
          Result := frxReport.PrepareReport(false)
        else
          Result := frxReport.PrepareReport

      end;

Onde o PrepareReport(false) acrescenta um novo relatorio a cada NFs-e (usando o recurso de multi-relatorios). Mas depois de uma certa quantidade fica muito lento.

Fiz algumas alterações nos fontes para tornar isto mais rapido. Qual o procedimento para submeter a alteração à eventual incorporação definitiva?

Abraços

 

 

 

[Juliomar Marchetti]

Anexe aqui os fontes que avaliamos e subimos!

[MagoSchmidt]

O que eu fiz foi usar uma dica conhecida que resolve este problema de degradação do FastReport em multiplos relatorios.

Ao invés de um PrepareReport(FALSE) que vai acumulando os relatórios (e degradando) usa-se um segundo frxReport chamando o PreviewPages.AddFrom(frxReport).

Isto foi feito em uma unit separada em anexo. A única coisa que tive que alterar no código original foi tornar o método CarrgaDados protected.

Abraços

UPolyAcbrDANFSE.pas

[Juliomar Marchetti]

Estranho essa unit não faz parte do ACBr!

 

[MagoSchmidt]

Como eu disse, criei uma unit separada para resolver o problema. Isto foi feito para isolar a alteração do ACBr original. A unica lteração no codigo original foi tornar o método CarrgaDados protected (na unit ACBrNFSeDANFSeFR.pas)

Abraços

[MagoSchmidt]

Sei que este post é antigo mas o problema persiste. Eu mantive minha versao da unit durante este tempo mas agora tive que fazer uma atualização geral e o problema retornou. A unit que eu havia enviado anteriormente era uma sobrescrição da classe TACBrNFSeDANFSeFR para evitar alteraçoes no codigo original do Acbr. 

Desta vez entao estou enviando as mudanças feitas na unit original para avaliação dos Srs.

A ideia central (que torna o processo bem mais rápido) é:

frxReport.PreviewPages.AddFrom(frxReportTemp);

na linha 315

Abraços

 

 

 

ACBrNFSeDANFSeFR.pas

Editado 11 Dezembro, 2020 por MagoSchmidt

[Juliomar Marchetti]

Está na lista para ser avaliado

[MagoSchmidt]

Vi que voces aceitaram minha colaboração. Muito obrigado!

Identifiquei o mesmo problema na ACBrNFeDANFEFRDM.pas, a original processou por 12hs e nao terminou a geraçao de 3000 NF's

Segue a versao corrigida que fez o trabalho em 50mins

Abraços

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

22 horas atrás, MagoSchmidt disse:

Vi que voces aceitaram minha colaboração. Muito obrigado!

Identifiquei o mesmo problema na ACBrNFeDANFEFRDM.pas, a original processou por 12hs e nao terminou a geraçao de 3000 NF's

Segue a versao corrigida que fez o trabalho em 50mins

Abraços

 

ACBrNFeDANFEFRDM.pas 96 kB · 1 download

antes de alterar tu atualizou o svn??

antes de alterar e enviar?

 

[EMBarbosa]

Em 14/02/2022 at 13:17, MagoSchmidt disse:

Vi que voces aceitaram minha colaboração. Muito obrigado!

Identifiquei o mesmo problema na ACBrNFeDANFEFRDM.pas, a original processou por 12hs e nao terminou a geraçao de 3000 NF's

Segue a versao corrigida que fez o trabalho em 50mins

Abraços

 

ACBrNFeDANFEFRDM.pas 96 kB · 2 downloads

Olá tudo bem?

Infelizmente seu arquivo está muito desatualizado. Não temos como analisar sem saber em qual revisão está.

Por favor, atualize para a última revisão do SVN e anexe novamente para que possamos dar prosseguimento.