PDF do DANFE via Stream

[Huelbert Rodrigo]

Boa tarde

Diante da necessidade de obter o PDF do DANFE da NFe via Stream (evitando I/O), envio o código para análise, adequação e inclusão no ACBr.

Estou criando a função no Fortes com Lazarus.

Assim que implementado na NFe, vou implementar no restante dos componentes.

Estou a disposição por qualquer dúvida.

stream-pdf.zip

[Daniel Simoes]

Olá @Huelbert Rodrigo, parece bem bacana...

- Acho que tem um Memory Leak em TfrlDANFeRL.StreamPDF  (AStringStream)
- penso que também poderiamos refatorar, para evitar código repetido em SalvarPDF e StreamPDF

Vamos conversar com a equipe, e ver a melhor maneira de incorporar...

[Huelbert Rodrigo]

Estou a disposição caso seja necessário.

[Juliana Tamizou]

Adicionado ao backlog na TK-2080

[Juliana Tamizou]

Boa tarde.

Para fins de informação, já se encontra no svn.

At.

[EMBarbosa]

Em 05/11/2021 at 14:31, Huelbert Rodrigo disse:

Boa tarde

Diante da necessidade de obter o PDF do DANFE da NFe via Stream (evitando I/O), envio o código para análise, adequação e inclusão no ACBr.

Estou criando a função no Fortes com Lazarus.

Assim que implementado na NFe, vou implementar no restante dos componentes.

Estou a disposição por qualquer dúvida.

stream-pdf.zip 44 kB · 2 downloads

Enviei ao SVN na revisão 23587 sua contribuição com alguns ajustes principalmente para os pontos que o Daniel mencionou acima e mais:

• memory leaks semelhantes em outros métodos;
• Geração de exception quando não for passado um stream;
• Alguns ajustes para simplificar o código em ACBrNFeDANFeRL;

Ficou faltando o arquivo ACBrDFeReportFortes.pas por causa do seguinte método:

    TDFeReportFortes.AjustarFiltroStream(DANFeReport.RLPDFFilter1, DANFeReport.fpDANFe);

1) Eu comentei não parece fazer falta aqui na minha máquina (???). Precisamos ver o seu código para ter certeza que não está faltando nada...

2) Além disso, será que precisamos mesmo desse AStringStream usado como intermediário? Não poderia usar o parâmetro direto?

Como você deve ter feito testes, poderia por favor verificar e nos dar um retorno nesses pontos 1 e 2?

 

[Huelbert Rodrigo]

Testei aqui e está funcional.

1 - No ACBrDFeReportFortes.pas criei a classe AjustarFiltroStream pois precisa desse código abaixo:

class procedure TDFeReportFortes.AjustarFiltroStream(PDFFilter: TRLPDFFilter; AConfig: TACBrDFeReport);
begin
  PDFFilter.ShowProgress := AConfig.MostraStatus;
end;

O ShowProgress do PDFFilter tem que receber a propriedade MostrarStatus, pois a intenção é utilizar o StreamPDF dentro de containers Docker evitando interação desktop.

 

2 - Fiz o refactoring  retirando o AStringStream e ajustando o AjustarFiltroStream (Segue anexo).

 

A ideia é criar a função de stream para todos os pdf do ACBrNFe (StreamEventoPDF e StreamInutilizacaoPDF).

Posso fazer e te enviar aqui? Se preferir me chame no whatsapp que enviei por mensagem.

stream-pdf.zip

[Juliomar Marchetti]

class não é aceito no delphi 7 e senão me engano no lazarus talvez então torna o código quebrado para todas as versões.

[EMBarbosa]

22 horas atrás, Huelbert Rodrigo disse:

Testei aqui e está funcional.

1 - No ACBrDFeReportFortes.pas criei a classe AjustarFiltroStream pois precisa desse código abaixo:

class procedure TDFeReportFortes.AjustarFiltroStream(PDFFilter: TRLPDFFilter; AConfig: TACBrDFeReport);
begin
  PDFFilter.ShowProgress := AConfig.MostraStatus;
end;

O ShowProgress do PDFFilter tem que receber a propriedade MostrarStatus, pois a intenção é utilizar o StreamPDF dentro de containers Docker evitando interação desktop.

 

2 - Fiz o refactoring  retirando o AStringStream e ajustando o AjustarFiltroStream (Segue anexo).

 

A ideia é criar a função de stream para todos os pdf do ACBrNFe (StreamEventoPDF e StreamInutilizacaoPDF).

Posso fazer e te enviar aqui? Se preferir me chame no whatsapp que enviei por mensagem.

stream-pdf.zip 224 kB · 0 downloads

Me parece tudo ok. Enviei ao SVN na revisão 23638.

Queira por favor atualizar, testar e reportar qualquer problema.