De Fox Dos a Visual Fox
Tengo un programa de Fox y lo estoy pasando a Visual fox, el problema es que cuando quiero seleccionar un dato de los mostrados en una array para seleccionar con enter no me lo selecciona lo que si hacia en foxpro ahora en visual debo darle enter y tab para seleccionarlo y pasar a otro campo quiero que con enter lo seleccione de una vez. Este es el código:
PUBLIC ARRAY ADepto (RECCOUNT(2),2)
SELECT dos.NomDep, dos.Depto;
FROM dos;
INTO ARRAY ADepto;
ORDER BY dos.NomDep
SAVE SCRE TO ScreAux
SET UDFP TO REFERENCE
DO WHILE .T.
@12,16 GET m.depto FROM ADepto;
VALID FDepto ( m.depto )
WAIT '1.Selecciono'+m.depto+'Departamento' WINDOW TIMEOUT 2
READ
SET UDFP TO VALUE
REST SCRE FROM ScreAux
SELE dos
SEEK m.depto
SE LE 1
@12,16 SAY dos.NomDep COLOR w+/b* && GR+/W
FUNCTION FDepto
PARAM PDepto
SET EXACT ON
elemento = ASCAN ( ADepto, PDepto )
SET EXACT OFF
PDepto = ADepto ( ASUBSCRIPT ( ADepto, elemento, 1 ), 2 )
RETURN PDepto
PUBLIC ARRAY ADepto (RECCOUNT(2),2)
SELECT dos.NomDep, dos.Depto;
FROM dos;
INTO ARRAY ADepto;
ORDER BY dos.NomDep
SAVE SCRE TO ScreAux
SET UDFP TO REFERENCE
DO WHILE .T.
@12,16 GET m.depto FROM ADepto;
VALID FDepto ( m.depto )
WAIT '1.Selecciono'+m.depto+'Departamento' WINDOW TIMEOUT 2
READ
SET UDFP TO VALUE
REST SCRE FROM ScreAux
SELE dos
SEEK m.depto
SE LE 1
@12,16 SAY dos.NomDep COLOR w+/b* && GR+/W
FUNCTION FDepto
PARAM PDepto
SET EXACT ON
elemento = ASCAN ( ADepto, PDepto )
SET EXACT OFF
PDepto = ADepto ( ASUBSCRIPT ( ADepto, elemento, 1 ), 2 )
RETURN PDepto
1 Respuesta
Respuesta
1
Podes probar de cambiar esto:
WAIT '1.Selecciono'+m.depto+'Departamento' WINDOW TIMEOUT 2
por esto:
WAIT '1.Selecciono'+m.depto+'Departamento' NOWAIT
WAIT '1.Selecciono'+m.depto+'Departamento' WINDOW TIMEOUT 2
por esto:
WAIT '1.Selecciono'+m.depto+'Departamento' NOWAIT
Ya incluso le quite la linea del wait pero el problema es que quiero seleccionar solo con enter de los datos desplegados por un array, pero no me lo selecciona como lo hace en foxpro dos.
Entiendo, en realidad es el valid que retorna true y conserva el foco en ell primer textbox, eso pasa cuando emulas un objeto de DOS, podes probar de setear una variable en .t. si el valid fue correcto y dentro del do while si esa variable es true hacer un KEYPRESS 'TAB'
¿Pudiste probarlo? ¿Te funcionó?
Te agradecería que apenas concluyas tus dudas califiques mi desempeño.
Salu2 y exitos!
Salu2 y exitos!