Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

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


gutembergscosta
  • Este tópico foi criado há 960 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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

Edited by gutembergscosta
Link to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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 to comment
Share on other sites

  • 1 month later...
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

Edited by gutembergscosta
  • Like 1
Link to comment
Share on other 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.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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 to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.