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
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
0