GNRE - Problemas Impressão com mais de uma guia no Retorno

[gutembergscosta]

Olá, gostaria de reportar um problema.

Quando o retorno consta mais de uma guia, apenas é apresentado ou gerado a ultima guia do arquivo retorno.

No exemplo que usei, o meu retorno consta três guias, mas só adicionado / considerado no relatório (Fortes)  apenas a ultima guia.

[EMBarbosa]

  Em 26/10/2018 at 23:39, gutembergscosta disse:

Olá, gostaria de reportar um problema.

Quando o retorno consta mais de uma guia, apenas é apresentado ou gerado a ultima guia do arquivo retorno.

No exemplo que usei, o meu retorno consta três guias, mas só adicionado / considerado no relatório (Fortes)  apenas a ultima guia. 

Expandir  

Poderia anexar ou enviar por privado os arquivos para análise?

 

[gutembergscosta]

  Em 29/10/2018 at 13:07, EMBarbosa disse:

Poderia anexar ou enviar por privado os arquivos para análise?

 

Expandir  

Olá EMBarbosa, segue anexo o arquivo de retorno, ondem contem as guias para impressão.

Conforme exemplo no DEMO, sigo as mesmas instruções para impressão, carrego o respectivo arquivo e ao emitir, mesmo tendo Mais uma guia (como é o caso, são três), apresenta apenas a ultima.

Observando o comportamento da unit ACBrGNREGuiasRetorno.pas , é percorrido todas as guias do arquivo corretamente, mas apenas adiciona/alimenta no componente/função de retorno a ultima guia.

  OpenDialog1.Title := 'Selecione a Guia';
  OpenDialog1.DefaultExt := '*-gnre.txt';
  OpenDialog1.Filter := 'Arquivos GNRE (*-gnre.txt)|*-gnre.txt|Arquivos TXT (*.txt)|*.txt|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrGNRE1.Configuracoes.Arquivos.PathSalvar;

  if OpenDialog1.Execute then
  begin
    ACBrGNRE1.GuiasRetorno.Clear;
    ACBrGNRE1.GuiasRetorno.LoadFromFile(OpenDialog1.FileName);
    ACBrGNRE1.GuiasRetorno.Imprimir;
  end;

1876836790.txtFetching info...

Editado 29 Outubro, 2018 por gutembergscosta

[EMBarbosa]

  Em 29/10/2018 at 14:33, gutembergscosta disse:

Observando o comportamento da unit ACBrGNREGuiasRetorno.pas , é percorrido todas as guias do arquivo corretamente, mas apenas adiciona/alimenta no componente/função de retorno a ultima guia. 

Expandir  

Parece que você já teve a oportunidade para analisar um pouco o código. Gostaria de sugerir uma correção? Em caso positivo, anexe aqui a unit alterada.

[gutembergscosta]

  Em 29/10/2018 at 14:45, EMBarbosa disse:

Parece que você já teve a oportunidade para analisar um pouco o código. Gostaria de sugerir uma correção? Em caso positivo, anexe aqui a unit alterada.

Expandir  

Não fiz nenhuma alteração. Apenas observei pois imaginei que não estava percorrendo o arquivo retorno, mas está sim. Acredito que o problema seja outro, ter a possibilidade de adicionar mais de uma guia para emissão da impressão ou PDF.

[gutembergscosta]

  Em 29/10/2018 at 13:07, EMBarbosa disse:

Poderia anexar ou enviar por privado os arquivos para análise?

 

Expandir  

Acredito que deveria ser alimentado algum dataset para que pudesse imprimir todos os retornos.

[gutembergscosta]

  Em 04/12/2018 at 22:28, gutembergscosta disse:

Acredito que deveria ser alimentado algum dataset para que pudesse imprimir todos os retornos.

Expandir  

Olá analisando os fontes, fiz algumas implementações de forma que funcione a impressão com mais de uma guia no retorno. Gostaria de deixar aqui minha contribuição. 

Os fontes modificados foram: ACBrGNREGuiaFRDM.pas - ACBrGNREGuiasRetorno.pas - pgnreGNRERetorno.pas

