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.