Filtro no xBrowse com array

Post Reply
EduardoSP6
Posts: 3
Joined: Thu Sep 01, 2016 1:18 pm
Location: Rio de Janeiro - Brazil

Filtro no xBrowse com array

Post by EduardoSP6 »

Bom dia!

Estou executando um filtro no xBrowse com array usando o metodo ArrayIncrFilter, porém não consigo limpar o filtro estabelecido quando a variável de pesquisa está vazia.
Já tentei executar um setArray mas não funcionou.

Alguém teria uma dica para resolver ?

Segue como estou fazendo:

***********************************************************

* Get de pesquisa

REDEFINE GET oGet2 VAR cSeek PICTURE "@!" ID 4002 OF oDlgPrd2 UPDATE ;
VALID xBrFilter(oBr1, 3, cSeek, aProdAuto)


* listagem
oBr1:= TXBROWSE():NEW()
oBr1:CreateFromResource(4008)
oBr1:SetArray(aProdAuto,.T.)
...


***********************************************************

FUNCTION xBrFilter(oBrw, nCol, cSeek, aArray)
* Filtro no xbrowse com array de forma nativa. Filtra qualquer coluna no browse
* Parametros: objeto, n. da coluna, variavel de pesquisa

oBrw:lSeekWild := .T.
DEFAULT nCol := 1

IF !Empty(cSeek)

oBrw:cFilterFld:= nCol // seleciona a coluna que será ativado o filtro

oBrw:ArrayIncrFilter(RTRIM(cSeek))

ELSE
* limpa o filtro
oBrw:SetArray(aArray,.T.)
ENDIF

oBrw:Refresh()
oBrw:Update()

RETURN .T.
User avatar
ORibeiro
Posts: 174
Joined: Mon Oct 20, 2008 6:33 pm
Location: Itu, Sao Paulo, Brazil

Re: Filtro no xBrowse com array

Post by ORibeiro »

Estou com o mesmo problema. Não consigo cancelar o filtro e voltar a mostrar a planilha original. Você descobriu como fazer isso?
_ Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
Post Reply