Estructuracion del Codigo en SQL!!

[jmedina]

Buen dia Foristas:

Me encontre con unos problemas , espero me puedan ayudar Gracias.
Uso Paradox 7 y Delphi 5.0 , necesito hacer una consulta de rango de fechas
y estructure un codigo que se ejecuta al pulsar un boton, pero tengo errores me dice que:

Invalid File Name.
Fecha1
Alguien me puede ayudar a modificar mi codigo, no he podido hacerlo
Este es mi Codigo:

procedure TFCotiReport.RzBitBtn2Click(Sender: TObject);
   Var
	  Fecha1,Fecha2:TDate; 
 begin
  Fecha1:= DateTimePicker1.Date;
  Fecha2:= DateTimePicker2.Date;
   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.Open;
 end;

Saludos espero de su gran ayuda

Gracias una vez mas
Jmedina

[defcon1_es]

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);

[jmedina]

gracias ya funciono , espero no tener que molestar otra vez

Saludos