FoxPro/Visual FoxPro - Fecha

Hola !!, No puedo filtrar la fecha. Aqui les dejo el codigo de mi evento click. Haber si me pueden ayudar.

SET DATE BRITISH
thisformset.F1.AlwaysOnTop = .f.
thisformset.F1.Enabled = .f.
SELECT totaldia
PUBLIC ld
ld = DATE(thisformset.f1.ol1.year, thisformset.f1.ol1.month, thisformset.f1.ol1.day)
SET FILTER TO ld = year(fecha), month(fecha), DAY(fecha)
thisformset.form2.refresh
thisformset.form2.show

SET DATE BRITISH
thisformset.F1.AlwaysOnTop = .f.
thisformset.F1.Enabled = .f.
SELECT totaldia
PUBLIC ld
ld = DATE(thisformset.f1.ol1.year, thisformset.f1.ol1.month, thisformset.f1.ol1.day)
wait window vartype(id) &&devuelve D?
*SET FILTER TO ld = year(fecha), month(fecha), DAY(fecha)
SET FILTER TO fecha = id

thisformset.form2.refresh
thisformset.form2.show

Hola !!, me podrias explicar la siguiente linea de codigo :

wait window vartype(id) &&devuelve D?

El campo fecha de la tabla totaldia. Es de tipo fecha, pero con el formato norteamericano. Al poner SET DATE BRITISH cambia el formato del campo ?

Esa linea era para ver si te estaba devolviendo fecha. El formato del campo no se cambia, sino es como se ve. Yo prefiero usar SET DATE TO DMY

Hola !!, pero siguie sin funcionar el filtro de la fecha.

Que valor te esta mostrando el Wait window ?

Hola !!, me muestra una D.