pgnreGNRERetorno.pas 

Aqui foi criado uma nova propriedade para alimentar as guias: FresGuia: TGuiaCollection

ACBrGNREGuiasRetorno.pas

Aqui a propriedade criada (GNRERetorno.resGuia.Add) é alimentada com todas as guias. 

ACBrGNREGuiaFRDM.pas

Aqui é percorrido a nova propriedade (GNRE.resGuia) e impressa as guias ;  

 

 

pgnreGNRERetorno.pasUnavailable

ACBrGNREGuiasRetorno.pasUnavailable

ACBrGNREGuiaFRDM.pasUnavailable

Editado 6 Dezembro, 2018 por gutembergscosta

[EMBarbosa]

  Em 06/12/2018 at 12:25, gutembergscosta disse:

Olá analisando os fontes, fiz algumas implementações de forma que funcione a impressão com mais de uma guia no retorno. Gostaria de deixar aqui minha contribuição.  

Os fontes modificados foram: ACBrGNREGuiaFRDM.pas - ACBrGNREGuiasRetorno.pas - pgnreGNRERetorno.pas

pgnreGNRERetorno.pas 

Aqui foi criado uma nova propriedade para alimentar as guias: FresGuia: TGuiaCollection

ACBrGNREGuiasRetorno.pas

Aqui a propriedade criada (GNRERetorno.resGuia.Add) é alimentada com todas as guias. 

ACBrGNREGuiaFRDM.pas

Aqui é percorrido a nova propriedade (GNRE.resGuia) e impressa as guias ;  

 

 

pgnreGNRERetorno.pasFetching info...

ACBrGNREGuiasRetorno.pasFetching info...

ACBrGNREGuiaFRDM.pasFetching info...

Expandir  

Estou baixando para validar as alterações. Assim que tiver uma posição te retorno.

[gutembergscosta]

  Em 06/12/2018 at 12:42, EMBarbosa disse:

Estou baixando para validar as alterações. Assim que tiver uma posição te retorno.

Expandir  

Obrigado.

[EMBarbosa]

As alterações me parecem ok para o FastReport. A única dúvida é se elas não vão afetar o Fortes Report.

Vou precisar de um pouco mais de tempo para analisar isso porque estamos trabalhando intensamente nos retornos que estão sendo dados por causa do Refactoring das impressões.

  Em 06/12/2018 at 13:22, gutembergscosta disse:

Obrigado.

Expandir  

 

[gutembergscosta]

  Em 06/12/2018 at 16:25, EMBarbosa disse:

As alterações me parecem ok para o FastReport. A única dúvida é se elas não vão afetar o Fortes Report.

Vou precisar de um pouco mais de tempo para analisar isso porque estamos trabalhando intensamente nos retornos que estão sendo dados por causa do Refactoring das impressões.

 

Expandir  

Teria que aplicar em outro relatório se houver, no caso da GNRE só uso o FastReport.

Posso deixar a mesma rotina que faz a alimentação, fazendo tanto da colletion (novo) como o antigo, que alimenta  apenas as variáveis do ACBrGNREGuiasRetorno.pas, assim não afeta os demais relatórios, contudo, eles ficaram da mesma forma imprimindo sempre a ultima, como já fazia.

[EMBarbosa]

  Em 06/12/2018 at 16:29, gutembergscosta disse:

Teria que aplicar em outro relatório se houver, no caso da GNRE só uso o FastReport.

Posso deixar a mesma rotina que faz a alimentação, fazendo tanto da colletion (novo) como o antigo, que alimenta  apenas as variáveis do ACBrGNREGuiasRetorno.pas, assim não afeta os demais relatórios, contudo, eles ficaram da mesma forma imprimindo sempre a ultima, como já fazia.

Expandir  

Não é o que desejamos. Estamos fazendo o Refactoring justamente para reduzir e se possível eliminar essas diferenças.

Mas muito obrigado por sua disposição em ajudar. Se tiver alguma outra sugestão fique a vontade.