MS

app/DD-Record-Organizer/ClassInit.vb

@@ -105,7 +105,7 @@ Public Class ClassInit
             If KONFIG_DT.Rows.Count = 1 Then
                 Try
                     MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING")
-                  
+
                 Catch ex As Exception
                     MY_WIKISTRING = ""
                 End Try
@@ -115,12 +115,27 @@ Public Class ClassInit
 
             sql = "SELECT * FROM TBPMO_CONTROL"
             CURRENT_TBPMO_CONTROL = ClassDatabase.Return_Datatable(sql, True)
+
+            sql = String.Format("SELECT T")
+
+
         Catch ex As Exception
             MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
 
     End Sub
 
+    Public Shared Sub Init_CONN_SWITCH()
+        Try
+            Dim sql = String.Format("SELECT T1.GUID, T.DESCRIPTION, T.SQL_CONNECTION, T.SQL_CONNECTION_PROXY, T.WM_ALIAS,T1.ACTIVE FROM " &
+                                    "TBPMO_CLIENT_CONNECTION_SWITCH T, TBPMO_CLIENT_CONN_SWITCH_USER T1 WHERE T.GUID = T1.CONN_SWITCH_ID " &
+                                    "And T.ACTIVE = 1 And T1.USER_ID = {0}", USER_GUID)
+            CURRENT_TBPMO_CONN_SWITCH = ClassDatabase.Return_Datatable(sql)
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
+        End Try
+    End Sub
+
     Public Shared Function InitUserLogin(Optional _User As String = "")
         Try
             If _User = "" Then
@@ -158,7 +173,7 @@ Public Class ClassInit
                 Else
                     Right_RO = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
                 End If
-           
+
 
                 If Right_RO = False Then
                     ClassLogger.Add("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
@@ -172,6 +187,7 @@ Public Class ClassInit
                     Return False
                     'Me.Close()
                 Else
+                    Init_CONN_SWITCH()
                     'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
                     DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, False)
                     If DT_CLIENT_USER.Rows.Count > 1 Then