función para saber claves de una entrada CDX

[pgfdz]

Hola.
Quisiera saber si existe alguna función que pregunte al índice CDX por una clave y devuelva un array de registros que apuntan a esa clave.
Un saludo

[Carlos Mora]

SELECT (laTabla)
SET ORDER TO (elIndice)
aResult := Array()
dBSeek( cClaveABuscar )
WHILE !Eof() .AND. OrdKeyVal() == cClaveABuscar
aAdd( aResult, Recno() )
SKIP
ENDDO

[cnavarro]

O bien, quizás este ejemplo te sirva para lo que buscas

http://forums.fivetechsupport.com/viewt ... 63#p187645

[pgfdz]

Hola, gracias por las respuestas.

Así es como lo hice:

Code: Select all

*****************************************************************************************************************************************
   function aGetDetails( cCode, cFieldName )
*****************************************************************************************************************************************
local nPos := FieldPos( cFieldName )
local aRet := {}
local nRecno := Recno()
local nOrder := IndexOrd()
DbSetOrder(1)

if DbSeek( cCode, .t. )
   do while fieldGet( nPos ) == cCode
      aadd( aRet, Recno() )
      DbSkip()
   enddo
endif

DbGoto(nRecno)
DbSetOrder( 0 )

return aRet

En todo caso, creo que debe de poderse sacar la información directamente del índice de alguna forma.
El índice debe de guardar un conjunto de valor -> nRecno para poder acceder a la información.
Eso sería genial sin tener que hacer búsquedas.
Un saludo