Valor de una celda con twbrowse (Solucionado)

Valor de una celda con twbrowse (Solucionado)

Postby JoseLuis » Wed Sep 28, 2022 8:52 pm

Buenas

Me gustaria obtener el valor de una celda de un listbox con twbrowse
Con xbrowse basta con oBrw:aCols[1]:Value, pero con twbrowse no.

El tema es que hago una seleccion de unos cuantos registros y los envio a una función que recibe los números de las líneas seleccionadas, y me gustaria obtener el valor de un campo de esas lineas.
la selección la tengo basada en:
Code: Select all  Expand view  RUN
Static aSel
LOCAL aX[6]
aSel:= {}

aX[1]:=LoadBitMap(GetResources(),"C_ChF") //este es el cudradito
aX[2]:=LoadBitMap(GetResources(),"C_Azl") // aca esta el cuadradito pero con tick


DEFINE BUTTON OF oBar RESOURCE "Bar_Ord" NOBORDER;
TOOLTIP "Seleccionar Todas" ACTION SeleccionTodas(oLbx,aSel)
// cuando entra al browse pone toda el browse en cuadradito con la funcion desp_mar
@ 0, 0 LISTBOX oLbx ;
FIELDS Desp_Mar(aX),(cRec_Desp)->Det_Viaj;
HEADERS "DESPACHAR,"Origen/Destino";
SIZES 90,200;
OF oWChld ALIAS (cRec_Desp)->(Alias()) UPDATE FONT oVentPrinc:oFont

oLbx:aJustify :={.t.,.t.,.t.,.f.,.t.,.f.,.t.,.t.,.f.}
oLbx:bLDblClick :={|| Asigna_Ven(oLbx,aSel)}



STAT FUNC Desp_Mar(aX) // Marca 'check box'
LOCAL n:=1
n:=IF(AScan(aSel,(cRec_Desp)->(Recno()))<>0,2,n)

RETURN (aX[n])



STAT FUNC Asigna_Ven(oLbx,aSel) // Selecciona registro
LOCAL x:=AScan(aSel,Round((cRec_Desp)->(Recno()),0))

IF x<>0
ADel(aSel,x)
ASize(aSel,Len(aSel)-1)
ELSE
AAdd(aSel,Round((cRec_Desp)->(Recno() ),0))

ENDIF
oLbx:DrawSelect()
oLbx:SetFocus()
RETURN NIL


De ésta manera Selecciono alguna Linea, pero no consigo enviar nada más que el número de la línea que tengo seleccionada.
Last edited by JoseLuis on Thu Sep 29, 2022 12:05 pm, edited 1 time in total.
--------------------------
Saludos

Jose Luis
JoseLuis
 
Posts: 428
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Re: Valor de una celda con twbrowse

Postby Antonio Linares » Thu Sep 29, 2022 6:41 am

Jose Luis,

Si tienes los números de líneas, lo que tienens que hacer es posicionar el browse en una a una de esas lineas, y luego llamar a Eval( oBrowse:bLine ) para obtener el valor de toda la fila, y en ese array estan los valores que buscas
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Valor de una celda con twbrowse (Solucionado)

Postby JoseLuis » Thu Sep 29, 2022 12:05 pm

Muchas graciass, Antonio
--------------------------
Saludos

Jose Luis
JoseLuis
 
Posts: 428
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 116 guests