MS_26012016_1

app/DD-Record-Organiser/ClassInit.vb

@@ -91,6 +91,7 @@ Public Class ClassInit
             'Me.Close()
             Throw New Exception("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
         Else
+            USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
             sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
             sql = sql.Replace("@user", Environment.UserName)
             If ClassDatabase.Execute_Scalar(sql) = False Then