Consultas de Información (URGE)

Rasta
21 de Octubre del 2003
Hola! Estoy súper desesperada porque prácticamente de esto depende mi trabajo. Estoy desarrollando un proyecto en el cual se tiene una serie de campos que son vinculados con una tabla libre, resulta ser que necesito hacer un motor de búsqueda en el cual si yo tecleo el número de código del producto, automáticamente aparezcan en los demás campos la información correspondiente. Hasta ahora no me sirven los querys o esas cosas para consultas leves. ¿Cómo hago para lograrlo? URGE.

Raul
21 de Octubre del 2003
Si los codigos de los productos son alfanumericos y los tienes en una tabla por decir "Productos" y la informacion de estos codigos esta en otra tabla llamada "Detaprod".
En el formulario puedes crear un objeto que te permita una busqueda a partir de 3 ó 4 caracteres;
despliegas un grid dentro de un contenedor que te despliegue la informacion de la primera tabla despued de dar Enter en el registro que te interesa hacer un seek en la otra tabla y dibujar el formulario con la informacion de la segunda tabla que corresponde a dicho codigo:
procedimiento lostfocus:
IF xenter=.T.
xenter=.F.
SELE clientes
SET ORDER TO estableci
SET NEAR ON
SEEK ALLTRIM(m.bus)
SET NEAR OFF
WITH THISFORM
.contabuscli.grid1.REFRESH
.contabuscli.grid1.VISIBLE=.T.
.contabuscli.VISIBLE=.T.
.contabuscli.grid1.SETFOCUS
ENDWITH
ENDIF
procedimiento lostfocus de .contabuscli.grid1.column1.text1
IF xenter=.T.
xenter=.F.
STORE ALLTRIM(clientes.estableci) TO M.bus
STORE clientes.codigo TO M.cod
STORE propietar TO dueno
STORE ALLTRIM(clientes.giro) TO xgiro
STORE ALLTRIM(clientes.nit_estab) TO xnit
STORE ciudad TO ciu
STORE cod_vend TO vend,cobi
STORE ALLTRIM(telefono)+" "+ALLTRIM(telefono2) TO telef
STORE ALLTRIM(direccion) TO luga
STORE registro TO regiva
STORE cred_limit TO limite
IF clientes.categoria='A'
STORE .F. TO solo
ELSE
STORE .T. TO solo
ENDIF
SELE rebotes
SET FILTER TO activo=.T.
SEEK m.cod
IF FOUND()
recha=.T.
ENDIF
THISFORM.SHOW
DO CASE
CASE solo=.T. AND recha=.T.
THISFORM.label9.CAPTION="Cliente en Lista Negra y con Cheque Rechazado"
THISFORM.label9.VISIBLE=.T.
CASE solo=.T. AND recha=.F.
THISFORM.label9.CAPTION="Cliente en Lista Negra Cliente en Lista Negra"
THISFORM.label9.VISIBLE=.T.
CASE solo=.F. AND recha=.T.
THISFORM.label9.CAPTION="Cliente con Cheque Rechazado Cliente con Cheque Rechazado"
THISFORM.label9.VISIBLE=.T.
CASE solo=.F. AND recha=.F.
THISFORM.label9.VISIBLE=.F.
ENDCASE
WITH THISFORM
.contabuscli.VISIBLE=.F.
.contabuscli.grid1.VISIBLE=.F.
.container1.text1.REFRESH
.container1.text2.REFRESH
.container1.text3.REFRESH
.container1.text7.REFRESH
.container1.text27.REFRESH
.container1.text4.REFRESH
.container1.text5.REFRESH
.container1.text6.REFRESH
.container1.text5.SETFOCUS
ENDWITH
ENDIF