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 20: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. 

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

 

[gutembergscosta]

1 hora atrás, EMBarbosa disse:

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

 

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.txt

Editado 29 Outubro, 2018 por gutembergscosta

[EMBarbosa]

11 minutos atrás, 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. 

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]

8 minutos atrás, 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.

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 10:07, EMBarbosa disse:

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

 

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

[gutembergscosta]

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

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

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.pas

ACBrGNREGuiasRetorno.pas

ACBrGNREGuiaFRDM.pas

Editado 6 Dezembro, 2018 por gutembergscosta

[EMBarbosa]

16 minutos atrás, 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.pas

ACBrGNREGuiasRetorno.pas

ACBrGNREGuiaFRDM.pas

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

[gutembergscosta]

40 minutos atrás, EMBarbosa disse:

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

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.

3 horas atrás, gutembergscosta disse:

Obrigado.

 

[gutembergscosta]

1 minuto atrás, 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.

 

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]

1 minuto atrás, 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.

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.