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