Índices CDX

[Alessandro]

Olá,

Alguém poderia me dar uma luz de como se trabalha com índices CDX, ou seja, como é a melhor forma de se abrir um arquivo .DBF e .CDX e como criar vários índices do mesmo arquivo.

Alessandro
:?

[Antonio]

Coloque as instruções abaixo no seu PRG principal

Request DbfCdx
RddSetDefault("dbfcdx")


Depois, em suas funções....

Código: Selecionar todos

Use (cDirBas + "empresa" ) Alias "emp"  Shared New
      DbSelectArea("emp")
      If !File(cDirBas + "empresa.cdx" )

Index on codigocli tag 1 to (cDirBas + "empresa.cdx")
Index on nomecli  tag 2 to (cDirBas + "empresa.cdx")
Index on cnpjcli    tag 3 to (cDirBas + "empresa.cdx")
Index on ccmcli    tag 4 to (cDirBas + "empresa.cdx")
Index on cepcli     tag 5 to (cDirBas + "empresa.cdx")

Endif

dbselectarea("emp")
emp->( ordsetfocus())
emp->( ordsetfocus(n))
emp->( dbgotop() )

Note que cDirBas é uma constante de uso particular em minha codificação.