Wendy
22 de Marzo del 2010

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 un 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 quiero que con enter lo seleccione de una vez. Este es el codigo:

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
SELE 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