Comparacion de fechas

Hola como estas, realmente no entendi que quieres hacer, pero si quieres
mostrar todos los registros que cumplan ese criterio es mas eficiente un
select eje:
use C:\Contratos\Tablas\contratos_2000 alias contratos in 0
if p_año = 2000
select * from contratos where fecha=date() into cursor vreportes
select vreportes
brow
endif

saludos

José G. Samper
http://groups.msn.com/desarrolladoresmiranda/

"john" escribió en el mensaje
news:f21301c43dbc$7e6bda80$
Tengo un inconveniente soy nuevo en FOX, tengo que capturar
la fecha del sistema y compararla contra la fecha de los
registros en una tabla, previamente defino un indice para
que lo busque dentro de la tabla, utilizo el siguiente
codigo pero no funciona, además como defino la expresion
del indice?

select a
use C:\Contratos\Tablas\contratos_2000.dbf

if p_año = 2000
fecha_sis = date()
Select a
scan all
set order to indice4
seek 'fecha_sis'
if found()
set filter to
browse noedit timeout 5
close all
p_año = 0
endif
endscan
endif


Agradezco la ayuda que me pudan prestar en la correccion
de la rutina anterior.