MS IDB und WINDREAM

Global_Indexer/frmAdministration.vb

@@ -7,7 +7,8 @@ Public Class frmAdministration
     Public Shared _aktDokart_Id As Integer
 
     Private GroupToDelete As Integer = Nothing
-
+    Private SourceAttributes As List(Of String)
+    Private SourceObjectTypes As List(Of String)
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
     Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -72,10 +73,15 @@ Public Class frmAdministration
         Catch ex As Exception
             MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-        If GI_withWindream = True Then
-            If ClassWindream.Init() = True Then
-            End If
+        If IDB_ACTIVE = False Then
+            WINDREAM_DIRECTCheckBox.Visible = True
+        Else
+            WINDREAM_DIRECTCheckBox.Visible = False
         End If
+        'If GI_withWindream = True Then
+        '    If ClassWindream.Init() = True Then
+        '    End If
+        'End If
     End Sub
     Private Sub ObjektTypenEintragen()
         Try
@@ -86,12 +92,17 @@ Public Class frmAdministration
             Me.OBJEKTTYPComboBox.Items.Clear()
             ListBoxControl1.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
+
+            For Each otype As String In SourceObjectTypes
                 ' und in die Combobox eintragen
                 Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
                 ListBoxControl1.Items.Add(oDokumentTyp.aName)
             Next
 
+
             pnlObjekttype_Config.Enabled = True
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
@@ -306,9 +317,14 @@ Public Class frmAdministration
             If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
                 Me.WD_INDEXComboBox.Items.Clear()
                 Me.WD_INDEXComboBox.Items.Add("")
-                Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
-                If indexe IsNot Nothing Then
-                    For Each index As String In indexe
+                If SourceAttributes Is Nothing Then
+                    SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
+                End If
+
+
+
+                If SourceAttributes IsNot Nothing Then
+                    For Each index As String In SourceAttributes
                         Me.WD_INDEXComboBox.Items.Add(index)
                     Next
                 End If
@@ -321,9 +337,11 @@ Public Class frmAdministration
         Try
             If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
                 Me.INDEXNAME_AutoIndexCMB.Items.Clear()
-                Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
-                If indexe IsNot Nothing Then
-                    For Each index As String In indexe
+                If SourceAttributes Is Nothing Then
+                    SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
+                End If
+                If SourceAttributes IsNot Nothing Then
+                    For Each index As String In SourceAttributes
                         Me.INDEXNAME_AutoIndexCMB.Items.Add(index)
                     Next
                 End If
@@ -510,10 +528,14 @@ Public Class frmAdministration
             IDX_EMAIL_SUBJECTComboBox.Items.Clear()
             IDX_EMAIL_TOComboBox.Items.Clear()
             IDX_CHECK_ATTACHMENTComboBox.Items.Clear()
-            Dim indexe = ClassWindream.GetIndicesByObjecttype(Otype)
-            If indexe IsNot Nothing Then
-                For Each index As String In indexe
-                    Select Case ClassWindream.GetTypeOfIndexAsIntByName(index)
+            If SourceAttributes Is Nothing Then
+                SourceAttributes = WINDREAM.GetIndiciesByObjecttype(Otype)
+            End If
+
+
+            If SourceAttributes IsNot Nothing Then
+                For Each index As String In SourceAttributes
+                    Select Case WINDREAM.GetIndexType(index)
                         Case 4 'Boolean
                             Me.IDX_CHECK_ATTACHMENTComboBox.Items.Add(index)
                         Case Else
@@ -537,7 +559,10 @@ Public Class frmAdministration
             ' Combobox leeren
             ListBoxControl1.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
+            For Each oDokumentTyp In SourceObjectTypes
                 ' und in die Combobox eintragen
                 ListBoxControl1.Items.Add(oDokumentTyp.aName)
             Next
@@ -596,10 +621,7 @@ Public Class frmAdministration
             lblWDINDEX.Visible = True
             OBJEKTTYPComboBox.Visible = True
             WD_INDEXComboBox.Visible = True
-
-            If ClassWindream.Init() = True Then
-                ObjektTypenEintragen()
-            End If
+            ObjektTypenEintragen()
         Else
             lblObjekttyp.Visible = False
             lblWDINDEX.Visible = False
@@ -1007,7 +1029,7 @@ Public Class frmAdministration
             End If
 
             ' Vektorindexe fangen bei 4000 an
-            Return ClassWindream.GetTypeOfIndexAsIntByName(selectedIndexName) > 4000
+            Return WINDREAM.GetIndexType(selectedIndexName) > 4000
         Catch ex As Exception
             Return False
         End Try