FoxPro/Visual FoxPro - agregar fecha auna caja de texto

TENGO UN PROBLEMA ESTOY UTILIZANDO VISUAL FOX 6.0 Y TENGO UN CONTOL DE FECHA OLE CONTROL Y QUIERO PONER LA FECHA DEL CALENDARIO EN UNA CAJA DE TEXTO

thisform.txtfecini.value = ctod(str(thisform.olefecini.day) ;
+ '/' + str(thisform.olefecini.month) ;
ENDPROC
NO ME FUNCIONA ESTE PROCEDIMIENTO LO COLOQUE EN EL CLICK EVEN REQUIERO UNA AYUDA

No sé cómo será tu código real. En lo que muestras te falta el año.

De todos modos, me parece más sencillo:
oControl=thisform.olefecini
thisform.txtFecini.Value= DATE( oControl.year , oControl.month , oControl.day )

La principal ventaja de usar la función DATE() es que no depende SET DATE TO, además de simplificar la escritura.

Estimado Amigo :

Asumo que estas utilizando el DTPicker...

Aqui una forma :

*WITH Thisform.DTPicker
* dFech_Nac = DATE(.Year,.Month,.Day) && Almacena la Fecha Registrada
*ENDWITH

Espero haber respondido a tu pregutna

saludos,

GABRIEL