Used to PACK and Reindex the data files.
Typically you'll want to subclass this method and add your own code to cause tables to reindex. You can pass an extra parameter of .T. to have reindex return you a string of the index commands for the currently active indexes in the table in the vResult property.
o.Reindex(llSaveIndexString)
Return Value
.T. or .F.
Parameters
llSaveIndexString
When set to .t. the Index string is saved and returned to you. You can use this to override the Reindex method with a full index command which is more reliable than the default behavior.
Example
* ** Sample Implementation
IF THIS.nDataMode = 0
IF !OpenExclusive(THIS.cDataPath + THIS.cFileName,THIS.cAlias)
THIS.SetError("Unable to open Item file due to exclusive use.")
RETURN .F.
ENDIF
DELETE TAG ALL
PACK
INDEX ON pk TAG pk
INDEX ON sku TAG sku
INDEX ON lower(padr(descript,10)) TAG descript
INDEX ON deleted() TAG deleted
USE
ENDIF
See also:
Class wwBusinessObject© West Wind Technologies, 1996-2024 • Updated: 02/17/19
Comment or report problem with topic