Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda con quickreport (https://www.clubdelphi.com/foros/showthread.php?t=78619)

edgar_prospero 04-05-2012 20:49:14

ayuda con quickreport
 
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:
Código Delphi [-]
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 20: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:
Código Delphi [-]
qrLabel1.Caption:'Facturas entre '+frFormxx.DateToStr(DataTimePicker1.Date)+' y '+frFormxx.DateToStr(DataTimePicker2.Date);
Esa es la idea.

Un Saludo.

juanlaplata 04-05-2012 20: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 21: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 21:16:45

Tambien puedes usar
FormatDateTime ('dd/mm/yyyy',ini.Date)
Puedes poner cualquier formato valido para la fecha

edgar_prospero 04-05-2012 21:23:57

gracias por su ayuda lo resolvi de la siguiente manera por si a alguien le puede servir :

Código Delphi [-]
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;


La franja horaria es GMT +2. Ahora son las 01:02:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi