Acúmulo de cupons SAT ao imprimir em sequência usaodo TACBrSATExtratoFR

[marcosfcosantos]

Estou utilizando o ACBrSATExtratoFR (FastReport) para imprimir os cupons SAT. Quando imprimo um único cupom e saio da tela, funciona perfeitamente; mas quando imprimo outro cupom sem sair da tela, o preview já apresneta dois cupons: o atual e o anterior, e assim por diante: se imprimir 10 cupons em sequência, sairão os dez cupons na última impressão.

Como resolver isso?

[Juliomar Marchetti]

limpar o componente antes de carregar o proximo senão vai ficar na lista

[marcosfcosantos]

Estou limpando o componente, conforme código abaixo:

        ACBrSAT1.CFe.LoadFromFile(cFile);
        try
          ACBrSATExtratoFR1.FastExtrato := DMI_DMIPath2 + 'Extrato SAT.fr3';
          if not lCancelado then
            ACBrSATExtratoFR1.ImprimirExtrato
          else
            ACBrSATExtratoFR1.ImprimirExtratoCancelamento;
        finally
          ACBrSAT1.CFe.Clear;
        end;

 

Mesmo assim, os cupons continuam se acumulando.

[Juliomar Marchetti]

Em 04/02/2022 at 11:09, marcosfcosantos disse:

Estou limpando o componente, conforme código abaixo:

        ACBrSAT1.CFe.LoadFromFile(cFile);
        try
          ACBrSATExtratoFR1.FastExtrato := DMI_DMIPath2 + 'Extrato SAT.fr3';
          if not lCancelado then
            ACBrSATExtratoFR1.ImprimirExtrato
          else
            ACBrSATExtratoFR1.ImprimirExtratoCancelamento;
        finally
          ACBrSAT1.CFe.Clear;
        end;

 

Mesmo assim, os cupons continuam se acumulando.

pega o exemplo do svn que tem para fast report e veja se ocorre o mesmo

[Wellington Graves]

No meu caso, eu simplesmente abri a unit ACBrSATExtratoFR e mudei na linha 333 o código abaixo, depois compilei novamente os fontes e parou o problema.

procedure TACBrSATExtratoFR.Imprimir;
begin
  case Filtro of
    fiNenhum:
      Begin
        if MostraPreview then
//          frxReport.ShowPreparedReport
          frxReport.ShowReport()
        else
          frxReport.Print;
      end;
    fiPDF : ImprimirExtratoPDF;
    fiHTML: ImprimirExtratoHTML;
  end;
  TipoImpressao(tiNormal);
end;

 

Espero que ajude mais pessoas.

[Juliomar Marchetti]

15 horas atrás, Wellington Graves disse:

No meu caso, eu simplesmente abri a unit ACBrSATExtratoFR e mudei na linha 333 o código abaixo, depois compilei novamente os fontes e parou o problema.

procedure TACBrSATExtratoFR.Imprimir;
begin
  case Filtro of
    fiNenhum:
      Begin
        if MostraPreview then
//          frxReport.ShowPreparedReport
          frxReport.ShowReport()
        else
          frxReport.Print;
      end;
    fiPDF : ImprimirExtratoPDF;
    fiHTML: ImprimirExtratoHTML;
  end;
  TipoImpressao(tiNormal);
end;

 

Espero que ajude mais pessoas.

Poderia explicar o motivo de ocorrer isso?

 

[Wellington Graves]

2 horas atrás, Juliomar Marchetti disse:

Poderia explicar o motivo de ocorrer isso?

 

Acredito que deva ser algo relacionado ao Fast Report, não sei se em todas as versões, mas por algum motivo ele acumula os cupons e mesmo você liberando da memória ele simplesmente ignora, lendo e pesquisando na internet eu vi alguns foruns e problemas parecidos com essa possível solução, resolvi testar e deu certo.