MS_15.03

app/DD-Record-Organiser/ClassInit.vb

@@ -65,6 +65,19 @@ Public Class ClassInit
             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)
+            Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
+            Dim i As Integer = 0
+            For Each row As DataRow In DT_CLIENT_USER.Rows
+                If i = 0 Then
+                    USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString
+                Else
+                    USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString
+                End If
+                i += 1
+
+            Next
+
+
             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