Aufruf: Erzeugt einen RW Cursor (alte Funktion)

BOOLEAN = RWCursor(tcAlias AS STRING)

Rückgabe: Erzeugt einen RW Cursor (alte Funktion)

Rückgabe der Funktion: BOOLEAN

Code: Erzeugt einen RW Cursor (alte Funktion)

PROCEDURE RWCursor (tcAlias AS STRING) AS Boolean;
		HELPSTRING "Erzeugt aus einem CURSOR einen Schreib/Lesecursor."
	RETURN My.DATA.Tabellen.RWCursor(m.tcAlias)
	*The trick is that you open the cursor (AGAIN) in another work area and then go
	*back to the original cursor work area and re-open it.  This opening in the
	*other work area prevents the cursor from being deleted when you re-use it.
	*
	*The reason for the IF ".TMP"$cursdbf statement is because under certain (that
	*is: optimizable) conditions, FoxPro will create a cursor that doesn't actually
	*have a disk presence, but rather is just a filtered view of the original
	*database opened again in another work area.  The SELECT * FROM (m.cursdbf)
	*statement will force the creation of a cursor with a disk presence (because of
	*the ".T." in the contents of the m.cursfilt variable).
	*
	*If you have any questions, please holler.
	*
ENDPROC