PDA

Ver la Versión Completa : ayuda con quickreport


edgar_prospero
04-05-2012, 19:49:14
que hay buen dia aqui con una dudilla para ver si me pueden ayudar hay va un poco la explicacion, tengo una base de datos en mysql, tengo 2 datatimepicker y un boton al meter fecha inicial y ffecha final y darle al boton me da un reporte con la informacion dentro de esas fechas hasta ahi todo bien mi duda es como puedo hacerle para que en el reporte me aparesca que rango de fechas meti no se si me explique. este es mi codigo para sacar el reporte:

form1.tabla.close;
form1.tabla.SQL.Clear;
form1.tabla.SQL.Add('SELECT folio, nombre, fecha, problema FROM datos WHERE fecha>=:ini and fecha<=:fin ');
form1.tabla.ParamByName('ini').ASdate:=ini.Date;
form1.tabla.ParamByName('fin').ASdate:=fin.Date;
form1.tabla.PREPARE;
form1.tabla.Active:=TRUE;
form4.informe.Preview;

marcoszorrilla
04-05-2012, 19:55:14
Supongo que quieres mostrar en el encabezado algo como:

Listado de Factura entre 01-01-12 y 31-01-12

En el encabezado del listado en fase de diseño añades un qrlabel.

y en el evento beforePrint del objeto QuickRep pones:

qrLabel1.Caption:'Facturas entre '+frFormxx.DateToStr(DataTimePicker1.Date)+' y '+frFormxx.DateToStr(DataTimePicker2.Date);

Esa es la idea.

Un Saludo.

juanlaplata
04-05-2012, 19:57:38
Una ves hice algo como lo q necesitas, y como el reporte iba a ser fijo ( nada dinamico ), puse dos QRLabels en tiempo de diseño, y antes del Preview le doy el valor...
ni termine de escribirlo y ya lo habian comentado.
saludos

edgar_prospero
04-05-2012, 20:11:41
si eso es lo que quiero y trater de implementarlo asi como me dijiste pero me marcaba un error: undeclared identifier 'datetostr' abra alguna otra manera o porque sera ese error

juanlaplata
04-05-2012, 20:16:45
Tambien puedes usar
FormatDateTime ('dd/mm/yyyy',ini.Date)
Puedes poner cualquier formato valido para la fecha

edgar_prospero
04-05-2012, 20:23:57
gracias por su ayuda lo resolvi de la siguiente manera por si a alguien le puede servir :

procedure TForm4.informeBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin

qrlabel6.Caption:='De '+ FormatDateTime('dd/mm/yyyy',form3.ini.Date) + ' a ' + FormatDateTime('dd/mm/yyyy',form3.fin.Date);


end;