FoxPro/Visual FoxPro - Ayuda con codigo

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

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

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!