[GerTorresM]

Hola a tod@s


Bien la situacion que tengo hoy es la siguiente:


Pretendo crear una clase con la que se manejan algunas caractericas que deseo tener en los reportes de la totalidad de la aplicación, es decir un reporte base; para el efecto he hecho lo siguiente:

1. Cree tomando las opciones : File -> new -> other -> Report un reporte basado en quick report.

2. Defini una serie de etiquetas que se han de utilizar en el report.

3. Por último intente llenar las etiquetas utilizando los siguiente eventos :

1. Con el Create, pero como no encontre el create en QReport, entonces utliice el WinControlFormCreate, que pertence al formulario como tal, tal como se puede ver en el código adjunto, sin obtener resultado alguno.

2. Como no obtuve resultados, decidi utilizar el evento OnPreview, pero para desgracia ni siquiera visualiza el reporte.

Adjunto el Código

Código Delphi [-]

unit FrepBaseReporte;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  DB, DBTables, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, Dialogs,
  QRExport;

type
  TQRRepBaseReporte = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    TitleBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLSoftmilenium: TQRLabel;
    QRPagina: TQRLabel;
    QRSDPagina: TQRSysData;
    QRSDFechaHora: TQRSysData;
    QRIEscudoIzquierda: TQRImage;
    QRIEscudoDerecha: TQRImage;
    QRLNombreEmpresa: TQRLabel;
    QRLNit: TQRLabel;
    QRLCiudad: TQRLabel;
    QRLNombreReporte: TQRLabel;
    QRLLogo: TQRLabel;
    QRTFTexto: TQRTextFilter;
    QRCSVFComas: TQRCSVFilter;
    QRHTMLFWeb: TQRHTMLFilter;
    procedure QuickRepAfterPreview(Sender: TObject);
    procedure WinControlFormCreate(Sender: TObject);
  private

  public

  end;

var
  QRRepBaseReporte: TQRRepBaseReporte;

implementation

uses Uprocedimientos, UDMReportes;

{$R *.DFM}

procedure TQRRepBaseReporte.QuickRepAfterPreview(Sender: TObject);
begin
  Self.DataSet.Close;
end;

procedure TQRRepBaseReporte.WinControlFormCreate(Sender: TObject);
Var QCodigo : TQuery;
begin
  QCodigo:= UProcedimientos.CrearConsulta();
  With QCodigo do
    begin
      sql.Text:= 'Select * from Configuracion';
      try
        open;
        QRLNombreEmpresa.Caption:= FieldByName('NombreEmpresa').AsString;
        QRLNit.Caption:= 'Nit ' + FieldByName('Nit').AsString;
        QRLCiudad.Caption:= FieldByName('Ciudad').AsString;
        QRLNombreReporte.Caption:='';
        QRLLogo.Caption:= FieldByName('Lema').AsString;
        QRIEscudoIzquierda.Picture.LoadFromFile(FieldByName('Escudo').AsString);
        QRIEscudoDerecha.Picture.LoadFromFile(FieldByName('Escudo').AsString);
      Except
      end
    end;
  Self.DataSet.Open;
end;

end.

¿Que debo hacer, en que evento lo debo ingresar?



Gracias de antemano



gertorresm