Aufruf: under construction

BOOLEAN = WriteLogin(tcUser AS STRING , tcPwd AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE WriteLogin (tcUser AS STRING,tcPwd AS STRING) AS Boolean
	DO CASE
		CASE PCOUNT()=0
			RETURN My.Clients.Login.WriteLogin()
		CASE PCOUNT()=1
			RETURN My.Clients.Login.WriteLogin(m.tcUser)
		OTHERWISE
			RETURN My.Clients.Login.WriteLogin(m.tcUser,m.tcPwd)
	ENDCASE
	** 0 Parameter, Autologin abfrage, keine Änderung, Return llret=llaktiv
	** 1 Parameter, Autologin ausschalten, lAuto=.F.
	** 2 Parameter, Autologin einschalten und speichern, lAuto=.T.
ENDPROC