Filtra Matriz no Tbrowse

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Alexandre Silva
Usuário Nível 3
Usuário Nível 3
Mensagens: 376
Registrado em: 26 Mar 2007 00:16
Localização: Itapema - SC

Filtra Matriz no Tbrowse

Mensagem por Alexandre Silva »

Pessoal
Alguem sabe como posso filtrar o conteudo de um browse, que é uma matriz previamente carregada..?
O cliente precisa filtrar determinadas colunas conforme o criterio que lhe convier
Por exemplo: mostrar no browse, apenas se a coluna 2 tiver conteudo='P', etc

Uso o TbrowseFW, que permite filtrar o que aparece por certas condicoes, mas consegui fazer funcionar para Matriz

Código: Selecionar todos

bcondicao:={|| .t. }
aWin   := {wli+3,wci+1,wlf-2,wcf-1}
bWhile := {|| .t. }
bFor   := {|| eval(bCondicao) }
bFirst := {|| dbgotop() }
bLast  := {|| dbgobottom() }
objbrw := TBrowseFW(bWhile, bFor, bFirst, bLast, aWin)
objbrw : headsep:= 'Ä'
objbrw : colsep := '³'
objbrw : footsep:= 'Ä'
objcol := tbcolumnnew( 'N§OS', {|| matpcp[j,1] })
objbrw : addcolumn(objcol)
objcol := tbcolumnnew( 'Sit', {|| matpcp[j,2] })
objbrw : addcolumn(objcol)
objbrw : gotopblock    :={|| j:=1}
objbrw : gobottomblock :={|| j:=len(matpcp)}
objbrw : skipblock :={|ntojump| skipperarr(ntojump,matpcp,@j)}
objbrw : colorspec := drvcorbox+",,"+drvcorenf+","+drvcorget+","+drvcorhlp
objbrw : gotop()
objbrw : freeze:=1

* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
Responder