Função para Filtrar XBrowse

[isaiasodr]

Salve Pessoal,

Estou precisando criar uma função para filtrar um xBrowse a partir de certas condições que foram me solicitadas. a pesquisa incremental que eu até tinha implementado não foi aprovada. 

Querem que haja tipos de pesquisa para que eu possa implementar como no exemplo a seguir.

uma das colunas do xBrowse é módulo e quero criar  uma função para filtrar somente dados de um módulo específico, eu fiz alguns testes aqui porém o xBrowse não atualiza quando dou OK.

Redefine xBrowse oBrwIce Array aVetPar AUTOCOLS AUTOSORT;

            Columns 01,04,06,12,05,08,09,10;

            Headers "código",;

                     "Descrição",;

                     "Módulo",;

                     "Valor",;

                     "",;

                     "Grupo 1",;

                     "Grupo 2",;

                     "Grupo 3";

            FieldSizes 50,400,70,150,50,200,200,200;

o xBrowse é alimentado a partir de um Array que foi criado com dados de uma tabela do BD.

Function CriArrPar(aVetPar_)

aVetPar_:={}

TabSps->(DbGoTop())

While TabSps->(!Eof())

  Aadd(aVetPar_,{TabSps->Codigo,;

                 TabSps->NomCampo,;

                 TabSps->DescCurta,;

                 TabSps->DescLonga,;

                 TabSps->Medida,;

                 TabSps->Modulo,;

                 TabSps->Programa,;

                 TabSps->Grupo1,;

                 TabSps->Grupo2,;

                 TabSps->Grupo3,;

                 TabSps->Tipo,;

                 TabSps->Vetor,;

                 Alltrim(TabSps->Valor),;

                 TabSps->LarCampo})

  TabSps->(DbSkip())

End

aSort(aVetPar_,,Len(aVetPar_),{|x,y|Alltrim(x[1])<Alltrim(y[1])})

Return(.T.)

preciso de ajuda na criação dessa função de filtro, desde já agradeço.

[Theotokos]

no final da função tente atualizar xBrowse

oBrw:SetArray( aVerPar_ )

oBrw:Update()

oBrw:Refresh()

 

[isaiasodr]

TheoTokos muito obrigado pela dica somente a parte do oBrw:SetArray( aVerPar_ ) me ajudou... estava deixando isso passar batido