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.
Filtro no xBrowse com array
-
- Posts: 3
- Joined: Thu Sep 01, 2016 1:18 pm
- Location: Rio de Janeiro - Brazil
Re: Filtro no xBrowse com array
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
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72