Margens DANFe Fastreport com FastReport 6.7. ignoram alterações correção(sugestão)

[EdmarFrazao]

Encontrei um problema com o Fastreport  6.7 e a impressão do DANFe

 

Não acontece no fast 6.5  e 6.6

 

Quando configura as margens e manda visualizar o DANFe as margens são visualizadas corretamente.

Mas ao clicar em imprimir o Fast volta as margens para o padrão.

Se mandar imprimir direto as margens são ignoradas também.

 

Unit: ACBrNFeDANFEFRDM

Procedimento: AjustaMargensReports

Não funciona se usar frxReport.ShowPreparedReport

 

Fiz alteração no procedimento  AjustaMargensReports

E ao invés de chamar AjustaMargensReports mudei para chamar

   frxReport.ShowReport(true)

 

Ainda não testei no CTe mas como os métodos são iguais provavelmente ira dar o mesmo problema

So acontece com Fastreport 6.7 

Usei  Delphi 10.3

 

procedure TACBrNFeFRClass.AjustaMargensReports;

var

  Page: TfrxReportPage;

  I: Integer;

begin

  //não funciona com frxReport.ShowPreparedReport e Fastrepor 6.7

{  for I := 0 to (frxReport.PreviewPages.Count - 1) do

  begin

    Page := frxReport.PreviewPages.Page;

    if (DANFEClassOwner.MargemSuperior > 0) then

      Page.TopMargin := DANFEClassOwner.MargemSuperior;

    if (DANFEClassOwner.MargemInferior > 0) then

      Page.BottomMargin := DANFEClassOwner.MargemInferior;

    if (DANFEClassOwner.MargemEsquerda > 0) then

      Page.LeftMargin := DANFEClassOwner.MargemEsquerda;

    if (DANFEClassOwner.MargemDireita > 0) then

      Page.RightMargin := DANFEClassOwner.MargemDireita;

  end;

  }

  //10/06/2020  FastReport 6.7

  for I := 1 to (frxReport.PreviewPages.Count) do

  begin

   // Page := TfrxReportPage(frxReport.FindObject('Page'+IntToStr(i)));

    page := TfrxReportPage(frxReport.FindObject('Page'+IntToStr(i)));

    if page<>nil then

    Begin

      if (DANFEClassOwner.MargemSuperior > 0) then

        Page.TopMargin := DANFEClassOwner.MargemSuperior;

      if (DANFEClassOwner.MargemInferior > 0) then

        Page.BottomMargin := DANFEClassOwner.MargemInferior;

      if (DANFEClassOwner.MargemEsquerda > 0) then

        Page.LeftMargin := DANFEClassOwner.MargemEsquerda;

      if (DANFEClassOwner.MargemDireita > 0) then

        Page.RightMargin := DANFEClassOwner.MargemDireita;

    End;

  end;

 

end;

ACBrNFeDANFEFRDM.pas

[EdmarFrazao]

Antes da correção.

No preview, depois escolhe imprimir, ao volta a tela ja mostra as margens retornadas para o padrão.

É Impresso com as margens incorretas

 

 

[EdmarFrazao]

Retificando.

1)Se imprimir direto a minha mudança não funciona.

2)So funciona se dar preview primeiro e depois mandar imprimir

3)Se mandar salvar PDF também não funciona nem com a minha alteração nem com a AjustaMargensReports padrão do acbr.

 

Se não mudar as margens não ve o problema.

Esta acontecendo Fastreport 6.7 Delphi Xe3 e 10.3 , Nfe e Cte ( que ja testei)

Vou voltar para o Fastreport 6.6 e conferir.

 

[Juliomar Marchetti]

Por favor pois ainda não consegui instalar a 6.7 pra testar no Delphi 10.4

[EdmarFrazao]

Voltei a versão do Fastreport para 6.6.16 e deu o mesmo problema

Nfe e Cte.

Tenho executável gerado em 02/05/2020 com fastreport 6.6.16 e acbr e não tinha o problema

Acho que esta em alguma implementação da acbr apos esta data

No Nfe e Cte com Danfe Fastreport

 

[EdmarFrazao]

tem a ver com esta alteração

 

[Juliomar Marchetti]

FAvor testar subi modificações no fontes

[EdmarFrazao]

Ok tudo funcionando novamente. Obrigado pela atenção

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.