FoxPro/Visual FoxPro - busqueda da resultado

 
Vista:
sin imagen de perfil

busqueda da resultado

Publicado por jorge alfredo (45 intervenciones) el 07/04/2004 00:32:42
Hola cordial saludo
tengo un problema un poco raro a ver si ustedes de ayudan.
En una tabla que tiene la siquiente estrutura maqucodi n (10),
maqudesc c(45),maquestado c(12)
esta tabla la tengo en un formulario, lo que deseo hacer es primero cuando se vaya a crear un nuevo registro, que el programa busque que no existe el codigo si es así que no lo deje grabar. entonces tengo el siquiente codigo que no se porque no trabaja
local lncode
lncode = thisform.txtmaqucodi.value
do case

case empty (lncode)
messagebox("no permito valores nulos"
return 0
thisform.txtmaqucodi.setfocus

case (lncode) <> 0
select maqu
set order to maqucodi

seek lncode
if found()
messagebox("ya existe,no valido",0 + 64, "ingrese otro"
*en esta parte es que no funciona, unas veces me dice que si exite el *codigo, estando mi tabla vacia, y en otras oportunidades existiendo el *codigo me dice que no lo encuentra. que estoy haciendo mal.
*realmente no entiendo lo que pasa?
else
=tableupdate(.t.)
thisform.refresh
gracias por su ayuda

Jorge Alfredo
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

RE:busqueda da resultado

Publicado por Hugo R. (207 intervenciones) el 07/04/2004 23:34:05
Pon este codigo en el Texbox y en la propiedad Valid...

if not empty(this.value)
seek alltrim(This.value)
if found()
messagebox("Ya Existe",16)
RETURN 0
endif
endif
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