Aufruf: Einen Cursor nach Text konvertieren

STRING = Cur2Text(tcAlias AS STRING , tcDelimiter AS STRING , tiBitPattern AS INTEGER)

Rückgabe: Einen Cursor nach Text konvertieren

Rückgabe der Funktion: STRING

Code: Einen Cursor nach Text konvertieren

PROCEDURE Cur2Text (tcAlias AS STRING,tcDelimiter AS STRING,tiBitPattern AS INTEGER) AS STRING ;
		HELPSTRING "Ermittelt aus dem angegebenen Cursor eine Textdatei"
	RETURN My.Bussines.PmsToEplan.CursorToText(m.tcAlias,m.tcDelimiter,m.tiBitPattern,SET("Datasession"))
	*/ tiBitPattern:	Optionen, falls nicht angegeben, dann 0
	*/	BIT0 - Wert1: Zeichenwerte werden nicht mit Hochkomma dargestellt --> .f.="Das ist der Text" / .t.=Das ist der Text
	*/	BIT1 - Wert2: frei
	*/	BIT2 - Wert4: keine Thermos-Ausgabe --> .f.=Thermos / .t.=Kein Thermos
	*/	BIT3 - Wert8: ermittelte Zeichenkette in die Zwischenablage speichern --> .t.=Zwischenablage mit _cliptext abrufbar
	*/	BIT4 - Wert16:Headerzeile ausgeben (Feldname)
ENDPROC