Duda con IF Found() Visual Foxpro

La variable Found() no me funciona, quiero decir que cuando busca un numero que existe no me lo valida.
if empty(carreras.idcarrera)
Wait windows "no lo deje en blanco" TIMEOUT 2
THISFORMSET. FORM1. TXTIdcarrera. SETFOCUS
Endif
IF NOT EMPTY(carreras.idcarrera)
select 1
set order to tag IDCARRERA
go top
BUSCAR=STR(THISFORMSET.FORM1.TXTIdcarrera.value)
Seek BUSCAR
IF FOUND()
*SCATTER MEMVAR MEMO
*DISPLAY FIELDS IDCARRERA
*THISFORMSET.FORM1.refresh
*THISFORMSET.FORM1.MODIFICAR.ENABLED=.T.
*THISFORMSET.FORM1.eliminar.ENABLED=.T.
*Else
wait windows "CEDULA NO REGISTRADA" nowait
THISFORMSET.FORM1.GUARDAR.ENABLED=.T.
THISFORMSET.FORM1.MODIFICAR.ENABLED=.F.
THISFORMSET.FORM1.eliminar.ENABLED=.f.
ENDIF
Endif
Me pueden ayudar

1 respuesta

Respuesta
1
Fernando:
Seguramente es porque tienes mal definido el indice de la tabla CARRERAS.
Supone que tu tabla CARRERAS tiene la siguiente estructura:
IDCARRERA N(5)
CAMPO1 ...
CAMPO2 ...
CAMPO3 ...
CAMPO4 ...
CAMPO5 ...
ETC.
Deberás crear el indice de la siguiente forma:
STR(IDCARRERA, 5) (no te olvides de poner la 'coma' y el '5' porque es la parte más importante de la creación del indice)
Luego, para hacer la búsqueda:
BUSCAR=STR(THISFORMSET.FORM1.TXTIdcarrera.value,5)
Seek BUSCAR
Tiene que funcionar.
Saludos.
Fernando Alvarez
La Pampa - Argentina
Tengo un buen ejemplo para enviarte... pero necesito saber tu EMail.
Aprovecha para enviarme el formulario y la base de datos así veo porque no te funciona el SEEK ([email protected]).-
Hola,
Muchas Gracias por tu interés,
Mi email es [email protected] o bien a [email protected]
Gracias
Fernando
Listo.
Ya puedes puntuar la pregunta.
Seguiremos en contacto
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Busqueda CON SEEK

Programadores requiero de su ayuda, he creado un indice con mis campos sede+dtoc(fecha de ingreso)+cod_cli, el primero y el segundo son de tipo char, entonces cuando presiono guardar quiero que busque en la tabla si los registros son iguales y que el...
2 respuestas

Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación, 1ero en el Init del form SELECT agregarymodificar SET ORDER to CÓDIGO && CÓDIGO GO bott thisform.txtCodigo.value=agregarymodificar.código+1 thisform.refresh y luego en el click...
1 respuesta

Búsqueda en visual foxpro 9

Estoy usando este ejemplo de internet para hacer las búsquedas pero no me funciona agrega un botón para buscar registros: Vamos a agregar un botón para que busque registros por medio del campo índice código del cliente, para ello inserta un...
1 respuesta

Cuadro de textos

Espero que estés bien, mi pregunta es como trabajar con los cuadro de texto de visual foxpro para asignarle valores o algoritmos; por ejemplo en un formulario que contiene un valor como cuota inicial y otro cuota final como hago para que en el campo...
1 respuesta

Validación datos en tablas de vfp6

Me podrías por favor indicarme la forma como puedo validar los datos de una tabla para no ingresar datos duplicados, dedes un formulario. He utilizado VALID, pero no me funciona, pasa por alto, también lo he intentado en SETFOCUS, pero no me valida....
1 respuesta

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta