Marke 2108

Global_Indexer/ClassConfig.vb

@@ -14,6 +14,7 @@ Public Class ClassConfig
     Public Property ProfilePreselection As Boolean = False
     Public Property ShowIndexResult As Boolean = True
     Public Property DeleteOriginalFile As Boolean = False
+    Public Property TopMost As Boolean = True
 
     ' Misc Settings
     Public Property LogErrorsOnly As Boolean = True

Global_Indexer/ClassControls.vb

@@ -2,6 +2,7 @@
 Imports Oracle.ManagedDataAccess.Client
 Imports DigitalData.Controls.LookupGrid
 
+
 Public Class ClassControls
     Private Property Form As frmIndex
     Private Property Panel As Panel
@@ -49,7 +50,7 @@ Public Class ClassControls
             Return chk
         Catch ex As Exception
             LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             Return Nothing
         End Try
     End Function
@@ -58,7 +59,7 @@ Public Class ClassControls
         PrepareDependingControl(sender)
     End Sub
 
-    Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False) As Control
+    Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False, Optional SQLSuggestion As Boolean = False) As Control
         Try
             Dim oSql As String = sql_Vorschlag
             Dim oConnectionString As String
@@ -74,12 +75,22 @@ Public Class ClassControls
                     .IndexType = DataType
                 }
             }
+            oControl.Properties.AppearanceFocused.BackColor = Color.Lime
 
             If Not String.IsNullOrEmpty(Vorgabe) Then
-                Dim oDefaultValues = Vorgabe.
-                    Split(",").ToList().
-                    Select(Function(item) item.Trim()).
-                    ToList()
+                Dim oDefaultValues As New List(Of String)
+
+                If Vorgabe.Contains(",") Then
+                    oDefaultValues = Vorgabe.
+                        Split(",").ToList().
+                        Select(Function(item) item.Trim()).
+                        ToList()
+                Else
+                    oDefaultValues = Vorgabe.
+                        Split(ClassConstants.VECTORSEPARATOR).ToList().
+                        Select(Function(item) item.Trim()).
+                        ToList()
+                End If
                 oControl.SelectedValues = oDefaultValues
             End If
 
@@ -87,7 +98,7 @@ Public Class ClassControls
 
             oConnectionString = ClassFormFunctions.GetConnectionString(conid)
 
-            If oConnectionString IsNot Nothing Then
+            If oConnectionString IsNot Nothing And oSql.Length > 0 And SQLSuggestion = True Then
                 LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
 
                 If ClassPatterns.HasComplexPatterns(oSql) Then
@@ -103,7 +114,7 @@ Public Class ClassControls
             Return oControl
         Catch ex As Exception
             LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
             Return Nothing
         End Try
@@ -281,54 +292,62 @@ Public Class ClassControls
             End If
         Catch ex As Exception
             LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
         End Try
     End Sub
 
