Clipper/FiveWin - reindexar con timer...

hola!!!!!
si estoy reindexando un archivo con muchos registros, hay alguna manera de indicar por pantalla el avance del proceso???
Mi consulta es para Clipper 5 y tambien para FiveWin version 195.
Gracias.

Si que se puede, utiliza la clausula EVAL del comando index:

INDEX ON <llave> [TO / TAG] <nombre> FOR <condicion> EVAL <llama aqui la funcionque quieras> EVERY <cada cuantos registros quieres que se ejecute el EVAL>

Es muy simple:

INDEX ON nombre TO nomemp EVAL MarcaAvance(Recno()) EVERY 100

Esto ejecutara la funcion MarcaAvance() cada 100 registros.

El proceso de reindexacion es de lo mas simple del mundo, en realidad lo que internamente hace es un DO WHILE ! EOF() y lo que hace es analizar registro por registro creando el archivo indice a partir del campo llave, por lo cual es sumamente simple "interceptar" donde se encuenta el proceso en un momento dado

La clausula EVAL "evalua" la funcion o funciones que le indiques y la clausula EVERY lo hara cada "X" registros, si no usas EVERY entonces se ejecuta para cada registro de la base de datos.

Ahora te toca a ti crear las funciones que muestren el avance.

gracias master of de masters!!!!!!!!
lo pruebo y te cuento.
un abrazo.
marcelo