Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

ayuda con quickreport

Started by edgar_prospero , May 04 2012 11:49 AM

Please log in to reply

2 replies to this topic

#1 edgar_prospero

Advanced Member

Miembros
136 posts

Posted 04 May 2012 - 11:49 AM

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:

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;

0

Back to top

#2 Fenareth

Advanced Member

Administrador
3486 posts

LocationMexico City

Posted 04 May 2012 - 12:15 PM

Lo puedes hacer así:

1. Declara una variable pública de tipo string en el Form4 (que deduzco, es el del reporte).
2. Coloca una etiqueta en tu reporte donde quieres que se visualice el rango de fechas que has seleccionado.
3. En el evento BEFORE PRINT del reporte asigna el valor a la etiqueta:

delphi

   EtiquetaFecha.Caption := VariablePublica;

4. Modificamos un poco el 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.VariablePublica := 'De '+ FormatDateTime('dd/mm/yyyy',ini.Date) + ' a ' + FormatDateTime('dd/mm/yyyy',fin.Date); // Cargamos los valores de fecha de inicio y fin en la variable
    form4.informe.Preview;