-    Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As TextBox
-        Dim txt As New TextBox With {
+    Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As DevExpress.XtraEditors.TextEdit
+        Dim oEdit As New DevExpress.XtraEditors.TextEdit With {
             .Name = "txt" & indexname,
             .Size = New Size(260, 27),
             .Location = New Point(11, y),
-            .Tag = New ControlMeta() With {
+             .Tag = New ControlMeta() With {
                 .IndexName = indexname,
                 .IndexType = DataType
             }
         }
 
-        If text <> "" Then
-            txt.Text = text
-            txt.Size = New Size(CInt(text.Length * 15), 27)
-            txt.SelectAll()
+        Select Case DataType
+            Case "INTEGER"
+                oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
+                oEdit.Properties.Mask.EditMask = "d"
+                Console.WriteLine()
+        End Select
+
+        If text IsNot Nothing Then
+            oEdit.Text = text
+            oEdit.SelectAll()
         End If
-        AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
-        AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
-        AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
-        AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged
-        Return txt
+
+        AddHandler oEdit.GotFocus, AddressOf OnTextBoxFocus
+        AddHandler oEdit.LostFocus, AddressOf OnTextBoxLostFocus
+        AddHandler oEdit.KeyUp, AddressOf OnTextBoxKeyUp
+        AddHandler oEdit.TextChanged, AddressOf OnTextBoxTextChanged
+
+        Return oEdit
     End Function
 
     Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
         oTextbox.BackColor = Color.Lime
         oTextbox.SelectAll()
     End Sub
 
     Public Sub OnTextBoxTextChanged(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
         Using oGraphics As Graphics = oTextbox.CreateGraphics()
             oTextbox.Width = oGraphics.MeasureString(oTextbox.Text, oTextbox.Font).Width + 15
         End Using
     End Sub
 
     Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
         oTextbox.BackColor = Color.White
     End Sub
 
     Public Sub OnTextBoxKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
 
         If oTextbox.Text = String.Empty Then
             Exit Sub
@@ -344,21 +363,19 @@ Public Class ClassControls
     End Sub
 
 
-    Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String)
-        Dim dtp As New DateTimePicker With {
+    Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String) As DevExpress.XtraEditors.DateEdit
+        Dim oPicker As New DevExpress.XtraEditors.DateEdit With {
             .Name = "dtp" & indexname,
-            .Format = DateTimePickerFormat.Short,
-            .Size = New Size(133, 27),
+            .Size = New Size(260, 27),
             .Location = New Point(11, y),
             .Tag = New ControlMeta() With {
                 .IndexName = indexname,
                 .IndexType = DataType
             }
         }
+        oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
 
-        AddHandler dtp.ValueChanged, AddressOf OndtpChanged
-
-        Return dtp
+        Return oPicker
     End Function
     Sub OndtpChanged()
         'offen was hier zu tun ist
@@ -388,7 +405,7 @@ Public Class ClassControls
                         Continue For
                     End If
 
-                    oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORT_NAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
+                    oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
                     oControlSql = ClassPatterns.ReplaceInternalValues(oControlSql)
                     oControlSql = ClassPatterns.ReplaceControlValues(oControlSql, Panel)
 
@@ -436,24 +453,27 @@ Public Class ClassControls
                 LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
             End If
 
-            If TypeOf oFoundControl Is TextBox Then
-                If oDatatable.Rows.Count > 0 Then
-                    Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
+            Select Case oFoundControl.GetType.Name
+                Case GetType(DevExpress.XtraEditors.TextEdit).Name
+                    If oDatatable.Rows.Count > 0 Then
+                        Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
 
-                    If oFirstRow.ItemArray.Length > 0 Then
-                        Dim oValue = oFirstRow.Item(0).ToString()
+                        If oFirstRow.ItemArray.Length > 0 Then
+                            Dim oValue = oFirstRow.Item(0).ToString()
 
-                        LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, oValue)
-                        DirectCast(oFoundControl, TextBox).Text = oValue
+                            LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
+                            DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
+                        End If
                     End If
-                End If
-            ElseIf TypeOf oFoundControl Is LookupControl2 Then
-                LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
-                DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
-            ElseIf TypeOf oFoundControl Is ComboBox Then
-                LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
-                DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
-            End If
+                Case GetType(LookupControl2).Name
+                    LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+                    DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
+                Case GetType(ComboBox).Name
+                    LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+                    DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
+                Case Else
+                    LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
+            End Select
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try

Global_Indexer/ClassDatabase.vb

@@ -18,7 +18,7 @@ Public Class ClassDatabase
             Return True
         Catch ex As Exception
             LOGGER.Info("Unexpected error in Database-Init: " & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function
@@ -95,7 +95,7 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -104,7 +104,7 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -134,7 +134,7 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -143,7 +143,7 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -172,7 +172,7 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -181,12 +181,38 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
 
             Return False
         End Try
     End Function
+    Public Shared Function Execute_non_Query_ConStr(ExecuteCMD As String, ConnString As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConnString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            If userInput = True Then
+                MsgBox("Error in Execute_non_Query_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            Clipboard.SetText("Error Execute_non_Query_ConStr: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
+            LOGGER.Info("Fehler bei Execute_non_Query_ConStr: " & ex.Message, True)
+            LOGGER.Info("#SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
     Public Shared Function Execute_Scalar(sql_command As String, ConString As String, Optional userInput As Boolean = False)
         Dim result
         Try
@@ -212,7 +238,7 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -221,7 +247,7 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in Execute_Scalar: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -264,7 +290,7 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in OracleExecute_non_Query: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & ExecuteCMD)
 
             Return False
@@ -289,7 +315,7 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
             End If
-            LOGGER.Info("Unexpected error in Oracle_Return_Datatable: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & Select_anweisung)
             Return Nothing
         End Try

Global_Indexer/ClassFilehandle.vb

@@ -25,9 +25,9 @@ Public Class ClassFilehandle
                     Dim result As MsgBoxResult
 
                     If USER_LANGUAGE = "de-DE" Then
-                        result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                     Else
-                        result = MessageBox.Show("Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        result = MessageBox.Show(New Form With {.TopMost = True}, "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                     End If
 
                     If result = MsgBoxResult.Yes Then
@@ -39,6 +39,16 @@ Public Class ClassFilehandle
                     End If
                 End If
             End If
+
+            If filename.ToUpper.EndsWith(".LNK") Then
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+                Else
+                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+                End If
+                Return False
+            End If
+
             Return Insert_GI_File(filename, handletype)
         Catch ex As Exception
             MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
@@ -94,7 +104,20 @@ Public Class ClassFilehandle
                     Else
                         attachment_name = attachment.LongFileName
                     End If
-                    If Not attachment_name.Contains("inline") Then
+                    If attachment.EmbeddedMessage IsNot Nothing Then
+                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
+                        tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+                        If tempfile <> String.Empty Then
+                            Dim oMessage = attachment.EmbeddedMessage
+                            oMessage.Save(tempfile)
+                            TEMP_FILES.Add(tempfile)
+                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+                            i1 += 1
+                        End If
+                    ElseIf Not attachment_name.Contains("inline") Then
                         'Sonderzeichen entfernen
                         attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
                         tempfile = Path.Combine(Path.GetTempPath, attachment_name)

Global_Indexer/ClassIDBData.vb

@@ -0,0 +1,226 @@
+Public Class ClassIDBData
+    Public DTVWIDB_BE_ATTRIBUTE As DataTable
+    ''' <summary>
+    ''' Gets all indices by BusinessEntity.
+    ''' </summary>
+    ''' <param name="BusinessEntity">Title of Business Entity</param>
+    ''' <returns>Array with all Indices</returns>
+    ''' <remarks></remarks>
+    ''' 
+    Public Function Init()
+        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
+        DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+    End Function
+    Public IDBSystemIndices As List(Of String)
+    Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
+        Try
+            Dim aNames(4) As String
+            aNames(0) = "ObjectID"
+            aNames(1) = "IDBCreatedWhen"
+            aNames(2) = "IDBCreatedWho"
+            aNames(3) = "IDBChangedWhen"
+            aNames(4) = "IDBChangedWho"
+            IDBSystemIndices = aNames.ToList
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count + 4) As String
+            Dim oCount As Integer = 0
+            aIndexNames(oCount) = "ObjectID"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWho"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWho"
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                oCount += 1
+                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
+
+            Next
+
+
+            ' Indexarray sortiert zurückgeben
+            Array.Sort(aIndexNames)
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error getting the IDB Indicies")
+            Return Nothing
+        End Try
+    End Function
+    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
+        Try
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                If oRow.Item("ATTR_TITLE") = indexname Then
+                    Dim oType = oRow.Item("TYP_ID")
+                    Return oType
+                End If
+            Next
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function GetVariableValue(oAttributeName As String, Optional oIDBTyp As Integer = 0, Optional FromIDB As Boolean = False) As Object
+        Try
+            Dim oSingleAttribute As Boolean = True
+            Select Case oIDBTyp
+                Case 8
+                    oSingleAttribute = False
+                Case 9
+                    oSingleAttribute = False
+            End Select
+            Dim oAttributeValue
+
+            If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
+                Try
+                    If oAttributeName = "IDBCreatedWhen" Then
+                        oAttributeName = "ADDED_WHEN"
+                    ElseIf oAttributeName = "IDBCreatedWho" Then
+                        oAttributeName = "ADDED_WHO"
+                    ElseIf oAttributeName = "IDBChangedWhen" Then
+                        oAttributeName = "CHANGED_WHEN"
+                    ElseIf oAttributeName = "IDBChangedWho" Then
+                        oAttributeName = "CHANGED_WHO"
+                    End If
+
+                    oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
+                Catch ex As Exception
+                    LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
+                End Try
+
+            End If
+            If Not IsNothing(oAttributeValue) Then
+                Return oAttributeValue
+            Else
+                LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
+            End If
+            Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({IDB_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
+            oAttributeValue = ClassDatabase.Return_Datatable_CS(oFNSQL, CONNECTION_STRING_IDB)
+            Dim odt As DataTable = oAttributeValue
+            If odt.Rows.Count = 1 Then
+                oAttributeValue = odt.Rows(0).Item(0)
+            End If
+            Return oAttributeValue
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
+        Try
+            Dim oAttributeValue
+            Dim oID_IS_FOREIGN As Integer
+            oID_IS_FOREIGN = 0
+            If IDB_USES_WMFILESTORE Then
+                oID_IS_FOREIGN = 1
+            End If
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {IDB_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
+            ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
+        Try
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
+            ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+
+    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0)
+        Try
+            Dim omytype = oNewValue.GetType.ToString
+            If omytype = "System.Data.DataTable" Then
+                Dim oDTMyNewValues As DataTable = oNewValue
+                Dim oOldAttributeResult
+                Dim oTypeOldResult
+
+                If CheckDeleted = True Then
+                    oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp)
+                    oTypeOldResult = oOldAttributeResult.GetType.ToString
+                    If oTypeOldResult = "System.Data.DataTable" Then
+                        Dim myOldValues As DataTable = oOldAttributeResult
+                        If myOldValues.Rows.Count > 1 Then
+
+                            'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
+                            For Each oOldValueRow As DataRow In myOldValues.Rows
+                                Dim oExists As Boolean = False
+                                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                    Dim oInfo1 = $"Checking oldValue[{oOldValueRow.Item(0)}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                    If oNewValueRow.Item(1).ToString.ToUpper = oOldValueRow.Item(0).ToString.ToUpper Then
+                                        oExists = True
+                                        Exit For
+                                    End If
+                                Next
+
+                                If oExists = False Then
+                                    Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                    LOGGER.Info(oInfo)
+                                    SetVariableValue(IDB_LOG_INDEX, oInfo)
+                                    Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
+                                End If
+
+                            Next
+                        End If
+                    Else
+                        If oDTMyNewValues.Rows.Count > 1 Then
+                            Dim oExists As Boolean = False
+                            For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                Dim oInfo1 = $"Checking oldValue[{oOldAttributeResult}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                If oNewValueRow.Item(1).ToString.ToUpper = oOldAttributeResult.ToString.ToUpper Then
+                                    oExists = True
+                                    Exit For
+                                End If
+                            Next
+                            If oExists = False Then
+                                Dim oInfo2 = $"Value [{oOldAttributeResult}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                LOGGER.Info(oInfo2)
+                                SetVariableValue(IDB_LOG_INDEX, oInfo2)
+                                Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                            End If
+                        Else
+                            Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!"
+                            LOGGER.Info(oInfo)
+                            SetVariableValue(IDB_LOG_INDEX, oInfo)
+                            Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                        End If
+
+                    End If
+
+                End If
+
+                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                    Dim oSuccess As Boolean = False
+                    Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+                    oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+                    If oSuccess = False Then
+                        Return False
+                    End If
+                Next
+                Return True
+            Else
+                Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+                Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+            End If
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+End Class

Global_Indexer/ClassInit.vb

@@ -2,15 +2,16 @@
 Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Windream
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
-    Public Sub New()
-    End Sub
 
     Public Sub InitLogger()
         ClassLogger.Init("", Environment.UserName)
-        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
+        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
+                                  CompanyName:=My.Application.Info.CompanyName,
+                                  ProductName:=My.Application.Info.ProductName)
         LOGGER = LOGCONFIG.GetLogger("Globix")
         LOGGER.Info("Programmstart: " & Now)
         LOGGER.Info("Username: {0}", Environment.UserName)
@@ -70,19 +71,39 @@ Public Class ClassInit
             Else
                 Throw New Exception("Unexpected error while initializing basic-settings. More info in the log.")
             End If
+        Else
+            If IDB_ACTIVE = False Then
+                Try
+                    WINDREAM = New Windream(LOGCONFIG, False, WMDrive, "\\windream\objects", True, "", "", "", "")
+                    If Not IsNothing(WINDREAM) Then
+                        If WINDREAM.SessionLoggedin = True Then
+                            LOGGER.Debug("windream initialisiert")
+                        Else
+                            Throw New Exception("Could not create a windream session")
+                        End If
+                    End If
+                Catch ex As Exception
+                    LOGGER.Warn("CHECKING WMConnectivity: " & ex.Message)
+                    Throw New Exception("Unexpected error in CHECKING WMConnectivity")
+                End Try
+            End If
+
         End If
     End Sub
 
     Public Function Load_BasicConfig()
         Try
             ClassDatabase.Init()
-            Dim oSql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'"
+            Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'Global-Indexer'"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(oSql)
             If DT.Rows.Count = 1 Then
                 GI_withWindream = DT.Rows(0).Item("BIT1")
-                vWLaufwerk = DT.Rows(0).Item("STRING1")
-
-                DTTBGI_REGEX_DOCTYPE = ClassDatabase.Return_Datatable("SELECT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
+                'vWLaufwerk = DT.Rows(0).Item("STRING1")
+            End If
+            oSql = "SELECT * FROM TBDD_BASECONFIG"
+            DT = ClassDatabase.Return_Datatable(oSql)
+            If DT.Rows.Count = 1 Then
+                WMDrive = DT.Rows(0).Item("WM_DRIVE")
                 Return True
             Else
                 Return False
@@ -200,36 +221,10 @@ Public Class ClassInit
     End Sub
     Public Sub InitUserLogin()
         Try
-            Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
-            sql = sql.Replace("@user", Environment.UserName)
-            ' LOGGER.Info(">> Username: " & Environment.UserName)
+            Dim oSql As String
 
-            USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            Try
-                Dim USERID = CInt(USER_ID)
-            Catch ex As Exception
-                LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)")
-                LOGGER.Error(ex.Message)
-                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                'Me.Close()
-                START_INCOMPLETE = True
-                Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
-                Exit Sub
-            End Try
-
-            Dim oUserDatatable As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBDD_USER WHERE GUID = {USER_ID}")
-            If Not IsNothing(oUserDatatable) AndAlso Not IsDBNull(oUserDatatable.Rows.Item(0)) Then
-                Dim oRow As DataRow = oUserDatatable.Rows.Item(0)
-                USER_SHORT_NAME = NotNull(oRow.Item("SHORTNAME"), String.Empty)
-                USER_PRENAME = NotNull(oRow.Item("PRENAME"), String.Empty)
-                USER_SURNAME = NotNull(oRow.Item("NAME"), String.Empty)
-                USER_EMAIL = NotNull(oRow.Item("EMAIL"), String.Empty)
-                USER_USERNAME = NotNull(oRow.Item("USERNAME"), String.Empty)
-            End If
-
-            'Check_User_Exists_in_GIGroups()
-            sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
-            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
+            oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
+            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(oSql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
                 START_INCOMPLETE = True
@@ -238,7 +233,23 @@ Public Class ClassInit
                 Exit Sub
             End If
             If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
+                If DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID") = 0 And IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")) Then
+                    LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration!")
+                    START_INCOMPLETE = True
+                    Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
+                    Exit Sub
+                End If
                 USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
+                USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
+                USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
+                USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
+                USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
+                USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
+                USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
+                USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
+                USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
+                ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
                 If USER_IN_MODULE = False Then
                     LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
                     START_INCOMPLETE = True
@@ -262,22 +273,22 @@ Public Class ClassInit
                 End If
                 USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
 
-                sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql, True)
-                sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql)
-                sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
-                Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-                LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
-                UserLoggedin = CInt(anzahl)
-                UserLoggedin += 1
-                If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
-                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
+                oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
+                ClassDatabase.Execute_non_Query(oSql, True)
+                oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
+                ClassDatabase.Execute_non_Query(oSql)
+                oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
+                ' Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+                'LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
+                ' UserLoggedin = CInt(anzahl)
+                ' UserLoggedin += 1
+                If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
+                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
                     If USER_IS_ADMIN = False Then
                         'Anmeldung wieder herausnehmen
-                        sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
-                        ClassDatabase.Execute_non_Query(sql, True)
+                        oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
+                        ClassDatabase.Execute_non_Query(oSql, True)
                         LOGGER.Info(" - Wieder abgemeldet")
                         START_INCOMPLETE = True
                     End If

Global_Indexer/ClassLayout.vb

@@ -2,7 +2,7 @@
 Imports System.IO
 
 Public Class ClassWindowLocation
-    Public Shared Sub LoadFormLocationSize(ByRef form As Form)
+    Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional LoadSize As Boolean = True)
         Try
             Dim _path, _pathold As String
 
@@ -53,7 +53,7 @@ Public Class ClassWindowLocation
                     If x >= 0 And y >= 0 Then
                         form.Location = New Point(x, y)
                     End If
-                    If w > 0 And h > 0 Then
+                    If w > 0 And h > 0 And LoadSize = True Then
                         form.Size = New Size(w, h)
                     End If
                 End If

Global_Indexer/ClassParamRefresh.vb

@@ -0,0 +1,53 @@
+Public Class ClassParamRefresh
+    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
+        If DT_CHECKUSER.Rows.Count = 1 Then
+            USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
+            Try
+                WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
+            Catch ex As Exception
+                WORKING_MODE = ""
+            End Try
+            'Try
+            '    ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
+            '    If ADDITIONAL_TITLE = String.Empty Then
+            '        ADDITIONAL_TITLE = My.Application.Info.ProductName
+            '    End If
+            'Catch ex As Exception
+            '    ADDITIONAL_TITLE = My.Application.Info.ProductName
+            'End Try
+
+            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+
+            ' Use For Each loop over words and display them.
+            Dim oMode As String
+            For Each oMode In oSplitWorkMode
+                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
+                If oMode.StartsWith("IDB_CONID!") Then
+                    Dim CON_ID = oMode.Replace("GLOBIX.IDB_CONID!", "")
+                    Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
+                    CONNECTION_STRING_IDB = oConString
+                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
+                    Dim oDT As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+                    If Not IsNothing(oDT) Then
+                        If oDT.Rows.Count > 0 Then
+                            IDB_ACTIVE = True
+                        Else
+                            LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
+                        End If
+                    Else
+                        LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
+                    End If
+                ElseIf oMode.StartsWith("IDB.LOG_INDEX") Then
+                    IDB_LOG_INDEX = oMode.Replace("IDB.LOG_INDEX!", "")
+                    'ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
+                    '    Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
+                    '    RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
+
+                Else
+                    LOGGER.Info($"Wrong oMode: {oMode}")
+                End If
+            Next
+
+        End If
+    End Sub
+End Class

Global_Indexer/ClassPatterns.vb

@@ -1,4 +1,5 @@
 Imports System.Text.RegularExpressions
+Imports DevExpress.XtraEditors
 Imports DigitalData.Controls.LookupGrid
 Imports WINDREAMLib
 
@@ -39,7 +40,7 @@ Public Class ClassPatterns
 
     Public Const MAX_TRY_COUNT = 500
 
-    Private Shared regex As Regex = New Regex("{#(\w+)#([\w\d\s_-]+)}+")
+    Private Shared regex As Regex = New Regex("{#(\w+)#([\.\w\d\s_-]+)}+")
     Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
     Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA}
     Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
@@ -176,7 +177,7 @@ Public Class ClassPatterns
                         Continue For
                     End If
 
-                    LOGGER.Debug("Getting control metadata from object: [{0}]", oControl?.Tag?.ToString())
+                    LOGGER.Debug("Getting control metadata from Control: [{0}]", oControl.Name)
 
                     If oControl.Tag Is Nothing Then
                         LOGGER.Warn("No Metadata object found for control [{0}]. Skipping.", oControl.Name)
@@ -208,9 +209,9 @@ Public Class ClassPatterns
 
                     LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
 
-                    If TypeOf oFoundControl Is TextBox Then
+                    If TypeOf oFoundControl Is TextEdit Then
                         Try
-                            oValue = DirectCast(oFoundControl, TextBox).Text
+                            oValue = DirectCast(oFoundControl, TextEdit).Text
                         Catch ex As Exception
                             LOGGER.Error(ex)
                             LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
@@ -231,7 +232,7 @@ Public Class ClassPatterns
                                     Case "INTEGER"
                                         oValue = String.Join(",", oLookupControl.SelectedValues)
                                     Case "VARCHAR"
-                                        Dim oWrapped = oLookupControl.SelectedValues.Select(Function(v) $"'{v}'")
+                                        Dim oWrapped = oLookupControl.SelectedValues
                                         oValue = String.Join(",", oWrapped)
                                     Case Else
                                         LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
@@ -257,7 +258,7 @@ Public Class ClassPatterns
 
                 oTryCounter += 1
             End While
-            LOGGER.Debug("sql after ReplaceControlValues: " & input)
+            LOGGER.Debug("input after ReplaceControlValues [{input}]")
             Return result
         Catch ex As Exception
             LOGGER.Error(ex)

Global_Indexer/ClassPostprocessing.vb

@@ -62,51 +62,6 @@ Public Class ClassPostprocessing
         End Try
 
         Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
-
-        'Dim result As String = idxvalue
-        'Try
-        '    For Each row As DataRow In Datatable.Rows
-        '        Select Case row.Item("TYPE").ToString.ToUpper
-        '            Case "VBSPLIT"
-        '                LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
-        '                Dim strSplit() As String
-        '                strSplit = result.Split(row.Item("TEXT1"))
-        '                For i As Integer = 0 To strSplit.Length - 1
-        '                    If i = CInt(row.Item("TEXT2")) Then
-        '                        LOGGER.Info(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i))
-        '                        result = strSplit(i).ToString
-        '                    End If
-        '                Next
-        '            Case "VBREPLACE"
-        '                If LogErrorsOnly = False Then
-        '                    LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
-        '                    LOGGER.Info(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'")
-        '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '                End If
-
-        '                result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '            Case "REG. EXPRESSION"
-        '                LOGGER.Info(" ...Nachbearbeitung mit RegEx")
-        '                Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
-        '                Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
-        '                RegexList.Add(Regex)
-        '                '
-        '                Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
-        '                If Not IsNothing(resultRegex) Then
-        '                    LOGGER.Info(" ...Ergebnis des RegEx: " & resultRegex.ToString)
-        '                    result = resultRegex.ToString
-        '                Else
-        '                    LOGGER.Info("Postprocessing RegEx konnte kein Ergebnis auswerten!")
-        '                End If
-        '        End Select
-        '    Next
-        '    Return result
-        'Catch ex As Exception
-        '    LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-        '    Return result
-        'End Try
-
     End Function
 
     ''' <summary>

Global_Indexer/ClassWindream.vb

@@ -8,6 +8,7 @@ Imports WINDREAMLib.WMSearchRelation
 Imports WMOBRWSLib
 Imports WMOSRCHLib
 Imports System.IO
+Imports System.Text.RegularExpressions
 
 Public Class ClassWindream
 
@@ -18,6 +19,8 @@ Public Class ClassWindream
     Const VARIABLEN = 2
     Const WMObjectStreamOpenModeReadWrite = 2
 
+    Const STREAM_BinaryObject = "BinaryObject"
+
     Public Const WMObjectVariableValueTypeUndefined = 0
     Public Const WMObjectVariableValueTypeString = 1
     Public Const WMObjectVariableValueTypeInteger = 2
@@ -38,12 +41,12 @@ Public Class ClassWindream
 
 #Region "+++++ Variablen +++++"
     Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
-    Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared _session 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
     Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
-    Public Shared oDokumentTypen As WINDREAMLib.WMObjects
-    Private oController As New WMOSearchController
+    Public Shared _DocumentTypes As WINDREAMLib.WMObjects
+    Private _SearchController As New WMOSearchController
     Public Shared _WDObjekttyp As String
-    Private Shared aktWMObject As WINDREAMLib.WMObject
+    Private Shared _currentWMObject As WINDREAMLib.WMObject
 #End Region
 
 
@@ -71,13 +74,13 @@ Public Class ClassWindream
                 Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
                 Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
 
-                oController = New WMOSearchController
+                _SearchController = New WMOSearchController
 
-                Me.oController.CheckSearchProfile(wdfLocation.ToLower)
-                Dim suchTyp = Me.oController.SearchProfileTargetProgID
+                Me._SearchController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = Me._SearchController.SearchProfileTargetProgID
                 Dim ExSettings As Object
                 Dim oSearch As Object
-                ExSettings = Me.oController.SearchProfileExSettings
+                ExSettings = Me._SearchController.SearchProfileExSettings
                 If ExSettings = 0 Then ExSettings = 7
 
                 Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
@@ -195,7 +198,7 @@ Public Class ClassWindream
         Try
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
-                oSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                _session = CreateObject("Windream.WMSession", GetCurrentServer)
                 LOGGER.Info(" ...windream-Server: '" & GetCurrentServer() & "'")
                 ' Connection-Objekt instanziieren
                 oConnect = CreateObject("Windream.WMConnect")
@@ -224,8 +227,8 @@ Public Class ClassWindream
                 ' oConnect.Password "windream"
 
                 ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
-                oConnect.LoginSession(oSession)
-                If oSession.aLoggedin = False Then
+                oConnect.LoginSession(_session)
+                If _session.aLoggedin = False Then
                     MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden")
                     Return False
                 End If
@@ -251,10 +254,10 @@ Public Class ClassWindream
                 'MsgBox(WMCtrl.WMServerName)
 
                 Try
-                    oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    _session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
                     ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
                     ' Ordnertypen ausgelesen werden
-                    oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                    _DocumentTypes = _session.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
                 Catch ex As Exception
                     Return False
                 End Try
@@ -288,80 +291,18 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function GetObjecttypesAsObjects() As WMObjects
         Try
-            Return oDokumentTypen
+            Return _DocumentTypes
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen")
             Return Nothing
         End Try
     End Function
 
-    ''' <summary>
-    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
-    ''' </summary>
-    ''' <returns>Array mit allen Objekttypen als Strings</returns>
-    ''' <remarks></remarks>
-    Public Function GetObjecttypesAsStrings() As String()
 
-        Try
-            Dim objektTypenStr(Me.oDokumentTypen.Count) As String
-
-            For i As Integer = 0 To Me.oDokumentTypen.Count
-                objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
-            Next
-
-            Return objektTypenStr
-
-        Catch ex As Exception
-            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen als String")
-            Return Nothing
-        End Try
-
-    End Function
-    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
-        Try
-            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
-            Dim vType = oAttribute.getVariableValue("dwAttrType")
-            Return vType
-        Catch ex As Exception
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function GetSystemIndices(ByVal name As String)
-        Dim oObjectType As WMObject
-        ' den Objekttyp laden
-        oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
-        Dim msg As String
-        Dim oSystemIndexes = oObjectType.GetVariableNames(1, False)
-        msg = "System indices (internal column names): " & vbNewLine
-        For Each oSystemIndex In oSystemIndexes
-            msg = msg & vbNewLine & oSystemIndex
-        Next
-        MsgBox(msg)
-
-
-    End Function
-    Public Shared Function GetTypIndexNames(ByVal name As String)
-        Dim oObjectType As WMObject
-        ' den Objekttyp laden
-        oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
-        Dim msg As String
-        Dim oSystemIndexes = oObjectType.GetVariableNames(2, False)
-        msg = "Type Indices (type Index names): " & vbNewLine
-        For Each oSystemIndex In oSystemIndexes
-            msg = msg & vbNewLine & oSystemIndex
-        Next
-        MsgBox(msg)
-
-
-    End Function
     ''' <summary>
     ''' Liefert alle Indexe eines Objekttypen.
     ''' </summary>
-    ''' <param name="name">Name des Objekttyps</param>
+    ''' <param name="Objecttype_name">Name des Objekttyps</param>
     ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
     ''' <remarks></remarks>
     Public Shared Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
@@ -373,7 +314,7 @@ Public Class ClassWindream
             Dim oRelProperties As WMObjectRelationClass
 
             ' den Objekttyp laden
-            oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
+            oObjectType = _session.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
 
             ' Beziehung zu Indizes des Objekttyp auslesen
             oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
@@ -406,31 +347,6 @@ Public Class ClassWindream
             Return Nothing
         End Try
     End Function
-    ''' <summary>
-    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
-    ''' </summary>
-    ''' <param name="objekttypName">Name des Objekttyps</param>
-    ''' <returns>Objekttyp als WMObject</returns>
-    ''' <remarks></remarks>
-    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
-        Try
-            ' alle Objekttypen auslesen
-            Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
-
-            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
-            For Each oObjectType As WMObject In oObjectTypes
-                If oObjectType.aName = objekttypName Then
-                    Return oObjectType
-                End If
-            Next
-
-            Return Nothing
-
-        Catch ex As Exception
-            MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
-            Return Nothing
-        End Try
-    End Function
 
     ''' <summary>
     ''' Überprüft ob der angegebene Index im Objekttyp existiert
@@ -467,7 +383,7 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function IsLoggedIn() As Boolean
         Try
-            Return oSession.aLoggedin
+            Return _session.aLoggedin
         Catch ex As Exception
             MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Loggedin-Prüfung")
         End Try
@@ -490,119 +406,52 @@ Public Class ClassWindream
         Return ""
     End Function
 
-
-    ''' <summary>
-    ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
-    ''' </summary>
-    ''' <returns>Laufwerksbuchstabe mit Doppelpunkt als String</returns>
-    ''' <remarks></remarks>
-    'Public Function GetWindreamDriveLetter() As String
-
-    '    Try
-    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
-    '        Dim sDrive As String = ""
-
-    '        oControl = New AISCONTROLDATACOMLib.AISControlData
-
-    '        sDrive = oControl.GetStringValue(&H10040003)
-
-    '        Return sDrive & ":"
-
-    '    Catch ex As Exception
-    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen des windream-Laufwerks")
-    '    End Try
-
-    '    Return ""
-    'End Function
-
-    ''' <summary>
-    ''' Liefert den Typen eines Indexes als Integer.
-    ''' </summary>
-    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
-    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
-    ''' <remarks></remarks>
-
-    Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object
-        Try
-            'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
-            'Dim vType = oAttribute.getVariableValue("vItems")
-            'Return vType
-            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste)
-            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
-                Dim Values = oChoiceList
-                Values = oChoiceList.GetVariableValue("vItems")
-                Dim anz As Integer = 0
-
-                For Each CLItem In Values
-                    If oChoiceList.aName IsNot Nothing Then
-                        anz += 1
-                    End If
-                Next
-                Dim strListe(anz - 1)
-                Dim zahl As Integer = 0
-                For Each CLItem In Values
-                    If oChoiceList.aName IsNot Nothing Then
-                        strListe(zahl) = CLItem
-                        zahl += 1
-                    End If
-                Next
-                Return strListe
-            Else
-                MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
-                Return Nothing
-            End If
-
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
-            Return Nothing
-        End Try
-    End Function
 #End Region
-    Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal newfilename As String)
-        On Error Resume Next
-        aktWMObject = Nothing
-        Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename)
-        If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then
-            My.Computer.FileSystem.CreateDirectory(Zielverzeichnis)
+    Public Shared Function Stream_File(ByVal SourceFilePath As String, ByVal NewFileName As String)
+        _currentWMObject = Nothing
+
+        Dim oWindreamFilename As String = NewFileName
+        Dim oFileName As String = NewFileName
+        Dim oWDriveRegex As New Regex("^\w{1}:")
+
+        If oWDriveRegex.IsMatch(NewFileName) Then
+            oFileName = oWDriveRegex.Replace(NewFileName, vWLaufwerk)
+            oWindreamFilename = oWDriveRegex.Replace(NewFileName, String.Empty)
+        Else
+            oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
+        End If
+
+        'If NewFileName.StartsWith("W:") Then
+        '    oFileName = NewFileName.Replace("W:", vWLaufwerk)
+        '    oWindreamFilename = NewFileName.Replace("W:", String.Empty)
+        'Else
+        '    oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
+        'End If
+
+        Dim oSourceFilename As String = Path.GetFileName(SourceFilePath)
+        Dim oDestination As String = Path.GetDirectoryName(oFileName)
+
+        If My.Computer.FileSystem.DirectoryExists(oDestination) = False Then
+            My.Computer.FileSystem.CreateDirectory(oDestination)
             LOGGER.Info(" - Zielverzeichnis neu erzeugt!")
         End If
 
-        Const STREAM_BinaryObject = "BinaryObject"
-
         LOGGER.Info(" ...Stream_File wurde gestartet")
-        Dim windreamFilename As String = ""
+
         ' Objekt für Datei und Zielverzeichnis anlegen
-        Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
+
 
         LOGGER.Info(" ...Quelldatei gelesen")
-        '"Version-KZ entfernen
-        newfilename = newfilename.Replace("\\", "\")
-        windreamFilename = newfilename.Substring(2)
-        If windreamFilename.Contains("[%Version]") Then
-            windreamFilename = windreamFilename.Replace("[%Version]", "")
-            newfilename = windreamFilename
-        End If
 
-        If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
+        If My.Computer.FileSystem.DirectoryExists(oDestination) Then
             LOGGER.Info(" ...targetPath existiert")
             ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
-            Dim dvr As New DriveInfo(vWLaufwerk & ":")
-            Dim freeSpace = dvr.TotalFreeSpace
 
-            Dim info As New FileInfo(filenameQuelle)
-            ' Get length of the file.
-            Dim length As Long = info.Length
-            If freeSpace < length Then
-                If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
-                Else
-                    MsgBox("Not enough diskspace in Target-Directory.", MsgBoxStyle.Exclamation, "Not enough diskspace")
-                End If
+            Dim oFileInfo As New FileInfo(SourceFilePath)
+            Dim oFileLength As Long = oFileInfo.Length
 
-                Return -10
-            End If
 
-            LOGGER.Info(" ...Datei kopieren von '" & filenameQuelle & "' nach '" & newfilename & "'.")
+            LOGGER.Info(" ...Datei kopieren von '" & SourceFilePath & "' nach '" & NewFileName & "'.")
             Dim Connect
             Dim Session
             Dim WMObject
@@ -613,13 +462,6 @@ Public Class ClassWindream
             LOGGER.Info(" ...Connect definieren:  CreateObject('Windream.WMConnect')")
             Connect = CreateObject("Windream.WMConnect")
             aFileIO = New WMOTOOLLib.WMFileIO
-            'If My.Settings.DLL_WMOTOOL = "" Then
-            '    aFileIO = New WMOTOOLLib.WMFileIO
-            '    LOGGER.Info(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO")
-            'Else
-            '    aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
-            '    LOGGER.Info(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'")
-            'End If
 
             wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
             '==================================================================
@@ -642,7 +484,7 @@ Public Class ClassWindream
                 LOGGER.Info(" >> Login on dms-Server failed")
                 ' MsgBox("Login failed. ")
             End If
-            oSession = Session
+            _session = Session
             Const WMCOMEventWMSessionNeedIndex = 1
 
             'windream Objekte erstellen ohne Indexierungs-Event
@@ -650,10 +492,10 @@ Public Class ClassWindream
             '==================================================================
             ' check if files exist
             '==================================================================
-            LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename)
+            LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & oWindreamFilename)
             Dim wdFilexists As Boolean
             LOGGER.Info(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...")
-            wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0)
+            wdFilexists = Session.WMObjectExists(WMEntityDocument, oWindreamFilename, 0, 0)
             Err.Clear()
             If wdFilexists = False Then
                 LOGGER.Info(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden")
@@ -661,7 +503,7 @@ Public Class ClassWindream
                 '==================================================================
                 ' create an object
                 '==================================================================
-                WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+                WMObject = Session.GetNewWMObjectFS(WMEntityDocument, oWindreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                     'MsgBox(Err.Description)
@@ -670,43 +512,54 @@ Public Class ClassWindream
             Else
                 ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
                 LOGGER.Info(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN")
-                If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then
-                    ''##########
-                    Dim msg = String.Format("Eine Datei mit identischem Namen " & vbNewLine & "'{0}'" & vbNewLine & "existiert bereits!" & vbNewLine & "Wollen Sie die bestehende Datei ersetzen?", newfilename)
-                    If USER_LANGUAGE <> "de-DE" Then
-                        msg = "There is already a file with the same name! Would You like to replace the file?"
-                    End If
-                    Dim result As MsgBoxResult
-                    result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    If result = MsgBoxResult.No Then
-                        windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
-                    Else
-                        If Delete_WDFile(windreamFilename) = False Then
+
+
+                Select Case CURRENT_DOKART_DUPLICATE_HANDLING
+
+                    Case "New version"
+                        LOGGER.Info("Creating new version of file [{0}]", NewFileName)
+                        oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+                        CURRENT_NEWFILENAME = oWindreamFilename
+                    Case "Question"
+                        Dim oMessage = $"Eine Datei mit identischem Namen {vbNewLine}'{NewFileName}'{vbNewLine}existiert bereits!{vbNewLine}Wollen Sie die bestehende Datei ersetzen?"
+                        If USER_LANGUAGE <> "de-DE" Then
+                            oMessage = $"There is already a file with the name {NewFileName}!{vbNewLine}Would You like to replace the file?"
+                        End If
+
+                        Dim oResult = MessageBox.Show(oMessage, "File exists", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+
+                        If oResult = DialogResult.No Then
+                            oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+                        Else
+                            If Delete_WDFile(oWindreamFilename) = False Then
+                                Return False
+                            End If
+                        End If
+                    Case Else
+                        If Delete_WDFile(oWindreamFilename) = False Then
                             Return False
                         End If
-                    End If
-                ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
-                    windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
-                End If
-                WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+                End Select
+
+                WMObject = Session.GetNewWMObjectFS(1, oWindreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                     'MsgBox(Err.Description)
                 End If
                 LOGGER.Info(" ...WMObject zugewiesen")
             End If
-            LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename)
+            LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & oWindreamFilename)
             If WMObject IsNot Nothing Then
-                newfilename = vWLaufwerk & ":" & windreamFilename
+                'NewFileName = vWLaufwerk & ":" & oWindreamFilename
                 ' lock object for file system access (to change the file itself)
                 WMObject.lock()
                 ' set fileIO the local source file
-                aFileIO.bstrOriginalFileName = filenameQuelle
+                aFileIO.bstrOriginalFileName = SourceFilePath
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     LOGGER.Info(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
 
                     Return False
                     ' MsgBox(Err.Description)
@@ -716,7 +569,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -726,7 +579,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -735,7 +588,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     ' MsgBox(Err.Description)
                 End If
@@ -745,7 +598,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -754,7 +607,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -764,37 +617,41 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
                 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
-                Dim info2 As New FileInfo(newfilename)
+                Dim info2 As New FileInfo(oFileName)
                 Dim length1 As Long = info2.Length
                 LOGGER.Info(" ...Length der Zieldatei: " & length1.ToString)
-                If length > 0 And Err.Number = 0 Then
-                    Dim p As String
-                    If windreamFilename.StartsWith("\") Then
-                        If windreamFilename.StartsWith("\\") Then
-                            p = windreamFilename.Replace("\\", "\")
-                        Else
-                            p = windreamFilename
-                        End If
-                    Else
-                        p = "\" & windreamFilename
-                    End If
-                    CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
+                If oFileLength > 0 And Err.Number = 0 Then
+
+                    'Dim p As String
+                    'If oWindreamFilename.StartsWith("\") Then
+                    '    If oWindreamFilename.StartsWith("\\") Then
+                    '        p = oWindreamFilename.Replace("\\", "\")
+                    '    Else
+                    '        p = oWindreamFilename
+                    '    End If
+                    'Else
+                    '    p = "\" & oWindreamFilename
+                    'End If
+                    'CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
+
+                    CURRENT_NEWFILENAME = oFileName
+
                     LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!")
-                    aktWMObject = WMObject
+                    _currentWMObject = WMObject
                     Return True
                 Else
-                    Delete_WDFile(windreamFilename)
-                    Console.WriteLine(Err.Number.ToString)
+                    Delete_WDFile(oWindreamFilename)
+                    LOGGER.Info("Error Number: [{0}]", Err.Number)
                     LOGGER.Info(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht")
                     Return False
                 End If
             Else
-                LOGGER.Info(" Could not create a WMObject for file:'" & windreamFilename)
+                LOGGER.Info(" Could not create a WMObject for file:'" & oWindreamFilename)
                 If Not Err() Is Nothing Then
                     If Not Err.Description Is Nothing Then
                         LOGGER.Info(Err.Description)
@@ -815,7 +672,7 @@ Public Class ClassWindream
             End If
             Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject")  'New WINDREAMLib.WMObject
             Try
-                WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
+                WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
             Catch ex As Exception
                 LOGGER.Info(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing")
                 LOGGER.Error(ex.Message)
@@ -848,7 +705,7 @@ Public Class ClassWindream
             ' den Dokumenttyp schreiben
             LOGGER.Info(" ## Indexieren wird gestartet ##")
             ' ein windream-Objekt der Datei anlegen
-            WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
+            WMObject = _currentWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
             Try
                 LOGGER.Info(" ...Datei wird gesperrt")
                 ' die Datei sperren
@@ -873,7 +730,7 @@ Public Class ClassWindream
             If WMObject.aObjectType.aName = "Standard" Then
 
                 ' ihr den entsprechenden Dokumenttyp zuweisen
-                WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                 ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                 LOGGER.Info(" ...Objekttyp wurde gesetzt")
             Else
@@ -963,7 +820,7 @@ Public Class ClassWindream
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If oDocument.aObjectType.aName <> _WDObjekttyp Then
                         ' ihr den entsprechenden Dokumenttyp zuweisen
-                        oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                        oDocument.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                         ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                         LOGGER.Info(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.")
                     Else
@@ -986,7 +843,7 @@ Public Class ClassWindream
                             LOGGER.Info(" >> Indexierung von Index '" & indexname & "'")
                         End If
                         ' das entsprechende Attribut aus windream auslesen
-                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+                        Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
                         ' den Variablentyp (String, Integer, ...) auslesen 
                         Dim vType = oAttribute.getVariableValue("dwAttrType")
                         ' wenn in aValues an Position i ein Wert steht
@@ -1079,6 +936,11 @@ Public Class ClassWindream
                                     LOGGER.Info(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl")
                                     'Vektor Kommazahl
                                     convertValue = CStr(value)
+                                Case 4100
+                                    vektor = True
+                                    LOGGER.Info(" ...Typ des windream-Indexes: 4100 Vektor Boolean")
+                                    'Vektor Kommazahl
+                                    convertValue = ToBoolean(value)
                                 Case 4101
                                     vektor = True
                                     LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date")
@@ -1170,6 +1032,10 @@ Public Class ClassWindream
                                             Str = Str.ToString.Replace(" ", "")
                                             'Umwandeln in Double
                                             myArray(0) = CDbl(Str.Replace(".", ","))
+
+                                        Case 4100
+                                            ' Umwandeln in Boolean
+                                            myArray(0) = ToBoolean(value)
                                         Case 4101
                                             'Umwandeln in Date
                                             myArray(0) = CDate(value)
@@ -1374,7 +1240,7 @@ Public Class ClassWindream
                                 'Das Array anpassen
                                 ReDim Preserve ValueArray(Anzahl)
                                 'Den Wert im Array speichern
-                                ValueArray(Anzahl) = NewValue.ToString
+                                ValueArray(Anzahl) = NewValue '.ToString
                                 Anzahl += 1
                             Else
                                 LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten")
@@ -1383,7 +1249,7 @@ Public Class ClassWindream
                             'Das Array anpassen
                             ReDim Preserve ValueArray(Anzahl)
                             'Den Wert im Array speichern
-                            ValueArray(Anzahl) = NewValue.ToString
+                            ValueArray(Anzahl) = NewValue '.ToString
                             Anzahl += 1
 
                         End If
@@ -1461,7 +1327,7 @@ Public Class ClassWindream
             Loop
             ' wenn die Datei existiert
             If fileExists Then
-                WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+                WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
 
                 ' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird)
                 'Dim convertValue = Nothing
@@ -1472,7 +1338,7 @@ Public Class ClassWindream
                 Try
 
                     ' ein windream-Objekt der Datei anlegen
-                    WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+                    WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
                     If LogErrorsOnly = False Then
                         LOGGER.Info(" - windream-Objekt der Datei erzeugt")
                         LOGGER.Info(" - Ziel: W:\" & filenameZiel)
@@ -1492,7 +1358,7 @@ Public Class ClassWindream
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If WMObject.aObjectType.aName = "Standard" Then
                         ' ihr den entsprechenden Dokumenttyp zuweisen
-                        WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                        WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                         ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                     End If
 
@@ -1873,7 +1739,7 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
         Try
-            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
             Dim vType = oAttribute.getVariableValue("dwAttrType")
             Return vType
         Catch ex As Exception
@@ -1895,9 +1761,15 @@ Public Class ClassWindream
             Return input
         Catch ex As Exception
             LOGGER.Info("Fehler in CheckIndexValue: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             Return Nothing
         End Try
 
     End Function
+
+    Private Shared Function ToBoolean(input As String) As Boolean
+        If String.IsNullOrEmpty(input) Then Return False
+        Return (input.Trim().ToLower() = "true") OrElse (input.Trim() = "1")
+    End Function
+
 End Class

Global_Indexer/Global_Indexer.vbproj

@@ -160,19 +160,25 @@
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Filesystem, Version=1.0.1.1, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.0.0.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windream, Version=1.0.0.5, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
     </Reference>
     <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg.2.0.570.21482, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
+    <Reference Include="Independentsoft.Msg, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -241,15 +247,16 @@
     <Compile Include="ClassFormFunctions.vb" />
     <Compile Include="ClassHelper.vb" />
     <Compile Include="ClassHotkey_Windream.vb" />
+    <Compile Include="ClassIDBData.vb" />
     <Compile Include="ClassIndexFunctions.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLayout.vb" />
     <Compile Include="ClassLicence.vb" />
     <Compile Include="ClassLogger.vb" />
+    <Compile Include="ClassParamRefresh.vb" />
     <Compile Include="ClassPatterns.vb" />
     <Compile Include="ClassPostprocessing.vb" />
     <Compile Include="ClassWindowAPI.vb" />
-    <Compile Include="ClassWindream.vb" />
     <Compile Include="ClassEmailHeaderExtractor.vb" />
     <Compile Include="clsHotkey.vb" />
     <Compile Include="frmAdministration.Designer.vb">
@@ -270,6 +277,12 @@
     <Compile Include="frmConnections.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmEmailIndexing.Designer.vb">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEmailIndexing.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmHistory.Designer.vb">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </Compile>
@@ -366,15 +379,9 @@
     <Compile Include="frmStart.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmTestvb.Designer.vb">
-      <DependentUpon>frmTestvb.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTestvb.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="ModuleCURRENT.vb" />
     <Compile Include="ModuleHelpers.vb" />
-    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleRuntime.vb" />
     <Compile Include="ModuleUserSavings.vb" />
     <Compile Include="ModuleWindowHandles.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
@@ -420,6 +427,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.de.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
@@ -439,6 +447,9 @@
     <EmbeddedResource Include="frmConnections.resx">
       <DependentUpon>frmConnections.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmEmailIndexing.resx">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmHistory.en-US.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </EmbeddedResource>
@@ -758,6 +769,7 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
     <Content Include="globe_handdrawn.ico" />
+    <None Include="Resources\GLOBIX_short.png" />
     <None Include="Resources\Close_16xMD.png" />
     <None Include="Resources\Close_16xLG.png" />
     <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />

Global_Indexer/ModuleCURRENT.vb

@@ -31,14 +31,14 @@ Module ModuleCURRENT
     Public USER_ID
     Public USER_IN_MODULE As Boolean = False
     Public USER_IS_ADMIN As Boolean = False
-    Public UserLoggedin As Integer = 0
 
-    Public USER_SHORT_NAME As String = ""
+    Public USER_SHORTNAME As String = ""
     Public USER_PRENAME As String = ""
     Public USER_SURNAME As String = ""
     Public USER_EMAIL As String = ""
     Public USER_LANGUAGE As String = "DE"
     Public USER_USERNAME As String = ""
+    Public USERCOUNT_LOGGED_IN As Integer = 0
 
     Public CURRENT_FOLDERWATCH As String = ""
     Public CURRENT_SCAN_FOLDERWATCH As String = ""

Global_Indexer/ModuleRuntime.vb

@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Xml
-
-Module ModuleMySettings
+Imports DigitalData.Modules.Windream
+Module ModuleRuntime
     'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
     Public Const USER_CONFIG_FILE = "UserConfig.xml"
     Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
@@ -9,7 +9,19 @@ Module ModuleMySettings
     Public MyConnectionString As String = ""
     Public LogErrorsOnly As Boolean = True
     Public GI_withWindream As Boolean = False
-    Public vWLaufwerk As String = "W"
+    Public WMDrive As String = "W"
     'Public myPreviewActive As Boolean = True
     Public FW_started As Boolean = False
+    Public IDB_ACTIVE As Boolean = False
+    Public WORKING_MODE As String
+    Public CONNECTION_STRING_IDB As String
+
+    Public IDBData As ClassIDBData
+    Public IDB_USES_WMFILESTORE As Boolean = False
+    Public IDB_DOC_DATA_SQL As String
+    Public IDB_DT_DOC_DATA As DataTable
+    Public IDB_DOC_ID As Int64
+    Public IDB_LOG_INDEX As String
+
+    Public WINDREAM As Windream
 End Module

Global_Indexer/My Project/AssemblyInfo.vb

@@ -10,12 +10,12 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("Global Indexer")> 
-<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyTitle("Global Indexer")>
+<Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2020")>
-<Assembly: AssemblyTrademark("")> 
+<Assembly: AssemblyTrademark("2108")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.8")>
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyVersion("2.1.0.8")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -460,6 +460,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property GLOBIX_short() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("GLOBIX_short", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Global_Indexer/My Project/Resources.resx

@@ -121,6 +121,9 @@
   <data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -133,8 +136,8 @@
   <data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="DD_Icons-GLOBIX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-GLOBIX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -145,21 +148,12 @@
   <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -190,24 +184,36 @@
   <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -217,24 +223,18 @@
   <data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -256,14 +256,20 @@
   <data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -271,16 +277,13 @@
   <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Global_Indexer/MyDataset.Designer.vb

@@ -11140,6 +11140,7 @@ Partial Public Class MyDataset
             Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnCHANGED_WHEN)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
+            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnDOCTYPE_ID}, false))
             Me.columnGUID.AutoIncrement = true
             Me.columnGUID.AutoIncrementSeed = 1
             Me.columnGUID.AllowDBNull = false
@@ -11147,6 +11148,7 @@ Partial Public Class MyDataset
             Me.columnGUID.Unique = true
             Me.columnREGEX.AllowDBNull = false
             Me.columnREGEX.MaxLength = 500
+            Me.columnDOCTYPE_ID.Unique = true
             Me.columnADDED_WHO.AllowDBNull = false
             Me.columnADDED_WHO.MaxLength = 50
             Me.columnCHANGED_WHO.MaxLength = 50
@@ -23141,36 +23143,47 @@ Namespace MyDatasetTableAdapters
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
-            Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @GUID)"
+            Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID)"
             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
-            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.InsertCommand.Connection = Me.Connection
-            Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         (IDXMAN_ID, C"& _ 
-                "OMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VA"& _ 
-                "RIANT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@T"& _ 
-                "EXT2,@TEXT3,@SEQUENCE,@ADDED_WHO,@VARIANT)"
+            Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_INDEX_MAN_POSTPROCESSING] ([IDXMAN_ID], [VARIANT], [COMMENT], ["& _ 
+                "TYPE], [FUNCTION1], [FUNCTION2], [TEXT1], [TEXT2], [TEXT3], [SEQUENCE], [ADDED_W"& _ 
+                "HO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@IDXMAN_ID, @VARIANT, "& _ 
+                "@COMMENT, @TYPE, @FUNCTION1, @FUNCTION2, @TEXT1, @TEXT2, @TEXT3, @SEQUENCE, @ADD"& _ 
+                "ED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDXMAN_ID, VARI"& _ 
+                "ANT, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_W"& _ 
+                "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHE"& _ 
+                "RE (GUID = SCOPE_IDENTITY())"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
             Me._adapter.UpdateCommand.CommandText = "UPDATE       TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                IDXMAN_ID = @IDXMA"& _ 
-                "N_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUN"& _ 
-                "CTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                      "& _ 
-                "   SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE  "& _ 
-                "      (GUID = @GUID)"
+                "N_ID, VARIANT = @VARIANT, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTIO"& _ 
+                "N1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  "& _ 
+                "                       SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN "& _ 
+                "= @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE  "& _ 
+                "      (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDXMAN_ID, VARIANT, COMMENT, TYPE,"& _ 
+                " FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA"& _ 
+                "NGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE (GUID = @GUID)"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -23179,8 +23192,11 @@ Namespace MyDatasetTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
         End Sub
         
@@ -23197,20 +23213,10 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
-            Me._commandCollection(0).CommandText = "SELECT        TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.I"& _ 
-                "DXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.T"& _ 
-                "YPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_IN"& _ 
-                "DEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDE"& _ 
-                "X_MAN_POSTPROCESSING.TEXT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBDD_INDEX_MAN_POSTPROCES"& _ 
-                "SING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSIN"& _ 
-                "G.ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN"& _ 
-                ", TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANG"& _ 
-                "ED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TBDD_INDEX_MAN_POSTPROCESSING.VARIANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ 
-                "           TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         TB"& _ 
-                "DD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ 
-                "HERE        (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)"
+            Me._commandCollection(0).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE IDXMAN_ID IN (SELECT GUID FRO"& _ 
+                "M TBDD_INDEX_MAN WHERE DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
-            Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -23266,6 +23272,209 @@ Namespace MyDatasetTableAdapters
         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
             Return Me.Adapter.Update(dataRows)
         End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
+        Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
+            Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
+            If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.DeleteCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.DeleteCommand.Connection.Close
+                End If
+            End Try
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
+        Public Overloads Overridable Function Insert(ByVal IDXMAN_ID As Integer, ByVal _VARIANT As String, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer
+            Me.Adapter.InsertCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer)
+            If (_VARIANT Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("_VARIANT")
+            Else
+                Me.Adapter.InsertCommand.Parameters(1).Value = CType(_VARIANT,String)
+            End If
+            If (COMMENT Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String)
+            End If
+            If (TYPE Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(3).Value = CType(TYPE,String)
+            End If
+            If (FUNCTION1 Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(4).Value = CType(FUNCTION1,String)
+            End If
+            If (FUNCTION2 Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(5).Value = CType(FUNCTION2,String)
+            End If
+            If (TEXT1 Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(6).Value = CType(TEXT1,String)
+            End If
+            If (TEXT2 Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(7).Value = CType(TEXT2,String)
+            End If
+            If (TEXT3 Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(8).Value = CType(TEXT3,String)
+            End If
+            Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer)
+            If (ADDED_WHO Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("ADDED_WHO")
+            Else
+                Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,String)
+            End If
+            If (ADDED_WHEN.HasValue = true) Then
+                Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date)
+            Else
+                Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
+            End If
+            If (CHANGED_WHO Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(12).Value = CType(CHANGED_WHO,String)
+            End If
+            If (CHANGED_WHEN.HasValue = true) Then
+                Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date)
+            Else
+                Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
+            End If
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
+            If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.InsertCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.InsertCommand.Connection.Close
+                End If
+            End Try
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
+        Public Overloads Overridable Function Update( _
+                    ByVal IDXMAN_ID As Integer,  _
+                    ByVal _VARIANT As String,  _
+                    ByVal COMMENT As String,  _
+                    ByVal TYPE As String,  _
+                    ByVal FUNCTION1 As String,  _
+                    ByVal FUNCTION2 As String,  _
+                    ByVal TEXT1 As String,  _
+                    ByVal TEXT2 As String,  _
+                    ByVal TEXT3 As String,  _
+                    ByVal SEQUENCE As Integer,  _
+                    ByVal ADDED_WHO As String,  _
+                    ByVal ADDED_WHEN As Global.System.Nullable(Of Date),  _
+                    ByVal CHANGED_WHO As String,  _
+                    ByVal CHANGED_WHEN As Global.System.Nullable(Of Date),  _
+                    ByVal Original_GUID As Integer,  _
+                    ByVal GUID As Integer) As Integer
+            Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer)
+            If (_VARIANT Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("_VARIANT")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_VARIANT,String)
+            End If
+            If (COMMENT Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String)
+            End If
+            If (TYPE Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TYPE,String)
+            End If
+            If (FUNCTION1 Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(4).Value = CType(FUNCTION1,String)
+            End If
+            If (FUNCTION2 Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FUNCTION2,String)
+            End If
+            If (TEXT1 Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TEXT1,String)
+            End If
+            If (TEXT2 Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TEXT2,String)
+            End If
+            If (TEXT3 Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TEXT3,String)
+            End If
+            Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer)
+            If (ADDED_WHO Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("ADDED_WHO")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String)
+            End If
+            If (ADDED_WHEN.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
+            End If
+            If (CHANGED_WHO Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String)
+            End If
+            If (CHANGED_WHEN.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
+            End If
+            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer)
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
+            If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.UpdateCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.UpdateCommand.Connection.Close
+                End If
+            End Try
+        End Function
     End Class
     
     '''<summary>

Global_Indexer/MyDataset.vb

@@ -1,6 +1,9 @@
 
 
 Partial Public Class MyDataset
+    Partial Public Class TBDD_INDEX_MANDataTable
+    End Class
+
     Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGDataTable
         Private Sub TBDD_INDEX_MAN_POSTPROCESSINGDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging
             If (e.Column.ColumnName = Me.COMMENTColumn.ColumnName) Then

Global_Indexer/MyDataset.xsd

@@ -833,70 +833,73 @@ SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_S
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter" Name="TBDD_INDEX_MAN_POSTPROCESSING" UserDataComponentName="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING
-WHERE        (GUID = @GUID)</CommandText>
+WHERE        (GUID = @Original_GUID)</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
                   </DbCommand>
                 </DeleteCommand>
                 <InsertCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
-                    <CommandText>INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING
-                         (IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VARIANT)
-VALUES        (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO,@VARIANT)</CommandText>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>INSERT INTO [TBDD_INDEX_MAN_POSTPROCESSING] ([IDXMAN_ID], [VARIANT], [COMMENT], [TYPE], [FUNCTION1], [FUNCTION2], [TEXT1], [TEXT2], [TEXT3], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@IDXMAN_ID, @VARIANT, @COMMENT, @TYPE, @FUNCTION1, @FUNCTION2, @TEXT1, @TEXT2, @TEXT3, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);
+SELECT GUID, IDXMAN_ID, VARIANT, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE (GUID = SCOPE_IDENTITY())</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION1" ColumnName="FUNCTION1" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION1" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION1" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION2" ColumnName="FUNCTION2" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION2" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION2" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT1" ColumnName="TEXT1" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT1" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT1" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT2" ColumnName="TEXT2" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT2" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT2" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FUNCTION1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FUNCTION2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TEXT1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TEXT1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TEXT2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TEXT2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT        TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.TYPE, 
-                         TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDEX_MAN_POSTPROCESSING.TEXT2, 
-                         TBDD_INDEX_MAN_POSTPROCESSING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHO, 
-                         TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN, 
-                         TBDD_INDEX_MAN_POSTPROCESSING.VARIANT
-FROM            TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN
-                         TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID
-WHERE        (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>SELECT *
+FROM TBDD_INDEX_MAN_POSTPROCESSING
+WHERE IDXMAN_ID IN (SELECT GUID FROM TBDD_INDEX_MAN WHERE DOK_ID = @DOK_ID)
+</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" Scale="0" Size="4" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </SelectCommand>
                 <UpdateCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>UPDATE       TBDD_INDEX_MAN_POSTPROCESSING
-SET                IDXMAN_ID = @IDXMAN_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, 
-                         SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT
-WHERE        (GUID = @GUID)</CommandText>
+SET                IDXMAN_ID = @IDXMAN_ID, VARIANT = @VARIANT, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, 
+                         SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN
+WHERE        (GUID = @Original_GUID); 
+SELECT GUID, IDXMAN_ID, VARIANT, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE (GUID = @GUID)</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION1" ColumnName="FUNCTION1" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION1" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION1" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION2" ColumnName="FUNCTION2" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION2" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION2" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT1" ColumnName="TEXT1" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT1" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT1" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT2" ColumnName="TEXT2" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT2" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT2" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION1" ColumnName="FUNCTION1" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION1" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="FUNCTION2" ColumnName="FUNCTION2" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FUNCTION2" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FUNCTION2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT1" ColumnName="TEXT1" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT1" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT2" ColumnName="TEXT2" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT2" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
                   </DbCommand>
                 </UpdateCommand>
@@ -3089,6 +3092,10 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
       <xs:selector xpath=".//mstns:TBGI_REGEX_DOCTYPE" />
       <xs:field xpath="mstns:GUID" />
     </xs:unique>
+    <xs:unique name="Constraint2">
+      <xs:selector xpath=".//mstns:TBGI_REGEX_DOCTYPE" />
+      <xs:field xpath="mstns:DOCTYPE_ID" />
+    </xs:unique>
   </xs:element>
   <xs:annotation>
     <xs:appinfo>

Global_Indexer/MyDataset.xss

@@ -4,26 +4,24 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="23" ViewPortY="362" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-22" ViewPortY="208" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBDD_USER" ZOrder="8" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
     <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="10" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
     <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="28" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="45" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_MODULES" ZOrder="44" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="37" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="43" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="42" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
+    <Shape ID="DesignTable:TBDD_MODULES" ZOrder="41" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="2" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
+    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="40" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="6" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
-    <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="41" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="38" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="7" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="38" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="35" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
     <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="29" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="35" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="33" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="3" X="1096" Y="109" Height="210" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
-    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="4" X="1014" Y="-1" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="1" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="32" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="5" X="1014" Y="-1" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="9" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="5" X="259" Y="220" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
     <Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="17" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
     <Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="16" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
     <Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="20" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
@@ -32,13 +30,13 @@
     <Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="15" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
     <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="14" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
     <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="12" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="39" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
-    <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="32" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
+    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="4" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="36" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
+    <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="31" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
     <Shape ID="DesignTable:TBAD_Users" ZOrder="11" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
-    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="2" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
   </Shapes>
   <Connectors>
-    <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="46" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="43" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>431</X>
@@ -50,19 +48,19 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="42" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="39" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>543</X>
+          <X>535</X>
           <Y>386</Y>
         </Point>
         <Point>
-          <X>543</X>
-          <Y>656</Y>
+          <X>535</X>
+          <Y>638</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="40" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="37" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -74,14 +72,14 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="36" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="34" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>605</X>
-          <Y>656</Y>
+          <X>597</X>
+          <Y>638</Y>
         </Point>
         <Point>
-          <X>605</X>
+          <X>597</X>
           <Y>148</Y>
         </Point>
         <Point>
@@ -90,7 +88,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="34" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="33" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>959</X>
@@ -102,22 +100,6 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="31" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>1096</X>
-          <Y>262</Y>
-        </Point>
-        <Point>
-          <X>1047</X>
-          <Y>262</Y>
-        </Point>
-        <Point>
-          <X>1047</X>
-          <Y>228</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
     <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="30" LineWidth="11">
       <RoutePoints>
         <Point>
@@ -137,20 +119,12 @@
     <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="27" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>94</X>
-          <Y>0</Y>
+          <X>397</X>
+          <Y>663</Y>
         </Point>
         <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>0</Y>
+          <X>456</X>
+          <Y>663</Y>
         </Point>
       </RoutePoints>
     </Connector>
@@ -278,7 +252,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="1" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="3" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/frmAdministration.Designer.vb

@@ -58,18 +58,6 @@ Partial Class frmAdministration
         Dim Label31 As System.Windows.Forms.Label
         Dim Label33 As System.Windows.Forms.Label
         Dim Label34 As System.Windows.Forms.Label
-        Dim GUIDLabel3 As System.Windows.Forms.Label
-        Dim IDX_CHECK_ATTACHMENTLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label
-        Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label
-        Dim ADDED_WHENLabel2 As System.Windows.Forms.Label
-        Dim ADDED_WHOLabel2 As System.Windows.Forms.Label
-        Dim OBJECTTYPELabel As System.Windows.Forms.Label
-        Dim IDX_EMAIL_DATE_INLabel As System.Windows.Forms.Label
-        Dim IDX_EMAIL_IDLabel As System.Windows.Forms.Label
-        Dim IDX_EMAIL_SUBJECTLabel As System.Windows.Forms.Label
-        Dim IDX_EMAIL_FROMLabel As System.Windows.Forms.Label
-        Dim IDX_EMAIL_TOLabel As System.Windows.Forms.Label
         Dim BEZEICHNUNGLabel As System.Windows.Forms.Label
         Dim EINGANGSART_IDLabel As System.Windows.Forms.Label
         Dim KURZNAMELabel As System.Windows.Forms.Label
@@ -118,12 +106,12 @@ Partial Class frmAdministration
         Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPageCategoryUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
-        Me.RibbonPageUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageCategoryMisc = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
-        Me.RibbonPageEmail = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem29 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem30 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarSubItem2 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarButtonItem31 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem32 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem33 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -131,6 +119,8 @@ Partial Class frmAdministration
         Me.RibbonPageGroupManualIndexFunctions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupAutoIndex = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupProfileRegex = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageEmail = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl()
@@ -211,9 +201,9 @@ Partial Class frmAdministration
         Me.ADDED_WHENTextBox4 = New System.Windows.Forms.TextBox()
         Me.ADDED_WHOTextBox4 = New System.Windows.Forms.TextBox()
         Me.SEQUENCETextBox1 = New System.Windows.Forms.TextBox()
-        Me.TEXT3TextBox = New System.Windows.Forms.TextBox()
-        Me.TEXT2TextBox = New System.Windows.Forms.TextBox()
-        Me.TEXT1TextBox = New System.Windows.Forms.TextBox()
+        Me.Text3TextBox = New System.Windows.Forms.TextBox()
+        Me.Text2TextBox = New System.Windows.Forms.TextBox()
+        Me.Text1TextBox = New System.Windows.Forms.TextBox()
         Me.FUNCTION2TextBox = New System.Windows.Forms.TextBox()
         Me.FUNCTION1TextBox = New System.Windows.Forms.TextBox()
         Me.TYPEComboBox = New System.Windows.Forms.ComboBox()
@@ -222,12 +212,12 @@ Partial Class frmAdministration
         Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
+        Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.btnAddWindowsVariable = New System.Windows.Forms.Button()
         Me.lblWindowParameter = New System.Windows.Forms.Label()
         Me.lbFileparameter = New System.Windows.Forms.ListBox()
         Me.lblValue = New System.Windows.Forms.Label()
         Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
-        Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.btnSQLViewAuto = New System.Windows.Forms.Button()
         Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
         Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
@@ -293,29 +283,12 @@ Partial Class frmAdministration
         Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox()
         Me.KURZNAMETextBox = New System.Windows.Forms.TextBox()
         Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox()
-        Me.SplitContainerControl4 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl()
-        Me.Label26 = New System.Windows.Forms.Label()
-        Me.pnlObjekttype_Config = New System.Windows.Forms.Panel()
-        Me.IDX_CHECK_ATTACHMENTComboBox = New System.Windows.Forms.ComboBox()
         Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox()
-        Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox()
-        Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox()
-        Me.GUIDTextBox3 = New System.Windows.Forms.TextBox()
-        Me.IDX_EMAIL_DATE_INComboBox = New System.Windows.Forms.ComboBox()
-        Me.OBJECTTYPETextBox = New System.Windows.Forms.TextBox()
-        Me.IDX_EMAIL_SUBJECTComboBox = New System.Windows.Forms.ComboBox()
-        Me.IDX_EMAIL_IDComboBox = New System.Windows.Forms.ComboBox()
-        Me.IDX_EMAIL_TOComboBox = New System.Windows.Forms.ComboBox()
-        Me.IDX_EMAIL_FROMComboBox = New System.Windows.Forms.ComboBox()
         Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageProfiles = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabPageUsersGroups = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPageEmail = New DevExpress.XtraTab.XtraTabPage()
         Me.VWGI_DOCTYPE_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_MODULESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_DOKART_MODULEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -371,18 +344,6 @@ Partial Class frmAdministration
         Label31 = New System.Windows.Forms.Label()
         Label33 = New System.Windows.Forms.Label()
         Label34 = New System.Windows.Forms.Label()
-        GUIDLabel3 = New System.Windows.Forms.Label()
-        IDX_CHECK_ATTACHMENTLabel = New System.Windows.Forms.Label()
-        CHANGED_WHENLabel2 = New System.Windows.Forms.Label()
-        CHANGED_WHOLabel2 = New System.Windows.Forms.Label()
-        ADDED_WHENLabel2 = New System.Windows.Forms.Label()
-        ADDED_WHOLabel2 = New System.Windows.Forms.Label()
-        OBJECTTYPELabel = New System.Windows.Forms.Label()
-        IDX_EMAIL_DATE_INLabel = New System.Windows.Forms.Label()
-        IDX_EMAIL_IDLabel = New System.Windows.Forms.Label()
-        IDX_EMAIL_SUBJECTLabel = New System.Windows.Forms.Label()
-        IDX_EMAIL_FROMLabel = New System.Windows.Forms.Label()
-        IDX_EMAIL_TOLabel = New System.Windows.Forms.Label()
         BEZEICHNUNGLabel = New System.Windows.Forms.Label()
         EINGANGSART_IDLabel = New System.Windows.Forms.Label()
         KURZNAMELabel = New System.Windows.Forms.Label()
@@ -440,10 +401,6 @@ Partial Class frmAdministration
         Me.XtraTabPageProfileRegex.SuspendLayout()
         CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerControl4.SuspendLayout()
-        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.pnlObjekttype_Config.SuspendLayout()
         CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -451,7 +408,6 @@ Partial Class frmAdministration
         Me.XtraTabControl1.SuspendLayout()
         Me.XtraTabPageProfiles.SuspendLayout()
         Me.XtraTabPageUsersGroups.SuspendLayout()
-        Me.XtraTabPageEmail.SuspendLayout()
         CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_MODULESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -523,13 +479,13 @@ Partial Class frmAdministration
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem6, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem7, Me.BarButtonItem8, Me.txtStatus, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem15, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarButtonItem27, Me.BarButtonItem28})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem6, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem7, Me.BarButtonItem8, Me.txtStatus, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem15, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarButtonItem27, Me.BarButtonItem28, Me.BarButtonItem29, Me.BarButtonItem30, Me.BarSubItem2, Me.BarButtonItem31, Me.BarButtonItem32, Me.BarButtonItem33})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 38
+        Me.RibbonControl1.MaxItemId = 45
         Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryUserGroups, Me.RibbonPageCategoryMisc})
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart})
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageEmail})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
         Me.RibbonControl1.ShowToolbarCustomizeItem = False
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
@@ -750,52 +706,42 @@ Partial Class frmAdministration
         Me.BarButtonItem28.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem28.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem28.Name = "BarButtonItem28"
         '
