PC Toledo

Caros colegas, sei que esse assunto já foi amplamente debatido, gostaria apenas de uma confirmação:


Procedure TESTE
arq_off() && função p/ fechar dbfs e índices
id26:=iusuario:='S' && marco os dbfs
arq_on() && função p/ abrir dbfs


sele brid026
set orde to 1
go top
seek vcodrep

msgbox('Aguarde, indexando...')
if file("itemp.cdx")
eras itemp.cdx
endif

inde on codrep+bolduplic tag 1 to itemp for codrep=vcodrep .and. bolduplic#spac(5) while codrep=vcodrep EVAL NTXPROGRESS() EVERY LASTREC()/100

arq_off() && fecho novamente todos os arquivos

do whil .t. && agora abro novamente os dbfs necessários
if userede("brid026","brid026",.f.,10,1)
set inde to itemp && neste dbf, abro somente o índice temporário acima criado
if userede("usuario","usuario",.f.,10,2)
exit
endif
endif
endd

* prossigo com o restante

Está certo assim? Ou tem como setar o índice temporário no dbf já
aberto com o cdx?
Obrigado e um abraço à todos.

Leandro
São Lourenço - MG
Utilizo Clipper 5.2+visual lib, migrando p/ harbour+minigui.