vroa74
19-10-2012, 18:05:09
tengo en un porograma un sistema de buqueda que componen varios campos de texto y solo el rango de las busqueda por fecha da problemas
le pongo el franmento de codigo que me da problemas.
if (JvDateTimePicker1.Date <> JvDateTimePicker1.Date) then
begin
DecodeDate(JvDateTimePicker1.Date,A,M,D); // decodifoco la primera fecha
FIni := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); // reconstruyo la primera fecha
DecodeDate(JvDateTimePicker2.Date,A,M,D); //decodifico la sehunda fecha
FFin := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); reconstuyo la segunda fecha
if con >= 1 then // este es un contador que uo para saber si anteponerle el and a la sentencia query y como es la ultima parte del query no requiero incrementarla
dm.query.SQL.Add('AND');
dm.soli.SQL.Add('fecha BETWEEN '+QuotedStr(Fini) + ' AND ' + QuotedStr(FFin)+'');
end;
marca error en la linea 14 en el query.
estoy usando el appserv 2.5.10
le pongo el franmento de codigo que me da problemas.
if (JvDateTimePicker1.Date <> JvDateTimePicker1.Date) then
begin
DecodeDate(JvDateTimePicker1.Date,A,M,D); // decodifoco la primera fecha
FIni := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); // reconstruyo la primera fecha
DecodeDate(JvDateTimePicker2.Date,A,M,D); //decodifico la sehunda fecha
FFin := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); reconstuyo la segunda fecha
if con >= 1 then // este es un contador que uo para saber si anteponerle el and a la sentencia query y como es la ultima parte del query no requiero incrementarla
dm.query.SQL.Add('AND');
dm.soli.SQL.Add('fecha BETWEEN '+QuotedStr(Fini) + ' AND ' + QuotedStr(FFin)+'');
end;
marca error en la linea 14 en el query.
estoy usando el appserv 2.5.10