*---------------------- Location Section ------------------------
*   Library: CDataEnv.vcx
*   Class:   CCursor
*   Method:  CloseTable()
*----------------------- Usage Section --------------------------
*)  Description: 
*)		Closes the cursor associated with the cursor object.
*)		NOTE: When closing a view, this method does not attempt
*)		to close the underlying tables since other views in the
*)		same data session may also be using these tables. This
*)		is the same behavior exhibited by the VFP cursor class.

*   Scope:      Public
*   Parameters: None
*$  Usage:      
*$              
*   Returns:  Logical .T. by default
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	05/06/99
*		MODIFIED
******************************************************************
IF NOT EMPTY(This.Alias) AND USED(This.Alias)
	USE IN (This.Alias)
ENDIF

lcAlias = IIF("[" $ This.Alias, JUSTSTEM(SUBSTR(This.Alias, 2, RAT("]", This.Alias)-2)), This.Alias)

IF NOT EMPTY(lcAlias) AND USED(lcAlias)
	USE IN (lcAlias)
ENDIF