Clipper On Line • Ver Tópico - Como posicionar na 1ª linha da LISTBOX
Página 1 de 1

Como posicionar na 1ª linha da LISTBOX

MensagemEnviado: 25 Mar 2016 03:12
por 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
 REDEFINE COMBOBOX oCATEGO VAR mgenerF ITEMS geneF ID 112 OF TELAVEND1 VALID FILTRTP(mgenerF)  WHEN TEMCLI 

Listbox em questão
 
   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
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

Como posicionar na 1ª linha da LISTBOX (Resolvido)

MensagemEnviado: 27 Mar 2016 12:19
por Vander
Resolvido com a ajuda de Theotokos do fórum fivewin

ficou assim:
LIACER224:GoTop()
LIACER224:Refresh()