>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
>* * * * * * * * * * *
When you delete the tags, you also delete relationships. You have to manually restore those relationships after the tags are rebuilt. PLEASE look at the code that genDBC builds for you to understand how to do this. Also, there is at least one, and I think more routines here in the files section that do this reindexing for you, and restore relationships as well.
Erik Moore
Clientelligence