Xailer & OZ Software

Modifique el ejemplo del -reindex, pero para ke me creara los CDX, quedando
de la manera siguiente:
Me marca error en el :AddTag: "La Base de Datos no esta Abierta"
Que hice mal o ke me falta?
Como puedo usar el progressbar aqui?
Desde ya gracias.
Ramón Zea
METHOD Reindex( cFile ) CLASS TFrmReindex
local oDbf
Local nTokens
Local _n_
Local cToken
//los resultados de los Token son:
//2.- Producto -- es la DBF
//3.- Linea -- Campo y nombre de Tag
//4.- Codigo -- Campo y nombre de Tag
//cDir ="D:Sistemas.WinXCotizarDatos"
nTokens := NumToken(cFile, "|")
cToken := Token(cFile, 2, "|", .t.)
cToken := ::cDir + cToken
::olblFicActual:cText := cToken
with object oDbf := TDbfDataSet():New( Self, ::oDataSource, ::cDir +
Token(cFile, 2, "|", .t.) )
:lShared := .f.
:lDisplayErrors := .f.
if !:Open()
return .f.
endif
end with
ProcessMessages()
with object oDbf
For _n_ := 3 To nTokens
:AddTag( Token(cFile, _n_, "|", .t.), ;
Token(cFile, _n_, "|", .t.), ;
"!deleted()", ;
::cDir + Token(cFile, 2, "|", .t.) ) //Aqui se detiene
Next
:End() //es lo mismo ke :Close?, no viene documetado
end with
RETURN .t.

ya lo solucione, pero usando otras funciones, grax.
Ramón Zea