Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Mike Yearwood
  Where is Mike Yearwood?
 Toronto
 Canada
 Mike Yearwood
 To: Marcos Pereira
  Where is Marcos Pereira?
 Rio de Janeiro
 Brazil
 Marcos Pereira
 Tags
Subject: RE: thermometer in index
Thread ID: 209311 Message ID: 209351 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Saturday, December 27, 2008 4:38:33 PM         
   


> good night in brazil.
>
> how do use thermometer in index on command.
>
>
> ex.:
>
CASE ARQUIVO = "xxxxSUAR"
> NOMEARQ = "xxxxSUAR"
> INDEXACAO("FILIAL + NOME","TAG1","xxxxSUAR.001")
> 
> PROCEDURE INDEXACAO(A,C,B)
> PUBL PARC_EFE,ARQ,IND, cKey 
> 
> ARQ = NOMEARQ + ".DBF" 
> IND = ALLTRIM(B) 
> ckey = ALLTRIM(a) 
> 
> DO WHILE .T.
> USE &NOMEARQ EXCLUSIVE IN 0
> SELE &NOMEARQ
> GO TOP
> EXIT
> ENDDO
> oProgress=createObject("myThermo")
> oProgress.nMaxValue=reccount()
> oProgress.nValue=1
> oProgress.Show()
> 
> a1=SECONDS()
> 
> IF !FILE(IND) 
> INDEX ON IndexProgress(&A,RECNO(),RECCOUNT()) tag &C OF &B
> oProgress.Release()
> ENDIF 
> SELECT (nomearq)
> USE 
> RETURN(.T.)
> 
> FUNCTION IndexProgress
> LPARAMETER tcValue, tnRecno, tnReccount
> oProgress.nValue=tnRecno
> oProgress.lBl.caption = ckey
> oProgress.Lbl_High.caption = "Criando Indice : " + nomearq
> oProgress.refresh()
> RETURN tcValue
> ENDFUNC
> 

>
> Obrigado,thanks

Are you asking a question? I hope you are not suggesting VFP people do this.

Mike Yearwood
Microsoft MVP Visual FoxPro 2008



We have enough youth. We need a fountain of smart!
There may be many ways to skin a cat, but there are very few right ways to do it.

ENTIRE THREAD

thermometer in index Posted by Marcos Pereira @ 12/27/2008 6:21:30 AM
RE: thermometer in index Posted by tushar @ 12/27/2008 7:11:34 AM
RE: thermometer in index Posted by Marcos Pereira @ 12/27/2008 11:55:45 AM
RE: thermometer in index Posted by Mike Yearwood @ 12/27/2008 4:38:33 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/27/2008 5:05:11 PM
RE: thermometer in index Posted by Mike Yearwood @ 12/28/2008 1:58:43 PM
RE: thermometer in index Posted by Yousfi Benameur @ 12/28/2008 8:05:01 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/28/2008 10:19:30 PM
RE: thermometer in index Posted by Yousfi Benameur @ 12/28/2008 10:27:43 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/28/2008 10:54:30 PM
RE: thermometer in index Posted by Glenn Villar @ 12/29/2008 3:04:40 AM
RE: thermometer in index Posted by Marcos Pereira @ 12/29/2008 1:33:55 PM