FoxPro/Visual FoxPro - Volver al TextBox de inicio

   
Vista:

Volver al TextBox de inicio

Publicado por Ramoncito (81 intervenciones) el 18/02/2009 21:52:49
Hola buenas tardes.. tengan todos ustedes amigos... deseo me puedan ayudar con lo siguiente.. mas bien se trata de un formulario de punto de venta... y es como sigue:

tengo un FORM en el cual tengo un textbox llamdo nCodigo el cual es caracter de 25 de long. y es donde captura el codigo la lectora... en el Evento LostFocus tengo el siguiente codigo:

SELECT articulos
SET ORDER TO CODEBAR && CODEBAR
GO top
locate FOR ALLTRIM(CodeBar)=ALLTRIM(nCodigo)
IF ! EOF()
nCodigo=ALLTRIM(codebar)
carticulo=ALLTRIM(articulo)
nCant=1
nPrecio=precioventa
SELECT paso
SET ORDER TO ARTICULO && ARTICULO
APPEND BLANK
replace cant WITH ncant
replace codigo WITH ncodigo
replace articulo WITH carticulo
replace precio WITH nprecio
ntotal=ntotal+nprecio
Thisform.Grid1.Refresh
Thisform.Vacia() && Vacia las variables
ELSE
MESSAGEBOX('El Registro no Existe')
RETURN 0
ENDIF
Thisform.Refresh

Deseo que al momento de recoger el codigo arriba nCodigo, tome nuevamente el foco para introducir otro codigo de barras... y asi sucesivamente...

o si alguien tiene una me podria decir donde puedo poner el codigo anterior... y que debo hacer para retornarle a NCODIGO el SetFocus...
Muchas Gracias Amigos...
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

RE:Volver al TextBox de inicio

Publicado por Mario (199 intervenciones) el 19/02/2009 12:56:10
Proba el siguiente código

IF !EMPTY(This.Value)
This.Value=""
RETURN This.Value
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

RE:Volver al TextBox de inicio

Publicado por Ramoncito (81 intervenciones) el 19/02/2009 15:25:47
este codigo donde lo voy a insertar..??

al inicio del evento lostfocus del textbox...??

o en que evento del textbox...??
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

RE:Volver al TextBox de inicio

Publicado por Mario (199 intervenciones) el 19/02/2009 18:23:29
En el Valid
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