De Fox a Visual Fox
Publicado por De Fox a Visual (1 intervención) el 18/03/2010 19:53:13
Tengo un programa de Fox y lo estoy pasando a Visual fox, el problema es que cuando quiero seleccionar un dato de los mostrados 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
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
Valora esta pregunta


0