FoxPro/Visual FoxPro - evitar datos vacíos y negativos

como hago para que en un cuadro de texto me aparezca un mensaje cada vez que no ingrese un valor si es caracter y si es numérico que no permita números negativos.
Gracias.

en el evento valid valida el proceso que quieres que no cumpla o cumpla

En el evento VALID():
IF VARTYPE(THIS.VALUE)="C" AND EMPTY(THIS.VALUE)
wait wind "No puede estar vacío."
RETU .F.
ENDIF

IF VARTYPE(THIS.VALUE)="N" AND THIS.VALUE<0
wait wind "No puede ingresar números negativos."
RETU .F.
ENDIF