*: Program: MkEditbl *: David Fluker February 1995 *: *: Description: Converts read only cursor into an editable cursor *: *: Parameter: cAlias - Alias of Read-Only cursor *:************************************************************* PARAMETER cAlias PRIVATE TempArea, CurAlias *: Check parameter *: If no cAlias passed, use current workarea IF TYPE('cAlias') != 'C' cAlias = SELECT() ENDIF *: If an empty alias was passed, use the current workarea IF EMPTY('cAlias') cAlias = SELECT() ENDIF DO CASE CASE NOT USED(cAlias) *: Alias is not in use - Quit. RETURN .F. CASE '.DBF' $ dbf(ALIAS(cAlias)) *: Not a real cursor, but a filter - Quit. RETURN .F. ENDCASE *: Variables TempArea = SELECT(1) && Empty cAlias for temporary use CurAlias = ALIAS(cAlias) && Alias of cAlias USE dbf(cAlias) AGAIN IN (TempArea) USE dbf(TempArea) AGAIN ALIAS (CurAlias) IN (cAlias) USE IN (TempArea)