Vor Profilauswahl prüfen, ob Session vorhanden - frmIndex

Global_Indexer/frmIndex.vb

@@ -11,6 +11,7 @@ Imports Limilabs.Mail
 Imports DevExpress.XtraEditors
 Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Windream
 'Imports DevExpress.DataAccess.Native.Json
 'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records
 
@@ -1847,6 +1848,11 @@ Public Class frmIndex
 
     Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.EditValueChanged
         If ComboboxDoctype.EditValue IsNot Nothing And FormLoaded = True Then
+
+            WINDREAM = New Windream(LOGCONFIG, False, WMDrive, WINDREAM_BASEPATH, True, "", "", "", "")
+            If Not IsNothing(WINDREAM) Then
+                If WINDREAM.SessionLoggedin Then
+
                     Dim oSelectedItem As DocType = ComboboxDoctype.EditValue
 
                     CURRENT_DOKART_ID = oSelectedItem.Guid
@@ -1899,6 +1905,13 @@ Public Class frmIndex
                         CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
                         Refresh_IndexeMan(oSelectedItem.Guid)
                     End If
+
+                Else
+                    MsgBox("Es konnte keine Session aufgebaut werden.")
+                End If
+            Else
+                MsgBox("Es konnte keine Windream-Verbindung aufgebaut werden.")
+            End If
         End If
     End Sub