ACBrNFeDANFEFR - Lento / Otimização

[MarcosRWeimer]

Ola!

Anexo XML com 88 itens.

 

Aqui na empresa demora 30 segundos para carregar o xml e iniciar a impressão (usando o fr3 padrão do ACBr), no cliente demora 1:50 (um minuto e meio) para imprimir com 99 itens.

Depois de muitos debugs, inclusive no fast report (usamos a versão 5) um colega aqui na empresa chegou na seguinte solução:

Arquivo: ACBrNFeDANFEFRDM

procedure TACBrNFeFRClass.frxReportBeforePrint(Sender: TfrxReportComponent);

Alterar de:

 

if Assigned(CpQrCode) then
 PintarQRCode( qrcode, TfrxPictureView(CpQrCode).Picture );

para:

if (Sender.Name = 'ImgQrCode') then
  PintarQRCode( qrcode, TfrxPictureView(Sender).Picture );

 

Com esta alteração o QRCode só é "impresso" quando o componente for realmente o esperado, e não a cada item. Acredito que este método possa ser utilizado para as demais situações, evitando ao máximo os frxReport.FindObject

Em testes internos aqui é "clicar e imprimir", sem ter de ficar esperando.

Oque acham ? Quais impactos pode haver? Alguma outra sugestão?

 

 

 

 

 

 

 

 

41160712951895000129650010000067051018615557-nfce.xml

[Juliomar Marchetti]

Boa tarde

anexe o fonte alterado para que possamos avaliar e testar!!

[MarcosRWeimer]

Só alterei esta linha que citei mesmo. O desempenho da impressão ficou incomparável.

Acredito que seja possível  otimizar ainda mais, evitando os "FindObject".

Não alterei mais pq quero uma opinião dos mais experientes no componente.

EDIT:

Report padrão do ACBr que utilizamos: DANFeNFCe.fr3

 

ACBrNFeDANFEFRDM.pas

Editado 6 Julho, 2016 por -=Ma®©oS=-

[hleorj]

Em 06/07/2016 at 17:11, -=Ma®©oS=- disse:

Só alterei esta linha que citei mesmo. O desempenho da impressão ficou incomparável.

Acredito que seja possível  otimizar ainda mais, evitando os "FindObject".

Não alterei mais pq quero uma opinião dos mais experientes no componente.

EDIT:

Report padrão do ACBr que utilizamos: DANFeNFCe.fr3

Por favor , faça alguns testes .. com o arquivo anexo.

 

ACBrNFeDANFEFRDM.pas

[MarcosRWeimer]

hleorj

Funcionou e rapido como o esperado.

Não havia pensado em utilizar uma "flag", sera que esta é a melhor maneira?

 

[Dipold]

Essa flag cheira a POG... sem falar que ela pode impedir que o OnBeforePrint() do relatório seja executado diante de um Refresh() (Two Pass por exemplo).

O OnBeforePrint() é chamado em um laço interno no momento de "pintar" cada componente visível do relatório, portanto, usando o "if correto", ele será executado apenas uma vez.

A solução muito mais eficiente, portanto, é verificar se o componente do relatório pintado da vez é o que queremos processar:

Diff:

https://gist.github.com/dipold/1bf92b32c326b415449096c08f8d4c11/revisions?diff=split

Arquivo cru modificado:

https://gist.githubusercontent.com/dipold/1bf92b32c326b415449096c08f8d4c11/raw/36cf01696da7a04f9c399a149aef4332bab4993e/ACBrNFeDANFEFRDM.pas

A propósito, o modelo simplificado não deve estar exibindo a logomarca, pois ele só é visível quando o:

[...].Visible := cdsParametros.FieldByName('Imagem').AsString = '';

Em vez de:

[...].Visible := cdsParametros.FieldByName('Imagem').AsString <> '';

Como ocorre no modelo 65.

[hleorj]

Pode até ser uma programação orientada a gambiarra ( P.O.G ).

Faça o alguns testes e verifique se melhorou a performance do mesmo.

[MarcosRWeimer]

Testei as 2 soluções sugeridas, as 2 foram rápidas para imprimir.

Edit: A solução no primeiro post testei tb (sugerida por um colega aqui no trabalho).

Editado 8 Julho, 2016 por -=Ma®©oS=-