Aufruf: under construction

BOOLEAN = Writeit(p_Dat AS STRING , p_String AS STRING , p_Withdat AS BOOLEAN)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Writeit (p_Dat AS STRING,p_String AS STRING,p_Withdat AS Boolean) AS Boolean;
		HELPSTRING "Schreibt einen String in eine angegebene Datei."
	** Pcount()=1, dann tcFile enthält den String und Datei Fix auf PMSLOG.TXT
	** pcount()<3, dann kein Datum und mit fPuts()
	** Kein Verzeichnis im Dateinamen, dann LOG-Verzeichnis
	** tvOpt: Bit 0: gesetzt, dann mit DATETIME()
	** tvOpt: Bit 1: gesetzt, wird mit fWrite statt mit fputs geschrieben!
	** tvOpt: Bit 2: gesetzt, Datei überschreiben
	=My.lWriteLog AND My.WriteInLog(m.p_String,.NULL.,FORCEEXT(JUSTFNAME(m.p_Dat),"lwi"),.F.)
	RETURN My.Functions.Dateien.Writeit(m.p_Dat,m.p_String,m.p_Withdat)
ENDPROC