Ok Erik, this is the code, that I have on mine system checkout and tell me what you think that I should do.

* * * * * * * * * * *
parameter bf
use &bf
*- Guarda las expresiones de los indices
a=sys(14,1)
b=sys(14,2)
c=sys(14,3)
d=sys(14,4)
e=sys(14,5)
f= sys(14,6)
g=sys(14,7)
h=sys(14,8)
i=sys(14,9)
j=sys(14,10)

*- Guarda los nombres de los tag en el cdx
aa=tag(1)
bb=tag(2)
cc=tag(3)
dd=tag(4)
ee=tag(5)
ff=tag(6)
gg=tag(7)
hh=tag(8)
ii=tag(9)
jj=tag(10)
*- borra todos los indices
delete tag all

*- Empaquetamos despues de borrar los índices
*- Ahorra tiempo oen su indexación
pack memo
pack dbf

*- Recosntrucción de los Indices
if !empty(a)
index on &a tag &aa
endif
if !empty(b)
index on &b tag &bb
endif
if !empty(c)
index on &c tag &cc
endif
if !empty(d)
index on &d tag &dd
endif
if !empty(e)
index on &e tag &ee
endif
if !empty(f)
index on &f tag &ff
endif
if !empty(g)
index on &g tag &gg
endif
if !empty(h)
index on &h tag &hh
endif
if !empty(i)
index on &i tag &ii
endif
if !empty(j)
index on &j tag &jj
endif
*- Cierra la tabla en uso
use
* * * * * * * * * * *