FiveTech Support Forums

Hola amigos.
Alguno de ustedes puede mostrarme un ejemplo con XBROWSE-TMYSQL, en el cual, el xbrowse sea refrescado después de una consulta? Es decir, que después de buscar un valor, el cursor de xbrowse se coloque en en la fila correspondiente. He estado buscando la solución a esto desde hace varios días y no doy. Con oQuery:locate() se logra, pero es muy lento. Con oQuery:Seek() se encuentra el registro pero no refresca el xBrowse.

Muchas gracias de antemano.

ahi va un ejemplo:

Local cbusca :=""

@ 0.30,50 SAY "Buscar :" OF oBar FONT oVentPrinc:oFont SIZE 40, 15 COLORS CLR_BLUE, nRGB( 207, 221, 239 )

@0.35,46 GET oGet VAR cbusca OF oBar  PICTURE "@S60!"  SIZE 200,22  FONT oVentPrinc:oFont COLOR CLR_BLUE  when .f.

 oLbx := TXBrowse():New( oWChld )
 Setxbrowse(oLbx, oExi_Suc ) // importante para la navegacion
 oLbx:bKeyDown            := {|nKey| ( PlisBuscar(nKey,@oExi_Suc,"exi_suc",nIndex[cVar],oLbx,@cBusca,cSelect),oLbx:Refresh(),oGet:Refresh() )}

FUNCTION PlisBuscar(nKey,oDatos,oTabla,oOrden,oLbx,cbusca,cSelect)
-----------------------------------------------------
Local cQuery,campo
DEFAULT cSelect := ""

If nKey=8
cbusca:= SubStr(cbusca,1,Len(cbusca)-1)
cQuery:="SELECT "+ cSelect + " FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+" LIMIT 100"
oDatos:=oServer:Query(cQuery,.T.)
Else
If nKey=190
cbusca :=cbusca + "."
Else
cbusca :=cbusca + Upper(chr(nkey))
Endif
cQuery:="SELECT "+ cSelect +" FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+" LIMIT 100"
oDatos:=oServer:Query(cQuery,.T.)
If oDatos:Reccount() == 0
cbusca:=left(cbusca,len(cbusca)-1)

     cQuery:="SELECT "+ cSelect +" FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+"  LIMIT 100"
     oDatos:=oServer:Query(cQuery,.T.)
  Endif

Endif
Setxbrowse(oLbx, oDatos ) // importante para la navegacion
oDatos:Refresh()
oLbx:Refresh(.t.)
oLbx:SetFocus()
oDatos:GOTOP()

return .t.

Saludos

jbrita, gracias por tu ejemplo. Pruebo y te comento.

Saludos.

me falto algo:

Local nIndex:={"ma_arti","ma_des1"} //nIndex

Local cSelect:="ma_arti,ma_des1,ma_fami,ma_pcom,ma_flet,ma_comp,ma_desc1,ma_desc2,ma_desc3,sto_ok,ma_bloqueo"

oExi_Suc:=oServer:Query("SELECT ma_arti,ma_des1,ma_fami,ma_pcom,ma_flet,ma_comp,ma_desc1,ma_desc2,ma_desc3,sto_ok,ma_bloqueo FROM exi_suc ORDER BY ma_des1 LIMIT 50")
oExi_Suc:GoTop()

ahora sip

saludos

jbrita.
Probé tu ejemplo y funciona. Desafortunadamente no es el comportamiento que busco. El que presente resultados filtrados ya lo había hecho, lo que quiero es que se mantenga siempre a la vista todos los registros, pero señalado el registro buscado.

El codigo que he probado es este:

//pero filtra por el registro encontrado y si aplico nuevamente oCatalogo:=oServer:Query("SELECT * FROM catalogo ORDER //BY codicont;"), se va al primer registro perdiendo la posicion del encontrado.

//Este otro lo hace pero es muy lento (ya sabemos con locate)


Y este otro lo encuentra pero no refresca el oBrw

Gracias por tu interés. Voy a estudiar el SetMySql-oBrw:bSeek de mi version 10.06 a ver que encuentro.

Saludos

jbrita.
Aunque no he logrado 100% mi propósito, tu código me ayudó a solventar lo de la velocidad, en esta parte:
Así lo tenía: ON CHANGE ( oCatalogo:locate( "Codicont", substr(cVar,1,len(NIV1)),, ),oCatalogo:Refresh(), oLbx:Refresh() )

Así queda ahora
REDEFINE ComboBox oCbx VAR cVar ID 109 OF oDlg ITEMS cItems ;
ON CHANGE ( oCatalogo:=oServer:Query("SELECT * FROM catalogo WHERE codicont LIKE '"+substr(cVar,1,len(NIV1))+"%' ORDER BY codicont;") ,;
oLbx:SetMySql(oCatalogo,.f.),;
oCatalogo:Refresh(),;
oLbx:Refresh() )

Lo del catalogo lo dejo momentáneamente filtrado por grupos. Puse un button por si se desea ver todo el catalogo de nuevo.
Muchas gracias.

Saludos.

Tocayo,

Creo te falta posicionar el puntero al registro encontrado
if !oCatalogo:Seek( cCodigo,"codicont",{"codicont","nombre"} )
MsgInfo("Registro no fue encontrado","Informacion" )
oCatalogo:Goto(nRecNo)
oCatalogo:Refresh()
return nil
else
-->> nRec := oCatalogo:RecNo() <<--
oCatalogo:GoTo(nRec)
Msginfo("Encontrado")
endif
endif

oCatalogo:Refresh()
oLbx:Refresh()
oLbx:SetFocus()

Gracias Francisco, pero sigue lo mismo. La barra no se coloca sobre el registro encontrado.

Saludos