Ver Mensaje Individual
  #6  
Antiguo 18-03-2015
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 585
Reputación: 23
santiago14 Va por buen camino
Question

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.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.

Última edición por santiago14 fecha: 18-03-2015 a las 14:37:23.
Responder Con Cita