jj 28.04.16

This commit is contained in:
JenneJ
2016-04-28 16:49:08 +02:00
parent 89275ed3f0
commit 31063ef93c
4 changed files with 55 additions and 36 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)