Problemas con fechas
Publicado por Problemas con fechas (4 intervenciones) el 15/08/2009 06:43:19
Hola, con el siguiente codigo quiero realizar una consulta sobre pagos entre dos fechas. Resulta que hago la consulta sql aparentemente bien, pero cuando ejecuto el programa entro las dos fechas desde la interface y no me devuelve pagos entre las dos fechas, si no que me muestra pagos de cualquier fecha.
Alguien sabe cual puede ser el problema???.
Utilizo la delphi 7 y access 2003
feIni:='#' + fecha1.Text + '#';
feFin:='#' + fecha2.Text + '#';
codDeudor:=inttostr(DataModule1.Deudor.FieldValues['codDeudor']);
DataModule1.ResumenGeneral.SQL.Clear;
DataModule1.ResumenGeneral.SQL.Add('Select p.Concepto,p.Fecha,p.Monto, p.Pagado, p.Observaciones from pagos p, deudores d where p.codDeudor= ' + codDeudor + ' and p.codDeudor=d.codDeudor and cobrado ='+QuotedStr('No') + 'and p.fecha>= '+ feIni + ' and p.fecha <=' + feFin + ' order by fecha,nro');
DataModule1.ResumenGeneral.Close;
DataModule1.ResumenGeneral.Open;
Saludos
Muchas gracias.
Alguien sabe cual puede ser el problema???.
Utilizo la delphi 7 y access 2003
feIni:='#' + fecha1.Text + '#';
feFin:='#' + fecha2.Text + '#';
codDeudor:=inttostr(DataModule1.Deudor.FieldValues['codDeudor']);
DataModule1.ResumenGeneral.SQL.Clear;
DataModule1.ResumenGeneral.SQL.Add('Select p.Concepto,p.Fecha,p.Monto, p.Pagado, p.Observaciones from pagos p, deudores d where p.codDeudor= ' + codDeudor + ' and p.codDeudor=d.codDeudor and cobrado ='+QuotedStr('No') + 'and p.fecha>= '+ feIni + ' and p.fecha <=' + feFin + ' order by fecha,nro');
DataModule1.ResumenGeneral.Close;
DataModule1.ResumenGeneral.Open;
Saludos
Muchas gracias.
Valora esta pregunta


0