Como posicionar na 1ª linha da LISTBOX

[Vander]

Olá a todos;

Tenho que posicionar o cursor sempre na 1ª linha da listbox após uma filtro, tem como ?

Após selecionar este filtro, posicionar na 1ª linha

Código: Selecionar todos

 REDEFINE COMBOBOX oCATEGO VAR mgenerF ITEMS geneF ID 112 OF TELAVEND1 VALID FILTRTP(mgenerF)  WHEN TEMCLI 

Listbox em questão

Código: Selecionar todos

 
   REDEFINE LISTBOX LIACER224 FIELDS ESTOQU->(STRZERO(CODLOJA,5))              +" |"+  ;
                                     ESTOQU->(SUBSTR(DESCRIC,1,42))            +"|"+   ;
                                     ESTOQU->(STRZERO(QUANTES,4))              +"|"+   ;
                                     ESTOQU->(TRANSFORM(VEVISTA,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPRAZO,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPLAAV,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPLAPR,"@E 99999.99")) ID 110 ;
                          HEADERS "CÓDIGO|DESCRIÇÃO                                 |QDE.|À  VISTA|À  PRAZO|PLANO AV|PLANO PR" ;
                          FONT FONTVEND12 COLOR  RGB (000,000,000),RGB (255,255,192)  ;
                          ON LEFT DBLCLICK(ENVIALISTA1(xTEMPLA)) WHEN TEMCLI

Filtro esta funcionando, mas o quando volta para a listbox fica todo bagunçado

Código: Selecionar todos

FUNCTION FILTRTP(mgenerF)
   SELECT ESTOQU

   IF mgenerF = "* TODOS *"
      SET FILTER TO
     ELSE
      SET FILTER TO TPMERCA = mgenerF
   ENDIF

  DBGOTOP()
  LIACER224 :Refresh()                    // Estabiliza o Browse/Listbo
  xSetFocus( LIACER224 )

RETURN .T.

Obrigado;
Vander

[Vander]

Resolvido com a ajuda de Theotokos do fórum fivewin

ficou assim:

Código: Selecionar todos

LIACER224:GoTop()
LIACER224:Refresh()