Clipper/FiveWin - CDX con Problemas

Tengo hace años una aplicación con indices CDX; un maestro de Productos donde tengo un indice con el codigo del producto (13 Caracteres) y otro indice con el nombre (40 caracteres), me crearon un producto que empieza con "M01005T9...." y aunque existe en la tabla las variaciones de ese código y los veo, no lo encuentra al hacer la búsqueda con el SEEK... Me aburrí de crear indices, traspasar la tabla y cachurear la posible solución. ¿Alguno sabe que es lo que está pasando con este código y sus derivados?.
Se los agradecería. Trabajo con Clipper 5.02c y blinker 3.0. Además de la Librería DBFCDX en el archivo LNK, también incluyo la Fivepro.
Gracias.

Ya utilizaste SET SOFTSEEK ON ???
lo que te hace es colocarlo en el primer registro que coincida, si no lo empreas, el SEEK hace un barrido en toda la base y te deja el puntero en el EOF

Para verificar no utilizarias el found(), mejor compara la cadena

Salu2

Fabián, podrías enviar la línea donde generas los índices y luego la línea donde haces la búsqueda ?
Saludos,
Gustavo.

Les envio linea del programa:
*/*/*/*/ Aunque esta sea una Subrutina que está parametrizada
DBUSEAREA(.t.,dbsetdriver(),"MaeProd", .t., .f.)
IF !FILE("MAEPROD.CDX")
index on codprod tag codprod to maeprod
index on nomprod tag nomprod to maeprod
ENDIF
SET INDEX TO MAEPROD.CDX
**** eN EL pROGRAMA mISMO
mCodProd=Space(13)
@10,10 Say "Código :" Get mCodprod picture "@k A99999A999!!9" Valid estaProd(mCodProd)
Read

***
Function EstaProd(mCodProd)
Local Encontro
If !(Encontro := MaeProd->( DbSeek( mCodProd)))
Mensaje('Producto no existe')
ENdIf
Return encontro
****

**** Lo extraño es que me funciona bien para el resto de los códigos de productos menos para los que empiezan con la serie mencionada anteriormente... EL resto de los programas están identicamente.

Lo único que le agregaría para asegurarme es el DBSetOrder() para estar seguro que estoy buscando con el índice que deseo.
Saludos.
Gustavo

Como te decía, esto es más complicado, le puse un
dbsetorder(1) en líneas precedentes al seek, para asegurarme, inclusive ya ahora estoy trabajando así....

Select MaeProd
*** Ni siquiera hago referencia al Alias.
MaeProd->( DbSetOrder(1))
Seek mCodProd
**** Usaba antes MaeProd->( DbSeek( mCodProd ))
encontro := MaeProd->( eof())
**** Usaba antes encontro:= MaeProd->( DbSeek( mCodProd))
*** me da la impresión que no es por ahí la cosa... es algo de los indices.

Fabian:

Aunque en tu código no haces uso de muchas facilidades que te da el lenguaje creo que el problema no es por ahí. Se dice que.... la versión que estas usando es de las mas inestables sobre todo con índices CDX, por probar yo me cambiaría a la 5.3b, que por cierto es la última que emitió CA.

Saludos, Armando

Fabian:
Porque no recibas la base de datos fisica y compruebas y hay algún registro "corrupto", me ha pasado algunas veces y sobre todo si fue creada con DBASE la estructura.
Eje:
Linea de Comandos DBASE.

Simulemos una Base de Datos de 5000 registros

.USE MiBase
.Copy to NuevaBAse

Si no te copia toda la base y se para en algún registro, ese es el dañado.
(Registro 2356)
Para copiar el resto de la base tenemos:

Go 2357

Copy NExt 5000 to NuevaBase1

Y Listo.

Esto es algo viejito (DBASE) pero depronto.

Saludos,

Mauricio Arevalo
Bogotá (Colombia)