Para Rene Flores

[fglez]

Rene Buenas tardes,
En fivewin tenias un Progress Bar patra cuando indexabas archivos, tienes
algun ejemplo de PorgressBar en Xailer.
Gracias, Francisco

[Carlos Ortiz]

Ing. Francisco Gonzí¤lez Herrera escribió:
> Rene Buenas tardes,
>
> En fivewin tenias un Progress Bar patra cuando indexabas archivos, tienes
> algun ejemplo de PorgressBar en Xailer.
>
> Gracias, Francisco
>
>
>
De un ejemplo de XailerSamples ( tome ese y le agregue una barra de
progreso ) no se si será lo mas optimo pero estaba tratando de hacer lo
mismo que tu. Le cambie tambien el reindex por index ya que genero el
indice desde una tabla que contiene informacion acerca de cada una,
faltaria borrar el CDX antes de indexar.
Espero esto este bién y nos sirva.
Carlos Ortiz.
//---------------------------------------------------------- --------------------
METHOD Index( cFile, cKey, cTag ) CLASS TFrmIndex
//---------------------------------------------------------- --------------------
local oDbf, nCanRegi
with object oDbf := TDbfDataSet():Create( Self, ::oDataSource, cFile )
:lShared := .f.
:lDisplayErrors := .f.
if !:Open()
return .f.
endif
end with
::olblFicActual:cText := cFile+" / "+cTag
ProcessMessages()
with object oDbf
if ::oOptionList1:aItems[3]:lChecked
//::olblFicActual:cText := "Compactando tabla "+cFile
:Pack( .t. )
//::olblFicActual:cText := cFile+" / "+cTag
else
:Pack( .f. )
endif
//:Reindex( .f., ::opbIndex )
ncanregi:=lastrec()
::oProgressBar1:nMax:=ncanregi
index on &cKey tag &cTag eval ::MuestroRecno(ncanregi) Every
ncanregi / 10
::oProgressBar1:nValue:=0
::opbIndex:nValue:=::opbIndex:nValue+1
:End()
end with
RETURN .t.