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
Nota de Moderação:
