FoxPro/Visual FoxPro - Calendario

Hola !!, tengo un calendario en un formulario y en el evento click del mismo tengo el siguiente codigo :

SELECT fecha
PUBLIC fecha
IF NOT EMPTY (thisformset.F1.Ol1.year + thisformset.F1.Ol1.month + thisformset.F1.Ol1.day)
lcFiltro = [SET FILTER TO afecha = DATE(] + ;
TRANSFORM(thisformset.f1.ol1.day) + [,] + ;
TRANSFORM(thisformset.f1.ol1.month) + [,] + ;
TRANSFORM(thisformset.f1.ol1.year) + [)]
&lcFiltro
endif
thisformset.form2.setfocus
thisformset.form2.show

Cuando lo ejecuto y hago click en el mismo me aparece el siguiente mensage de error :
"F1 es un miembro desconocido"
Espero que me puedan ayudar con este problema.
Saludos.

Hola
aver si no mal recuerdo.

we_dia = thisform.olecalendar1.day
we_mes = thisform.olecalendar1.month
we_año = thisform.olecalendar1.year

thisform.text1.value = padl(int(we_dia),2,'0')+'/'+ padl(int(we_mes),2,'0')+'/'+ str(we_año,4,0)

este es el clasico ejemplo para aplicar el valor de un calendar object ahora tu calendarobeject lo tienes dentro de algun pageframe o algo por el estilo ?

al momento de darle click al control del calendario, mejor ubica el click derecho y hay una opcion que te devolvera los objetos que existen en tu formulario ese valor copialo dentro e tu programa.

ojala te ayude

saludos.