-        'RibbonPageCategoryUserGroups
+        'BarButtonItem29
         '
-        Me.RibbonPageCategoryUserGroups.Appearance.BackColor = System.Drawing.Color.SeaGreen
-        Me.RibbonPageCategoryUserGroups.Appearance.Options.UseBackColor = True
-        Me.RibbonPageCategoryUserGroups.AutoStretchPageHeaders = True
-        Me.RibbonPageCategoryUserGroups.Name = "RibbonPageCategoryUserGroups"
-        Me.RibbonPageCategoryUserGroups.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageUserGroups})
-        resources.ApplyResources(Me.RibbonPageCategoryUserGroups, "RibbonPageCategoryUserGroups")
+        resources.ApplyResources(Me.BarButtonItem29, "BarButtonItem29")
+        Me.BarButtonItem29.Id = 38
+        Me.BarButtonItem29.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem29.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem29.Name = "BarButtonItem29"
         '
-        'RibbonPageUserGroups
+        'BarButtonItem30
         '
-        Me.RibbonPageUserGroups.Appearance.BackColor = System.Drawing.Color.SeaGreen
-        Me.RibbonPageUserGroups.Appearance.Options.UseBackColor = True
-        Me.RibbonPageUserGroups.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
-        Me.RibbonPageUserGroups.Name = "RibbonPageUserGroups"
-        resources.ApplyResources(Me.RibbonPageUserGroups, "RibbonPageUserGroups")
+        resources.ApplyResources(Me.BarButtonItem30, "BarButtonItem30")
+        Me.BarButtonItem30.Id = 40
+        Me.BarButtonItem30.Name = "BarButtonItem30"
         '
