qiinfo Posted July 10, 2008 Report Share Posted July 10, 2008 Olá, Alguém tem uma rotina para mostrar toda informação sobre alguma área. Sei que são muitas, tipo: - indexkey() - indexord() - registros travados, etc... Obrigado, Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour Divinópolis/ MG Quote Link to comment Share on other sites More sharing options...
qiinfo Posted July 10, 2008 Author Report Share Posted July 10, 2008 Olá, Alguém tem uma rotina para mostrar toda informação sobre alguma área. Sei que são muitas, tipo: - indexkey() - indexord() - registros travados, etc... Obrigado, Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour Divinópolis/ MG Quote Link to comment Share on other sites More sharing options...
Kbelo Posted July 10, 2008 Report Share Posted July 10, 2008 No Meu principal tenho SETKEY( 145 , {||yDbfAberto()}) // Scroll Lock *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* FUNCTION yDbfAberto() *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* LOCAL cStri,J,tem:=.f., vArq:={} LOCAL n := 2 LOCAL cStack := '' while ( n < 74 ) if ! Empty(ProcName( n ) ) cStack +=AllTrim(ProcName(n))+"("+AllTrim(Str(ProcLine(n)))+") / " endif n++ end vArq:= DIRECTORY(GetModuleFileName(GetInstance())) cStri:="Painel de informações "+CRLF+CRLF cStri+="Geração do Executável em: "+dToc(vArq[1,3])+" - "+vArq[1,4]+CRLF cStri+="Area atual :"+STR(Select(Alias())) + ' Alias: ' + Alias() + CRLF cStri+="Ordem :"+STR(Indexord()) + ' Indice: ' + Indexkey() + CRLF cStri+="Registro :"+STR(Recno()) + CRLF //cStri+="Registro :"+STR(Recno()) + 'Registro no Indice: ' + str(Ordscope()) + CRLF cStri+="Arquivos - Numero da Area" + CRLF cStri+="---------------------------------------------------------------------------"+CRLF cArquivos := "" For xPOS:=1 TO 250 IF Select(Alias(xPOS)) # NIL .and. Select(Alias(xPOS)) > 0 cArquivos+=Alltrim(Alias(xPOS))+"("+Alltrim(Str(Select(Alias(xPOS)),14))+") - " Endif Next If cArquivos == "" cArquivos+="Não existe nenhum Arquivo em Aberto." Endif cStri+=cArquivos+CRLF+CRLF cStri+= CRLF + "Função : "+cStack+CRLF msgalert(cStri,Alltrim(GetModuleFileName( GetInstance()))) RETURN(.T.) id=code>id=code>Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Editado por - kbelo on 10/07/2008 11:46:13 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 10, 2008 Report Share Posted July 10, 2008 Veja se ajuda: http://www.susviela.hpg.ig.com.br/hb/clipper/funcoeshz.htm http://planetamanager.com.br/forum/index.php?showtopic=16607 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
eevaldo Posted July 10, 2008 Report Share Posted July 10, 2008 Ola KBELO, muito pratica essa função. o chr 145 equivale a qual tecla? Evaldo Wagner FiveWin2.4 Clipper5.2e xHarbour for Linux Blinker7.0 @say softwag@oi.com.br Quote Link to comment Share on other sites More sharing options...
Kbelo Posted July 10, 2008 Report Share Posted July 10, 2008 citação:Ola KBELO, muito pratica essa função. o chr 145 equivale a qual tecla? Evaldo Wagner FiveWin2.4 Clipper5.2e xHarbour for Linux Blinker7.0 @say softwag@oi.com.br id=quote>id=quote>Como esta acima "SCROLL LOCK" Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.