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.
.T. or .F.
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.
* ** 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
Comment or report problem with topic