---------------------------------------------
FUNCTION MostFilt()
TIPOIMOV->(dbSetOrder(3)) // descricao
TIPOIMOV->(dbSeek(optpimovel))
aliaslaudo := TIPOIMOV->BASE
SET FILTER TO // LIMPANDO O FILTRO CORRENTE
otela1:update()
oLbx9:hide()
SELECT (aliaslaudo) // SELECIONANDO A AREA (BASE)
(aliaslaudo)->(dbGotop())
IF EMPTY(xcodLaudo)
SET FILTER TO (aliaslaudo)->BAIRRO == opBairro
ELSE
SET FILTER TO ALLTRIM( (aliaslaudo)->LAUDO ) == ALLTRIM(xcodLaudo)
ENDIF
(aliaslaudo)->(dbGoTop())
//oLbx9:UpsTable()
oLbx9:refresh()
oLbx9:Gotop()
otela1:update()
otela1:refresh()
oLbx9:SetFocus()
oLbx9:show()
RETURN .T.
----------------------------------------------------
Obrigado a TODOS que leram e FELIZ 2011 !!!