Leaderboard

Boa tarde, Estou em busca de trabalhos freelancer, se alguém precisa de algum tipo de rotina, ou qualquer trabalho voltado a programação web/desktop estou a disposição. E-mail/Skype: suporte@lailton.com.br Obrigado.

olá Alê, tudo bem ? eu vi no tópico: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10852 que vc usa a TExcelScript, porém tentei baixar no link do fórum internacional e me parece q o arquivo não está mais disponível... será q vc pode fazer a gentileza de enviar por email pra mim? sem querer abusar, mas já abusando, eu notei q vc está bem afiado nesta classe, se puder mandar um exemplo junto seria ótimo... envie p/ vimansca@vimansca.com.br a/c Yury muito obrigado desde já e um grande abraço Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say

Olá a todos; Tenho que posicionar o cursor sempre na 1ª linha da listbox após um 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/Listbox xSetFocus( LIACER224 ) RETURN .T. //----------------------------------------- Obrigado; Vander