FoxPro/Visual FoxPro - Ayuda con codigo

   
Vista:

Ayuda con codigo

Publicado por Ronaldo (14 intervenciones) el 15/07/2009 18:27:58
Hola amigos, soy nuevo en el tema de la programación y estoy empezando con visual fox pro 9.0 y por eso quiero que me den una manita con un problema que tengo con el siguiente código.


CLOS ALL
CLOS DATAB


PUBLIC suc

SET DEFA TO D:COSTARICASACA

USE EMPENOS.DBF IN 0 SHARED

@18,0 SAY "DIGITE EL NUEMRO DE SUCURSAL A CONSULTAR SI LOS CONTRATOS TIENEN PRORROGA"

@18,99 get suc pict "9999"

READ


IF suc <> 17 AND suc <> 18


MESSAGEBOX ("LO SENTIMOS ESA SUCURSAL NO EXISTE",64,"CONSULTA")

QUIT
ENDIF


SET FILTER TO EMPENOS.nrocia=suc

BROWSE LAST

el problema que tengo es que cuando llega a la línea donde se ejecuta el filter, este debería filtrar todos los registro que contengan el numero que el usuario digito, que en este caso ese numero se guarda en la variable "suc" y por lo tanto creo que debería funcionar cosa que no esta sucediendo. Talves me puedan sugerir otro forma de como lograr lo que necesito.

por favor ayúdenme rfv.skif@ gmail.com

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Ayuda con codigo

Publicado por Mauricio (1368 intervenciones) el 15/07/2009 19:21:51
Prueba de esta manera:
CLOS TABLES ALL
PUBLIC wsuc
wsuc = 0
*SET DEFA TO D:COSTARICASACA
USE mi_tabla IN 0
@18,0 SAY "DIGITE EL NUEMRO DE SUCURSAL: "
@18,40 get wsuc pict "99"
read
IF wsuc <> 17 AND wsuc <> 18
MESSAGEBOX ("LO SENTIMOS ESA SUCURSAL NO EXISTE",64,"CONSULTA")
ENDIF
*
SET FILTER TO suc = wsuc
BROWSE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con codigo

Publicado por Hector R. De los Santos (270 intervenciones) el 15/07/2009 20:02:17
Porque no usas SQL

Select Campo, Campo;
From tu_Tabla;
Where Codsucu=Variable;
Into Cursor Resultado

IF _Tally<1
Messagebox('No Hay Datos')
Return
Endif

Select Resultado
Browse

Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar