Filtro no xBrowse com array

Filtro no xBrowse com array

Postby EduardoSP6 » Fri Feb 17, 2017 11:59 am

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.
EduardoSP6
 
Posts: 1
Joined: Thu Sep 01, 2016 1:18 pm
Location: Rio de Janeiro - Brazil

Return to All products support

Who is online

Users browsing this forum: No registered users and 1 guest