topic-19123

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

xbrowse don't show datas
Posted: Tue Jun 22, 2010 01:54 PM

Hello all,

xBrowse dont show any data.
What i do wrong?

oArqPrev:SetOrder("CODIGO")
oArqPrev:GoTop()

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4001 )
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQPREV->CODIGO}
oCol:cHeader := "CÓDIGO"
oCol := oBrw:AddCol()
oCol:bStrData := { || DTOC(ARQPREV->DATALAN)}
oCol:cHeader := "DT.LAN."
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQPREV->DESCON}
oCol:cHeader := "CONTA"
oCol := oBrw:AddCol()
oCol:bStrData := { || Substr(ARQPREV->NOMEFOR,1,28)}
oCol:cHeader := "FORNECEDOR"
oCol := oBrw:AddCol()
oCol:bStrData := { || DTOC(ARQPREV->VENCIMENTO)}
oCol:cHeader := "VENCTO"
oCol := oBrw:AddCol()
oCol:bStrData := { || Tran(ARQPREV->VALOR,"@e 999,999.99")}
oCol:cHeader := "VALOR"
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:l2007:=.t.
oBrw:bChange := { || oRadio1:Refresh(), oBrw:Refresh() }
oBrw:SetRdd()

Shows me blank.

thanks in advance.

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: xbrowse don't show datas
Posted: Tue Jun 22, 2010 02:41 PM

I found
I have to do sele arqprev and go top to show records.
How i can know in multiselect xbrowse if a record marked or not?

thanks in advance.

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: xbrowse don't show datas
Posted: Tue Jun 22, 2010 02:55 PM

oBrw:aSelected

Regards
Anser

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: xbrowse don't show datas
Posted: Tue Jun 22, 2010 05:20 PM

Hi Anser, obrw:aSelected give me array with numbers, this numbers is a recno() of file?
I use oBrw:bKeyDown := {|nKey| Seleg(nkey)} but if i press Shift+key down the browse select the items but dont process the function Seleg() how i can do this?
Thank you so much.

Wanderson.

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: xbrowse don't show datas
Posted: Wed Jun 23, 2010 04:28 AM

Dear Mr.Wanderson.

oBrw:aSelected is an Array of RecNo()'s (Single dimensional)

Use the below given Marquee style for multi select xBrowse

Code (fw): Select all Collapse

oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROWMS

You may further process oBrw:aSelected array as per your requirement

Code (fw): Select all Collapse

oBrw:bKeyDown:= {| k | if( k == VK_DELETE, ( DeleteRow( oBrw ), oBrw:refresh()), ) }

Function DeleteRow(oBrw)
..
  For i:=1 to len(oBrw:aSelected)

    ...

  Next
..

Return

Regards
Anser

FiveTech Support Forums

Continue the discussion