-        'RibbonPageGroup3
+        'BarSubItem2
         '
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6)
-        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        resources.ApplyResources(Me.BarSubItem2, "BarSubItem2")
+        Me.BarSubItem2.Id = 41
+        Me.BarSubItem2.Name = "BarSubItem2"
         '
-        'RibbonPageCategoryMisc
+        'BarButtonItem31
         '
-        Me.RibbonPageCategoryMisc.Appearance.BackColor = System.Drawing.Color.DarkCyan
-        Me.RibbonPageCategoryMisc.Appearance.Options.UseBackColor = True
-        Me.RibbonPageCategoryMisc.AutoStretchPageHeaders = True
-        Me.RibbonPageCategoryMisc.Name = "RibbonPageCategoryMisc"
-        Me.RibbonPageCategoryMisc.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageEmail})
-        resources.ApplyResources(Me.RibbonPageCategoryMisc, "RibbonPageCategoryMisc")
+        resources.ApplyResources(Me.BarButtonItem31, "BarButtonItem31")
+        Me.BarButtonItem31.Id = 42
+        Me.BarButtonItem31.Name = "BarButtonItem31"
         '
-        'RibbonPageEmail
+        'BarButtonItem32
         '
-        Me.RibbonPageEmail.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4})
-        Me.RibbonPageEmail.Name = "RibbonPageEmail"
-        resources.ApplyResources(Me.RibbonPageEmail, "RibbonPageEmail")
+        resources.ApplyResources(Me.BarButtonItem32, "BarButtonItem32")
+        Me.BarButtonItem32.Id = 43
+        Me.BarButtonItem32.Name = "BarButtonItem32"
         '
-        'RibbonPageGroup4
+        'BarButtonItem33
         '
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem9)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem10)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem11)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem12)
-        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
-        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
+        resources.ApplyResources(Me.BarButtonItem33, "BarButtonItem33")
+        Me.BarButtonItem33.Id = 44
+        Me.BarButtonItem33.Name = "BarButtonItem33"
         '
         'RibbonPageStart
         '
@@ -806,6 +752,7 @@ Partial Class frmAdministration
         'RibbonPageGroup2
         '
         Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem29)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
