This commit is contained in:
SchreiberM
2016-04-28 16:50:25 +02:00
4 changed files with 72 additions and 300 deletions

View File

@@ -1426,8 +1426,10 @@ Public Class frmConstructor_Main
Sub EnableEditMode()
Dim EditingUser = ClassRecordState.IsRecordLocked(SELECTED_RECORD_ID)
' Überprüfen, ob der Record gerade bearbeitet wird
If Not IsNothing(EditingUser) Then
If Not IsNothing(EditingUser) And EditingUser <> Environment.UserName Then
tslblLocked.Visible = True
If USER_LANGUAGE = "de-DE" Then
MsgBox(String.Format("Dieser Datensatz wird gerade vom Benutzer '{0}' bearbeitet und kann nur lesend abgerufen werden.", EditingUser), MsgBoxStyle.Exclamation)