Uses en FastReport

[santiago14]

Ahhh, el ejemplo que pusiste funciona porque lo estás haciendo en el TForm1.
Lo que yo digo es dentro de la estructura de FastReport (PascalScript)
Transcribo lo que tengo:

En un DataModule tengo un frxReport (frxTapaBoletinViejo), entrando a él quiero hacer que FastReport me cuente que caja de texto ha sido impresa, de ahí que me pareció lo mas adecuado que eso salga a través de EventLog de Delphi.

Esto es lo que tengo en el DataModule

Código Delphi [-]
unit dmReportes;

interface

uses
  System.SysUtils, System.Classes, frxRich, frxClass, sRichEdit,
  Vcl.ExtCtrls, frxDBSet, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, Data.DB,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, frxExportPDF, frxExportRTF,
  Datasnap.Provider, Datasnap.DBClient, frxDesgn, dataModule, frxExportText,
  Winapi.Windows;

type
  TdtmReportes = class(TDataModule)
    
    frxTapaBoletinViejo: TfrxReport;
    
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  dtmReportes: TdtmReportes;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}


end.

Ahora bien, entro en el frxReport (Edit report), me aparecen las herramientas de edición propias de FastReport.

Y en la parte de código (code), es donde intento poner el código que he puesto en post's anteriores.

Dentro de la pestaña Code he puesto lo siguiente:

Código Delphi [-]
uses 
  System.SysUtils;                                                                                    
   

procedure avisoCOMPROBANTEOnAfterPrint(Sender: TfrxComponent);
begin
  OutputDebugString('Hola');                                                        
end;

begin

end.

Al intentar correrlo, el error es "Identifier expected" y el cursos se posiciona en la "S" (la primera) de System.SysUtils

En el formulario FastReport solament tengo una cajita de texto "AvisoComprobante" que es un Memo común de FastReport.

[santiago14]

Intenté poniendo un frxReport en el TForm1 y la cosa no ha cambiado.

Teniendo el componente frxReport en un DataModule como en un TForm no salva el error.

Espero que ahora se entienda mejor.
Gracias compañeros.

Santiago.

[[duilioisola]]

Ahora entiendo, no es en Delphi!
Es en el script de FastReport.

El script no está unido a Delphi. No puedes utilizar cosas de tu programa en ese script. Solo lo que FastReport te "traduce".

Creo que lo mejor es que en tu aplicación Delphi agregues algo al evento OnEnterRect del componente frxReport.

Algo así:

Código Delphi [-]
procedure TdtmReportes.frxTapaBoletinViejoEnterRect(Memo: TStringList; View: TfrView);
begin
  OutputDebugString('FastReport ha pasado por ' + View.Name + ', el cual contiene las siguientes líneas: ' + Memo.Text);
end;

[santiago14]

Empezado por duilioisola

Ahora entiendo, no es en Delphi!
Es en el script de FastReport.

El script no está unido a Delphi. No puedes utilizar cosas de tu programa en ese script. Solo lo que FastReport te "traduce".

Creo que lo mejor es que en tu aplicación Delphi agregues algo al evento OnEnterRect del componente frxReport.

Algo así:

Código Delphi [-]
procedure TdtmReportes.frxTapaBoletinViejoEnterRect(Memo: TStringList; View: TfrView);
begin
  OutputDebugString('FastReport ha pasado por ' + View.Name + ', el cual contiene las siguientes líneas: ' + Memo.Text);
end;

Uhhh, perfecto. Si logro hacer funcionar eso sería genial.

Lo pongo en práctica y publico los resultados aquí.

CONSULTA ADICIONAL: ¿De esta manera podría sacar un valor que se generó dentro del Script FastReport? Por ejemplo, ¿el nro de página que acaba de imprimir?.


Muchas gracias.

Santiago.

[santiago14]

No hay un evento OnEnterRect()...
¿Será este el evento correcto?:

Código Delphi [-]
procedure TdtmReportes.frxAvisosRTFGetValue(const VarName: string;
  var Value: Variant);

begin

//.....
end;

Santiago.

[[duilioisola]]

Perdón por la confusión. Lo que te he comentado es de otra vesión de FastReport.
En la que tu comentas (creo que debe ser la 3 o 4) debes utilizar el evento OnBeforePrint.

Código Delphi [-]
procedure TdtmReportes.frxAvisosRTFBeforePrint(Sender: TfrxReportComponent);
begin
  // Si se trata de un Memo
  if (Sender is TfrxCustomMemoView) then
  begin
     with TfrxCustomMemoView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ', el cual contiene las siguientes líneas: ' + Memo.Text);
        // ...
     end;
  end;

  // Si se trata de un RichEdit
  if (Sender is TfrxRichView) then
  begin
     with TfrxRichView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ' (RichEdit), el cual contiene el tag: ' + TagStr + ' las siguientes líneas: ' + Memo.Text);
        // ...
     end;
  end;

  // Si se trata de una imagen
  if (Sender is TfrxPictureView) then
  begin
     with TfrxRichView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ' (Imagen), el cual contiene el siguiente tag: ' + TagStr);
        // ...
     end;
  end;
end;

A OnGetValue entra cada vez que evalúa una variable. Yo la utilizo para pasarle información que sería difícil controlar desde FastReport.

Código Delphi [-]
procedure TdtmReportes.frxAvisosRTFGetValue(const VarName: string; var Value: variant)
begin
  if (UpperCase(VarName) = 'CalculoDificilEnFastReport') then
  begin
     //...
     Value := {Resultado del cálculo}
  end;
end;

[santiago14]

Mi versión de FastReport es la 5.2.
Me voy a sentar manos a la obra y luego publico mis resultados.

Gracias. Santiago.