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