Ver Mensaje Individual
  #2  
Antiguo 23-02-2005
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola,
debes pasar los valores de Fecha1 y Fecha2 como parámetros a esa query:
Código Delphi [-]
procedure TFCotiReport.RzBitBtn2Click(Sender: TObject);
begin
  DM3.wQueryReport.Sql.Clear;
  DM3.wQueryReport.Sql.Add('SELECT No_Presupuesto, Cod_Cliente, 
Cliente, Obra, Fecha, FechaVenc');
  DM3.wQueryReport.Sql.Add('FROM "TPresupuestos.DB" Tpresupuestos');
  DM3.wQueryReport.Sql.Add('Where FechaVenc >= :Fecha1 And FechaVenc <= :Fecha2 ');
  DM3.wQueryReport.ParamByName('Fecha1').AsDateTime := DateTimePicker1.Date;
  DM3.wQueryReport.ParamByName('Fecha2').AsDateTime := DateTimePicker2.Date;
  DM3.wQueryReport.Open;
end;

Si no quieres tener encuenta la hora, minutos y segundos de los DateTimePicker:
Código Delphi [-]
  DM3.wQueryReport.ParamByName('Fecha1').AsDateTime := Trunc(DateTimePicker1.Date);
  DM3.wQueryReport.ParamByName('Fecha2').AsDateTime := Trunc(DateTimePicker2.Date);
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 23-02-2005 a las 18:27:48.
Responder Con Cita