FiveTech Support Forums

Estimados,

Cual es la forma correcta de llamar una ventana o dialogo desde un GET con la tecla Enter.

Atento a sus comentarios

Use bKeydown()

Algun ejemplo?

Probe con este codigo y no me funciona

@ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 40, 10 ;
bKeydown(msginfo("Prueba")

oDlg:bKeydown(msginfo("Prueba")

Mira los ejempllos del \samples

Se que alli hay ejemplos.

Gracias, pense que ayudarias

Manuel,

Funciona parcial. MI idea es que si el GET esta vacio, con Enter pueda llamar otra ventana. En caso de escribir en el GET y presionar Enter, pase al siguiente GET sin mostrar ventana.

Atento a tus comentarios

Pues muy sencillo, controla dentro de la funcion NuevoDialogo(NOMBCO) si la variable está vacía o no y en función de ello muestras el diálogo o no.

Manuel,

Lo hice de esta manera pero me sigue llamando la ventana, este vacia o no

FUNCTION nuevodialogo(NOMBCO)
LOCAL oDlg

IF NOMBCO !EMPTY

DEFINE DIALOG oDlg

ACTIVATE DIALOG oDlg

RETURN (.T.)

Manuel,

Sigue llamando al dialogo este vacio o no

¿Seguro?
Acabo de probarlo y funciona perfectamente.
¿Nos puedes mostrar tu código?

Ok,

Aca el Get, el cual debe permitir llamar a un dialogo con enter si esta vacio, en caso de tener info, continuar al siguiente Get:

@ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 60, 10 ;
VALID (NuevoDialogo(), .T.)

Aca la funcion recomendada:

FUNCTION nuevodialogo(NOMBCO)
LOCAL oDlg

IF EMPTY(NOMBCO)
DEFINE DIALOG oDlg

ACTIVATE DIALOG oDlg

ELSE
msginfo("No muestro el diálogo")
ENDIF
//
RETURN (.T.)

Saludos