Aufruf: Den kompletten Mandanten ReadOnly setzen

BOOLEAN = SetClientReadonly()

Rückgabe: Den kompletten Mandanten ReadOnly setzen

Rückgabe der Funktion: BOOLEAN

Code: Den kompletten Mandanten ReadOnly setzen

PROCEDURE SetClientReadonly () AS Boolean
	LOCAL llReadOnly AS Boolean , lcReturn AS STRING
	llReadOnly = My.Clients.PATH.lDbfReadOnly
	lcReturn   = "NEIN"
	*/ Hier kann nur mit JA/NEIN geantwortet werden (Standard=NEIN)
	IF m.llReadOnly
		lcReturn = My.Functions.Dialoge.Dialog("CLIENT_READONLY_1")
	ELSE
		lcReturn = My.Functions.Dialoge.Dialog("CLIENT_READONLY_0")
	ENDIF
	*/ Prüfung
	IF m.lcReturn="JA"
		*/ Wird lediglich getoggelt!
		My.Clients.PATH.lDbfReadOnly = !m.llReadOnly
		=My.Clients.Login.SetMaskRights()
	ENDIF
ENDPROC