FoxPro/Visual FoxPro - Validar campos en fox

que tal señores...
alguine me puede ayudar con la parte de reglas de vaidacion, nesesito validar cada campos en mi formulario (combo, texto), por ejemplo donde se carge numero que sea solamentes numero, y donde se carge texto que tambien sea solamente texto, y por ultimo si el campo esta vacio (combo o texto) que me tire un mensaje que diga no puede estar vacio, y que el cursor se vuelva a posicionar en el mismo lugar para poder cargar..gracias.

Cada objeto tiene propiedaes y eventos en esos lugares tenes que harec lo qu epedis
por eje para validar tenes el metodo valid del objeto, escribi ahi el codigo y te validara lo que necesitas
ademas para que sea solo numero tenes la propiedad forma e inputsmask mira en la ayuda como se utilizan esta propiesdas y/o metodos

que tal señores...
alguine me puede ayudar con la parte de reglas de vaidacion, nesesito validar cada campos en mi formulario (combo, texto), por ejemplo donde se carge numero que sea solamentes numero, y donde se carge texto que tambien sea solamente texto, y por ultimo si el campo esta vacio (combo o texto) que me tire un mensaje que diga no puede estar vacio, y que el cursor se vuelva a posicionar en el mismo lugar para poder cargar..gracias.
la validaciones que necesito hacer es dentro del metodo losfocus.
mario

PARA VALIDAR EL TEXBOX PARA UN INGRESO NEMERICO PUEDES USAR EL GENERADOR DEL TEXBOX Y ASIGNARLE Q ES UN COMPO NUMERICO, O SINO IR A PROPIEDADES, DATOS Y EN FORMAT PONES POR EJE 999999 Y EN EL IMPUTMARK LO MISMO Y SI ES UN CAMPO PARA PRECIO PONES 99999.99 POR EJE.

PARA VALIDAR SI ESTA VACIO EL CAMPO TENGO ESTE EJE :
ESTO VA EN EL KEYPRESS DEL TEXT
with thisform
if lastkey() = 27
keybo " {alt+S}"
endif
if lastkey() = 13
if empty(.pageframe1.page1.text3.value) /// ESTO PARA VALIDAR QUE NO ESTE VACIO EL CAMPO
messagebox("Debe ingresar un Código","Aviso")
keybo " {alt+G}"
thisform.limpio
endif
select articulo
set order to codint
set dele on
go top
seek alltrim(.pageframe1.page1.text3.value)
*locate rest for articulo.codint = alltrim(.pageframe1.page1.text3.value) nooptimize
if found()
public precme,plista
plista=articulo.p_lista
precme=articulo.preciomed
.pageframe1.page1.text4.value=articulo.desartic
store "PIZZA" to ccdato
if atc(ccdato,.pageframe1.page1.text4.value) > 0
THISFORM.pageframe1.page1.Text14.Visible=.t.
THISFORM.pageframe1.page1.Text15.Visible=.t.
THISFORM.pageframe1.page1.Text16.Visible=.t.
THISFORM.pageframe1.page1.Text17.visible=.t.
THISFORM.pageframe1.page1.LABELtipo.visible=.t.
THISFORM.pageframe1.page1.label20.visible=.t.
THISFORM.pageframe1.page1.label21.visible=.t.
THISFORM.pageframe1.page1.label22.visible=.t.
THISFORM.pageframe1.page1.label23.visible=.t.
THISFORM.pageframe1.page1.label24.visible=.t.

else
THISFORM.pageframe1.page1.Text14.Visible=.f.
THISFORM.pageframe1.page1.Text15.Visible=.f.
THISFORM.pageframe1.page1.Text16.Visible=.f.
THISFORM.pageframe1.page1.Text17.visible=.f.
THISFORM.pageframe1.page1.LABELtipo.visible=.f.
THISFORM.pageframe1.page1.label20.visible=.f.
THISFORM.pageframe1.page1.label21.visible=.f.
THISFORM.pageframe1.page1.label22.visible=.f.
THISFORM.pageframe1.page1.label23.visible=.f.
THISFORM.pageframe1.page1.label24.visible=.f.


endif
.pageframe1.page1.text12.value=articulo.p_lista

else
messagebox("No existe el Artículo !!","Aviso")
keybo " {alt+G}"
thisform.limpio
* .pageframe1.page1.text4.setfocus // ESTO SIRVE PARA VOLVER A PEDIR EL CODIGO
return

endif
endif

endwith