Correção DACTE (Marca d'água)

[Jemison Vidal]

Bom dia,

Ao pré-visualizar ou imprimir um cte cancelado, a Marca d´agua não estava saindo na impressão, o problema só estava visível para ambiente de produção;

Abaixo Código como era:

procedure Overlay1OnBeforePrint(Sender: TfrxComponent);
begin
  Overlay1.Visible := <Identificacao."TpAmb"> = '2';
  if Overlay1.Visible then
  begin              
    Overlay1.Height        := Engine.PageHeight;
    memWatermark.Width     := Overlay1.Width;                                  
    memWatermark.Height    := Engine.PageHeight;
    memWatermark.Font.Size := 40;
  end;                  
end;

Como Ficou:

procedure Overlay1OnBeforePrint(Sender: TfrxComponent);
begin                                   
 if (<Parametros."Mensagem0"> <> '') then
  begin
    Overlay1.Visible       := True;                                                                            
    Overlay1.Height        := Engine.PageHeight;
    memWatermark.Width     := Overlay1.Width;                                  
    memWatermark.Height    := Engine.PageHeight;
    memWatermark.Font.Size := 40;
  end;                  
end;

Se possível, disponibilizar no SVN, Obrigado!

DACTE.fr3

[Juliomar Marchetti]

esse consegui subir no svn!

mas veja que tem outras opções de fr3 e se elas já não atendem também!

obrigado