FoxPro/Visual FoxPro - Busqueda

   
Vista:

Busqueda

Publicado por Mitchell (42 intervenciones) el 29/10/2007 15:22:26
hola a todo foro tengo un problema de busqueda quiero que al encontrar el registro se llenen mi text pero esto no resulta envio el codigo para que me ayuden

selec clientes
set order to cod_cli
seek thisform.text1.value
if found()
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli
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

Publicado por jorge (2 intervenciones) el 29/10/2007 15:36:00
Creo que te falta

thisform.refresh
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

RE:Busqueda

Publicado por Mitchell (42 intervenciones) el 29/10/2007 16:01:40
ya lo coloque pero aun no muestra nada
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

RE:Busqueda

Publicado por lalo (72 intervenciones) el 29/10/2007 16:05:48
pon así para ver que pasa:
...
...
if !found()
....
....
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

RE:Busqueda

Publicado por Mitchell (42 intervenciones) el 29/10/2007 16:16:54
nada no se que pasa la verdad ya lo intente creando otra tabla eliminando los controles pero nada
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

RE:Busqueda

Publicado por neo (1601 intervenciones) el 29/10/2007 16:38:16
No veo donde esté el problema, pero pues trata de utilizar otra alternativa:

Set Exact On

Select Clientes
set order to cod_cli
Locate for Clientes =Thisform.text1.value
if found() then
Wait Window "Dato Encontrado" Timeout .5
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli

else
Wait Window "No existe este Cliente, verifique..." Timeout .8

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

RE:Busqueda

Publicado por neo (1601 intervenciones) el 29/10/2007 16:39:13
No veo donde esté el problema, pero pues trata de utilizar otra alternativa:

Set Exact On

Select Clientes
set order to cod_cli
Locate for Clientes =Thisform.text1.value
if found() then
Wait Window "Dato Encontrado" Timeout .5
thisform.text2.value=clientespacientes.nom_cli
thisform.text3.value=clientes.ape_cli
thisform.text4.value=clientes.sexo_cli

else
Wait Window "No existe este Cliente, verifique..." Timeout .8

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

RE:Busqueda

Publicado por Mitchell (42 intervenciones) el 29/10/2007 16:46:43
Correcto Neo muchas gracias todo muy bien
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

RE:Busqueda

Publicado por Ernesto Hernandez (4632 intervenciones) el 29/10/2007 21:07:47
SELEC clientes
SET ORDER TO cod_cli && que orden es este si fuera 1
SEEK (ThisForm.Text1.Value,"clientes",1)

ThisForm.text2.Value=clientes.nom_cli
ThisForm.text3.Value=clientes.ape_cli
ThisForm.text4.Value=clientes.sexo_cli
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