PC Toledo

Olá colegas do fórum,

Gostaria se possível que me ajudassem. Não programo profissionalmente, é mais como um hobby, tenho uns sistemas e sempre que crio arquivos e gero os índices (.ntx) uso a seguinte rotina:

*--------------------------------------------------------------
Procedure AbreArq
* Procedure de abertura de arquivos e indices
*--------------------------------------------------------------

Use Arquivos index Arquivos

Use Indices index Indices new

Sele Arquivos
Go Top
Do While .not. eof()
mNomeArq = Nome
Use &mNomeArq new

Sele Indices
Go Top
Seek mNomeArq

Do While NOME_ARQ = Arquivos->Nome
Sele &Nome_Arq
DbSetIndex(Indices->NOME_IND)
Sele Indices
Skip
enddo

Sele Arquivos
skip
enddo
return

Quando quero criar um indice, ou até mesmo reindexar meus arquivos, utilizo um arq executável chamado reindexa.exe. Ele toma como base os arquivos arquivos.dbf e indices.dbf e refaz os indices. Esta rotina ABreArq, está presente também no inicio do meu programa principal.
Como posso passar esta rotina para abrir e criar os arquivos com índices CDX?

Olá amigo...

Seguinte... Eu uso em meu sistema de Controle Bancário (inclusive voce pode baixa-lo em www.eandrioli.hpg.com.br para usufruir), os indices NSX... numa pesquisa feita muito tempo atrás, me disseram ser mais rápido que indices CDX... por isso uso até hoje sem problemas.

Para usá-lo voce precisa ter em disco, os arquivos:

- SIX2.LIB
- SIXNSX.CH

Isso voce encontra na NET... e dentro (no inicio) do seu PRG principal voce coloca o seguinte:

#include "SIXNSX.CH" // Para trocar os Indices p/ .NSX

* e na abertura de arquivos assim:

SELE 1
USE ARQDBF VIA "SIXNSX"
INDEX ON codigo TO indice

* Ai é só correr pra galera, hehehehe.... experimente: faça os testes com os indices normais (.NSX) e com esse que lhe indiquei... voce vai abandonar de vez o antigo modo de indexação, devido a alta velocidade do modo NSX.

Não sou expert em Clipper minha gente.... apenas estudioso da matéria.

Abraços a todos os CLIPPEIROS...

Fui!!!!!!

Erasmo Andrioli Santos
Conheça: www.eandrioli.hpg.com.br