@@ -860,6 +807,21 @@ Partial Class frmAdministration
         Me.RibbonPageGroupProfileRegex.Name = "RibbonPageGroupProfileRegex"
         resources.ApplyResources(Me.RibbonPageGroupProfileRegex, "RibbonPageGroupProfileRegex")
         '
+        'RibbonPageEmail
+        '
+        Me.RibbonPageEmail.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4})
+        Me.RibbonPageEmail.Name = "RibbonPageEmail"
+        resources.ApplyResources(Me.RibbonPageEmail, "RibbonPageEmail")
+        '
+        'RibbonPageGroup4
+        '
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem9)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem10)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem11)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem12)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.txtStatus)
@@ -1140,6 +1102,7 @@ Partial Class frmAdministration
         Me.SplitContainerControl3.Panel1.Controls.Add(Me.GridControl1)
         Me.SplitContainerControl3.Panel1.Controls.Add(Me.Label3)
         resources.ApplyResources(Me.SplitContainerControl3.Panel1, "SplitContainerControl3.Panel1")
+        Me.SplitContainerControl3.Panel2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.[Default]
         Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label32)
         Me.SplitContainerControl3.Panel2.Controls.Add(Me.ComboBox3)
         Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label11)
@@ -1311,6 +1274,7 @@ Partial Class frmAdministration
         Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True))
         resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
         Me.GUIDTextBox1.Name = "GUIDTextBox1"
+        Me.GUIDTextBox1.ReadOnly = True
         '
         'VKT_PREVENT_MULTIPLE_VALUESCheckbox
         '
@@ -1514,9 +1478,9 @@ Partial Class frmAdministration
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ADDED_WHOTextBox4)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(SEQUENCELabel1)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.SEQUENCETextBox1)
-        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.TEXT3TextBox)
-        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.TEXT2TextBox)
-        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.TEXT1TextBox)
+        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Text3TextBox)
+        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Text2TextBox)
+        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Text1TextBox)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.FUNCTION2TextBox)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.FUNCTION1TextBox)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(TYPELabel)
@@ -1654,23 +1618,23 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.SEQUENCETextBox1, "SEQUENCETextBox1")
         Me.SEQUENCETextBox1.Name = "SEQUENCETextBox1"
         '
-        'TEXT3TextBox
+        'Text3TextBox
         '
-        Me.TEXT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True))
-        resources.ApplyResources(Me.TEXT3TextBox, "TEXT3TextBox")
-        Me.TEXT3TextBox.Name = "TEXT3TextBox"
+        Me.Text3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True))
+        resources.ApplyResources(Me.Text3TextBox, "Text3TextBox")
+        Me.Text3TextBox.Name = "Text3TextBox"
         '
-        'TEXT2TextBox
+        'Text2TextBox
         '
-        Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True))
-        resources.ApplyResources(Me.TEXT2TextBox, "TEXT2TextBox")
-        Me.TEXT2TextBox.Name = "TEXT2TextBox"
+        Me.Text2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True))
+        resources.ApplyResources(Me.Text2TextBox, "Text2TextBox")
+        Me.Text2TextBox.Name = "Text2TextBox"
         '
-        'TEXT1TextBox
+        'Text1TextBox
         '
-        Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True))
-        resources.ApplyResources(Me.TEXT1TextBox, "TEXT1TextBox")
-        Me.TEXT1TextBox.Name = "TEXT1TextBox"
+        Me.Text1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True))
+        resources.ApplyResources(Me.Text1TextBox, "Text1TextBox")
+        Me.Text1TextBox.Name = "Text1TextBox"
         '
         'FUNCTION2TextBox
         '
@@ -1771,6 +1735,11 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.ListBoxControl4, "ListBoxControl4")
         Me.ListBoxControl4.Name = "ListBoxControl4"
         '
+        'TBDD_INDEX_AUTOMBindingSource
+        '
+        Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
+        Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
+        '
         'btnAddWindowsVariable
         '
         Me.btnAddWindowsVariable.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
@@ -1802,11 +1771,6 @@ Partial Class frmAdministration
         Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
         Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
         '
-        'TBDD_INDEX_AUTOMBindingSource
-        '
-        Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
-        Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
-        '
         'btnSQLViewAuto
         '
         resources.ApplyResources(Me.btnSQLViewAuto, "btnSQLViewAuto")
@@ -2152,6 +2116,7 @@ Partial Class frmAdministration
         '
         Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True))
         resources.ApplyResources(Me.SEQUENCENumericUpDown, "SEQUENCENumericUpDown")
+        Me.SEQUENCENumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0})
         Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
         '
         'GEANDERTWERTextBox
@@ -2291,204 +2256,6 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.BEZEICHNUNGTextBox, "BEZEICHNUNGTextBox")
         Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox"
         '
-        'SplitContainerControl4
-        '
-        resources.ApplyResources(Me.SplitContainerControl4, "SplitContainerControl4")
-        Me.SplitContainerControl4.Name = "SplitContainerControl4"
-        Me.SplitContainerControl4.Panel1.Controls.Add(Me.ListBoxControl1)
-        Me.SplitContainerControl4.Panel1.Controls.Add(Me.Label26)
-        resources.ApplyResources(Me.SplitContainerControl4.Panel1, "SplitContainerControl4.Panel1")
-        Me.SplitContainerControl4.Panel2.Controls.Add(Me.pnlObjekttype_Config)
-        resources.ApplyResources(Me.SplitContainerControl4.Panel2, "SplitContainerControl4.Panel2")
-        Me.SplitContainerControl4.SplitterPosition = 182
-        '
-        'ListBoxControl1
-        '
-        resources.ApplyResources(Me.ListBoxControl1, "ListBoxControl1")
-        Me.ListBoxControl1.Name = "ListBoxControl1"
-        '
-        'Label26
-        '
-        resources.ApplyResources(Me.Label26, "Label26")
-        Me.Label26.Name = "Label26"
-        '
-        'pnlObjekttype_Config
-        '
-        Me.pnlObjekttype_Config.Controls.Add(GUIDLabel3)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_CHECK_ATTACHMENTComboBox)
-        Me.pnlObjekttype_Config.Controls.Add(Me.CHANGED_WHENTextBox2)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_CHECK_ATTACHMENTLabel)
-        Me.pnlObjekttype_Config.Controls.Add(CHANGED_WHENLabel2)
-        Me.pnlObjekttype_Config.Controls.Add(Me.CHANGED_WHOTextBox2)
-        Me.pnlObjekttype_Config.Controls.Add(CHANGED_WHOLabel2)
-        Me.pnlObjekttype_Config.Controls.Add(Me.ADDED_WHENTextBox2)
-        Me.pnlObjekttype_Config.Controls.Add(ADDED_WHENLabel2)
-        Me.pnlObjekttype_Config.Controls.Add(Me.ADDED_WHOTextBox2)
-        Me.pnlObjekttype_Config.Controls.Add(ADDED_WHOLabel2)
-        Me.pnlObjekttype_Config.Controls.Add(Me.GUIDTextBox3)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_EMAIL_DATE_INComboBox)
-        Me.pnlObjekttype_Config.Controls.Add(OBJECTTYPELabel)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_EMAIL_DATE_INLabel)
-        Me.pnlObjekttype_Config.Controls.Add(Me.OBJECTTYPETextBox)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_EMAIL_SUBJECTComboBox)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_EMAIL_IDLabel)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_EMAIL_SUBJECTLabel)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_EMAIL_IDComboBox)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_EMAIL_TOComboBox)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_EMAIL_FROMLabel)
-        Me.pnlObjekttype_Config.Controls.Add(IDX_EMAIL_TOLabel)
-        Me.pnlObjekttype_Config.Controls.Add(Me.IDX_EMAIL_FROMComboBox)
-        resources.ApplyResources(Me.pnlObjekttype_Config, "pnlObjekttype_Config")
-        Me.pnlObjekttype_Config.Name = "pnlObjekttype_Config"
-        '
-        'GUIDLabel3
-        '
-        resources.ApplyResources(GUIDLabel3, "GUIDLabel3")
-        GUIDLabel3.Name = "GUIDLabel3"
-        '
-        'IDX_CHECK_ATTACHMENTComboBox
-        '
-        Me.IDX_CHECK_ATTACHMENTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_CHECK_ATTACHMENT", True))
-        resources.ApplyResources(Me.IDX_CHECK_ATTACHMENTComboBox, "IDX_CHECK_ATTACHMENTComboBox")
-        Me.IDX_CHECK_ATTACHMENTComboBox.FormattingEnabled = True
-        Me.IDX_CHECK_ATTACHMENTComboBox.Name = "IDX_CHECK_ATTACHMENTComboBox"
-        '
-        'TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource
-        '
-        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataMember = "TBGI_OBJECTTYPE_EMAIL_INDEX"
-        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataSource = Me.MyDataset
-        '
-        'CHANGED_WHENTextBox2
-        '
-        Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHEN", True))
-        resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2")
-        Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2"
-        Me.CHANGED_WHENTextBox2.ReadOnly = True
-        '
-        'IDX_CHECK_ATTACHMENTLabel
-        '
-        resources.ApplyResources(IDX_CHECK_ATTACHMENTLabel, "IDX_CHECK_ATTACHMENTLabel")
-        IDX_CHECK_ATTACHMENTLabel.Name = "IDX_CHECK_ATTACHMENTLabel"
-        '
-        'CHANGED_WHENLabel2
-        '
-        resources.ApplyResources(CHANGED_WHENLabel2, "CHANGED_WHENLabel2")
-        CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2"
-        '
-        'CHANGED_WHOTextBox2
-        '
-        Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHO", True))
-        resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2")
-        Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
-        Me.CHANGED_WHOTextBox2.ReadOnly = True
-        '
-        'CHANGED_WHOLabel2
-        '
-        resources.ApplyResources(CHANGED_WHOLabel2, "CHANGED_WHOLabel2")
-        CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2"
-        '
-        'ADDED_WHENTextBox2
-        '
-        Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHEN", True))
-        resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2")
-        Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2"
-        Me.ADDED_WHENTextBox2.ReadOnly = True
-        '
-        'ADDED_WHENLabel2
-        '
-        resources.ApplyResources(ADDED_WHENLabel2, "ADDED_WHENLabel2")
-        ADDED_WHENLabel2.Name = "ADDED_WHENLabel2"
-        '
-        'ADDED_WHOTextBox2
-        '
-        Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHO", True))
-        resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2")
-        Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2"
-        Me.ADDED_WHOTextBox2.ReadOnly = True
-        '
-        'ADDED_WHOLabel2
-        '
-        resources.ApplyResources(ADDED_WHOLabel2, "ADDED_WHOLabel2")
-        ADDED_WHOLabel2.Name = "ADDED_WHOLabel2"
-        '
-        'GUIDTextBox3
-        '
-        Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "GUID", True))
-        resources.ApplyResources(Me.GUIDTextBox3, "GUIDTextBox3")
-        Me.GUIDTextBox3.Name = "GUIDTextBox3"
-        Me.GUIDTextBox3.ReadOnly = True
-        '
-        'IDX_EMAIL_DATE_INComboBox
-        '
-        Me.IDX_EMAIL_DATE_INComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_DATE_IN", True))
-        resources.ApplyResources(Me.IDX_EMAIL_DATE_INComboBox, "IDX_EMAIL_DATE_INComboBox")
-        Me.IDX_EMAIL_DATE_INComboBox.FormattingEnabled = True
-        Me.IDX_EMAIL_DATE_INComboBox.Name = "IDX_EMAIL_DATE_INComboBox"
-        '
-        'OBJECTTYPELabel
-        '
-        resources.ApplyResources(OBJECTTYPELabel, "OBJECTTYPELabel")
-        OBJECTTYPELabel.Name = "OBJECTTYPELabel"
-        '
-        'IDX_EMAIL_DATE_INLabel
-        '
-        resources.ApplyResources(IDX_EMAIL_DATE_INLabel, "IDX_EMAIL_DATE_INLabel")
-        IDX_EMAIL_DATE_INLabel.Name = "IDX_EMAIL_DATE_INLabel"
-        '
-        'OBJECTTYPETextBox
-        '
-        Me.OBJECTTYPETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "OBJECTTYPE", True))
-        resources.ApplyResources(Me.OBJECTTYPETextBox, "OBJECTTYPETextBox")
-        Me.OBJECTTYPETextBox.Name = "OBJECTTYPETextBox"
-        '
-        'IDX_EMAIL_SUBJECTComboBox
-        '
-        Me.IDX_EMAIL_SUBJECTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_SUBJECT", True))
-        resources.ApplyResources(Me.IDX_EMAIL_SUBJECTComboBox, "IDX_EMAIL_SUBJECTComboBox")
-        Me.IDX_EMAIL_SUBJECTComboBox.FormattingEnabled = True
-        Me.IDX_EMAIL_SUBJECTComboBox.Name = "IDX_EMAIL_SUBJECTComboBox"
-        '
-        'IDX_EMAIL_IDLabel
-        '
-        resources.ApplyResources(IDX_EMAIL_IDLabel, "IDX_EMAIL_IDLabel")
-        IDX_EMAIL_IDLabel.Name = "IDX_EMAIL_IDLabel"
-        '
-        'IDX_EMAIL_SUBJECTLabel
-        '
-        resources.ApplyResources(IDX_EMAIL_SUBJECTLabel, "IDX_EMAIL_SUBJECTLabel")
-        IDX_EMAIL_SUBJECTLabel.Name = "IDX_EMAIL_SUBJECTLabel"
-        '
-        'IDX_EMAIL_IDComboBox
-        '
-        Me.IDX_EMAIL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_ID", True))
-        resources.ApplyResources(Me.IDX_EMAIL_IDComboBox, "IDX_EMAIL_IDComboBox")
-        Me.IDX_EMAIL_IDComboBox.FormattingEnabled = True
-        Me.IDX_EMAIL_IDComboBox.Name = "IDX_EMAIL_IDComboBox"
-        '
-        'IDX_EMAIL_TOComboBox
-        '
-        Me.IDX_EMAIL_TOComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_TO", True))
-        resources.ApplyResources(Me.IDX_EMAIL_TOComboBox, "IDX_EMAIL_TOComboBox")
-        Me.IDX_EMAIL_TOComboBox.FormattingEnabled = True
-        Me.IDX_EMAIL_TOComboBox.Name = "IDX_EMAIL_TOComboBox"
-        '
-        'IDX_EMAIL_FROMLabel
-        '
-        resources.ApplyResources(IDX_EMAIL_FROMLabel, "IDX_EMAIL_FROMLabel")
-        IDX_EMAIL_FROMLabel.Name = "IDX_EMAIL_FROMLabel"
-        '
-        'IDX_EMAIL_TOLabel
-        '
-        resources.ApplyResources(IDX_EMAIL_TOLabel, "IDX_EMAIL_TOLabel")
-        IDX_EMAIL_TOLabel.Name = "IDX_EMAIL_TOLabel"
-        '
-        'IDX_EMAIL_FROMComboBox
-        '
-        Me.IDX_EMAIL_FROMComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_FROM", True))
-        resources.ApplyResources(Me.IDX_EMAIL_FROMComboBox, "IDX_EMAIL_FROMComboBox")
-        Me.IDX_EMAIL_FROMComboBox.FormattingEnabled = True
-        Me.IDX_EMAIL_FROMComboBox.Name = "IDX_EMAIL_FROMComboBox"
-        '
         'BEZEICHNUNGLabel
         '
         resources.ApplyResources(BEZEICHNUNGLabel, "BEZEICHNUNGLabel")
@@ -2549,6 +2316,11 @@ Partial Class frmAdministration
         resources.ApplyResources(Label9, "Label9")
         Label9.Name = "Label9"
         '
+        'TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource
+        '
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataMember = "TBGI_OBJECTTYPE_EMAIL_INDEX"
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataSource = Me.MyDataset
+        '
         'TBDD_EINGANGSARTENBindingSource
         '
         Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN"
@@ -2564,7 +2336,7 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageProfiles
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfiles, Me.XtraTabPageUsersGroups, Me.XtraTabPageEmail})
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfiles, Me.XtraTabPageUsersGroups})
         '
         'XtraTabPageProfiles
         '
@@ -2583,20 +2355,18 @@ Partial Class frmAdministration
         Me.XtraTabPageProfiles.Controls.Add(ERSTELLTWANNLabel)
         Me.XtraTabPageProfiles.Controls.Add(GEANDERTWERLabel)
         Me.XtraTabPageProfiles.Controls.Add(GEAENDERTWANNLabel)
+        Me.XtraTabPageProfiles.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageProfiles.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.XtraTabPageProfiles.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20)
         Me.XtraTabPageProfiles.Name = "XtraTabPageProfiles"
         '
         'XtraTabPageUsersGroups
         '
         resources.ApplyResources(Me.XtraTabPageUsersGroups, "XtraTabPageUsersGroups")
         Me.XtraTabPageUsersGroups.Controls.Add(Me.SplitContainerControl1)
+        Me.XtraTabPageUsersGroups.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageUsersGroups.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.XtraTabPageUsersGroups.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20)
         Me.XtraTabPageUsersGroups.Name = "XtraTabPageUsersGroups"
         '
-        'XtraTabPageEmail
-        '
-        Me.XtraTabPageEmail.Controls.Add(Me.SplitContainerControl4)
-        Me.XtraTabPageEmail.Name = "XtraTabPageEmail"
-        resources.ApplyResources(Me.XtraTabPageEmail, "XtraTabPageEmail")
-        '
         'VWGI_DOCTYPE_GROUPBindingSource
         '
         Me.VWGI_DOCTYPE_GROUPBindingSource.DataSource = Me.MyDataset
@@ -2714,7 +2484,7 @@ Partial Class frmAdministration
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.IconOptions.Icon = CType(resources.GetObject("frmAdministration.IconOptions.Icon"), System.Drawing.Icon)
-        Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdministration.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.GLOBIX_short
         Me.Name = "frmAdministration"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
@@ -2769,11 +2539,6 @@ Partial Class frmAdministration
         Me.XtraTabPageProfileRegex.PerformLayout()
         CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerControl4.ResumeLayout(False)
-        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.pnlObjekttype_Config.ResumeLayout(False)
-        Me.pnlObjekttype_Config.PerformLayout()
         CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2782,7 +2547,6 @@ Partial Class frmAdministration
         Me.XtraTabPageProfiles.ResumeLayout(False)
         Me.XtraTabPageProfiles.PerformLayout()
         Me.XtraTabPageUsersGroups.ResumeLayout(False)
-        Me.XtraTabPageEmail.ResumeLayout(False)
         CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_MODULESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2842,23 +2606,10 @@ Partial Class frmAdministration
     Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter
     Friend WithEvents btnSQLView As System.Windows.Forms.Button
     Friend WithEvents WINDREAM_DIRECTCheckBox As System.Windows.Forms.CheckBox
-    Friend WithEvents XtraTabPageEmail As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents TBGI_CONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBGI_CONFIGURATIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_CONFIGURATIONTableAdapter
     Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
-    Friend WithEvents GUIDTextBox3 As System.Windows.Forms.TextBox
-    Friend WithEvents OBJECTTYPETextBox As System.Windows.Forms.TextBox
-    Friend WithEvents IDX_EMAIL_IDComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents IDX_EMAIL_FROMComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents IDX_EMAIL_TOComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents IDX_EMAIL_SUBJECTComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents IDX_EMAIL_DATE_INComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox
-    Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox
-    Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox
-    Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox
-    Friend WithEvents IDX_CHECK_ATTACHMENTComboBox As System.Windows.Forms.ComboBox
     Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter
     Friend WithEvents INDEXNAME_AutoIndexTXT As System.Windows.Forms.TextBox
@@ -2876,9 +2627,9 @@ Partial Class frmAdministration
     Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter
     Friend WithEvents SEQUENCETextBox1 As System.Windows.Forms.TextBox
