Danfe Fastreport - Correção

[Maxisoft]

Olá Pessoal,

 

Verifiquei que há um erro no DANFe do FastReport quando a mesma tem mais de uma página. O logotipo acaba deslocando para o lado.

 

Fiz a correção e envio abaixo o arquivo corrigido. Fiz os testes e ficou OK. Se aprovado sugiro atualizar no SVN.

 

Qualquer dúvida é só avisar.

 

Obrigado, um abraço!

DANFE_FastReport.zip

[Isaque Pinheiro]

Baixei,vou analisar e subo sua colaboração, obrigado.

[Isaque Pinheiro]

vc fez uma atualização antes de alterar? Subi um ontem deste arquivo.

[Maxisoft]

Sim, fui eu mesmo que tinha enviado. Hoje verifiquei que ocorre um problema se há mais de uma página no DANFe. Fiz apenas uma alteração no script do arquivo .fr3.

 

Alterei o código para este:

 

procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  if Trim(<Parametros."Imagem">) <> '' then
  begin              
    imgLogomarca.Picture.LoadFromFile(<Parametros."Imagem">);
    if Trim(<Parametros."LogoExpandido">) = '1' then
    begin
      if (Memo10.Visible) then
      begin                  
        Memo10.Visible := False;
        Memo11.Visible := False;
        imgLogomarca.Width := imgLogomarca.Width+Memo10.Width;
      end;                  
    end;
  end else
  begin
    if (imgLogomarca.Visible) then
    begin                
      Memo10.Width := Memo10.Width + Memo10.Left;
      Memo11.Width := Memo11.Width + Memo11.Left;
      Memo10.Left := 0;
      Memo11.Left := 0;
      imgLogomarca.Visible := False;
    end;                
  end;

 

Obrigado!

Editado 25 Janeiro, 2013 por Maxisoft