topic-19325

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 02:19 PM

Tengo un xbrowse que lo lleno los datos con un array, que contiene codigo y descripcion, quiero hacer doble click por ejemplo en la fila 7 y me muestre toda la informacion que tiene esa linea, hasta el momento no he podido hacerlo porque solo me muestra la fila 1, aunque posicione el mouse en la line 87, siempre me muestra la numero 1

***un poco del codigo

dbselectarea(odbf4:calias)
odbf4:setorder(2)
oDbf4:Gotop()
do while .not. eof()
aadd(acnab,{(odbf4:calias)->codigo,(odbf4:calias)->nombre})
skip
enddo
// Caja de Di logo -----------------------------------------------------
DEFINE DIALOG oDlg RESOURCE "SVE107" TITLE 'CODIGO NAB, CON SUS DESCRIPTORES'

REDEFINE XBROWSE olbx ID 101 OF oDlg;
ON DBLCLICK(getnab(.f.,oDbf4,oDlg,olbx,olbx:acols[1]))

olbx:l2007:=.t.
* tipo array
olbx:nDataType:=1
olbx:setarray( acnab, .t. )
olbx:ofont:=ofont
olbx:acols[1]:cheader:=oemtoansi("Codigo")
olbx:acols[1]:nHeadstralign:=AL_LEFT
olbx:acols[2]:cheader:=oemtoansi("Descripcion")
olbx:acols[2]:nHeadstralign:=AL_LEFT

olbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
olbx:nRowDividerStyle := LINESTYLE_BLACK
olbx:nColDividerStyle := LINESTYLE_BLACK
olbx:nHeaderLines := 1
olbx:nDataLines := 1
olbx:nRowHeight := 15
olbx:nHeaderHeight := 20
olbx:lcoldividercomplete:=.t.
olbx:acols[1]:lAllowsizing:=.f.
olbx:acols[2]:lAllowsizing:=.f.
olbx:bclrstd:={|| { nrgb(0,0,0) ,nrgb(185,220,255)}}

Fivewin-Xharbour 24.09, Iquique, Chile

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 03:34 PM

Mura tengo hecho algo parecido, y me funciona a las mil maravillas, prueba con esto:

Code (fw): Select all Collapse

olbx:bskip:={|n,old| dorskip(n,old)}

function dorskip(n,old)
local retorno,nold
nold:=olbx:nat
olbx:nat +=n
olbx:nat:=min(max(olbx:nat,1),eval(olbx:blogiclen))
retorno:=olbx:nat-nold
return retorno

Un saludo
José Luis

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 03:40 PM

Elmo,

msginfo( oLbx:aRow[1] + oLbx:aRow[2] )

Con eso te deberia funcionar.

Saludos

FWH 10.6 + xHarbour + Borland 582

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 04:49 PM

Gracias Raymundo, funciono a la perfeccion

Fivewin-Xharbour 24.09, Iquique, Chile

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 04:51 PM

Otra pregunta, como puedo saber en el xbrowse porque columna esta ordenada la informacion

Fivewin-Xharbour 24.09, Iquique, Chile

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: XBROWSE, LEER FILAS
Posted: Mon Jul 12, 2010 06:03 PM

Elmo,

Todavia me falta aprender mas de la Xbrowse y este punto no estoy muy seguro si existira alguna data que lo maneje.

Hay algunos posts que manejan el tema, busca por la palabra ORDER en el foro.

De momento, se me ocurre que pudieras almacenar en alguna variable cuando se clickee el encabezado de X columna para que puedas identificar cual es la ultimo activa.

Saludos

FWH 10.6 + xHarbour + Borland 582

FiveTech Support Forums

Continue the discussion