Ir para conteúdo
  • Cadastre-se

dev botao

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


gutembergscosta
  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
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?

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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 por gutembergscosta
Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
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 ;  

 

 

gnre.png

pgnreGNRERetorno.pas

ACBrGNREGuiasRetorno.pas

ACBrGNREGuiaFRDM.pas

Editado por gutembergscosta
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Consultores
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 ;  

 

 

gnre.png

pgnreGNRERetorno.pas

ACBrGNREGuiasRetorno.pas

ACBrGNREGuiaFRDM.pas

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

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.