topic-4664

A&C

Posts: 214

Joined: Sat Aug 19, 2006 01:37 PM

ARRAY EN BROWSE ( TSBROWSE)
Posted: Sun Oct 22, 2006 10:11 PM

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

Mi segundo amor es Programar

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

ARRAY EN BROWSE ( TSBROWSE)
Posted: Mon Oct 23, 2006 01:24 AM

te envie algo a tu privado, espero te ayude, es de ayuda de otros colegas.

Dios no está muerto...

Gracias a mi Dios ante todo!

dbzap

Posts: 189

Joined: Mon Nov 07, 2005 07:36 PM

ARRAY EN BROWSE ( TSBROWSE)
Posted: Mon Oct 23, 2006 12:11 PM

Asi lo tengo yo
Saludos

Code: Select all Collapse

   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.

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.

sjingo

Posts: 229

Joined: Sat Mar 18, 2006 03:42 PM

ARRAY EN BROWSE ( TSBROWSE)
Posted: Mon Oct 23, 2006 04:33 PM

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:={.f.,.f.,.f.}
listrubros:cAlias := "ARRAY"
listrubros:setarray(arubros)
listrubros:lcellstyle:=.t.
listrubros:nlinestyle:=1

Un saludo

Marcelo Jingo

Marcelo Jingo

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

ARRAY EN BROWSE ( TSBROWSE)
Posted: Mon Oct 23, 2006 05:21 PM

mandame tu correo y te mando un ejemplo. El mio es horacio_dellacasa@yahoo.com.ar

Saludos

FiveTech Support Forums

Continue the discussion