Estoy haciendo una busqueda atravez de fecha uso 2 campos fecha
cuando las fecha son iguales busca la fecha que coincida con esa fecha cuando no busca por rago de fecha
mas sin embargo no esta haciendo nada de lo que le pido
1er inconsistencia es: cuando marco dos fecha de difereste mes teniendo en cuenta que la primera es menor que la segunda la busqueda no me entrega registros y se que hay registros en esa fecha. vea la image
Aqui
2do inconsistencia es: marco dos fecha dentro del mismo mes que se que hay datos, me muestra los datos mas sin embargo me muestra datos que no esta dentro de la busqueda. Vea la Imagen
Aqui
3er inconsistencia es: busco una fecha determinada y ambos componentes les pogo la misma fecha que se que si existe y no me devuelve nada la busqueda. Vea la Imagen
Aqui.
Les agrego el codigo esperando que me puedan ayudar.
Código Delphi
[-]
if Form1.MyQuery1.Active then
begin
form1.MyQuery1.Close;
form1.MyQuery1.SQL.Clear;
end;
with form1 do
begin
MyQuery1.SQL.Add('SELECT');
MyQuery1.SQL.Add('servicios.`status`,');
MyQuery1.SQL.Add('servicios.id_ser,');
MyQuery1.SQL.Add('servicios.f_recep,');
MyQuery1.SQL.Add('servicios.f_ini,');
MyQuery1.SQL.Add('servicios.nombre,');
MyQuery1.SQL.Add('servicios.ofi_dir,');
MyQuery1.SQL.Add('servicios.f_ter,');
MyQuery1.SQL.Add('servicios.ob_sol,');
MyQuery1.SQL.Add('servicios.m_correc,');
MyQuery1.SQL.Add('servicios.m_prev,');
MyQuery1.SQL.Add('servicios.software,');
MyQuery1.SQL.Add('servicios.red,');
MyQuery1.SQL.Add('servicios.`diseño`,');
MyQuery1.SQL.Add('servicios.soporte,');
MyQuery1.SQL.Add('servicios.impresion,');
MyQuery1.SQL.Add('servicios.sol,');
MyQuery1.SQL.Add('servicios.sol_via_email,');
MyQuery1.SQL.Add('servicios.sol_via_ofi,');
MyQuery1.SQL.Add('servicios.sol_via_oral,');
MyQuery1.SQL.Add('servicios.sol_via_tel,');
MyQuery1.SQL.Add('servicios.sol_via_otro,');
MyQuery1.SQL.Add('servicios.sol_via_ofi_num,');
MyQuery1.SQL.Add('servicios.sol_via_memo,');
MyQuery1.SQL.Add('servicios.ac_rea,');
MyQuery1.SQL.Add('servicios.obser,');
MyQuery1.SQL.Add('servicios.respon,');
MyQuery1.SQL.Add('servicios.dir_resp,');
MyQuery1.SQL.Add('servicios.img');
MyQuery1.SQL.Add('FROM');
MyQuery1.SQL.Add('servicios');
MyQuery1.SQL.Add('WHERE');
if JvDateTimePicker1.Date = JvDateTimePicker2.Date then
MyQuery1.SQL.Add('servicios.f_ini = '+ QuotedStr(DateToStr(JvDateTimePicker1.Date)) +'')
else begin
MyQuery1.SQL.Add('(servicios.f_ini >='+ QuotedStr(DateToStr(JvDateTimePicker1.Date)) +') AND (servicios.f_ini <='+ QuotedStr(DateToStr(JvDateTimePicker2.Date)) +')');
end;
MyQuery1.SQL.Add('ORDER BY');
MyQuery1.SQL.Add('servicios.f_ini');
MyQuery1.Open;