Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Marcos Pereira
  Where is Marcos Pereira?
 Rio de Janeiro
 Brazil
 Marcos Pereira
 To: Mike Yearwood
  Where is Mike Yearwood?
 Toronto
 Canada
 Mike Yearwood
 Tags
Subject: RE: thermometer in index
Thread ID: 209311 Message ID: 209354 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Saturday, December 27, 2008 5:05:11 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.

Mike, thanks for reading my question

yes I am asking, can suggest something for me?

thanks

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