Page 1 of 1

Filtro no xBrowse com array

Posted: Fri Feb 17, 2017 11:59 am
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.

Re: Filtro no xBrowse com array

Posted: Mon May 28, 2018 7:54 pm
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?