FoxPro/Visual FoxPro - una manita por favor

 
Vista:

una manita por favor

Publicado por MANY (332 intervenciones) el 12/07/2011 20:12:27
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

una manita por favor

Publicado por xx (378 intervenciones) el 14/07/2011 04:52:49
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

una manita por favor

Publicado por jose camilo (805 intervenciones) el 16/07/2011 22:45:14
prueba al perder el focus
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

una manita por favor

Publicado por HUGO (207 intervenciones) el 26/08/2011 00:49:04
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar