FoxPro/Visual FoxPro - Enfoque del text

 
Vista:

Enfoque del text

Publicado por juan Ayala (78 intervenciones) el 11/08/2008 22:13:07
Mi problema es el siguiente;
Hago una busqueda en el lostfocus de un text

IF THISform.codigo.VALUE>0
*
SELECT clientes
SET ORDER TO telefono
IF SEEK(thisform.codigo.Value)
THISFORMSET.MAESTRO.TELEFONO.VALUE=TELEFONO
THISFORM.REFRESH
ELSE
THISFORMSET.MAESTRO.TELEFONO.VALUE=0
MESSAGEBOX('NO existe telefono registrado !!!',0+64,'Atención')
thisform.codigo.setfocus && aqui intento devolver el infoque al mismo campo
&& pero no posiciona el cursor en el text codigo
eNDIF
*
*
ENDIF
pregunta; alguien me puede ayudar diciendo como consigo que el enfoque vuelva al objeto thisform.codigo.setfocus.. en el lostfocus no me obedece
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
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Enfoque del text

Publicado por kong (682 intervenciones) el 12/08/2008 00:35:23
haber si logro desifrarlo.

. Quieres que si no encuentra un numero de telefono, entonces que se quede en el mismo texbox. Cierto?
. Yo haria lo siguiente

- en el KeyPress, pondria el codigo de busqueda
IF nKeyCode=13
...SEEK alltrim(thisform.telefono.value) &&Prefiero usar campo de caracteres para los telefonos
...if found()
......thisform.telefono.value=clientes.codigo
.....else
......thisform.telefono.value=""
...endif
endif

- en el lostfocus
if alltrim(this.value)=""
......return .F.
.....else
......nodefault
......thisform.siguientetextbox.setfocus
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