FoxPro/Visual FoxPro - Enviar a primer campo en un formulario

Estoy haciendo un formulario para ingresar datos de facturas de compra con los siguientes campos:
Fecha
Tipo Factura (A-B-C)
Prefijo
Numero
Denominación Proveedor

Otros campos

Cuando se ingresan los datos en Tipo-Prefijo y Numero, busca en la Base de Datos que no exista dicho dato y si existe pone un mensaje que ya está ingresado a nombre de un determinado proveedor.

Es para verificar de no entrar 2 veces la misma factura.

En dicho mensaje hay un boton NO INGRESAR, que cuando se presiona pone todo a 0 para volver a ingresar la factura.

Mi problema es que no se como enviar nuevamente al campo FECHA para que vuelva a empezar.

Desde ya gracias.

En el boton NO INGRESAR:
vfecha = THISFORM.fecha.Value
* Inicializar las variables del FORM.
THISFORM.fecha.Value = vfecha
THISFORM.fecha.SetFocus

Gracias por la pronta respuesta

* Inicializar las variables del FORM.
THISFORM.fecha.Value = vfecha
THISFORM.fecha.SetFocus

Esto se pone en Init del FORM?

No vuelve a la fecha

Sigue igual, algo estaré haciendo mal?

Pon el codigo de NO INGRESAR

En init (text3 es el campo de fecha)
THISFORM.text3.Value = vfecha
THISFORM.text3.SetFocus

En click
vfecha = THISFORM.text3.Value

Edgar, Pon el codigo de NO INGRESAR, caso contrario solo estoy suponiendo, pon el codigo.....

NO INGRESAR click
vfecha = THISFORM.text3.Value
THISFORM.text3.Value = vfecha
THISFORM.text3.SetFocus

Lo puse en el post de arriba

buena suerte.........

Muchas gracias.
Anduvo a la perfección.