-    Friend WithEvents TEXT3TextBox As System.Windows.Forms.TextBox
-    Friend WithEvents TEXT2TextBox As System.Windows.Forms.TextBox
-    Friend WithEvents TEXT1TextBox As System.Windows.Forms.TextBox
+    Friend WithEvents Text3TextBox As System.Windows.Forms.TextBox
+    Friend WithEvents Text2TextBox As System.Windows.Forms.TextBox
+    Friend WithEvents Text1TextBox As System.Windows.Forms.TextBox
     Friend WithEvents FUNCTION2TextBox As System.Windows.Forms.TextBox
     Friend WithEvents FUNCTION1TextBox As System.Windows.Forms.TextBox
     Friend WithEvents TYPEComboBox As System.Windows.Forms.ComboBox
@@ -2923,7 +2674,6 @@ Partial Class frmAdministration
     Friend WithEvents VARIANTComboBox As System.Windows.Forms.ComboBox
     Friend WithEvents btnAddWindowsVariable As System.Windows.Forms.Button
     Friend WithEvents lblWDINDEX As System.Windows.Forms.Label
-    Friend WithEvents pnlObjekttype_Config As System.Windows.Forms.Panel
     Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
     Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn
@@ -2946,9 +2696,6 @@ Partial Class frmAdministration
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageCategoryUserGroups As DevExpress.XtraBars.Ribbon.RibbonPageCategory
-    Friend WithEvents RibbonPageUserGroups As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
     Friend WithEvents Label12 As Label
@@ -2970,7 +2717,6 @@ Partial Class frmAdministration
     Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents txtStatus As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents RibbonPage8 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageCategoryMisc As DevExpress.XtraBars.Ribbon.RibbonPageCategory
     Friend WithEvents RibbonPageEmail As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
@@ -2988,9 +2734,6 @@ Partial Class frmAdministration
     Friend WithEvents Label8 As Label
     Friend WithEvents Label7 As Label
     Friend WithEvents Label1 As Label
-    Friend WithEvents SplitContainerControl4 As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl
-    Friend WithEvents Label26 As Label
     Friend WithEvents Label3 As Label
     Friend WithEvents XtraTabPageProfileRegex As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents TextBox1 As TextBox
@@ -3046,5 +2789,11 @@ Partial Class frmAdministration
     Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents BarButtonItem28 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem29 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents Panel1 As Panel
+    Friend WithEvents BarButtonItem30 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarSubItem2 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents BarButtonItem31 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem32 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem33 As DevExpress.XtraBars.BarButtonItem
 End Class

Global_Indexer/frmAdministration.vb

@@ -6,8 +6,10 @@ Public Class frmAdministration
     Public Shared _Namenkonvention As String
     Public Shared _aktDokart_Id As Integer
 
-    Private GroupToDelete As Integer = Nothing
+    Private SourceAttributes As List(Of String)
+    Private SourceObjectTypes As List(Of String)
 
+    Private GroupToDelete As Integer = Nothing
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
     Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -32,7 +34,7 @@ Public Class frmAdministration
             TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+            'Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -48,8 +50,7 @@ Public Class frmAdministration
         oDragDropManager.AddGridView(viewAssignedUsers)
         oDragDropManager.AddGridView(viewAvailableUsers)
 
-        RibbonPageCategoryUserGroups.Visible = False
-        RibbonPageCategoryMisc.Visible = False
+        RibbonPageEmail.Visible = False
 
         Dim oDatatable As New DataTable()
         oDatatable.Columns.Add("VALUE_TEXT")
@@ -72,31 +73,32 @@ 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
-            pnlObjekttype_Config.Enabled = False
-
-            Dim oDokumentTyp As WINDREAMLib.WMObject
             ' Combobox leeren
             Me.OBJEKTTYPComboBox.Items.Clear()
-            ListBoxControl1.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
-                ' und in die Combobox eintragen
-                Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
-                ListBoxControl1.Items.Add(oDokumentTyp.aName)
-            Next
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
 
-            pnlObjekttype_Config.Enabled = True
+            For Each oObjecttype As String In SourceObjectTypes
+                ' und in die Combobox eintragen
+                Me.OBJEKTTYPComboBox.Items.Add(oObjecttype)
+            Next
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
         End Try
-
     End Sub
     Sub Load_Dokart()
         Try
@@ -189,7 +191,10 @@ Public Class frmAdministration
             End Try
 
             If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
-                Me.GEANDERTWERTextBox.Text = Environment.UserName
+                If Not IsInsert Then
+                    Me.GEANDERTWERTextBox.Text = Environment.UserName
+                End If
+
                 Try
                     Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
                 Catch ex As Exception
@@ -199,23 +204,28 @@ Public Class frmAdministration
                         MsgBox("Error in EndEdit 2 documenttype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
                     End If
                 End Try
+
                 TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
-                txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+
                 If IsInsert = True Then
                     Dim oNewID As Integer
                     oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
                     If IsNumeric(oNewID) Then
-                        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{oNewID}"
-                        ClassDatabase.Execute_non_Query(osql)
+                        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
+                        If ClassDatabase.Execute_non_Query(osql) = False Then
+                            MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
+                        End If
                     End If
-
                 End If
+
+                SetStatus("Profil gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
             MsgBox("Error in Save_Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-
     End Sub
     Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
         Save_Dokumentart()
@@ -240,6 +250,18 @@ Public Class frmAdministration
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
             gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
             gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
+
+            If WINDREAM_DIRECTCheckBox.Checked = True Then
+                load_WDIndices()
+            End If
+
+            If TextBox3.Text = String.Empty Then
+                TextBox5.Enabled = False
+                TextBox1.Enabled = False
+            Else
+                TextBox5.Enabled = True
+                TextBox1.Enabled = True
+            End If
         End If
     End Sub
 
@@ -262,7 +284,7 @@ Public Class frmAdministration
 
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_DOKUMENTART.OBJEKTTYPColumn.DefaultValue = ""
-        MyDataset.TBDD_DOKUMENTART.NAMENKONVENTIONColumn.DefaultValue = "[%vOFilename]-[%vYY_MM_DD]-[%Version]"
+        MyDataset.TBDD_DOKUMENTART.NAMENKONVENTIONColumn.DefaultValue = "[%vOFilename]-[%vYY_MM_DD]"
         MyDataset.TBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn.DefaultValue = "New version"
         IsInsert = True
     End Sub
@@ -288,13 +310,19 @@ Public Class frmAdministration
     End Sub
     Sub load_WDIndices()
         Try
-            If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
+            If OBJEKTTYPComboBox.Text <> "" 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
+                Me.INDEXNAME_AutoIndexCMB.Items.Clear()
+
+                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)
+                        INDEXNAME_AutoIndexCMB.Items.Add(index)
                     Next
                 End If
             End If
@@ -302,30 +330,17 @@ Public Class frmAdministration
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices: ")
         End Try
     End Sub
-    Sub load_WDIndices2AutoIndizes()
-        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
-                        Me.INDEXNAME_AutoIndexCMB.Items.Add(index)
-                    Next
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ")
-        End Try
-    End Sub
+
+
     Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If DOKART_GUIDTextBox.Text <> "" Then
             Load_Dokart()
             'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
             Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
-                btnSQLView.Visible = True
+                btnSQLView.Enabled = True
             Else
-                btnSQLView.Visible = False
+                btnSQLView.Enabled = False
             End If
             Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
         End If
@@ -374,7 +389,6 @@ Public Class frmAdministration
         If WINDREAM_DIRECTCheckBox.Checked = True Then
             INDEXNAME_AutoIndexTXT.Visible = False
             INDEXNAME_AutoIndexCMB.Visible = True
-            load_WDIndices2AutoIndizes()
         Else
             INDEXNAME_AutoIndexTXT.Visible = True
             INDEXNAME_AutoIndexCMB.Visible = False
@@ -401,12 +415,15 @@ Public Class frmAdministration
     End Sub
     Sub Save_IndexMan()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox.Text = Environment.UserName
+            End If
+
             Me.TBDD_INDEX_MANBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox.Text = Environment.UserName
                 Me.TBDD_INDEX_MANBindingSource.EndEdit()
                 TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Manueller Index erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
@@ -422,7 +439,9 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox3.Text = Environment.UserName
                 Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
                 TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Automatischer Index erfolgreich gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
@@ -430,22 +449,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
-        If frmloaded = True Then
-            If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
-                btnSQLView.Visible = True
-                MULTISELECTCheckBox.Visible = True
-                VKT_ADD_ITEMCheckbox.Visible = True
-                VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = True
-            Else
-                btnSQLView.Visible = False
-                MULTISELECTCheckBox.Visible = False
-                VKT_ADD_ITEMCheckbox.Visible = False
-                VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = False
-            End If
-        End If
-    End Sub
-
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
         Dim oSelectedPageName = XtraTabControl1.SelectedTabPage.Name
 
@@ -453,23 +456,11 @@ Public Class frmAdministration
             RibbonControl1.SelectedPage = RibbonPageStart
         End If
 
-        If oSelectedPageName = XtraTabPageUsersGroups.Name Then
-            RibbonPageCategoryUserGroups.Visible = True
-            RibbonControl1.SelectedPage = RibbonPageUserGroups
-        Else
-            RibbonPageCategoryUserGroups.Visible = False
-        End If
-
-        If oSelectedPageName = XtraTabPageEmail.Name Then
-            RibbonPageCategoryMisc.Visible = True
-
-            If oSelectedPageName = XtraTabPageEmail.Name Then
-                RibbonControl1.SelectedPage = RibbonPageEmail
-            End If
-
-
-        Else
-            RibbonPageCategoryMisc.Visible = False
+        If oSelectedPageName = XtraTabPageUsersGroups.Name And DOKART_GUIDTextBox.Text <> "" Then
+            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(DOKART_GUIDTextBox.Text)
+            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(DOKART_GUIDTextBox.Text)
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(DOKART_GUIDTextBox.Text)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(DOKART_GUIDTextBox.Text)
         End If
 
         Select Case XtraTabControl1.SelectedTabPageIndex
@@ -477,56 +468,8 @@ Public Class frmAdministration
                 If DOKART_GUIDTextBox.Text <> "" Then
                     Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
                 End If
-            Case 2
-                EnableControls(pnlObjekttype_Config, False)
-                ObjektTypenListBoxEintragen()
         End Select
     End Sub
-    Sub load_WDIndicesemail(Otype As String)
-        Try
-            IDX_EMAIL_DATE_INComboBox.Items.Clear()
-            IDX_EMAIL_FROMComboBox.Items.Clear()
-            IDX_EMAIL_IDComboBox.Items.Clear()
-            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)
-                        Case 4 'Boolean
-                            Me.IDX_CHECK_ATTACHMENTComboBox.Items.Add(index)
-                        Case Else
-                            Me.IDX_EMAIL_DATE_INComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_FROMComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_IDComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_TOComboBox.Items.Add(index)
-                    End Select
-
-
-                Next
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndicesemail: ")
-        End Try
-    End Sub
-    Private Sub ObjektTypenListBoxEintragen()
-        Try
-            Dim oDokumentTyp As WINDREAMLib.WMObject
-            ' Combobox leeren
-            ListBoxControl1.Items.Clear()
-            ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
-                ' und in die Combobox eintragen
-                ListBoxControl1.Items.Add(oDokumentTyp.aName)
-            Next
-        Catch ex As Exception
-            MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            LOGGER.Info(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message)
-        End Try
-
-    End Sub
 
     Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click
         Save_IndexMan()
@@ -576,10 +519,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
@@ -597,29 +537,10 @@ Public Class frmAdministration
         End Try
     End Function
 
-    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            Dim oRows As Integer = LoadIDXEmail(ListBoxControl1.SelectedItem)
-
-            If oRows > 0 Then
-                EnableControls(pnlObjekttype_Config)
-            End If
-
-            load_WDIndicesemail(ListBoxControl1.SelectedItem)
-        End If
-    End Sub
-
     Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs)
         Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
     End Sub
 
-    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.SelectedItem
-        End If
-    End Sub
-
     Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
         Load_TabData()
     End Sub
@@ -664,9 +585,9 @@ Public Class frmAdministration
                 lbFileparameter.Visible = True
                 btnAddWindowsVariable.Visible = True
             End If
-            If IsInsert = False Then
-                Save_IndexAuto()
-            End If
+            'If IsInsert = False Then
+            '    Save_IndexAuto()
+            'End If
         End If
     End Sub
 
@@ -712,9 +633,13 @@ Public Class frmAdministration
 
     Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
         If TYPEComboBox.SelectedIndex <> -1 Then
+            FUNCTION1TextBox.Visible = False
+            FUNCTION2TextBox.Visible = False
+            Function1Label.Visible = False
+            Function2Label.Visible = False
+
             Select Case TYPEComboBox.Text
                 Case "VBREPLACE"
-
                     If USER_LANGUAGE = "de-DE" Then
                         Text1Label.Text = "Alter Wert:"
                         Text2Label.Text = "Neuer Wert:"
@@ -723,74 +648,52 @@ Public Class frmAdministration
                         Text2Label.Text = "New Value:"
                     End If
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 165
+                    Text1Label.Visible = True
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 150
 
-                    Me.TEXT2TextBox.Visible = True
-                    Me.TEXT2TextBox.Width = 191
-                    Me.Text3Label.Visible = False
-                    Me.TEXT3TextBox.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
+                    Text2Label.Visible = True
+                    Text2TextBox.Visible = True
+                    Text2TextBox.Width = 150
 
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
 
                 Case "VBSPLIT"
-
                     If USER_LANGUAGE = "de-DE" Then
                         Text1Label.Text = "Split-Zeichen:"
-                        Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
+                        Text2Label.Text = "Wähle Vorkommen: (Nullbasierend)"
                     Else
                         Text1Label.Text = "Split-Character:"
-                        Text2Label.Text = "Choose occurrence: 0-Based - First occurrence = '0'"
+                        Text2Label.Text = "Choose occurrence: (Zero-Based)"
                     End If
 
-                    Me.FUNCTION1TextBox.Visible = True
-                    Me.FUNCTION2TextBox.Visible = True
-                    Me.Function1Label.Visible = True
-                    Me.Function2Label.Visible = True
+                    Text1Label.Visible = True
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 150
 
+                    Text2Label.Visible = True
+                    Text2TextBox.Visible = True
+                    Text2TextBox.Width = 150
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 50
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
 
-                    Me.TEXT2TextBox.Visible = True
-                    Me.TEXT2TextBox.Width = 50
-                    Me.TEXT3TextBox.Visible = False
-                    Me.Text3Label.Visible = False
-
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
                 Case "REG. EXPRESSION"
-
                     If USER_LANGUAGE = "de-DE" Then
-                        Me.Text1Label.Text = "Regulärer Ausdruck:"
+                        Text1Label.Text = "Regulärer Ausdruck:"
                     Else
-                        Me.Text1Label.Text = "Regular Expression:"
+                        Text1Label.Text = "Regular Expression:"
                     End If
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 537
-                    Me.Text2Label.Visible = False
-                    Me.TEXT2TextBox.Visible = False
-                    Me.Text3Label.Visible = False
-                    Me.TEXT3TextBox.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 300
 
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
+                    Text2Label.Visible = False
+                    Text2TextBox.Visible = False
+
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
             End Select
         End If
 
@@ -800,15 +703,21 @@ Public Class frmAdministration
     End Sub
     Sub Save_PostProcessing()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox4.Text = Environment.UserName
+            End If
+
             TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox4.Text = Environment.UserName
+
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
                 Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
-                SetStatus("Funktion erfolgreich gespeichert!")
+                SetStatus("Nachbearbeitungsfunktion erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
+
+            IsInsert = False
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
         End Try
@@ -817,9 +726,11 @@ Public Class frmAdministration
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
         Save_Dokumentart()
         EnableControls(XtraTabPageManualIndexFunctions)
+        MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn.DefaultValue = DateTime.Now
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
+        IsInsert = True
     End Sub
     Sub EnableControls(Control As Control, Optional Value As Boolean = True)
         For Each oSubControl As Control In Control.Controls
@@ -857,7 +768,8 @@ Public Class frmAdministration
             txtcrFoldermanuell.Text = ""
         End If
         Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
-        txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+
+        SetStatus("Profil gespeichert")
     End Sub
     Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged
         cmbCrFolderDate.SelectedIndex = -1
@@ -960,12 +872,20 @@ Public Class frmAdministration
 
     Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
         _indexIsVectorField = indexIsVectorField()
-        MULTISELECTCheckBox.Visible = _indexIsVectorField
-        VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = _indexIsVectorField
+        MULTISELECTCheckBox.Enabled = _indexIsVectorField
+
 
         If Not _indexIsVectorField Then
             MULTISELECTCheckBox.Checked = False
-            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
+            'VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+            VKT_ADD_ITEMCheckbox.Enabled = False
         End If
     End Sub
 
@@ -978,7 +898,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
@@ -986,7 +906,13 @@ Public Class frmAdministration
 
     Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
         MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHENColumn.DefaultValue = Date.Now()
         MyDataset.TBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn.DefaultValue = DOKART_GUIDTextBox.Text
+
+        TextBox5.Enabled = True
+        TextBox1.Enabled = True
+
+        IsInsert = True
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1041,7 +967,7 @@ Public Class frmAdministration
                 Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                 If ClassDatabase.Execute_non_Query(del, True) = True Then
                     Load_Dokart()
-
+                    TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
 
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@@ -1055,7 +981,6 @@ Public Class frmAdministration
             End Try
         End If
     End Sub
-
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
         Dim result As MsgBoxResult
 
@@ -1097,35 +1022,7 @@ Public Class frmAdministration
         TBDD_DOKUMENTARTBindingSource.AddNew()
     End Sub
 
-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
-        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
-        EnableControls(pnlObjekttype_Config)
-    End Sub
 
-    Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
-        Try
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox2.Text = Environment.UserName
-                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
-            End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Fehler beim Speichern der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
-        End Try
-    End Sub
-
-    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
-        Try
-            Dim oSQL = $"DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '{OBJECTTYPETextBox.Text}'"
-            ClassDatabase.Execute_non_Query(oSQL)
-            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, OBJECTTYPETextBox.Text)
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Fehler beim Löschen der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
-        End Try
-    End Sub
 
     Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
         TBGI_REGEX_DOCTYPEBindingSource.AddNew()
@@ -1163,6 +1060,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem13_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
+        If Not IsInsert Then
+            TextBox4.Text = Environment.UserName
+        End If
+
         Try
             Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
         Catch ex As Exception
@@ -1171,14 +1072,18 @@ Public Class frmAdministration
         End Try
 
         If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            TextBox4.Text = Environment.UserName
             Try
                 Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
             Catch ex As Exception
                 MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
             End Try
             TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+            SetStatus("Profilzuordnung gespeichert!")
+        Else
+            ClearStatus()
         End If
+
+        IsInsert = False
     End Sub
 
     Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
@@ -1194,6 +1099,10 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
         TBDD_INDEX_MANBindingSource.AddNew()
+
+        If WINDREAM_DIRECTCheckBox.Checked = True Then
+            load_WDIndices()
+        End If
     End Sub
 
     Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
@@ -1227,7 +1136,9 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
-        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+        If DOKART_GUIDTextBox.Text <> String.Empty Then
+            Load_INDEXMAN(DOKART_GUIDTextBox.Text)
+        End If
     End Sub
 
     Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
@@ -1267,6 +1178,10 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
         TBDD_INDEX_AUTOMBindingSource.AddNew()
+
+        If WINDREAM_DIRECTCheckBox.Checked = True Then
+            load_WDIndices()
+        End If
     End Sub
 
     Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs)
@@ -1343,15 +1258,9 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem28_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
         TBGI_REGEX_DOCTYPEBindingSource.AddNew()
-        EnableControls(XtraTabPageProfileRegex)
-    End Sub
 
-    Private Sub ListBoxControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl3.SelectedIndexChanged
-        If ListBoxControl3.SelectedIndex = -1 Then
-            EnableControls(Panel1, False)
-        Else
-            EnableControls(Panel1)
-        End If
+
+        EnableControls(XtraTabPageProfileRegex)
     End Sub
 
     Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
