FoxPro/Visual FoxPro - SIGUE EL PROBLEMA DEL INDICE AYUDAAAA PLEASE

no se porque me sigue marcando el error del indice si ya lo hice en donde hago la tabla, hasta en la opcion browse puse en order el index que debe agarrar, entonces no se por que me sigue marcando ese error de indice que no lo puedo encontrar les mando un pedazo de mi codigo para que me lo chequen por favor, papeleria es el nombre de mi tabla y el index es icvepap:

object: ctClave Procedure: LostFocus

use papeleria
with thisform

SEEK icvepap.value

if Found()

wait window "NO PROCEDE, LA CLAVE EXISTENTE" timeout 2

wait window "INTENTE CON OTRA CLAVE" timeout 2

ctClave.value=space(10)

bcCancelar.lostfocus

endif

endwith

Hola erick. prueba colocar despues de la linea de codigo donde dices:
Use Papeleria

coloca

set order to NOMBRE DEL INDICE

Tienes q poner donde dice NOMBRE DEL INDICE el nombre del indice q le creastes a esa tabla y por el cual quieres buscar....

solo estas abriendo la tabla y no le estas diciendo que indice debe abrir para la busqueda....

Prueba eso y me avisas...

Suerte..

ok, gracias, pero mira ahora me marca un error de "Alias ICVEPAP" is not found" a que se debe eso si en el entorno de datos al alias le puse el nombre de papeleria que es la tabla, es mas el mismo entorno de datos ya le habia puesto eso automaticamente, mira te envio parte de mi codigo:

use papeleria
set order to icvepap
with thisform

SEEK icvepap.value <-----( AQUI ES DONDE ME MARCA EL ERRORO EN EL DEBUGER DE FOXPRO, esta tomando como que esa es la tabla y no la encuentra, por que?"

if Found()

wait window "NO PROCEDE, LA CLAVE EXISTENTE" timeout 2

wait window "INTENTE CON OTRA CLAVE" timeout 2

ctClave.value=space(10)

bcCancelar.lostfocus

endif

endwith

gracias por tu ayudas, en verdad gracias.

saludos
Erick

ya te habia contestado anteriomente tu duda, TIENES UN ERROR DE SINTAXIS. Asi deberia ir la linea:

SEEK .icvepap.value

Fijate en el punto antes de icvepap.value

Lo mas seguro te saldran mas errores despues de eso, NO ESTAS USANDO CORRECTAMENTE EL WITH..ENDWITH

Lo q te dice Roman es correcto. Tienes problemas con la sintaxis de WITH - ENDWITH

Asi deberia funcionar tu codigo:

use papeleria
set order to icvepap
with thisform

SEEK .icvepap.value
if Found()

wait window "NO PROCEDE, LA CLAVE EXISTENTE" timeout 2

wait window "INTENTE CON OTRA CLAVE" timeout 2

.ctClave.value=space(10)

.bcCancelar.lostfocus

endif

endwith

Pruebalo y me avisas...

Suerte

Fernando Hevia
Venezuela