Cargar Grid desde CajaTexto y no perder setfocus
Estoy realizando una aplicación en donde cargo una grilla desde una caja de texto. Esta caja de texto tiene en el valid, código que valida lo que ingreso. Dicha caja de texto no se puede poner setfocus en el valid.
En concreto. Quiero cargar la grilla desde una caja de texto y que el setfocus siempre quede en dicha caja de texto permitiéndome cargar la grilla de forma rápida.
Si pongo return .f. Me permite hacer lo que quiero pero no salgo más de dicha caja de texto.
La grilla contiene una clase combobox asociada a un id de la tabla. En la caja de texto cargo el id, donde la ventaja de tener el combo es que me permite modificar dicho id ingresado.
Gracias.
En concreto. Quiero cargar la grilla desde una caja de texto y que el setfocus siempre quede en dicha caja de texto permitiéndome cargar la grilla de forma rápida.
Si pongo return .f. Me permite hacer lo que quiero pero no salgo más de dicha caja de texto.
La grilla contiene una clase combobox asociada a un id de la tabla. En la caja de texto cargo el id, donde la ventaja de tener el combo es que me permite modificar dicho id ingresado.
Gracias.
1 respuesta
Respuesta de grego
Creo que la única forma de mantener el focus en la caja es con un return .f. lo que debes de hacer es evaluar una condición y si se cumple que haga los procesos que desea y si no que salga del cuadro de texto:
Ejemplo en el evento valid:
If mcodpro = space(10)
cMessageTitle = 'Verifique!!!'
cMessageText = 'Código del artículo está en blanco, Buscar de nuevo?'
nDialogType = 4 + 64 + 256
* 4 = Botones Sí y No
* 32 = Icono del signo de interrogación
* 256 = El segundo botón es el predeterminado
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
**** Para que devuelva el enfoque al procedimiento que lo llamo
Retur .F.
case nAnswer = 7
**** en caso de que la condicion sea cierta sale del cuadro de texto
retu .t.
Endcase
Endi
Ejemplo en el evento valid:
If mcodpro = space(10)
cMessageTitle = 'Verifique!!!'
cMessageText = 'Código del artículo está en blanco, Buscar de nuevo?'
nDialogType = 4 + 64 + 256
* 4 = Botones Sí y No
* 32 = Icono del signo de interrogación
* 256 = El segundo botón es el predeterminado
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
**** Para que devuelva el enfoque al procedimiento que lo llamo
Retur .F.
case nAnswer = 7
**** en caso de que la condicion sea cierta sale del cuadro de texto
retu .t.
Endcase
Endi