@@ -1361,4 +1270,58 @@ Public Class frmAdministration
     Private Sub GridView1_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs) Handles GridView1.InvalidRowException
         e.ExceptionMode = DevExpress.XtraEditors.Controls.ExceptionMode.NoAction
     End Sub
+
+    Private Sub MULTISELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles MULTISELECTCheckBox.CheckedChanged
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
+        If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
+            btnSQLView.Enabled = True
+        Else
+            btnSQLView.Enabled = False
+        End If
+    End Sub
+
+    Private Sub SUGGESTIONCheckBoxMULTISELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged, MULTISELECTCheckBox.CheckedChanged
+        If SUGGESTIONCheckBox.Checked Or MULTISELECTCheckBox.Checked Then
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_ADD_ITEMCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged
+        If ListBoxControl3.SelectedIndex = -1 Then
+            EnableControls(Panel1, False)
+        Else
+            EnableControls(Panel1)
+        End If
+
+        If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
+            btnSQLView.Enabled = True
+        Else
+            btnSQLView.Enabled = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Or SUGGESTIONCheckBox.Checked Then
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_ADD_ITEMCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub BarButtonItem29_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
+        frmEmailIndexing.ShowDialog()
+    End Sub
 End Class

Global_Indexer/frmConfig_Basic.vb

@@ -359,6 +359,7 @@ Public Class frmConfig_Basic
             'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
             LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
             LogErrorsOnly = chkLogErrorsOnly.Checked
+            LOGCONFIG.Debug = Not chkLogErrorsOnly.Checked
         End If
     End Sub
     <STAThread()> _

Global_Indexer/frmEmailIndexing.Designer.vb

@@ -0,0 +1,577 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmEmailIndexing
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim GUIDLabel3 As System.Windows.Forms.Label
+        Dim IDX_CHECK_ATTACHMENTLabel As System.Windows.Forms.Label
+        Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label
+        Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label
+        Dim ADDED_WHENLabel2 As System.Windows.Forms.Label
+        Dim ADDED_WHOLabel2 As System.Windows.Forms.Label
+        Dim OBJECTTYPELabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_DATE_INLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_IDLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_SUBJECTLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_FROMLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_TOLabel As System.Windows.Forms.Label
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEmailIndexing))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.IDX_EMAIL_FROMComboBox = New System.Windows.Forms.ComboBox()
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.MyDataset = New Global_Indexer.MyDataset()
+        Me.IDX_CHECK_ATTACHMENTComboBox = New System.Windows.Forms.ComboBox()
+        Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_TOComboBox = New System.Windows.Forms.ComboBox()
+        Me.IDX_EMAIL_IDComboBox = New System.Windows.Forms.ComboBox()
+        Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox()
+        Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_SUBJECTComboBox = New System.Windows.Forms.ComboBox()
+        Me.OBJECTTYPETextBox = New System.Windows.Forms.TextBox()
+        Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox()
+        Me.GUIDTextBox3 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_DATE_INComboBox = New System.Windows.Forms.ComboBox()
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter()
+        Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TBDD_DOKUMENTARTTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter()
+        Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        GUIDLabel3 = New System.Windows.Forms.Label()
+        IDX_CHECK_ATTACHMENTLabel = New System.Windows.Forms.Label()
+        CHANGED_WHENLabel2 = New System.Windows.Forms.Label()
+        CHANGED_WHOLabel2 = New System.Windows.Forms.Label()
+        ADDED_WHENLabel2 = New System.Windows.Forms.Label()
+        ADDED_WHOLabel2 = New System.Windows.Forms.Label()
+        OBJECTTYPELabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_DATE_INLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_IDLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_SUBJECTLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_FROMLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_TOLabel = New System.Windows.Forms.Label()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.SuspendLayout()
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'GUIDLabel3
+        '
+        GUIDLabel3.AutoSize = True
+        GUIDLabel3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        GUIDLabel3.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        GUIDLabel3.Location = New System.Drawing.Point(15, 36)
+        GUIDLabel3.Name = "GUIDLabel3"
+        GUIDLabel3.Size = New System.Drawing.Size(23, 17)
+        GUIDLabel3.TabIndex = 82
+        GUIDLabel3.Text = "ID:"
+        '
+        'IDX_CHECK_ATTACHMENTLabel
+        '
+        IDX_CHECK_ATTACHMENTLabel.AutoSize = True
+        IDX_CHECK_ATTACHMENTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_CHECK_ATTACHMENTLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_CHECK_ATTACHMENTLabel.Location = New System.Drawing.Point(212, 178)
+        IDX_CHECK_ATTACHMENTLabel.Name = "IDX_CHECK_ATTACHMENTLabel"
+        IDX_CHECK_ATTACHMENTLabel.Size = New System.Drawing.Size(304, 17)
+        IDX_CHECK_ATTACHMENTLabel.TabIndex = 104
+        IDX_CHECK_ATTACHMENTLabel.Text = "Indexname für die Markierung: Attachment Ja/Nein"
+        '
+        'CHANGED_WHENLabel2
+        '
+        CHANGED_WHENLabel2.AutoSize = True
+        CHANGED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        CHANGED_WHENLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        CHANGED_WHENLabel2.Location = New System.Drawing.Point(212, 274)
+        CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2"
+        CHANGED_WHENLabel2.Size = New System.Drawing.Size(96, 17)
+        CHANGED_WHENLabel2.TabIndex = 102
+        CHANGED_WHENLabel2.Text = "Geändert wann:"
+        '
+        'CHANGED_WHOLabel2
+        '
+        CHANGED_WHOLabel2.AutoSize = True
+        CHANGED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        CHANGED_WHOLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        CHANGED_WHOLabel2.Location = New System.Drawing.Point(15, 274)
+        CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2"
+        CHANGED_WHOLabel2.Size = New System.Drawing.Size(89, 17)
+        CHANGED_WHOLabel2.TabIndex = 100
+        CHANGED_WHOLabel2.Text = "Geändert Wer:"
+        '
+        'ADDED_WHENLabel2
+        '
+        ADDED_WHENLabel2.AutoSize = True
+        ADDED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        ADDED_WHENLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        ADDED_WHENLabel2.Location = New System.Drawing.Point(212, 226)
+        ADDED_WHENLabel2.Name = "ADDED_WHENLabel2"
+        ADDED_WHENLabel2.Size = New System.Drawing.Size(81, 17)
+        ADDED_WHENLabel2.TabIndex = 98
+        ADDED_WHENLabel2.Text = "Erstellt wann:"
+        '
+        'ADDED_WHOLabel2
+        '
+        ADDED_WHOLabel2.AutoSize = True
+        ADDED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        ADDED_WHOLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        ADDED_WHOLabel2.Location = New System.Drawing.Point(15, 226)
+        ADDED_WHOLabel2.Name = "ADDED_WHOLabel2"
+        ADDED_WHOLabel2.Size = New System.Drawing.Size(74, 17)
+        ADDED_WHOLabel2.TabIndex = 96
+        ADDED_WHOLabel2.Text = "Erstellt Wer:"
+        '
+        'OBJECTTYPELabel
+        '
+        OBJECTTYPELabel.AutoSize = True
+        OBJECTTYPELabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        OBJECTTYPELabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        OBJECTTYPELabel.Location = New System.Drawing.Point(106, 36)
+        OBJECTTYPELabel.Name = "OBJECTTYPELabel"
+        OBJECTTYPELabel.Size = New System.Drawing.Size(67, 17)
+        OBJECTTYPELabel.TabIndex = 84
+        OBJECTTYPELabel.Text = "Objekttyp:"
+        '
+        'IDX_EMAIL_DATE_INLabel
+        '
+        IDX_EMAIL_DATE_INLabel.AutoSize = True
+        IDX_EMAIL_DATE_INLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_DATE_INLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_DATE_INLabel.Location = New System.Drawing.Point(15, 178)
+        IDX_EMAIL_DATE_INLabel.Name = "IDX_EMAIL_DATE_INLabel"
+        IDX_EMAIL_DATE_INLabel.Size = New System.Drawing.Size(119, 17)
+        IDX_EMAIL_DATE_INLabel.TabIndex = 94
+        IDX_EMAIL_DATE_INLabel.Text = "Indexname Date In:"
+        '
+        'IDX_EMAIL_IDLabel
+        '
+        IDX_EMAIL_IDLabel.AutoSize = True
+        IDX_EMAIL_IDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_IDLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_IDLabel.Location = New System.Drawing.Point(15, 84)
+        IDX_EMAIL_IDLabel.Name = "IDX_EMAIL_IDLabel"
+        IDX_EMAIL_IDLabel.Size = New System.Drawing.Size(136, 17)
+        IDX_EMAIL_IDLabel.TabIndex = 86
+        IDX_EMAIL_IDLabel.Text = "Index für Message-ID:"
+        '
+        'IDX_EMAIL_SUBJECTLabel
+        '
+        IDX_EMAIL_SUBJECTLabel.AutoSize = True
+        IDX_EMAIL_SUBJECTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_SUBJECTLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(212, 132)
+        IDX_EMAIL_SUBJECTLabel.Name = "IDX_EMAIL_SUBJECTLabel"
+        IDX_EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(149, 17)
+        IDX_EMAIL_SUBJECTLabel.TabIndex = 92
+        IDX_EMAIL_SUBJECTLabel.Text = "Indexname Mail Subject:"
+        '
+        'IDX_EMAIL_FROMLabel
+        '
+        IDX_EMAIL_FROMLabel.AutoSize = True
+        IDX_EMAIL_FROMLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_FROMLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_FROMLabel.Location = New System.Drawing.Point(212, 84)
+        IDX_EMAIL_FROMLabel.Name = "IDX_EMAIL_FROMLabel"
+        IDX_EMAIL_FROMLabel.Size = New System.Drawing.Size(135, 17)
+        IDX_EMAIL_FROMLabel.TabIndex = 88
+        IDX_EMAIL_FROMLabel.Text = "Indexname Mail from:"
+        '
+        'IDX_EMAIL_TOLabel
+        '
+        IDX_EMAIL_TOLabel.AutoSize = True
+        IDX_EMAIL_TOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_TOLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_TOLabel.Location = New System.Drawing.Point(15, 132)
+        IDX_EMAIL_TOLabel.Name = "IDX_EMAIL_TOLabel"
+        IDX_EMAIL_TOLabel.Size = New System.Drawing.Size(121, 17)
+        IDX_EMAIL_TOLabel.TabIndex = 90
+        IDX_EMAIL_TOLabel.Text = "Indexname Mail To:"
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.Size = New System.Drawing.Size(1043, 158)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Neue Zuordnung"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Speichern"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "Aktualisieren"
+        Me.BarButtonItem3.Id = 3
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Löschen"
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Email Indexierung"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Email-Indexierung"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 628)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1043, 24)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'SplitContainerControl1
+        '
+        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl1.Name = "SplitContainerControl1"
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.ListBoxControl1)
+        Me.SplitContainerControl1.Panel1.Text = "Panel1"
+        Me.SplitContainerControl1.Panel2.Controls.Add(Me.Panel1)
+        Me.SplitContainerControl1.Panel2.Text = "Panel2"
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1043, 470)
+        Me.SplitContainerControl1.SplitterPosition = 224
+        Me.SplitContainerControl1.TabIndex = 2
+        '
+        'ListBoxControl1
+        '
+        Me.ListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ListBoxControl1.Location = New System.Drawing.Point(0, 0)
+        Me.ListBoxControl1.Name = "ListBoxControl1"
+        Me.ListBoxControl1.Size = New System.Drawing.Size(224, 470)
+        Me.ListBoxControl1.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(GUIDLabel3)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_FROMComboBox)
+        Me.Panel1.Controls.Add(Me.IDX_CHECK_ATTACHMENTComboBox)
+        Me.Panel1.Controls.Add(IDX_EMAIL_TOLabel)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHENTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_FROMLabel)
+        Me.Panel1.Controls.Add(IDX_CHECK_ATTACHMENTLabel)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_TOComboBox)
+        Me.Panel1.Controls.Add(CHANGED_WHENLabel2)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_IDComboBox)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHOTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_SUBJECTLabel)
+        Me.Panel1.Controls.Add(CHANGED_WHOLabel2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_IDLabel)
+        Me.Panel1.Controls.Add(Me.ADDED_WHENTextBox2)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_SUBJECTComboBox)
+        Me.Panel1.Controls.Add(ADDED_WHENLabel2)
+        Me.Panel1.Controls.Add(Me.OBJECTTYPETextBox)
+        Me.Panel1.Controls.Add(Me.ADDED_WHOTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_DATE_INLabel)
+        Me.Panel1.Controls.Add(ADDED_WHOLabel2)
+        Me.Panel1.Controls.Add(OBJECTTYPELabel)
+        Me.Panel1.Controls.Add(Me.GUIDTextBox3)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_DATE_INComboBox)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(809, 470)
+        Me.Panel1.TabIndex = 106
+        '
+        'IDX_EMAIL_FROMComboBox
+        '
+        Me.IDX_EMAIL_FROMComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_FROM", True))
+        Me.IDX_EMAIL_FROMComboBox.Enabled = False
+        Me.IDX_EMAIL_FROMComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_FROMComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_FROMComboBox.Location = New System.Drawing.Point(215, 104)
+        Me.IDX_EMAIL_FROMComboBox.Name = "IDX_EMAIL_FROMComboBox"
+        Me.IDX_EMAIL_FROMComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_FROMComboBox.TabIndex = 89
+        '
+        'TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource
+        '
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataMember = "TBGI_OBJECTTYPE_EMAIL_INDEX"
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataSource = Me.MyDataset
+        '
+        'MyDataset
+        '
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'IDX_CHECK_ATTACHMENTComboBox
+        '
+        Me.IDX_CHECK_ATTACHMENTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_CHECK_ATTACHMENT", True))
+        Me.IDX_CHECK_ATTACHMENTComboBox.Enabled = False
+        Me.IDX_CHECK_ATTACHMENTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_CHECK_ATTACHMENTComboBox.FormattingEnabled = True
+        Me.IDX_CHECK_ATTACHMENTComboBox.Location = New System.Drawing.Point(215, 198)
+        Me.IDX_CHECK_ATTACHMENTComboBox.Name = "IDX_CHECK_ATTACHMENTComboBox"
+        Me.IDX_CHECK_ATTACHMENTComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_CHECK_ATTACHMENTComboBox.TabIndex = 105
+        '
+        'CHANGED_WHENTextBox2
+        '
+        Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHEN", True))
+        Me.CHANGED_WHENTextBox2.Enabled = False
+        Me.CHANGED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(215, 294)
+        Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2"
+        Me.CHANGED_WHENTextBox2.ReadOnly = True
+        Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.CHANGED_WHENTextBox2.TabIndex = 103
+        '
+        'IDX_EMAIL_TOComboBox
+        '
+        Me.IDX_EMAIL_TOComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_TO", True))
+        Me.IDX_EMAIL_TOComboBox.Enabled = False
+        Me.IDX_EMAIL_TOComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_TOComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_TOComboBox.Location = New System.Drawing.Point(18, 150)
+        Me.IDX_EMAIL_TOComboBox.Name = "IDX_EMAIL_TOComboBox"
+        Me.IDX_EMAIL_TOComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_TOComboBox.TabIndex = 91
+        '
+        'IDX_EMAIL_IDComboBox
+        '
+        Me.IDX_EMAIL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_ID", True))
+        Me.IDX_EMAIL_IDComboBox.Enabled = False
+        Me.IDX_EMAIL_IDComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_IDComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_IDComboBox.Location = New System.Drawing.Point(18, 104)
+        Me.IDX_EMAIL_IDComboBox.Name = "IDX_EMAIL_IDComboBox"
+        Me.IDX_EMAIL_IDComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_IDComboBox.TabIndex = 87
+        '
+        'CHANGED_WHOTextBox2
+        '
+        Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHO", True))
+        Me.CHANGED_WHOTextBox2.Enabled = False
+        Me.CHANGED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(18, 294)
+        Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
+        Me.CHANGED_WHOTextBox2.ReadOnly = True
+        Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.CHANGED_WHOTextBox2.TabIndex = 101
+        '
+        'ADDED_WHENTextBox2
+        '
+        Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHEN", True))
+        Me.ADDED_WHENTextBox2.Enabled = False
+        Me.ADDED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(215, 246)
+        Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2"
+        Me.ADDED_WHENTextBox2.ReadOnly = True
+        Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.ADDED_WHENTextBox2.TabIndex = 99
+        '
+        'IDX_EMAIL_SUBJECTComboBox
+        '
+        Me.IDX_EMAIL_SUBJECTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_SUBJECT", True))
+        Me.IDX_EMAIL_SUBJECTComboBox.Enabled = False
+        Me.IDX_EMAIL_SUBJECTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_SUBJECTComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_SUBJECTComboBox.Location = New System.Drawing.Point(215, 150)
+        Me.IDX_EMAIL_SUBJECTComboBox.Name = "IDX_EMAIL_SUBJECTComboBox"
+        Me.IDX_EMAIL_SUBJECTComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_SUBJECTComboBox.TabIndex = 93
+        '
+        'OBJECTTYPETextBox
+        '
+        Me.OBJECTTYPETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "OBJECTTYPE", True))
+        Me.OBJECTTYPETextBox.Enabled = False
+        Me.OBJECTTYPETextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.OBJECTTYPETextBox.Location = New System.Drawing.Point(109, 56)
+        Me.OBJECTTYPETextBox.Name = "OBJECTTYPETextBox"
+        Me.OBJECTTYPETextBox.ReadOnly = True
+        Me.OBJECTTYPETextBox.Size = New System.Drawing.Size(291, 25)
+        Me.OBJECTTYPETextBox.TabIndex = 85
+        '
+        'ADDED_WHOTextBox2
+        '
+        Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHO", True))
+        Me.ADDED_WHOTextBox2.Enabled = False
+        Me.ADDED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(18, 246)
+        Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2"
+        Me.ADDED_WHOTextBox2.ReadOnly = True
+        Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.ADDED_WHOTextBox2.TabIndex = 97
+        '
+        'GUIDTextBox3
+        '
+        Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "GUID", True))
+        Me.GUIDTextBox3.Enabled = False
+        Me.GUIDTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.GUIDTextBox3.Location = New System.Drawing.Point(18, 56)
+        Me.GUIDTextBox3.Name = "GUIDTextBox3"
+        Me.GUIDTextBox3.ReadOnly = True
+        Me.GUIDTextBox3.Size = New System.Drawing.Size(71, 25)
+        Me.GUIDTextBox3.TabIndex = 83
+        '
+        'IDX_EMAIL_DATE_INComboBox
+        '
+        Me.IDX_EMAIL_DATE_INComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_DATE_IN", True))
+        Me.IDX_EMAIL_DATE_INComboBox.Enabled = False
+        Me.IDX_EMAIL_DATE_INComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_DATE_INComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_DATE_INComboBox.Location = New System.Drawing.Point(18, 198)
+        Me.IDX_EMAIL_DATE_INComboBox.Name = "IDX_EMAIL_DATE_INComboBox"
+        Me.IDX_EMAIL_DATE_INComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_DATE_INComboBox.TabIndex = 95
+        '
+        'TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+        '
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter
+        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
+        Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'TBDD_DOKUMENTARTTableAdapter
+        '
+        Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True
+        '
+        'TBDD_DOKUMENTARTBindingSource
+        '
+        Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART"
+        Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.MyDataset
+        '
+        'frmEmailIndexing
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1043, 652)
+        Me.Controls.Add(Me.SplitContainerControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmEmailIndexing"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Email Indexierung"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.ResumeLayout(False)
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl
+    Friend WithEvents IDX_CHECK_ATTACHMENTComboBox As ComboBox
+    Friend WithEvents CHANGED_WHENTextBox2 As TextBox
+    Friend WithEvents CHANGED_WHOTextBox2 As TextBox
+    Friend WithEvents ADDED_WHENTextBox2 As TextBox
+    Friend WithEvents ADDED_WHOTextBox2 As TextBox
+    Friend WithEvents GUIDTextBox3 As TextBox
+    Friend WithEvents IDX_EMAIL_DATE_INComboBox As ComboBox
+    Friend WithEvents OBJECTTYPETextBox As TextBox
+    Friend WithEvents IDX_EMAIL_SUBJECTComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_IDComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_TOComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_FROMComboBox As ComboBox
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MyDataset As MyDataset
+    Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource As BindingSource
+    Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+    Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents TBDD_DOKUMENTARTTableAdapter As MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter
+    Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource
+    Friend WithEvents Panel1 As Panel
+End Class

Global_Indexer/frmEmailIndexing.resx

@@ -0,0 +1,249 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="GUIDLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_CHECK_ATTACHMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="CHANGED_WHENLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="CHANGED_WHOLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="ADDED_WHENLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="ADDED_WHOLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="OBJECTTYPELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_DATE_INLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_SUBJECTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_FROMLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_TOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
+        QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
+        LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
+        Cjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
+        MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
+        bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww
+        LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt
+        NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si
+        IC8+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41
+        LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs
+        NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3
+        LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt
+        NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
+        LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
+        bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x
+        Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog
+        TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu
+        Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs
+        YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>127, 17</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>435, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>737, 17</value>
+  </metadata>
+  <metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1165, 17</value>
+  </metadata>
+  <metadata name="TBDD_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>910, 17</value>
+  </metadata>
+</root>

Global_Indexer/frmEmailIndexing.vb

@@ -0,0 +1,134 @@
+Imports System.ComponentModel
+
+Public Class frmEmailIndexing
+    Private SourceAttributes As List(Of String)
+    Private SourceObjectTypes As List(Of String)
+
+    Private Sub frmEmailIndexing_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+
+            TBDD_DOKUMENTARTTableAdapter.Fill(MyDataset.TBDD_DOKUMENTART)
+            ObjektTypenEintragen()
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+    End Sub
+
+    Private Sub LoadCurrentIndiciesForObjectType(ObjectType As String)
+        Try
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, ObjectType)
+        Catch ex As Exception
+            MsgBox("Error in LoadIDXEmail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub ListBoxControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
+        If ListBoxControl1.SelectedIndex <> -1 Then
+            LoadCurrentIndiciesForObjectType(ListBoxControl1.SelectedItem)
+            LoadAvailableIndiciesForObjectType(ListBoxControl1.SelectedItem)
+            EnableControls(Panel1)
+        End If
+    End Sub
+
+    'Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.CurrentChanged
+    '    If ListBoxControl1.SelectedIndex <> -1 Then
+    '        LoadCurrentIndiciesForObjectType(ListBoxControl1.SelectedItem)
+    '        LoadAvailableIndiciesForObjectType(ListBoxControl1.SelectedItem)
+    '        EnableControls(Panel1)
+    '    End If
+    'End Sub
+
+
+    Private Sub EnableControls(Panel As Panel)
+        For Each oControl As Control In Panel.Controls
+            oControl.Enabled = True
+        Next
+    End Sub
+
+
+    Sub LoadAvailableIndiciesForObjectType(Otype As String)
+        Try
+            IDX_EMAIL_DATE_INComboBox.Items.Clear()
+            IDX_EMAIL_FROMComboBox.Items.Clear()
+            IDX_EMAIL_IDComboBox.Items.Clear()
+            IDX_EMAIL_SUBJECTComboBox.Items.Clear()
+            IDX_EMAIL_TOComboBox.Items.Clear()
+            IDX_CHECK_ATTACHMENTComboBox.Items.Clear()
+            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
+                            Me.IDX_EMAIL_DATE_INComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_FROMComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_IDComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_TOComboBox.Items.Add(index)
+                    End Select
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndicesemail: ")
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Try
+            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
+                CHANGED_WHOTextBox2.Text = Environment.UserName
+                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Fehler beim Speichern der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Try
+            Dim oSQL = $"DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '{OBJECTTYPETextBox.Text}'"
+            ClassDatabase.Execute_non_Query(oSQL)
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, OBJECTTYPETextBox.Text)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Fehler beim Löschen der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        ObjektTypenEintragen()
+    End Sub
+
+    Private Sub ObjektTypenEintragen()
+        Try
+            ListBoxControl1.Items.Clear()
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
+
+            For Each otype As String In SourceObjectTypes
+                ListBoxControl1.Items.Add(otype)
+            Next
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
+        End Try
+    End Sub
+
+    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
+        MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.Text
+    End Sub
+End Class

