Page 1 of 1
ARRAY EN BROWSE ( TSBROWSE)
Posted: Sun Oct 22, 2006 10:11 pm
by A&C
Alguien me podria explicar como usar BROWSE con ARRAY,
yo uso TSBROWSE,, ahi defino con ADD COLUMN TO Obrw ARRAY ELEMENT
algun ejemplo util
GRACIAS
Posted: Mon Oct 23, 2006 1:24 am
by joseluisysturiz
te envie algo a tu privado, espero te ayude, es de ayuda de otros colegas.
Posted: Mon Oct 23, 2006 12:11 pm
by dbzap
Asi lo tengo yo
Saludos
Code: Select all
oBrw := TXBrowse():New( oDlg )
oBrw:CreateFromResource( 100 )
oBrw:SetArray( aDatos, .t. ) // .t. para que haga sort de los datos
oBrw:aCols[1]:cHeader := "TD"
oBrw:aCols[2]:nDataStrAlign := 0 // 0=izq 1=der
oBrw:aCols[2]:cHeader := "#Número"
oBrw:aCols[2]:nDataStrAlign := 0
oBrw:aCols[3]:cHeader := "F.Emisión"
oBrw:aCols[3]:nDataStrAlign := 0
oBrw:aCols[4]:cHeader := "F.Ult.Venc."
oBrw:aCols[4]:nDataStrAlign := 0
oBrw:aCols[5]:cHeader := "Mo."
oBrw:aCols[5]:nDataStrAlign := 0
oBrw:aCols[6]:cHeader := "V.Bruto"
oBrw:aCols[6]:nDataStrAlign := 1
oBrw:aCols[7]:cHeader := "Saldo"
oBrw:aCols[7]:nDataStrAlign := 1
oBrw:aCols[8]:cHeader := "Tasa"
oBrw:aCols[8]:nDataStrAlign := 1
oBrw:aCols[9]:cHeader := "ID"
oBrw:aCols[9]:nDataStrAlign := 1
oBrw:lHScroll := .T.
oBrw:lVScroll := .T.
oBrw:nRowDividerStyle := 4
oBrw:nColDividerStyle := 4
oBrw:nMarqueeStyle := 5
oBrw:lRecordSelector := .f.
Posted: Mon Oct 23, 2006 4:33 pm
by sjingo
Yo uso el wbrowse de Hernán y funciona muy bien con arrays
@15,1 listbox listrubros fields str(arubros[listrubros:nat][1],10,0)),;
arubros[listrubros:nat,2],;
arubros[listrubros:nat,3];
headers "Rubro", "Descripcion", "Medida";
fieldsizes 50,200,50;
of oFolde:aDialogs[2] font ofont size 330, 120 update pixel
listrubros:ajustify:={.f.,.f.,.f.}
listrubros:cAlias := "ARRAY"
listrubros:setarray(arubros)
listrubros:lcellstyle:=.t.
listrubros:nlinestyle:=1
Un saludo
Marcelo Jingo
Posted: Mon Oct 23, 2006 5:21 pm
by horacio
mandame tu correo y te mando un ejemplo. El mio es
horacio_dellacasa@yahoo.com.ar
Saludos