FoxPro/Visual FoxPro - una manita por favor

Saludo,

problemas con LOSTFOCUS

Tengo tres objetos:

CODIGO NOMBRE CANTIDAD PRECIO VALOR

Para un facturacion capturo el codigo pero envio el focus a GOTFOCUS del valor, lugar donde tengo los codigos para guardar y otros controles.

el problema es que al salir del GOTFOCUS del valor quiero que regrese al codigo y no se esta quedando en el codigo, salta siempre al nombre y tengo que regresar al codigo manualmente o dando clic.

en el LOSFOCUS del valor y al final hago esto:

thisform.codigo.SETFOCUS
-------------------------------------
thisform.codigo.SETFOCUS
RETURN
--------------------------------------

NODEFAULT
--------------------------------------

NODEFAULT
RETURN

lo he hecho de estas 4 formas
Diganme que hago

Hasta donde se desde el gotfocus ni lostfocus no se puede cambiar el foco es decir no se puede ejecutar setfocus(), deberia darte un error de ejecucion, prueba colocar en otro lugar el setfocus por ejemplo en el valid

Saludos

prueba al perder el focus

esto lo debes poner en el evento "VALID" del textbox, el secreto o el valor para retornar al mismo campo es el RETURN (0), del codigo toma lo que te sirva

IF EMPTY (This.Value)
RETURN
else
thisform.control1
THISFORM.SUMATOTAL
thisform.sumatotal2
m.Folio = str (val (ThisForm.Folio), 5, 0)
IF EMPTY (ThisForm.folio)
RETURN
EndIf
m.folio = ThisForm.folio
Select t_pedidos
set order to folio
ThisForm.Container2.grdVista_detallepedido.Refresh
This.Value=""
This.Refresh
RETURN (0)
endif