Global_Indexer/frmHotKey_Add.vb

@@ -3,14 +3,14 @@
     Private Control_Sequence As Integer
     Private Sub ObjektTypenEintragen()
         Try
-            Dim oDokumentTyp As WINDREAMLib.WMObject
             ' Combobox leeren
             Me.cmbObjekttyp.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
+            For Each otype As String In WINDREAM.ObjectTypes
                 ' und in die Combobox eintragen
-                Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
+                Me.cmbObjekttyp.Items.Add(otype)
             Next
+
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
         End Try
@@ -40,13 +40,11 @@
         GroupBox1.Visible = True
         GroupBox2_Controls.Visible = False
         GroupBoxMainWindow.Visible = False
-        If ClassWindream.Init() = True Then
+        If IDB_ACTIVE = False Then
             ObjektTypenEintragen()
-        Else
-            MsgBox("Windream konnte nicht initiiert werden! Formular wird geschlossen - Check logfile", MsgBoxStyle.Information)
-            Me.Close()
         End If
 
+
     End Sub
     Sub load_users()
         Try

Global_Indexer/frmIndex.designer.vb

@@ -34,7 +34,7 @@ Partial Class frmIndex
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
-        Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
+        Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem()
         Me.checkItemDeleteSource = New DevExpress.XtraBars.BarCheckItem()
         Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem()
         Me.labelError = New DevExpress.XtraBars.BarStaticItem()
@@ -142,7 +142,7 @@ Partial Class frmIndex
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.BarCheckItem1, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
         Me.RibbonControl1.MaxItemId = 22
         Me.RibbonControl1.Name = "RibbonControl1"
@@ -162,12 +162,14 @@ Partial Class frmIndex
         Me.BarToggleSwitchItem2.Id = 2
         Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
         '
-        'BarCheckItem1
+        'checkItemTopMost
         '
-        resources.ApplyResources(Me.BarCheckItem1, "BarCheckItem1")
-        Me.BarCheckItem1.Id = 5
-        Me.BarCheckItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarCheckItem1.Name = "BarCheckItem1"
+        Me.checkItemTopMost.BindableChecked = True
+        resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
+        Me.checkItemTopMost.Checked = True
+        Me.checkItemTopMost.Id = 5
+        Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkItemTopMost.Name = "checkItemTopMost"
         '
         'checkItemDeleteSource
         '
@@ -265,7 +267,7 @@ Partial Class frmIndex
         'RibbonPageGroup2
         '
         Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckItem1)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
         '
@@ -402,7 +404,7 @@ Partial Class frmIndex
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem
-    Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem
     Friend WithEvents checkItemDeleteSource As DevExpress.XtraBars.BarCheckItem
     Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem
     Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem

Global_Indexer/frmIndex.resx

@@ -246,7 +246,7 @@
   <data name="BarToggleSwitchItem2.Caption" xml:space="preserve">
     <value>Multi Indexing</value>
   </data>
-  <data name="BarCheckItem1.Caption" xml:space="preserve">
+  <data name="checkItemTopMost.Caption" xml:space="preserve">
     <value>Andere Fenster überdecken</value>
   </data>
   <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@@ -639,7 +639,7 @@
     <value>DocumentViewer1</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>
@@ -766,10 +766,10 @@
   <data name="&gt;&gt;BarToggleSwitchItem2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;BarCheckItem1.Name" xml:space="preserve">
-    <value>BarCheckItem1</value>
+  <data name="&gt;&gt;checkItemTopMost.Name" xml:space="preserve">
+    <value>checkItemTopMost</value>
   </data>
-  <data name="&gt;&gt;BarCheckItem1.Type" xml:space="preserve">
+  <data name="&gt;&gt;checkItemTopMost.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;checkItemDeleteSource.Name" xml:space="preserve">

Global_Indexer/frmNamenkonvention.designer.vb

@@ -40,7 +40,6 @@ Partial Class frmNamenkonvention
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btnVersionTZ = New System.Windows.Forms.Button()
         Me.btnTrennzeichen = New System.Windows.Forms.Button()
-        Me.btnVersion = New System.Windows.Forms.Button()
         Me.btndelete = New System.Windows.Forms.Button()
         Me.btnOK = New System.Windows.Forms.Button()
         Me.btnclose = New System.Windows.Forms.Button()
@@ -74,13 +73,13 @@ Partial Class frmNamenkonvention
         '
         'GroupBox1
         '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Controls.Add(Me.btnAddIndexA)
         Me.GroupBox1.Controls.Add(Me.btnAddIndexM)
         Me.GroupBox1.Controls.Add(Me.cmbIndex_A)
         Me.GroupBox1.Controls.Add(Me.cmbIndex_m)
         Me.GroupBox1.Controls.Add(Me.Label3)
         Me.GroupBox1.Controls.Add(Me.Label2)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.TabStop = False
         '
@@ -98,10 +97,10 @@ Partial Class frmNamenkonvention
         '
         'cmbIndex_A
         '
-        resources.ApplyResources(Me.cmbIndex_A, "cmbIndex_A")
         Me.cmbIndex_A.DataSource = Me.TBDD_INDEX_AUTOMBindingSource
         Me.cmbIndex_A.DisplayMember = "INDEXNAME"
         Me.cmbIndex_A.FormattingEnabled = True
+        resources.ApplyResources(Me.cmbIndex_A, "cmbIndex_A")
         Me.cmbIndex_A.Name = "cmbIndex_A"
         Me.cmbIndex_A.ValueMember = "GUID"
         '
@@ -117,10 +116,10 @@ Partial Class frmNamenkonvention
         '
         'cmbIndex_m
         '
-        resources.ApplyResources(Me.cmbIndex_m, "cmbIndex_m")
         Me.cmbIndex_m.DataSource = Me.TBDD_INDEX_MANBindingSource
         Me.cmbIndex_m.DisplayMember = "NAME"
         Me.cmbIndex_m.FormattingEnabled = True
+        resources.ApplyResources(Me.cmbIndex_m, "cmbIndex_m")
         Me.cmbIndex_m.Name = "cmbIndex_m"
         Me.cmbIndex_m.ValueMember = "GUID"
         '
@@ -141,11 +140,10 @@ Partial Class frmNamenkonvention
         '
         'GroupBox2
         '
-        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Controls.Add(Me.Button2)
         Me.GroupBox2.Controls.Add(Me.btnVersionTZ)
         Me.GroupBox2.Controls.Add(Me.btnTrennzeichen)
-        Me.GroupBox2.Controls.Add(Me.btnVersion)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.TabStop = False
         '
@@ -167,30 +165,24 @@ Partial Class frmNamenkonvention
         Me.btnTrennzeichen.Name = "btnTrennzeichen"
         Me.btnTrennzeichen.UseVisualStyleBackColor = True
         '
-        'btnVersion
-        '
-        resources.ApplyResources(Me.btnVersion, "btnVersion")
-        Me.btnVersion.Name = "btnVersion"
-        Me.btnVersion.UseVisualStyleBackColor = True
-        '
         'btndelete
         '
-        resources.ApplyResources(Me.btndelete, "btndelete")
         Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete2
+        resources.ApplyResources(Me.btndelete, "btndelete")
         Me.btndelete.Name = "btndelete"
         Me.btndelete.UseVisualStyleBackColor = True
         '
         'btnOK
         '
-        resources.ApplyResources(Me.btnOK, "btnOK")
         Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
+        resources.ApplyResources(Me.btnOK, "btnOK")
         Me.btnOK.Name = "btnOK"
         Me.btnOK.UseVisualStyleBackColor = True
         '
         'btnclose
         '
-        resources.ApplyResources(Me.btnclose, "btnclose")
         Me.btnclose.Image = Global.Global_Indexer.My.Resources.Resources.Close_16xLG
+        resources.ApplyResources(Me.btnclose, "btnclose")
         Me.btnclose.Name = "btnclose"
         Me.btnclose.UseVisualStyleBackColor = True
         '
@@ -215,6 +207,7 @@ Partial Class frmNamenkonvention
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
         Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
         Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
         Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
@@ -307,7 +300,6 @@ Partial Class frmNamenkonvention
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents btnAddIndexA As System.Windows.Forms.Button
     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
-    Friend WithEvents btnVersion As System.Windows.Forms.Button
     Friend WithEvents btndelete As System.Windows.Forms.Button
     Friend WithEvents btnOK As System.Windows.Forms.Button
     Friend WithEvents btnclose As System.Windows.Forms.Button

Global_Indexer/frmNamenkonvention.en-US.resx

@@ -125,6 +125,9 @@
     <value>Define the Nameconvention for the selected Documenttype. 
 You can assemble the filename from the Indicies and Textpatterns below.</value>
   </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Indicies:</value>
+  </data>
   <data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -153,8 +156,8 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
   <data name="Label2.Text" xml:space="preserve">
     <value>Manual Index:</value>
   </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>Indicies:</value>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <value>Variables:</value>
   </data>
   <data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -165,7 +168,7 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
 </value>
   </data>
   <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 139</value>
+    <value>6, 107</value>
   </data>
   <data name="Button2.Text" xml:space="preserve">
     <value>Add original filename</value>
@@ -179,10 +182,10 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
 </value>
   </data>
   <data name="btnVersionTZ.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 91</value>
+    <value>6, 59</value>
   </data>
   <data name="btnVersionTZ.Text" xml:space="preserve">
-    <value>Add Versionseperator:</value>
+    <value>Add Versionseparator:</value>
   </data>
   <data name="btnTrennzeichen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -192,25 +195,14 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
         TkSuQmCC
 </value>
   </data>
+  <data name="btnTrennzeichen.Location" type="System.Drawing.Point, System.Drawing">
+    <value>6, 24</value>
+  </data>
   <data name="btnTrennzeichen.Size" type="System.Drawing.Size, System.Drawing">
     <value>163, 29</value>
   </data>
   <data name="btnTrennzeichen.Text" xml:space="preserve">
-    <value>Add Fileseperator:</value>
-  </data>
-  <data name="btnVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
-        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
-        TkSuQmCC
-</value>
-  </data>
-  <data name="btnVersion.Text" xml:space="preserve">
-    <value>Add Version:</value>
-  </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>Variables:</value>
+    <value>Add Fileseparator:</value>
   </data>
   <data name="btnOK.Text" xml:space="preserve">
     <value>Save</value>

Global_Indexer/frmNamenkonvention.vb

@@ -47,7 +47,7 @@
 
     End Sub
 
-    Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click
+    Private Sub btnVersion_Click(sender As Object, e As EventArgs)
         If txtnamenKonv.Text.Contains("[%Version]") Then
             If USER_LANGUAGE = "de-DE" Then
                 MsgBox("Versionstag ist bereits enthalten!", MsgBoxStyle.Exclamation)

Global_Indexer/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
     Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmStart
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
@@ -223,18 +223,18 @@ Partial Class frmStart
         'frmStart
         '
         Me.AllowDrop = True
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackColor = System.Drawing.SystemColors.ControlLight
         Me.Controls.Add(Me.btnChoosefiles)
         Me.Controls.Add(Me.LabelControl1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.MenuStrip1)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
         Me.MaximizeBox = False
         Me.Name = "frmStart"
         Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
-        Me.TopMost = True
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
         Me.StatusStrip1.ResumeLayout(False)

Global_Indexer/frmStart.resx

@@ -201,7 +201,7 @@
     <value>515, 17</value>
   </metadata>
   <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 137</value>
+    <value>0, 122</value>
   </data>
   <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
     <value>295, 22</value>
@@ -634,12 +634,12 @@ auf dieses Fenster oder...</value>
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>295, 159</value>
+    <value>295, 144</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
   </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmStart.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA
         AAAAAABGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqoA
@@ -1531,6 +1531,12 @@ auf dieses Fenster oder...</value>
         /////////////wA///////////////////8f////////////////////
 </value>
   </data>
+  <data name="$this.MaximumSize" type="System.Drawing.Size, System.Drawing">
+    <value>297, 176</value>
+  </data>
+  <data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
+    <value>297, 176</value>
+  </data>
   <data name="$this.Text" xml:space="preserve">
     <value>Global Indexer</value>
   </data>
@@ -1682,6 +1688,6 @@ auf dieses Fenster oder...</value>
     <value>frmStart</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

Global_Indexer/frmStart.vb

@@ -125,10 +125,9 @@ Public Class frmStart
         DragDropForm(e)
     End Sub
     Sub DragDropForm(e As DragEventArgs)
-        Dim frmCollection = System.Windows.Forms.Application.OpenForms
+        Dim frmCollection = Application.OpenForms
         If frmCollection.OfType(Of frmIndexFileList).Any Then
             MsgBox("Please index the active file/mail first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
-            ' TimerCheckDroppedFiles.Start()
             Exit Sub
         End If
         'Erstmal alles löschen
@@ -252,9 +251,7 @@ Public Class frmStart
             Next
             Show()
         Catch ex As Exception
-            If Not ex.Message.StartsWith("Die Auflistung wurde geändert") Then
-                MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End If
+            MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
 
@@ -262,15 +259,11 @@ Public Class frmStart
         Try
             Hide()
             IndexForm.ShowDialog()
-
-            'AddHandler frmIndex.FormClosed, Sub()
-            '                                    Show()
-            '                                    BringToFront()
-            '                                End Sub
-
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
+        Finally
+            Show()
         End Try
     End Sub
 
@@ -324,7 +317,7 @@ Public Class frmStart
             IndexForm = New frmIndex()
 
             'Lizenz abgellaufen, überprüfen ob User Admin ist
-            If LICENSE_COUNT < UserLoggedin Then
+            If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
                 If USER_IS_ADMIN = True Then
                     LOGGER.Info(">> User is Admin - Timer will be started")
                     If USER_LANGUAGE = "de-DE" Then
@@ -365,7 +358,9 @@ Public Class frmStart
             ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
             Unregister_Hotkeys()
             Load_Hotkeys()
+
             Me.Opacity = 30
+            Me.TopMost = True
 
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -653,7 +648,7 @@ Public Class frmStart
         End If
     End Sub
     Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
-        If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then
+        If LICENSE_EXPIRED = True Or LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
             If USER_LANGUAGE = "de-DE" Then
                 MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
             Else
@@ -682,7 +677,7 @@ Public Class frmStart
         ClassHelper.Refresh_RegexTable()
 
         Start_Folderwatch()
-        ClassWindowLocation.LoadFormLocationSize(Me)
+        ClassWindowLocation.LoadFormLocationSize(Me, LoadSize:=False)
         Try
             Me.LabelControl1.Location = New Point(13, 37)
         Catch ex As Exception
@@ -736,4 +731,15 @@ Public Class frmStart
         End Try
     End Sub
 
+    Private Sub frmStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = Keys.F12 Then
+            If START_INCOMPLETE Then
+                frmLicense.ShowDialog()
+            End If
+        End If
+    End Sub
+
+    Private Sub frmStart_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
+        Console.WriteLine()
+    End Sub
 End Class

Global_Indexer/frmTestvb.Designer.vb

@@ -1,29 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmTestvb
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        components = New System.ComponentModel.Container
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Text = "frmTestvb"
-    End Sub
-End Class

Global_Indexer/frmTestvb.vb

@@ -1,3 +0,0 @@
-Public Class frmTestvb
-
-End Class

SetupVS19/Product.wxs

@@ -115,6 +115,7 @@
         <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll" KeyPath="no" />
         <File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
         <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
+        <File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">