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
 Tags
Subject: thermometer in index
Thread ID: 209311 Message ID: 209311 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Saturday, December 27, 2008 6:21:30 AM         
   


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

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