MS2909

Global_Indexer/ClassDatabase.vb

@@ -39,6 +39,29 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
+    Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
     Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
         Try
             Dim SQLconnect As New SqlClient.SqlConnection
@@ -105,4 +128,51 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
+    Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei OracleExecute_non_Query: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            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
+            ClassLogger.Add("Fehler bei Oracle_Return_Datatable: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
 End Class

Global_Indexer/ClassFilehandle.vb

@@ -39,7 +39,10 @@ Public Class ClassFilehandle
             If Not msg.InternetMessageId Is Nothing Then
                 CURRENT_MESSAGEID = msg.InternetMessageId
             Else
-                MsgBox("Es konnte keine Message-ID ausgelesen werden." & vbNewLine & "Dies kann zu Fehlern in der Indexierung führen!", MsgBoxStyle.Exclamation, "Achtung:")
+                If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False)
+                Dim sGUID As String
+                sGUID = System.Guid.NewGuid.ToString()
+                CURRENT_MESSAGEID = sGUID
             End If
 
             'Nur die MSGDatei ablegen
@@ -103,23 +106,22 @@ Public Class ClassFilehandle
         ' Prüft, ob die angegeben Datei aktuell durch eine
         ' andere Anwendung in Benutzung ist
         Dim ff As Integer = FreeFile()
-
         If System.IO.File.Exists(fullFilePath) Then
             Try
                 ' Versuchen, die Datei mit *exklusiven* Lese- und
                 ' Schreibrechten zu öffnen
-                FileOpen(ff, fullFilePath, OpenMode.Binary, _
+                FileOpen(ff, fullFilePath, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
-                                           OpenAccess.ReadWrite, _
+            Catch ex As Exception
-                                           OpenShare.LockReadWrite)
-            Catch
                 ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
                 ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
                 ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
+                If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False)
                 IsFileInUse = True
             Finally
                 ' Die eventuell geöffnete Datei schließen
                 FileClose(ff)
             End Try
+            Return False
         End If
 
     End Function

Global_Indexer/ClassFolderWatcher.vb

@@ -130,9 +130,13 @@ Public Class ClassFolderWatcher
     End Function
     Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
         Try
-            If e.FullPath.Contains("Thumbs.") Or e.FullPath.EndsWith(".tmp") Or e.FullPath.Contains("\~$") Then
+            For Each row As DataRow In DTEXCLUDE_FILES.Rows
-                Exit Sub
+                Dim content As String = row.Item(0).ToString.ToLower
-            End If
+                If e.FullPath.ToLower.Contains(content) Then
+                    Exit Sub
+                End If
+            Next
+            
             Dim handleType As String
             If e.FullPath.EndsWith(".msg") Then
                 handleType = "@FW_OUTLOOK_MESSAGE@"
@@ -140,47 +144,13 @@ Public Class ClassFolderWatcher
                 handleType = "@FW_SIMPLEINDEXER@"
             End If
             'Die Datei übergeben
-            If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False)
+            If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
             If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then
                 ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
             Else
                 Console.WriteLine("File existiert bereits")
             End If
-            'frmMain.MyNewTimer()
           
-            'ShowIndexForm()
-            'Dim file = CURRENT_FILENAME
-            'Dim frm As New frmIndex
-            'frm.ShowDialog()
-            ''Jetzt die Anhänge auslesen
-            'If file.EndsWith(".msg") Then
-            '    Dim _msg As New Msg.Message(CURRENT_FILENAME)
-            '    Dim i1 As Integer = 1
-            '    For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
-            '        If attachment.DisplayName Is Nothing Then
-            '            If Not attachment.LongFileName Is Nothing And Not attachment.LongFileName.Contains("inline") Then
-            '                Dim tempfile As String = Path.Combine(Path.GetTempPath, attachment.LongFileName)
-            '                If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
-            '                attachment.Save(tempfile)
-            '                CURRENT_FILENAME = "@ATTMNTEXTRACTED@" & tempfile
-            '                frmIndex.ShowDialog()
-            '                i1 += 1
-            '            End If
-            '        End If
-            '    Next
-
-
-            'End If
-
-            ''Prüfen ob alle Files abgearbeitet wurden
-            'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & Environment.UserName & "'")
-            'If DT.Rows.Count > 0 Then
-            '    For Each row As DataRow In DT.Rows
-            '        MsgBox("Abbrechen nicht möglich:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation)
-            '        CURRENT_FILENAME = row.Item(1)
-            '        frmIndex.ShowDialog()
-            '    Next
-            'End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created")
         End Try

Global_Indexer/ClassPostprocessing.vb

@@ -35,7 +35,7 @@ Public Class ClassPostprocessing
                             If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False)
                             result = resultRegex.ToString
                         Else
-                            ClassLogger.Add("Postprocessing RegEx konnte kein ergebnis auswerten!", True)
+                            ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True)
                         End If
                 End Select
             Next

Global_Indexer/ClassWindream.vb

@@ -392,6 +392,7 @@ Public Class ClassWindream
 
                 ' Index aus den Eigenschaften auslesen
                 oIndex = oRelProperties.Item(0)
+                'Dim o = oRelProperties.Item(2)
                 ' Indexname speichern
                 aIndexNames(j) = oIndex.aName
             Next
@@ -586,7 +587,7 @@ Public Class ClassWindream
         End If
 
         If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath exisitiert", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert", False)
             ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
             Dim dvr As New DriveInfo(vWLaufwerk & ":")
             Dim freeSpace = dvr.TotalFreeSpace

Global_Indexer/Global_Indexer.vbproj

@@ -49,6 +49,9 @@
   <PropertyGroup>
     <ApplicationIcon>globe_handdrawn.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="DevExpress.Charts.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Data.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@@ -203,6 +206,12 @@
     <Compile Include="frmNamenkonvention.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmSQL-Result.Designer.vb">
+      <DependentUpon>frmSQL-Result.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQL-Result.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmSQLConfigAutoIndex.Designer.vb">
       <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
     </Compile>
@@ -241,6 +250,7 @@
     </Compile>
     <Compile Include="ModuleCURRENT.vb" />
     <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleUserSavings.vb" />
     <Compile Include="ModuleWindowHandles.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
@@ -301,6 +311,9 @@
     <EmbeddedResource Include="frmNamenkonvention.resx">
       <DependentUpon>frmNamenkonvention.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmSQL-Result.resx">
+      <DependentUpon>frmSQL-Result.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmSQLConfigAutoIndex.resx">
       <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
     </EmbeddedResource>
@@ -325,6 +338,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -525,6 +539,10 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="globe_handdrawn.ico" />
+    <None Include="Resources\action_add_16xMD.png" />
+    <None Include="Resources\action_add_16xLG1.png" />
+    <None Include="Resources\globe_handdrawn.png" />
+    <None Include="Resources\arrow_previous_16xLG.png" />
     <None Include="Resources\Excel_25ixel.jpg" />
     <None Include="Resources\cancel.png" />
     <None Include="Resources\refresh_16xLG.png" />

Global_Indexer/ModuleCURRENT.vb

@@ -1,4 +1,5 @@
 Module ModuleCURRENT
+    Public ERROR_STATE As String
     Public START_INCOMPLETE As Boolean = False
     Public CURRENT_FILENAME As String
     Public CURRENT_NEWFILENAME As String
@@ -14,6 +15,7 @@
     Public FILE_DELIMITER As String
     Public CURRENT_MESSAGEID As String
     Public CURRENT_MESSAGEDATE As String
+    Public CURRENT_MESSAGESUBJECT As String
     Public CURRENT_ISATTACHMENT As Boolean = False
     Public CURRENT_USERID As Integer
     Public CURRENT_FOLDERWATCH As String = ""
@@ -32,7 +34,12 @@
     Public CURRENT_ABBRUCH As Integer = 0
 
     Public MULTIINDEXING_ACTIVE As Boolean = False
+    Public ABORT_INDEXING As Boolean = False
 
     Public DTACTUAL_FILES As DataTable
+    Public DTEXCLUDE_FILES As DataTable
+
+    Public CURRENT_SQLRESULT As String
+    Public DTSQL_RESULT As DataTable
 
 End Module

Global_Indexer/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.7.2.0")> 
+<Assembly: AssemblyVersion("1.7.7.0")> 
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

Global_Indexer/My Project/Resources.Designer.vb

@@ -70,6 +70,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property action_add_16xLG1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("action_add_16xLG1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property action_add_16xMD() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("action_add_16xMD", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -110,6 +130,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property arrow_previous_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow_previous_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -370,6 +400,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property globe_handdrawn() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("globe_handdrawn", 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

@@ -139,6 +139,9 @@
   <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="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>
@@ -148,9 +151,15 @@
   <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>
+  <data name="arrow_previous_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_previous_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="globe_handdrawn" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\globe_handdrawn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -169,9 +178,6 @@
   <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>
@@ -181,9 +187,6 @@
   <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>
@@ -202,18 +205,24 @@
   <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="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save_16xLG" 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>
+    <value>..\Resources\save_16xLG.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>
@@ -247,13 +256,16 @@
   <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="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Save_6530" 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>
+    <value>..\Resources\Save_6530.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="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="action_add_16xLG1" 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>
+    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Global_Indexer/MyDataset.Designer.vb

@@ -1608,7 +1608,6 @@ Partial Public Class MyDataset
             Me.columnLOGGED_WHERE.MaxLength = 50
             Me.columnGI_ADMIN.AllowDBNull = false
             Me.columnGI_ADMIN.DefaultValue = CType(false,Boolean)
-            Me.columnADDED_WHO.AllowDBNull = false
             Me.columnADDED_WHO.MaxLength = 50
             Me.columnCHANGED_WHO.MaxLength = 50
         End Sub
@@ -12245,7 +12244,11 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
         Public Property ADDED_WHO() As String
             Get
-                Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String)
+                Try 
+                    Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER ist DBNull.", e)
+                End Try
             End Get
             Set
                 Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value
@@ -12369,6 +12372,18 @@ Partial Public Class MyDataset
             Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull
         End Sub
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Function IsADDED_WHONull() As Boolean
+            Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHOColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub SetADDED_WHONull()
+            Me(Me.tableTBDD_USER.ADDED_WHOColumn) = Global.System.Convert.DBNull
+        End Sub
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
         Public Function IsADDED_WHENNull() As Boolean
@@ -19133,7 +19148,7 @@ Namespace MyDatasetTableAdapters
             End If
             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean)
             If (ADDED_WHO Is Nothing) Then
-                Throw New Global.System.ArgumentNullException("ADDED_WHO")
+                Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
             Else
                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String)
             End If

Global_Indexer/MyDataset.xsc

@@ -212,39 +212,29 @@
     <TableUISetting Name="TBDD_INDEX_MAN_POSTPROCESSING">
       <ColumnUISettings>
         <ColumnUISetting Name="IDXMAN_ID">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="TYPE">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="VARIANT">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>

Global_Indexer/MyDataset.xsd

@@ -31,7 +31,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
                       <Parameter AllowDbNull="false" AutogeneratedName="USERNAME" ColumnName="USERNAME" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="USERNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="EMAIL" ColumnName="EMAIL" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="GI_ADMIN" ColumnName="GI_ADMIN" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@GI_ADMIN" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="GI_ADMIN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER" 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_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER" 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" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
@@ -1699,7 +1699,7 @@ ORDER BY GUID DESC</CommandText>
   <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_RowClassName="TBDD_USERRow" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent">
+        <xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_USERRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1742,7 +1742,7 @@ ORDER BY GUID DESC</CommandText>
               <xs:element name="LOG_IN_WHEN" msprop:Generator_ColumnVarNameInTable="columnLOG_IN_WHEN" msprop:Generator_ColumnPropNameInRow="LOG_IN_WHEN" msprop:Generator_ColumnPropNameInTable="LOG_IN_WHENColumn" msprop:Generator_UserColumnName="LOG_IN_WHEN" type="xs:dateTime" minOccurs="0" />
               <xs:element name="LOG_OUT_WHEN" msprop:Generator_ColumnVarNameInTable="columnLOG_OUT_WHEN" msprop:Generator_ColumnPropNameInRow="LOG_OUT_WHEN" msprop:Generator_ColumnPropNameInTable="LOG_OUT_WHENColumn" msprop:Generator_UserColumnName="LOG_OUT_WHEN" type="xs:dateTime" minOccurs="0" />
               <xs:element name="GI_ADMIN" msprop:Generator_ColumnVarNameInTable="columnGI_ADMIN" msprop:Generator_ColumnPropNameInRow="GI_ADMIN" msprop:Generator_ColumnPropNameInTable="GI_ADMINColumn" msprop:Generator_UserColumnName="GI_ADMIN" type="xs:boolean" default="false" />
-              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
+              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="50" />
@@ -1761,7 +1761,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent">
+        <xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1837,7 +1837,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_EINGANGSARTEN" msprop:Generator_TableClassName="TBDD_EINGANGSARTENDataTable" msprop:Generator_TableVarName="tableTBDD_EINGANGSARTEN" msprop:Generator_RowChangedName="TBDD_EINGANGSARTENRowChanged" msprop:Generator_TablePropName="TBDD_EINGANGSARTEN" msprop:Generator_RowDeletingName="TBDD_EINGANGSARTENRowDeleting" msprop:Generator_RowChangingName="TBDD_EINGANGSARTENRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EINGANGSARTENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EINGANGSARTENRowDeleted" msprop:Generator_RowClassName="TBDD_EINGANGSARTENRow" msprop:Generator_UserTableName="TBDD_EINGANGSARTEN" msprop:Generator_RowEvArgName="TBDD_EINGANGSARTENRowChangeEvent">
+        <xs:element name="TBDD_EINGANGSARTEN" msprop:Generator_TableClassName="TBDD_EINGANGSARTENDataTable" msprop:Generator_TableVarName="tableTBDD_EINGANGSARTEN" msprop:Generator_TablePropName="TBDD_EINGANGSARTEN" msprop:Generator_RowDeletingName="TBDD_EINGANGSARTENRowDeleting" msprop:Generator_RowChangingName="TBDD_EINGANGSARTENRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EINGANGSARTENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EINGANGSARTENRowDeleted" msprop:Generator_UserTableName="TBDD_EINGANGSARTEN" msprop:Generator_RowChangedName="TBDD_EINGANGSARTENRowChanged" msprop:Generator_RowEvArgName="TBDD_EINGANGSARTENRowChangeEvent" msprop:Generator_RowClassName="TBDD_EINGANGSARTENRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@@ -1874,7 +1874,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_DOKART_MODULE" msprop:Generator_TableClassName="TBDD_DOKART_MODULEDataTable" msprop:Generator_TableVarName="tableTBDD_DOKART_MODULE" msprop:Generator_TablePropName="TBDD_DOKART_MODULE" msprop:Generator_RowDeletingName="TBDD_DOKART_MODULERowDeleting" msprop:Generator_RowChangingName="TBDD_DOKART_MODULERowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKART_MODULERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKART_MODULERowDeleted" msprop:Generator_UserTableName="TBDD_DOKART_MODULE" msprop:Generator_RowChangedName="TBDD_DOKART_MODULERowChanged" msprop:Generator_RowEvArgName="TBDD_DOKART_MODULERowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKART_MODULERow">
+        <xs:element name="TBDD_DOKART_MODULE" msprop:Generator_TableClassName="TBDD_DOKART_MODULEDataTable" msprop:Generator_TableVarName="tableTBDD_DOKART_MODULE" msprop:Generator_RowChangedName="TBDD_DOKART_MODULERowChanged" msprop:Generator_TablePropName="TBDD_DOKART_MODULE" msprop:Generator_RowDeletingName="TBDD_DOKART_MODULERowDeleting" msprop:Generator_RowChangingName="TBDD_DOKART_MODULERowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKART_MODULERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKART_MODULERowDeleted" msprop:Generator_RowClassName="TBDD_DOKART_MODULERow" msprop:Generator_UserTableName="TBDD_DOKART_MODULE" msprop:Generator_RowEvArgName="TBDD_DOKART_MODULERowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
@@ -1888,7 +1888,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_MODULES" msprop:Generator_TableClassName="TBDD_MODULESDataTable" msprop:Generator_TableVarName="tableTBDD_MODULES" msprop:Generator_TablePropName="TBDD_MODULES" msprop:Generator_RowDeletingName="TBDD_MODULESRowDeleting" msprop:Generator_RowChangingName="TBDD_MODULESRowChanging" msprop:Generator_RowEvHandlerName="TBDD_MODULESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_MODULESRowDeleted" msprop:Generator_UserTableName="TBDD_MODULES" msprop:Generator_RowChangedName="TBDD_MODULESRowChanged" msprop:Generator_RowEvArgName="TBDD_MODULESRowChangeEvent" msprop:Generator_RowClassName="TBDD_MODULESRow">
+        <xs:element name="TBDD_MODULES" msprop:Generator_TableClassName="TBDD_MODULESDataTable" msprop:Generator_TableVarName="tableTBDD_MODULES" msprop:Generator_RowChangedName="TBDD_MODULESRowChanged" msprop:Generator_TablePropName="TBDD_MODULES" msprop:Generator_RowDeletingName="TBDD_MODULESRowDeleting" msprop:Generator_RowChangingName="TBDD_MODULESRowChanging" msprop:Generator_RowEvHandlerName="TBDD_MODULESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_MODULESRowDeleted" msprop:Generator_RowClassName="TBDD_MODULESRow" msprop:Generator_UserTableName="TBDD_MODULES" msprop:Generator_RowEvArgName="TBDD_MODULESRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1902,7 +1902,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_INDEX_MAN" msprop:Generator_TableClassName="TBDD_INDEX_MANDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_MAN" msprop:Generator_TablePropName="TBDD_INDEX_MAN" msprop:Generator_RowDeletingName="TBDD_INDEX_MANRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_MANRowDeleted" msprop:Generator_UserTableName="TBDD_INDEX_MAN" msprop:Generator_RowChangedName="TBDD_INDEX_MANRowChanged" msprop:Generator_RowEvArgName="TBDD_INDEX_MANRowChangeEvent" msprop:Generator_RowClassName="TBDD_INDEX_MANRow">
+        <xs:element name="TBDD_INDEX_MAN" msprop:Generator_TableClassName="TBDD_INDEX_MANDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_MAN" msprop:Generator_RowChangedName="TBDD_INDEX_MANRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_MAN" msprop:Generator_RowDeletingName="TBDD_INDEX_MANRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_MANRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_MANRow" msprop:Generator_UserTableName="TBDD_INDEX_MAN" msprop:Generator_RowEvArgName="TBDD_INDEX_MANRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1980,7 +1980,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
+        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2053,7 +2053,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWDDINDEX_MAN" msprop:Generator_TableClassName="VWDDINDEX_MANDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_MAN" msprop:Generator_TablePropName="VWDDINDEX_MAN" msprop:Generator_RowDeletingName="VWDDINDEX_MANRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_MANRowDeleted" msprop:Generator_UserTableName="VWDDINDEX_MAN" msprop:Generator_RowChangedName="VWDDINDEX_MANRowChanged" msprop:Generator_RowEvArgName="VWDDINDEX_MANRowChangeEvent" msprop:Generator_RowClassName="VWDDINDEX_MANRow">
+        <xs:element name="VWDDINDEX_MAN" msprop:Generator_TableClassName="VWDDINDEX_MANDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_MAN" msprop:Generator_RowChangedName="VWDDINDEX_MANRowChanged" msprop:Generator_TablePropName="VWDDINDEX_MAN" msprop:Generator_RowDeletingName="VWDDINDEX_MANRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_MANRowDeleted" msprop:Generator_RowClassName="VWDDINDEX_MANRow" msprop:Generator_UserTableName="VWDDINDEX_MAN" msprop:Generator_RowEvArgName="VWDDINDEX_MANRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2165,7 +2165,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWDDINDEX_AUTOM" msprop:Generator_TableClassName="VWDDINDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_AUTOM" msprop:Generator_TablePropName="VWDDINDEX_AUTOM" msprop:Generator_RowDeletingName="VWDDINDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_AUTOMRowDeleted" msprop:Generator_UserTableName="VWDDINDEX_AUTOM" msprop:Generator_RowChangedName="VWDDINDEX_AUTOMRowChanged" msprop:Generator_RowEvArgName="VWDDINDEX_AUTOMRowChangeEvent" msprop:Generator_RowClassName="VWDDINDEX_AUTOMRow">
+        <xs:element name="VWDDINDEX_AUTOM" msprop:Generator_TableClassName="VWDDINDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_AUTOM" msprop:Generator_RowChangedName="VWDDINDEX_AUTOMRowChanged" msprop:Generator_TablePropName="VWDDINDEX_AUTOM" msprop:Generator_RowDeletingName="VWDDINDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_AUTOMRowDeleted" msprop:Generator_RowClassName="VWDDINDEX_AUTOMRow" msprop:Generator_UserTableName="VWDDINDEX_AUTOM" msprop:Generator_RowEvArgName="VWDDINDEX_AUTOMRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2261,7 +2261,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_INDEX_AUTOM" msprop:Generator_TableClassName="TBDD_INDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_AUTOM" msprop:Generator_RowChangedName="TBDD_INDEX_AUTOMRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_AUTOM" msprop:Generator_RowDeletingName="TBDD_INDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_AUTOMRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_AUTOMRow" msprop:Generator_UserTableName="TBDD_INDEX_AUTOM" msprop:Generator_RowEvArgName="TBDD_INDEX_AUTOMRowChangeEvent">
+        <xs:element name="TBDD_INDEX_AUTOM" msprop:Generator_TableClassName="TBDD_INDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_AUTOM" msprop:Generator_TablePropName="TBDD_INDEX_AUTOM" msprop:Generator_RowDeletingName="TBDD_INDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_AUTOMRowDeleted" msprop:Generator_UserTableName="TBDD_INDEX_AUTOM" msprop:Generator_RowChangedName="TBDD_INDEX_AUTOMRowChanged" msprop:Generator_RowEvArgName="TBDD_INDEX_AUTOMRowChangeEvent" msprop:Generator_RowClassName="TBDD_INDEX_AUTOMRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2316,7 +2316,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBTempFiles2Index" msprop:Generator_TableClassName="TBTempFiles2IndexDataTable" msprop:Generator_TableVarName="tableTBTempFiles2Index" msprop:Generator_TablePropName="TBTempFiles2Index" msprop:Generator_RowDeletingName="TBTempFiles2IndexRowDeleting" msprop:Generator_RowChangingName="TBTempFiles2IndexRowChanging" msprop:Generator_RowEvHandlerName="TBTempFiles2IndexRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTempFiles2IndexRowDeleted" msprop:Generator_UserTableName="TBTempFiles2Index" msprop:Generator_RowChangedName="TBTempFiles2IndexRowChanged" msprop:Generator_RowEvArgName="TBTempFiles2IndexRowChangeEvent" msprop:Generator_RowClassName="TBTempFiles2IndexRow">
+        <xs:element name="TBTempFiles2Index" msprop:Generator_TableClassName="TBTempFiles2IndexDataTable" msprop:Generator_TableVarName="tableTBTempFiles2Index" msprop:Generator_RowChangedName="TBTempFiles2IndexRowChanged" msprop:Generator_TablePropName="TBTempFiles2Index" msprop:Generator_RowDeletingName="TBTempFiles2IndexRowDeleting" msprop:Generator_RowChangingName="TBTempFiles2IndexRowChanging" msprop:Generator_RowEvHandlerName="TBTempFiles2IndexRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTempFiles2IndexRowDeleted" msprop:Generator_RowClassName="TBTempFiles2IndexRow" msprop:Generator_UserTableName="TBTempFiles2Index" msprop:Generator_RowEvArgName="TBTempFiles2IndexRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Filestring" msprop:Generator_ColumnVarNameInTable="columnFilestring" msprop:Generator_ColumnPropNameInRow="Filestring" msprop:Generator_ColumnPropNameInTable="FilestringColumn" msprop:Generator_UserColumnName="Filestring" type="xs:string" minOccurs="0" />
@@ -2324,7 +2324,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBGI_CONFIGURATION" msprop:Generator_TableClassName="TBGI_CONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBGI_CONFIGURATION" msprop:Generator_TablePropName="TBGI_CONFIGURATION" msprop:Generator_RowDeletingName="TBGI_CONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBGI_CONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBGI_CONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_CONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBGI_CONFIGURATION" msprop:Generator_RowChangedName="TBGI_CONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBGI_CONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBGI_CONFIGURATIONRow">
+        <xs:element name="TBGI_CONFIGURATION" msprop:Generator_TableClassName="TBGI_CONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBGI_CONFIGURATION" msprop:Generator_RowChangedName="TBGI_CONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBGI_CONFIGURATION" msprop:Generator_RowDeletingName="TBGI_CONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBGI_CONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBGI_CONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_CONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBGI_CONFIGURATIONRow" msprop:Generator_UserTableName="TBGI_CONFIGURATION" msprop:Generator_RowEvArgName="TBGI_CONFIGURATIONRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" default="1" />
@@ -2374,7 +2374,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_TableClassName="TBGI_OBJECTTYPE_EMAIL_INDEXDataTable" msprop:Generator_TableVarName="tableTBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_RowChangedName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged" msprop:Generator_TablePropName="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_RowDeletingName="TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting" msprop:Generator_RowChangingName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted" msprop:Generator_RowClassName="TBGI_OBJECTTYPE_EMAIL_INDEXRow" msprop:Generator_UserTableName="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_RowEvArgName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent">
+        <xs:element name="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_TableClassName="TBGI_OBJECTTYPE_EMAIL_INDEXDataTable" msprop:Generator_TableVarName="tableTBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_TablePropName="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_RowDeletingName="TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting" msprop:Generator_RowChangingName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted" msprop:Generator_UserTableName="TBGI_OBJECTTYPE_EMAIL_INDEX" msprop:Generator_RowChangedName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged" msprop:Generator_RowEvArgName="TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent" msprop:Generator_RowClassName="TBGI_OBJECTTYPE_EMAIL_INDEXRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2446,7 +2446,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_TableClassName="TBDD_INDEX_MAN_POSTPROCESSINGDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_TablePropName="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_RowDeletingName="TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_MAN_POSTPROCESSINGRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted" msprop:Generator_UserTableName="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_RowChangedName="TBDD_INDEX_MAN_POSTPROCESSINGRowChanged" msprop:Generator_RowEvArgName="TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent" msprop:Generator_RowClassName="TBDD_INDEX_MAN_POSTPROCESSINGRow">
+        <xs:element name="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_TableClassName="TBDD_INDEX_MAN_POSTPROCESSINGDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_RowChangedName="TBDD_INDEX_MAN_POSTPROCESSINGRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_RowDeletingName="TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_MAN_POSTPROCESSINGRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_MAN_POSTPROCESSINGRow" msprop:Generator_UserTableName="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_RowEvArgName="TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2527,7 +2527,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWHDD_INDEX_MAN" msprop:Generator_TableClassName="TBWHDD_INDEX_MANDataTable" msprop:Generator_TableVarName="tableTBWHDD_INDEX_MAN" msprop:Generator_RowChangedName="TBWHDD_INDEX_MANRowChanged" msprop:Generator_TablePropName="TBWHDD_INDEX_MAN" msprop:Generator_RowDeletingName="TBWHDD_INDEX_MANRowDeleting" msprop:Generator_RowChangingName="TBWHDD_INDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="TBWHDD_INDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWHDD_INDEX_MANRowDeleted" msprop:Generator_RowClassName="TBWHDD_INDEX_MANRow" msprop:Generator_UserTableName="TBWHDD_INDEX_MAN" msprop:Generator_RowEvArgName="TBWHDD_INDEX_MANRowChangeEvent">
+        <xs:element name="TBWHDD_INDEX_MAN" msprop:Generator_TableClassName="TBWHDD_INDEX_MANDataTable" msprop:Generator_TableVarName="tableTBWHDD_INDEX_MAN" msprop:Generator_TablePropName="TBWHDD_INDEX_MAN" msprop:Generator_RowDeletingName="TBWHDD_INDEX_MANRowDeleting" msprop:Generator_RowChangingName="TBWHDD_INDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="TBWHDD_INDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWHDD_INDEX_MANRowDeleted" msprop:Generator_UserTableName="TBWHDD_INDEX_MAN" msprop:Generator_RowChangedName="TBWHDD_INDEX_MANRowChanged" msprop:Generator_RowEvArgName="TBWHDD_INDEX_MANRowChangeEvent" msprop:Generator_RowClassName="TBWHDD_INDEX_MANRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2541,7 +2541,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBTEMP_INDEXRESULTS" msprop:Generator_TableClassName="TBTEMP_INDEXRESULTSDataTable" msprop:Generator_TableVarName="tableTBTEMP_INDEXRESULTS" msprop:Generator_TablePropName="TBTEMP_INDEXRESULTS" msprop:Generator_RowDeletingName="TBTEMP_INDEXRESULTSRowDeleting" msprop:Generator_RowChangingName="TBTEMP_INDEXRESULTSRowChanging" msprop:Generator_RowEvHandlerName="TBTEMP_INDEXRESULTSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTEMP_INDEXRESULTSRowDeleted" msprop:Generator_UserTableName="TBTEMP_INDEXRESULTS" msprop:Generator_RowChangedName="TBTEMP_INDEXRESULTSRowChanged" msprop:Generator_RowEvArgName="TBTEMP_INDEXRESULTSRowChangeEvent" msprop:Generator_RowClassName="TBTEMP_INDEXRESULTSRow">
+        <xs:element name="TBTEMP_INDEXRESULTS" msprop:Generator_TableClassName="TBTEMP_INDEXRESULTSDataTable" msprop:Generator_TableVarName="tableTBTEMP_INDEXRESULTS" msprop:Generator_RowChangedName="TBTEMP_INDEXRESULTSRowChanged" msprop:Generator_TablePropName="TBTEMP_INDEXRESULTS" msprop:Generator_RowDeletingName="TBTEMP_INDEXRESULTSRowDeleting" msprop:Generator_RowChangingName="TBTEMP_INDEXRESULTSRowChanging" msprop:Generator_RowEvHandlerName="TBTEMP_INDEXRESULTSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTEMP_INDEXRESULTSRowDeleted" msprop:Generator_RowClassName="TBTEMP_INDEXRESULTSRow" msprop:Generator_UserTableName="TBTEMP_INDEXRESULTS" msprop:Generator_RowEvArgName="TBTEMP_INDEXRESULTSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Indexname" msprop:Generator_ColumnVarNameInTable="columnIndexname" msprop:Generator_ColumnPropNameInRow="Indexname" msprop:Generator_ColumnPropNameInTable="IndexnameColumn" msprop:Generator_UserColumnName="Indexname" type="xs:string" minOccurs="0" />
@@ -2550,7 +2550,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_USER_GROUPS" msprop:Generator_TableClassName="TBDD_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_USER_GROUPS" msprop:Generator_TablePropName="TBDD_USER_GROUPS" msprop:Generator_RowDeletingName="TBDD_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_USER_GROUPS" msprop:Generator_RowChangedName="TBDD_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_USER_GROUPSRow">
+        <xs:element name="TBDD_USER_GROUPS" msprop:Generator_TableClassName="TBDD_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_USER_GROUPS" msprop:Generator_RowChangedName="TBDD_USER_GROUPSRowChanged" msprop:Generator_TablePropName="TBDD_USER_GROUPS" msprop:Generator_RowDeletingName="TBDD_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USER_GROUPSRowDeleted" msprop:Generator_RowClassName="TBDD_USER_GROUPSRow" msprop:Generator_UserTableName="TBDD_USER_GROUPS" msprop:Generator_RowEvArgName="TBDD_USER_GROUPSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2580,7 +2580,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_GROUPS_USER" msprop:Generator_TableClassName="TBDD_GROUPS_USERDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS_USER" msprop:Generator_TablePropName="TBDD_GROUPS_USER" msprop:Generator_RowDeletingName="TBDD_GROUPS_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPS_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPS_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPS_USERRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS_USER" msprop:Generator_RowChangedName="TBDD_GROUPS_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPS_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPS_USERRow">
+        <xs:element name="TBDD_GROUPS_USER" msprop:Generator_TableClassName="TBDD_GROUPS_USERDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS_USER" msprop:Generator_RowChangedName="TBDD_GROUPS_USERRowChanged" msprop:Generator_TablePropName="TBDD_GROUPS_USER" msprop:Generator_RowDeletingName="TBDD_GROUPS_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPS_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPS_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPS_USERRowDeleted" msprop:Generator_RowClassName="TBDD_GROUPS_USERRow" msprop:Generator_UserTableName="TBDD_GROUPS_USER" msprop:Generator_RowEvArgName="TBDD_GROUPS_USERRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementStep="2" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2605,7 +2605,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWGI_USER_GROUPS_RELATION" msprop:Generator_TableClassName="VWGI_USER_GROUPS_RELATIONDataTable" msprop:Generator_TableVarName="tableVWGI_USER_GROUPS_RELATION" msprop:Generator_TablePropName="VWGI_USER_GROUPS_RELATION" msprop:Generator_RowDeletingName="VWGI_USER_GROUPS_RELATIONRowDeleting" msprop:Generator_RowChangingName="VWGI_USER_GROUPS_RELATIONRowChanging" msprop:Generator_RowEvHandlerName="VWGI_USER_GROUPS_RELATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="VWGI_USER_GROUPS_RELATIONRowDeleted" msprop:Generator_UserTableName="VWGI_USER_GROUPS_RELATION" msprop:Generator_RowChangedName="VWGI_USER_GROUPS_RELATIONRowChanged" msprop:Generator_RowEvArgName="VWGI_USER_GROUPS_RELATIONRowChangeEvent" msprop:Generator_RowClassName="VWGI_USER_GROUPS_RELATIONRow">
+        <xs:element name="VWGI_USER_GROUPS_RELATION" msprop:Generator_TableClassName="VWGI_USER_GROUPS_RELATIONDataTable" msprop:Generator_TableVarName="tableVWGI_USER_GROUPS_RELATION" msprop:Generator_RowChangedName="VWGI_USER_GROUPS_RELATIONRowChanged" msprop:Generator_TablePropName="VWGI_USER_GROUPS_RELATION" msprop:Generator_RowDeletingName="VWGI_USER_GROUPS_RELATIONRowDeleting" msprop:Generator_RowChangingName="VWGI_USER_GROUPS_RELATIONRowChanging" msprop:Generator_RowEvHandlerName="VWGI_USER_GROUPS_RELATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="VWGI_USER_GROUPS_RELATIONRowDeleted" msprop:Generator_RowClassName="VWGI_USER_GROUPS_RELATIONRow" msprop:Generator_UserTableName="VWGI_USER_GROUPS_RELATION" msprop:Generator_RowEvArgName="VWGI_USER_GROUPS_RELATIONRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2644,7 +2644,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWGI_DOCTYPE_GROUP" msprop:Generator_TableClassName="VWGI_DOCTYPE_GROUPDataTable" msprop:Generator_TableVarName="tableVWGI_DOCTYPE_GROUP" msprop:Generator_RowChangedName="VWGI_DOCTYPE_GROUPRowChanged" msprop:Generator_TablePropName="VWGI_DOCTYPE_GROUP" msprop:Generator_RowDeletingName="VWGI_DOCTYPE_GROUPRowDeleting" msprop:Generator_RowChangingName="VWGI_DOCTYPE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="VWGI_DOCTYPE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="VWGI_DOCTYPE_GROUPRowDeleted" msprop:Generator_RowClassName="VWGI_DOCTYPE_GROUPRow" msprop:Generator_UserTableName="VWGI_DOCTYPE_GROUP" msprop:Generator_RowEvArgName="VWGI_DOCTYPE_GROUPRowChangeEvent">
+        <xs:element name="VWGI_DOCTYPE_GROUP" msprop:Generator_TableClassName="VWGI_DOCTYPE_GROUPDataTable" msprop:Generator_TableVarName="tableVWGI_DOCTYPE_GROUP" msprop:Generator_TablePropName="VWGI_DOCTYPE_GROUP" msprop:Generator_RowDeletingName="VWGI_DOCTYPE_GROUPRowDeleting" msprop:Generator_RowChangingName="VWGI_DOCTYPE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="VWGI_DOCTYPE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="VWGI_DOCTYPE_GROUPRowDeleted" msprop:Generator_UserTableName="VWGI_DOCTYPE_GROUP" msprop:Generator_RowChangedName="VWGI_DOCTYPE_GROUPRowChanged" msprop:Generator_RowEvArgName="VWGI_DOCTYPE_GROUPRowChangeEvent" msprop:Generator_RowClassName="VWGI_DOCTYPE_GROUPRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2676,7 +2676,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBHOTKEY_PROFILE" msprop:Generator_TableClassName="TBHOTKEY_PROFILEDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PROFILE" msprop:Generator_TablePropName="TBHOTKEY_PROFILE" msprop:Generator_RowDeletingName="TBHOTKEY_PROFILERowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PROFILERowDeleted" msprop:Generator_UserTableName="TBHOTKEY_PROFILE" msprop:Generator_RowChangedName="TBHOTKEY_PROFILERowChanged" msprop:Generator_RowEvArgName="TBHOTKEY_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBHOTKEY_PROFILERow">
+        <xs:element name="TBHOTKEY_PROFILE" msprop:Generator_TableClassName="TBHOTKEY_PROFILEDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PROFILE" msprop:Generator_RowChangedName="TBHOTKEY_PROFILERowChanged" msprop:Generator_TablePropName="TBHOTKEY_PROFILE" msprop:Generator_RowDeletingName="TBHOTKEY_PROFILERowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PROFILERowDeleted" msprop:Generator_RowClassName="TBHOTKEY_PROFILERow" msprop:Generator_UserTableName="TBHOTKEY_PROFILE" msprop:Generator_RowEvArgName="TBHOTKEY_PROFILERowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2748,7 +2748,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBHOTKEY_PATTERNS" msprop:Generator_TableClassName="TBHOTKEY_PATTERNSDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PATTERNS" msprop:Generator_TablePropName="TBHOTKEY_PATTERNS" msprop:Generator_RowDeletingName="TBHOTKEY_PATTERNSRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PATTERNSRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PATTERNSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PATTERNSRowDeleted" msprop:Generator_UserTableName="TBHOTKEY_PATTERNS" msprop:Generator_RowChangedName="TBHOTKEY_PATTERNSRowChanged" msprop:Generator_RowEvArgName="TBHOTKEY_PATTERNSRowChangeEvent" msprop:Generator_RowClassName="TBHOTKEY_PATTERNSRow">
+        <xs:element name="TBHOTKEY_PATTERNS" msprop:Generator_TableClassName="TBHOTKEY_PATTERNSDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PATTERNS" msprop:Generator_RowChangedName="TBHOTKEY_PATTERNSRowChanged" msprop:Generator_TablePropName="TBHOTKEY_PATTERNS" msprop:Generator_RowDeletingName="TBHOTKEY_PATTERNSRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PATTERNSRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PATTERNSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PATTERNSRowDeleted" msprop:Generator_RowClassName="TBHOTKEY_PATTERNSRow" msprop:Generator_UserTableName="TBHOTKEY_PATTERNS" msprop:Generator_RowEvArgName="TBHOTKEY_PATTERNSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2787,7 +2787,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBMYHOTKEYS" msprop:Generator_TableClassName="TBMYHOTKEYSDataTable" msprop:Generator_TableVarName="tableTBMYHOTKEYS" msprop:Generator_TablePropName="TBMYHOTKEYS" msprop:Generator_RowDeletingName="TBMYHOTKEYSRowDeleting" msprop:Generator_RowChangingName="TBMYHOTKEYSRowChanging" msprop:Generator_RowEvHandlerName="TBMYHOTKEYSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMYHOTKEYSRowDeleted" msprop:Generator_UserTableName="TBMYHOTKEYS" msprop:Generator_RowChangedName="TBMYHOTKEYSRowChanged" msprop:Generator_RowEvArgName="TBMYHOTKEYSRowChangeEvent" msprop:Generator_RowClassName="TBMYHOTKEYSRow">
+        <xs:element name="TBMYHOTKEYS" msprop:Generator_TableClassName="TBMYHOTKEYSDataTable" msprop:Generator_TableVarName="tableTBMYHOTKEYS" msprop:Generator_RowChangedName="TBMYHOTKEYSRowChanged" msprop:Generator_TablePropName="TBMYHOTKEYS" msprop:Generator_RowDeletingName="TBMYHOTKEYSRowDeleting" msprop:Generator_RowChangingName="TBMYHOTKEYSRowChanging" msprop:Generator_RowEvHandlerName="TBMYHOTKEYSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMYHOTKEYSRowDeleted" msprop:Generator_RowClassName="TBMYHOTKEYSRow" msprop:Generator_UserTableName="TBMYHOTKEYS" msprop:Generator_RowEvArgName="TBMYHOTKEYSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2801,7 +2801,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBHOTKEY_USER_PROFILE" msprop:Generator_TableClassName="TBHOTKEY_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_USER_PROFILE" msprop:Generator_RowChangedName="TBHOTKEY_USER_PROFILERowChanged" msprop:Generator_TablePropName="TBHOTKEY_USER_PROFILE" msprop:Generator_RowDeletingName="TBHOTKEY_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_USER_PROFILERowDeleted" msprop:Generator_RowClassName="TBHOTKEY_USER_PROFILERow" msprop:Generator_UserTableName="TBHOTKEY_USER_PROFILE" msprop:Generator_RowEvArgName="TBHOTKEY_USER_PROFILERowChangeEvent">
+        <xs:element name="TBHOTKEY_USER_PROFILE" msprop:Generator_TableClassName="TBHOTKEY_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_USER_PROFILE" msprop:Generator_TablePropName="TBHOTKEY_USER_PROFILE" msprop:Generator_RowDeletingName="TBHOTKEY_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_USER_PROFILERowDeleted" msprop:Generator_UserTableName="TBHOTKEY_USER_PROFILE" msprop:Generator_RowChangedName="TBHOTKEY_USER_PROFILERowChanged" msprop:Generator_RowEvArgName="TBHOTKEY_USER_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBHOTKEY_USER_PROFILERow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2847,7 +2847,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_TableClassName="TBHOTKEY_PATTERNS_REWORKDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PATTERNS_REWORK" msprop:Generator_RowChangedName="TBHOTKEY_PATTERNS_REWORKRowChanged" msprop:Generator_TablePropName="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_RowDeletingName="TBHOTKEY_PATTERNS_REWORKRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PATTERNS_REWORKRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PATTERNS_REWORKRowDeleted" msprop:Generator_RowClassName="TBHOTKEY_PATTERNS_REWORKRow" msprop:Generator_UserTableName="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_RowEvArgName="TBHOTKEY_PATTERNS_REWORKRowChangeEvent">
+        <xs:element name="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_TableClassName="TBHOTKEY_PATTERNS_REWORKDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_PATTERNS_REWORK" msprop:Generator_TablePropName="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_RowDeletingName="TBHOTKEY_PATTERNS_REWORKRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_PATTERNS_REWORKRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_PATTERNS_REWORKRowDeleted" msprop:Generator_UserTableName="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_RowChangedName="TBHOTKEY_PATTERNS_REWORKRowChanged" msprop:Generator_RowEvArgName="TBHOTKEY_PATTERNS_REWORKRowChangeEvent" msprop:Generator_RowClassName="TBHOTKEY_PATTERNS_REWORKRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2907,7 +2907,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBHOTKEY_WINDOW_HOOK" msprop:Generator_TableClassName="TBHOTKEY_WINDOW_HOOKDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_WINDOW_HOOK" msprop:Generator_TablePropName="TBHOTKEY_WINDOW_HOOK" msprop:Generator_RowDeletingName="TBHOTKEY_WINDOW_HOOKRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_WINDOW_HOOKRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_WINDOW_HOOKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_WINDOW_HOOKRowDeleted" msprop:Generator_UserTableName="TBHOTKEY_WINDOW_HOOK" msprop:Generator_RowChangedName="TBHOTKEY_WINDOW_HOOKRowChanged" msprop:Generator_RowEvArgName="TBHOTKEY_WINDOW_HOOKRowChangeEvent" msprop:Generator_RowClassName="TBHOTKEY_WINDOW_HOOKRow">
+        <xs:element name="TBHOTKEY_WINDOW_HOOK" msprop:Generator_TableClassName="TBHOTKEY_WINDOW_HOOKDataTable" msprop:Generator_TableVarName="tableTBHOTKEY_WINDOW_HOOK" msprop:Generator_RowChangedName="TBHOTKEY_WINDOW_HOOKRowChanged" msprop:Generator_TablePropName="TBHOTKEY_WINDOW_HOOK" msprop:Generator_RowDeletingName="TBHOTKEY_WINDOW_HOOKRowDeleting" msprop:Generator_RowChangingName="TBHOTKEY_WINDOW_HOOKRowChanging" msprop:Generator_RowEvHandlerName="TBHOTKEY_WINDOW_HOOKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBHOTKEY_WINDOW_HOOKRowDeleted" msprop:Generator_RowClassName="TBHOTKEY_WINDOW_HOOKRow" msprop:Generator_UserTableName="TBHOTKEY_WINDOW_HOOK" msprop:Generator_RowEvArgName="TBHOTKEY_WINDOW_HOOKRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2939,7 +2939,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBGI_FILES_USER" msprop:Generator_TableClassName="TBGI_FILES_USERDataTable" msprop:Generator_TableVarName="tableTBGI_FILES_USER" msprop:Generator_RowChangedName="TBGI_FILES_USERRowChanged" msprop:Generator_TablePropName="TBGI_FILES_USER" msprop:Generator_RowDeletingName="TBGI_FILES_USERRowDeleting" msprop:Generator_RowChangingName="TBGI_FILES_USERRowChanging" msprop:Generator_RowEvHandlerName="TBGI_FILES_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_FILES_USERRowDeleted" msprop:Generator_RowClassName="TBGI_FILES_USERRow" msprop:Generator_UserTableName="TBGI_FILES_USER" msprop:Generator_RowEvArgName="TBGI_FILES_USERRowChangeEvent">
+        <xs:element name="TBGI_FILES_USER" msprop:Generator_TableClassName="TBGI_FILES_USERDataTable" msprop:Generator_TableVarName="tableTBGI_FILES_USER" msprop:Generator_TablePropName="TBGI_FILES_USER" msprop:Generator_RowDeletingName="TBGI_FILES_USERRowDeleting" msprop:Generator_RowChangingName="TBGI_FILES_USERRowChanging" msprop:Generator_RowEvHandlerName="TBGI_FILES_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_FILES_USERRowDeleted" msprop:Generator_UserTableName="TBGI_FILES_USER" msprop:Generator_RowChangedName="TBGI_FILES_USERRowChanged" msprop:Generator_RowEvArgName="TBGI_FILES_USERRowChangeEvent" msprop:Generator_RowClassName="TBGI_FILES_USERRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2977,7 +2977,7 @@ ORDER BY GUID DESC</CommandText>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBGI_HISTORY" msprop:Generator_TableClassName="TBGI_HISTORYDataTable" msprop:Generator_TableVarName="tableTBGI_HISTORY" msprop:Generator_TablePropName="TBGI_HISTORY" msprop:Generator_RowDeletingName="TBGI_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBGI_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBGI_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_HISTORYRowDeleted" msprop:Generator_UserTableName="TBGI_HISTORY" msprop:Generator_RowChangedName="TBGI_HISTORYRowChanged" msprop:Generator_RowEvArgName="TBGI_HISTORYRowChangeEvent" msprop:Generator_RowClassName="TBGI_HISTORYRow">
+        <xs:element name="TBGI_HISTORY" msprop:Generator_TableClassName="TBGI_HISTORYDataTable" msprop:Generator_TableVarName="tableTBGI_HISTORY" msprop:Generator_RowChangedName="TBGI_HISTORYRowChanged" msprop:Generator_TablePropName="TBGI_HISTORY" msprop:Generator_RowDeletingName="TBGI_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBGI_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBGI_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_HISTORYRowDeleted" msprop:Generator_RowClassName="TBGI_HISTORYRow" msprop:Generator_UserTableName="TBGI_HISTORY" msprop:Generator_RowEvArgName="TBGI_HISTORYRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -3108,21 +3108,21 @@ ORDER BY GUID DESC</CommandText>
   </xs:element>
   <xs:annotation>
     <xs:appinfo>
-      <msdata:Relationship name="FK_TBDD_DOKUMENTART_EINGID" msdata:parent="TBDD_EINGANGSARTEN" msdata:child="TBDD_DOKUMENTART" msdata:parentkey="GUID" msdata:childkey="EINGANGSART_ID" msprop:Generator_UserChildTable="TBDD_DOKUMENTART" msprop:Generator_ChildPropName="GetTBDD_DOKUMENTARTRows" msprop:Generator_UserRelationName="FK_TBDD_DOKUMENTART_EINGID" msprop:Generator_ParentPropName="TBDD_EINGANGSARTENRow" msprop:Generator_RelationVarName="relationFK_TBDD_DOKUMENTART_EINGID" msprop:Generator_UserParentTable="TBDD_EINGANGSARTEN" />
+      <msdata:Relationship name="FK_TBDD_DOKUMENTART_EINGID" msdata:parent="TBDD_EINGANGSARTEN" msdata:child="TBDD_DOKUMENTART" msdata:parentkey="GUID" msdata:childkey="EINGANGSART_ID" msprop:Generator_UserChildTable="TBDD_DOKUMENTART" msprop:Generator_ChildPropName="GetTBDD_DOKUMENTARTRows" msprop:Generator_UserRelationName="FK_TBDD_DOKUMENTART_EINGID" msprop:Generator_RelationVarName="relationFK_TBDD_DOKUMENTART_EINGID" msprop:Generator_UserParentTable="TBDD_EINGANGSARTEN" msprop:Generator_ParentPropName="TBDD_EINGANGSARTENRow" />
-      <msdata:Relationship name="FK_TBDD_INDEX_MAN_CID" msdata:parent="TBDD_CONNECTION" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="CONNECTION_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_CID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_CID" msprop:Generator_UserParentTable="TBDD_CONNECTION" msprop:Generator_ParentPropName="TBDD_CONNECTIONRow" />
+      <msdata:Relationship name="FK_TBDD_INDEX_MAN_CID" msdata:parent="TBDD_CONNECTION" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="CONNECTION_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_CID" msprop:Generator_ParentPropName="TBDD_CONNECTIONRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_CID" msprop:Generator_UserParentTable="TBDD_CONNECTION" />
-      <msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
+      <msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" />
-      <msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msdata:parent="TBDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_ParentPropName="TBDD_INDEX_MANRow" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_UserParentTable="TBDD_INDEX_MAN" />
+      <msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msdata:parent="TBDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_UserParentTable="TBDD_INDEX_MAN" msprop:Generator_ParentPropName="TBDD_INDEX_MANRow" />
-      <msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msdata:parent="TBWHDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_ParentPropName="TBWHDD_INDEX_MANRow" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_UserParentTable="TBWHDD_INDEX_MAN" />
+      <msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msdata:parent="TBWHDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_UserParentTable="TBWHDD_INDEX_MAN" msprop:Generator_ParentPropName="TBWHDD_INDEX_MANRow" />
-      <msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" />
+      <msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" />
-      <msdata:Relationship name="FK_TBDD_GROUPS_USER_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_ParentPropName="TBDD_USERRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" />
+      <msdata:Relationship name="FK_TBDD_GROUPS_USER_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" msprop:Generator_ParentPropName="TBDD_USERRow" />
-      <msdata:Relationship name="FK_TBDD_INDEX_MAN_DAID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="DOK_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_DAID" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_DAID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" />
+      <msdata:Relationship name="FK_TBDD_INDEX_MAN_DAID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="DOK_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_DAID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_DAID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
-      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_PATTERNS" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNSRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" />
+      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_PATTERNS" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNSRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" />
-      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_PROFILE_ID1" msdata:parent="TBMYHOTKEYS" msdata:child="TBHOTKEY_PATTERNS" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNSRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_PROFILE_ID1" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1" msprop:Generator_UserParentTable="TBMYHOTKEYS" msprop:Generator_ParentPropName="TBMYHOTKEYSRow" />
+      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_PROFILE_ID1" msdata:parent="TBMYHOTKEYS" msdata:child="TBHOTKEY_PATTERNS" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNSRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_PROFILE_ID1" msprop:Generator_ParentPropName="TBMYHOTKEYSRow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1" msprop:Generator_UserParentTable="TBMYHOTKEYS" />
-      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" />
+      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" />
-      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msdata:parent="TBMYHOTKEYS" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msprop:Generator_UserParentTable="TBMYHOTKEYS" msprop:Generator_ParentPropName="TBMYHOTKEYSRow" />
+      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msdata:parent="TBMYHOTKEYS" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msprop:Generator_ParentPropName="TBMYHOTKEYSRow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" msprop:Generator_UserParentTable="TBMYHOTKEYS" />
-      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_USER_ID" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" msprop:Generator_ParentPropName="TBDD_USERRow" />
+      <msdata:Relationship name="FK_TBHOTKEY_USER_PROFILE_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBHOTKEY_USER_PROFILE" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBHOTKEY_USER_PROFILE" msprop:Generator_ChildPropName="GetTBHOTKEY_USER_PROFILERows" msprop:Generator_UserRelationName="FK_TBHOTKEY_USER_PROFILE_USER_ID" msprop:Generator_ParentPropName="TBDD_USERRow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_USER_PROFILE_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" />
-      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msdata:parent="TBHOTKEY_PATTERNS" msdata:child="TBHOTKEY_PATTERNS_REWORK" msdata:parentkey="GUID" msdata:childkey="HKPATTERN_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNS_REWORKRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msprop:Generator_UserParentTable="TBHOTKEY_PATTERNS" msprop:Generator_ParentPropName="TBHOTKEY_PATTERNSRow" />
+      <msdata:Relationship name="FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msdata:parent="TBHOTKEY_PATTERNS" msdata:child="TBHOTKEY_PATTERNS_REWORK" msdata:parentkey="GUID" msdata:childkey="HKPATTERN_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS_REWORK" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNS_REWORKRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msprop:Generator_ParentPropName="TBHOTKEY_PATTERNSRow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" msprop:Generator_UserParentTable="TBHOTKEY_PATTERNS" />
-      <msdata:Relationship name="FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_WINDOW_HOOK" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_WINDOW_HOOK" msprop:Generator_ChildPropName="GetTBHOTKEY_WINDOW_HOOKRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" />
+      <msdata:Relationship name="FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_WINDOW_HOOK" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_WINDOW_HOOK" msprop:Generator_ChildPropName="GetTBHOTKEY_WINDOW_HOOKRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" />
     </xs:appinfo>
   </xs:annotation>
 </xs:schema>

Global_Indexer/frmAdministration.Designer.vb

@@ -135,6 +135,7 @@ Partial Class frmAdministration
         Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton41 = New System.Windows.Forms.ToolStripButton()
         Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
         Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage()
         Me.VARIANTComboBox = New System.Windows.Forms.ComboBox()
@@ -175,6 +176,7 @@ Partial Class frmAdministration
         Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton()
         Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.btnAddWindowsVariable = New System.Windows.Forms.Button()
         Me.lblWindowParameter = New System.Windows.Forms.Label()
         Me.lbFileparameter = New System.Windows.Forms.ListBox()
         Me.ListBox6 = New System.Windows.Forms.ListBox()
@@ -956,7 +958,7 @@ Partial Class frmAdministration
         '
         GUIDLabel4.AutoSize = True
         GUIDLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        GUIDLabel4.Location = New System.Drawing.Point(3, 47)
+        GUIDLabel4.Location = New System.Drawing.Point(4, 60)
         GUIDLabel4.Name = "GUIDLabel4"
         GUIDLabel4.Size = New System.Drawing.Size(22, 15)
         GUIDLabel4.TabIndex = 4
@@ -965,7 +967,7 @@ Partial Class frmAdministration
         'INDEXNAMELabel
         '
         INDEXNAMELabel.AutoSize = True
-        INDEXNAMELabel.Location = New System.Drawing.Point(164, 47)
+        INDEXNAMELabel.Location = New System.Drawing.Point(164, 61)
         INDEXNAMELabel.Name = "INDEXNAMELabel"
         INDEXNAMELabel.Size = New System.Drawing.Size(68, 15)
         INDEXNAMELabel.TabIndex = 8
@@ -974,7 +976,7 @@ Partial Class frmAdministration
         'COMMENTLabel1
         '
         COMMENTLabel1.AutoSize = True
-        COMMENTLabel1.Location = New System.Drawing.Point(164, 93)
+        COMMENTLabel1.Location = New System.Drawing.Point(163, 109)
         COMMENTLabel1.Name = "COMMENTLabel1"
         COMMENTLabel1.Size = New System.Drawing.Size(81, 15)
         COMMENTLabel1.TabIndex = 14
@@ -1191,10 +1193,10 @@ Partial Class frmAdministration
         '
         'StatusStrip1
         '
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 632)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 640)
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
-        Me.StatusStrip1.Size = New System.Drawing.Size(1141, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(1150, 22)
         Me.StatusStrip1.TabIndex = 0
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -1210,7 +1212,7 @@ Partial Class frmAdministration
         Me.XtraTabControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1141, 632)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1150, 640)
         Me.XtraTabControl1.TabIndex = 1
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage5})
         '
@@ -1265,7 +1267,7 @@ Partial Class frmAdministration
         Me.XtraTabPage1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.XtraTabPage1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(1135, 604)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(1144, 612)
         Me.XtraTabPage1.Text = "Dokumentarten"
         '
         'SEQUENCENumericUpDown
@@ -1331,7 +1333,7 @@ Partial Class frmAdministration
         Me.XtraTabControl2.Location = New System.Drawing.Point(266, 315)
         Me.XtraTabControl2.Name = "XtraTabControl2"
         Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
-        Me.XtraTabControl2.Size = New System.Drawing.Size(862, 281)
+        Me.XtraTabControl2.Size = New System.Drawing.Size(871, 289)
         Me.XtraTabControl2.TabIndex = 86
         Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage6, Me.XtraTabPage4, Me.XtraTabPage9, Me.XtraTabPage10})
         '
@@ -1368,7 +1370,7 @@ Partial Class frmAdministration
         Me.XtraTabPage3.Controls.Add(GUIDLabel1)
         Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
         Me.XtraTabPage3.Name = "XtraTabPage3"
-        Me.XtraTabPage3.Size = New System.Drawing.Size(856, 253)
+        Me.XtraTabPage3.Size = New System.Drawing.Size(865, 261)
         Me.XtraTabPage3.Text = "manuelle Indexe"
         '
         'OPTIONALCheckBox
@@ -1537,7 +1539,7 @@ Partial Class frmAdministration
         Me.NAMETextBox.Enabled = False
         Me.NAMETextBox.Location = New System.Drawing.Point(162, 48)
         Me.NAMETextBox.Name = "NAMETextBox"
-        Me.NAMETextBox.Size = New System.Drawing.Size(263, 23)
+        Me.NAMETextBox.Size = New System.Drawing.Size(272, 23)
         Me.NAMETextBox.TabIndex = 4
         '
         'TBDD_INDEX_MANBindingNav
@@ -1547,7 +1549,7 @@ Partial Class frmAdministration
         Me.TBDD_INDEX_MANBindingNav.CountItem = Me.ToolStripLabel1
         Me.TBDD_INDEX_MANBindingNav.CountItemFormat = "von {0} manuellen Indexen"
         Me.TBDD_INDEX_MANBindingNav.DeleteItem = Me.ToolStripButton2
-        Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7})
+        Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton41})
         Me.TBDD_INDEX_MANBindingNav.Location = New System.Drawing.Point(0, 0)
         Me.TBDD_INDEX_MANBindingNav.MoveFirstItem = Me.ToolStripButton3
         Me.TBDD_INDEX_MANBindingNav.MoveLastItem = Me.ToolStripButton6
@@ -1555,7 +1557,7 @@ Partial Class frmAdministration
         Me.TBDD_INDEX_MANBindingNav.MovePreviousItem = Me.ToolStripButton4
         Me.TBDD_INDEX_MANBindingNav.Name = "TBDD_INDEX_MANBindingNav"
         Me.TBDD_INDEX_MANBindingNav.PositionItem = Me.ToolStripTextBox1
-        Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(856, 25)
+        Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(865, 25)
         Me.TBDD_INDEX_MANBindingNav.TabIndex = 3
         Me.TBDD_INDEX_MANBindingNav.Text = "BindingNavigator1"
         '
@@ -1654,6 +1656,15 @@ Partial Class frmAdministration
         Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
         Me.ToolStripButton7.Text = "Daten speichern"
         '
+        'ToolStripButton41
+        '
+        Me.ToolStripButton41.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton41.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripButton41.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton41.Name = "ToolStripButton41"
+        Me.ToolStripButton41.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton41.Text = "Refresh"
+        '
         'GUIDTextBox1
         '
         Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True))
@@ -1699,22 +1710,19 @@ Partial Class frmAdministration
         Me.XtraTabPage6.Controls.Add(Me.GUIDTextBox4)
         Me.XtraTabPage6.Controls.Add(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator)
         Me.XtraTabPage6.Name = "XtraTabPage6"
-        Me.XtraTabPage6.Size = New System.Drawing.Size(856, 253)
+        Me.XtraTabPage6.Size = New System.Drawing.Size(865, 261)
         Me.XtraTabPage6.Text = "Nachbearbeitungsfunktionen manueller Index"
         '
         'VARIANTComboBox
         '
         Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
-        Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
-        Me.VARIANTComboBox.DataSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
-        Me.VARIANTComboBox.DisplayMember = "VARIANT"
         Me.VARIANTComboBox.Enabled = False
         Me.VARIANTComboBox.FormattingEnabled = True
+        Me.VARIANTComboBox.Items.AddRange(New Object() {"ONLY FILE/FOLDER", "FILE AND INDEX"})
         Me.VARIANTComboBox.Location = New System.Drawing.Point(559, 99)
         Me.VARIANTComboBox.Name = "VARIANTComboBox"
         Me.VARIANTComboBox.Size = New System.Drawing.Size(202, 23)
         Me.VARIANTComboBox.TabIndex = 81
-        Me.VARIANTComboBox.ValueMember = "VARIANT"
         '
         'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
         '
@@ -1723,11 +1731,10 @@ Partial Class frmAdministration
         '
         'lblsavePostProcess
         '
-        Me.lblsavePostProcess.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblsavePostProcess.AutoSize = True
         Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow
         Me.lblsavePostProcess.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 185)
+        Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 191)
         Me.lblsavePostProcess.Name = "lblsavePostProcess"
         Me.lblsavePostProcess.Size = New System.Drawing.Size(213, 17)
         Me.lblsavePostProcess.TabIndex = 80
@@ -1791,7 +1798,7 @@ Partial Class frmAdministration
         'Text1Label
         '
         Me.Text1Label.AutoSize = True
-        Me.Text1Label.Location = New System.Drawing.Point(16, 81)
+        Me.Text1Label.Location = New System.Drawing.Point(13, 81)
         Me.Text1Label.Name = "Text1Label"
         Me.Text1Label.Size = New System.Drawing.Size(41, 15)
         Me.Text1Label.TabIndex = 29
@@ -1870,7 +1877,7 @@ Partial Class frmAdministration
         Me.TEXT1TextBox.Enabled = False
         Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 99)
         Me.TEXT1TextBox.Name = "TEXT1TextBox"
-        Me.TEXT1TextBox.Size = New System.Drawing.Size(167, 23)
+        Me.TEXT1TextBox.Size = New System.Drawing.Size(165, 23)
         Me.TEXT1TextBox.TabIndex = 14
         '
         'FUNCTION2TextBox
@@ -1936,7 +1943,7 @@ Partial Class frmAdministration
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MovePreviousItem = Me.ToolStripButton27
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Name = "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator"
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PositionItem = Me.ToolStripTextBox4
-        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(856, 25)
+        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(865, 25)
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TabIndex = 4
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Text = "BindingNavigator1"
         '
@@ -2038,7 +2045,7 @@ Partial Class frmAdministration
         'ToolStripButton31
         '
         Me.ToolStripButton31.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.ToolStripButton31.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh
+        Me.ToolStripButton31.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
         Me.ToolStripButton31.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton31.Name = "ToolStripButton31"
         Me.ToolStripButton31.Size = New System.Drawing.Size(23, 22)
@@ -2049,6 +2056,7 @@ Partial Class frmAdministration
         Me.XtraTabPage4.Appearance.Header.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
         Me.XtraTabPage4.Appearance.HeaderActive.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
         Me.XtraTabPage4.AutoScroll = True
+        Me.XtraTabPage4.Controls.Add(Me.btnAddWindowsVariable)
         Me.XtraTabPage4.Controls.Add(Me.lblWindowParameter)
         Me.XtraTabPage4.Controls.Add(Me.lbFileparameter)
         Me.XtraTabPage4.Controls.Add(Me.ListBox6)
@@ -2077,13 +2085,22 @@ Partial Class frmAdministration
         Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexTXT)
         Me.XtraTabPage4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.XtraTabPage4.Name = "XtraTabPage4"
-        Me.XtraTabPage4.Size = New System.Drawing.Size(856, 253)
+        Me.XtraTabPage4.Size = New System.Drawing.Size(865, 261)
         Me.XtraTabPage4.Text = "automatische/feste Indexe"
         '
+        'btnAddWindowsVariable
+        '
+        Me.btnAddWindowsVariable.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
+        Me.btnAddWindowsVariable.Location = New System.Drawing.Point(591, 78)
+        Me.btnAddWindowsVariable.Name = "btnAddWindowsVariable"
+        Me.btnAddWindowsVariable.Size = New System.Drawing.Size(31, 22)
+        Me.btnAddWindowsVariable.TabIndex = 89
+        Me.btnAddWindowsVariable.UseVisualStyleBackColor = True
+        '
         'lblWindowParameter
         '
         Me.lblWindowParameter.AutoSize = True
-        Me.lblWindowParameter.Location = New System.Drawing.Point(602, 47)
+        Me.lblWindowParameter.Location = New System.Drawing.Point(626, 60)
         Me.lblWindowParameter.Name = "lblWindowParameter"
         Me.lblWindowParameter.Size = New System.Drawing.Size(118, 15)
         Me.lblWindowParameter.TabIndex = 88
@@ -2095,9 +2112,9 @@ Partial Class frmAdministration
         Me.lbFileparameter.FormattingEnabled = True
         Me.lbFileparameter.ItemHeight = 15
         Me.lbFileparameter.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)"})
-        Me.lbFileparameter.Location = New System.Drawing.Point(602, 64)
+        Me.lbFileparameter.Location = New System.Drawing.Point(629, 78)
         Me.lbFileparameter.Name = "lbFileparameter"
-        Me.lbFileparameter.Size = New System.Drawing.Size(178, 109)
+        Me.lbFileparameter.Size = New System.Drawing.Size(188, 94)
         Me.lbFileparameter.TabIndex = 87
         '
         'ListBox6
@@ -2107,9 +2124,9 @@ Partial Class frmAdministration
         Me.ListBox6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.ListBox6.FormattingEnabled = True
         Me.ListBox6.ItemHeight = 15
-        Me.ListBox6.Location = New System.Drawing.Point(6, 94)
+        Me.ListBox6.Location = New System.Drawing.Point(6, 109)
         Me.ListBox6.Name = "ListBox6"
-        Me.ListBox6.Size = New System.Drawing.Size(155, 154)
+        Me.ListBox6.Size = New System.Drawing.Size(155, 139)
         Me.ListBox6.TabIndex = 86
         Me.ListBox6.ValueMember = "GUID"
         '
@@ -2121,18 +2138,18 @@ Partial Class frmAdministration
         'lblValue
         '
         Me.lblValue.AutoSize = True
-        Me.lblValue.Location = New System.Drawing.Point(374, 47)
+        Me.lblValue.Location = New System.Drawing.Point(374, 60)
         Me.lblValue.Name = "lblValue"
-        Me.lblValue.Size = New System.Drawing.Size(69, 15)
+        Me.lblValue.Size = New System.Drawing.Size(174, 15)
         Me.lblValue.TabIndex = 85
-        Me.lblValue.Text = "Fester Wert:"
+        Me.lblValue.Text = "Fester oder Automatischer Wert:"
         '
         'INDEXNAME_AutoIndexCMB
         '
         Me.INDEXNAME_AutoIndexCMB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
         Me.INDEXNAME_AutoIndexCMB.Enabled = False
         Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
-        Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 63)
+        Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 77)
         Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
         Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(198, 23)
         Me.INDEXNAME_AutoIndexCMB.TabIndex = 84
@@ -2140,16 +2157,16 @@ Partial Class frmAdministration
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(3, 25)
+        Me.Label6.Location = New System.Drawing.Point(3, 26)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(603, 15)
+        Me.Label6.Size = New System.Drawing.Size(528, 30)
         Me.Label6.TabIndex = 83
-        Me.Label6.Text = "Automatische Indexe werden nach den manuellen Indizes durchlaufen und ergänzen be" & _
+        Me.Label6.Text = "Automatische Indexe werden nach den manuellen Indizes OHNE USERINTERAKTION durchl" & _
-    "i Bedarf den Dateinamen."
+    "aufen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung de" & _
+    "r Datei genutzt werden."
         '
         'lblsaveAutoIndex
         '
-        Me.lblsaveAutoIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblsaveAutoIndex.AutoSize = True
         Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow
         Me.lblsaveAutoIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2165,7 +2182,7 @@ Partial Class frmAdministration
         Me.btnSQLViewAuto.Enabled = False
         Me.btnSQLViewAuto.Image = Global.Global_Indexer.My.Resources.Resources.database_go
         Me.btnSQLViewAuto.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 138)
+        Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 156)
         Me.btnSQLViewAuto.Name = "btnSQLViewAuto"
         Me.btnSQLViewAuto.Size = New System.Drawing.Size(148, 24)
         Me.btnSQLViewAuto.TabIndex = 81
@@ -2178,7 +2195,7 @@ Partial Class frmAdministration
         '
         Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True))
         Me.SQL_ACTIVECheckBox.Enabled = False
-        Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 141)
+        Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 156)
         Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox"
         Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(198, 24)
         Me.SQL_ACTIVECheckBox.TabIndex = 29
@@ -2189,7 +2206,7 @@ Partial Class frmAdministration
         '
         Me.GUIDAUTO_INDEXTextbox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True))
         Me.GUIDAUTO_INDEXTextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GUIDAUTO_INDEXTextbox.Location = New System.Drawing.Point(6, 64)
+        Me.GUIDAUTO_INDEXTextbox.Location = New System.Drawing.Point(7, 77)
         Me.GUIDAUTO_INDEXTextbox.Name = "GUIDAUTO_INDEXTextbox"
         Me.GUIDAUTO_INDEXTextbox.ReadOnly = True
         Me.GUIDAUTO_INDEXTextbox.Size = New System.Drawing.Size(53, 23)
@@ -2199,7 +2216,7 @@ Partial Class frmAdministration
         '
         Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True))
         Me.VALUETextBox.Enabled = False
-        Me.VALUETextBox.Location = New System.Drawing.Point(377, 63)
+        Me.VALUETextBox.Location = New System.Drawing.Point(377, 78)
         Me.VALUETextBox.Name = "VALUETextBox"
         Me.VALUETextBox.Size = New System.Drawing.Size(209, 23)
         Me.VALUETextBox.TabIndex = 11
@@ -2208,7 +2225,7 @@ Partial Class frmAdministration
         '
         Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True))
         Me.COMMENTTextBox1.Enabled = False
-        Me.COMMENTTextBox1.Location = New System.Drawing.Point(167, 111)
+        Me.COMMENTTextBox1.Location = New System.Drawing.Point(166, 127)
         Me.COMMENTTextBox1.Name = "COMMENTTextBox1"
         Me.COMMENTTextBox1.Size = New System.Drawing.Size(419, 23)
         Me.COMMENTTextBox1.TabIndex = 15
@@ -2216,9 +2233,9 @@ Partial Class frmAdministration
         'ACTIVECheckBox1
         '
         Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True))
-        Me.ACTIVECheckBox1.Location = New System.Drawing.Point(786, 63)
+        Me.ACTIVECheckBox1.Location = New System.Drawing.Point(629, 26)
         Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1"
-        Me.ACTIVECheckBox1.Size = New System.Drawing.Size(63, 24)
+        Me.ACTIVECheckBox1.Size = New System.Drawing.Size(59, 21)
         Me.ACTIVECheckBox1.TabIndex = 17
         Me.ACTIVECheckBox1.Text = "Aktiv"
         Me.ACTIVECheckBox1.UseVisualStyleBackColor = True
@@ -2279,7 +2296,7 @@ Partial Class frmAdministration
         Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton19
         Me.BindingNavigator2.Name = "BindingNavigator2"
         Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3
-        Me.BindingNavigator2.Size = New System.Drawing.Size(856, 25)
+        Me.BindingNavigator2.Size = New System.Drawing.Size(865, 25)
         Me.BindingNavigator2.TabIndex = 4
         Me.BindingNavigator2.Text = "BindingNavigator1"
         '
@@ -2382,7 +2399,7 @@ Partial Class frmAdministration
         '
         Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
         Me.INDEXNAME_AutoIndexTXT.Enabled = False
-        Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 64)
+        Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 78)
         Me.INDEXNAME_AutoIndexTXT.Name = "INDEXNAME_AutoIndexTXT"
         Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(198, 23)
         Me.INDEXNAME_AutoIndexTXT.TabIndex = 28
@@ -2394,7 +2411,7 @@ Partial Class frmAdministration
         Me.XtraTabPage9.Controls.Add(Me.Label8)
         Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung)
         Me.XtraTabPage9.Name = "XtraTabPage9"
-        Me.XtraTabPage9.Size = New System.Drawing.Size(856, 253)
+        Me.XtraTabPage9.Size = New System.Drawing.Size(865, 261)
         Me.XtraTabPage9.Text = "Zuordnung Dokumentenart-Gruppe"
         '
         'Button2
@@ -2427,7 +2444,6 @@ Partial Class frmAdministration
         '
         'lblnewDokartZuordnung
         '
-        Me.lblnewDokartZuordnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblnewDokartZuordnung.AutoSize = True
         Me.lblnewDokartZuordnung.BackColor = System.Drawing.Color.Yellow
         Me.lblnewDokartZuordnung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2507,7 +2523,7 @@ Partial Class frmAdministration
         '
         Me.XtraTabPage10.Controls.Add(Me.GroupBox4)
         Me.XtraTabPage10.Name = "XtraTabPage10"
-        Me.XtraTabPage10.Size = New System.Drawing.Size(856, 253)
+        Me.XtraTabPage10.Size = New System.Drawing.Size(865, 261)
         Me.XtraTabPage10.Text = "Create Folder for Index"
         '
         'GroupBox4
@@ -2734,7 +2750,7 @@ Partial Class frmAdministration
         Me.lblSaveDokart.AutoSize = True
         Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow
         Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSaveDokart.Location = New System.Drawing.Point(842, 231)
+        Me.lblSaveDokart.Location = New System.Drawing.Point(842, 234)
         Me.lblSaveDokart.Name = "lblSaveDokart"
         Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17)
         Me.lblSaveDokart.TabIndex = 78
@@ -2798,7 +2814,7 @@ Partial Class frmAdministration
         Me.TBDD_DOKUMENTARTBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.TBDD_DOKUMENTARTBindingNavigator.Name = "TBDD_DOKUMENTARTBindingNavigator"
         Me.TBDD_DOKUMENTARTBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        Me.TBDD_DOKUMENTARTBindingNavigator.Size = New System.Drawing.Size(1135, 25)
+        Me.TBDD_DOKUMENTARTBindingNavigator.Size = New System.Drawing.Size(1144, 25)
         Me.TBDD_DOKUMENTARTBindingNavigator.TabIndex = 2
         Me.TBDD_DOKUMENTARTBindingNavigator.Text = "BindingNavigator1"
         '
@@ -3059,12 +3075,11 @@ Partial Class frmAdministration
         Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1)
         Me.XtraTabPage2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(1135, 604)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1144, 612)
         Me.XtraTabPage2.Text = "User-/Gruppenverwaltung"
         '
         'lblsaveUSer
         '
-        Me.lblsaveUSer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblsaveUSer.AutoSize = True
         Me.lblsaveUSer.BackColor = System.Drawing.Color.Yellow
         Me.lblsaveUSer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -3132,7 +3147,6 @@ Partial Class frmAdministration
         '
         'lblnewUserZuordnung
         '
-        Me.lblnewUserZuordnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblnewUserZuordnung.AutoSize = True
         Me.lblnewUserZuordnung.BackColor = System.Drawing.Color.Yellow
         Me.lblnewUserZuordnung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -3238,7 +3252,6 @@ Partial Class frmAdministration
         '
         'lblsaveTBDD_USER_GROUPS
         '
-        Me.lblsaveTBDD_USER_GROUPS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblsaveTBDD_USER_GROUPS.AutoSize = True
         Me.lblsaveTBDD_USER_GROUPS.BackColor = System.Drawing.Color.Yellow
         Me.lblsaveTBDD_USER_GROUPS.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -3606,7 +3619,7 @@ Partial Class frmAdministration
         Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton11
         Me.BindingNavigator1.Name = "BindingNavigator1"
         Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox2
-        Me.BindingNavigator1.Size = New System.Drawing.Size(1135, 25)
+        Me.BindingNavigator1.Size = New System.Drawing.Size(1144, 25)
         Me.BindingNavigator1.TabIndex = 3
         Me.BindingNavigator1.Text = "BindingNavigator1"
         '
@@ -3736,7 +3749,7 @@ Partial Class frmAdministration
         Me.XtraTabPage5.Controls.Add(Me.Button3)
         Me.XtraTabPage5.Controls.Add(Me.GroupBox1)
         Me.XtraTabPage5.Name = "XtraTabPage5"
-        Me.XtraTabPage5.Size = New System.Drawing.Size(1135, 604)
+        Me.XtraTabPage5.Size = New System.Drawing.Size(1144, 612)
         Me.XtraTabPage5.Text = "Andere Einstellungen"
         '
         'Button4
@@ -3831,11 +3844,10 @@ Partial Class frmAdministration
         '
         'lblsavezuordnungIndex
         '
-        Me.lblsavezuordnungIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblsavezuordnungIndex.AutoSize = True
         Me.lblsavezuordnungIndex.BackColor = System.Drawing.Color.Yellow
         Me.lblsavezuordnungIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblsavezuordnungIndex.Location = New System.Drawing.Point(682, 105)
+        Me.lblsavezuordnungIndex.Location = New System.Drawing.Point(798, 172)
         Me.lblsavezuordnungIndex.Name = "lblsavezuordnungIndex"
         Me.lblsavezuordnungIndex.Size = New System.Drawing.Size(227, 17)
         Me.lblsavezuordnungIndex.TabIndex = 79
@@ -4095,7 +4107,7 @@ Partial Class frmAdministration
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1141, 654)
+        Me.ClientSize = New System.Drawing.Size(1150, 662)
         Me.Controls.Add(Me.XtraTabControl1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -4464,4 +4476,6 @@ Partial Class frmAdministration
     Friend WithEvents lblWindowParameter As System.Windows.Forms.Label
     Friend WithEvents lbFileparameter As System.Windows.Forms.ListBox
     Friend WithEvents VARIANTComboBox As System.Windows.Forms.ComboBox
+    Friend WithEvents btnAddWindowsVariable As System.Windows.Forms.Button
+    Friend WithEvents ToolStripButton41 As System.Windows.Forms.ToolStripButton
 End Class

Global_Indexer/frmAdministration.vb

@@ -154,6 +154,10 @@
 
     Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
         lblSaveDokart.Visible = False
+        If DOKART_GUIDTextBox.Text <> String.Empty Then
+            CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
+        End If
+
     End Sub
 
     Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
@@ -161,6 +165,7 @@
     End Sub
 
     Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
+        Save_Dokumentart()
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
         enableControls(XtraTabPage1)
         IsInsert = True
@@ -263,6 +268,7 @@
             If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
                 enableControls(XtraTabPage3)
             End If
+            lblSaveIndexMan.Visible = False
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
         End Try
@@ -287,6 +293,7 @@
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
                 enableControls(XtraTabPage6)
             End If
+            lblsavePostProcess.Visible = False
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
         End Try
@@ -306,6 +313,7 @@
     End Sub
     Private Sub TBDD_INDEX_MANBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MANBindingSource.AddingNew
         Try
+            Save_Dokumentart()
             IsInsert = True
             MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
@@ -539,6 +547,7 @@
 
     Private Sub TBDD_INDEX_AUTOMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_AUTOMBindingSource.AddingNew
         Try
+            Save_Dokumentart()
             MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
             enableControls(XtraTabPage4)
@@ -563,6 +572,7 @@
                 VALUETextBox.Text = ""
                 lblWindowParameter.Visible = False
                 lbFileparameter.Visible = False
+                Me.btnAddWindowsVariable.Visible = False
             Else
                 Me.lblValue.Visible = True
                 VALUETextBox.Visible = True
@@ -570,6 +580,7 @@
                 btnSQLViewAuto.Visible = False
                 lblWindowParameter.Visible = True
                 lbFileparameter.Visible = True
+                Me.btnAddWindowsVariable.Visible = True
             End If
             If IsInsert = False Then
                 Save_IndexAuto()
@@ -628,8 +639,10 @@
                 Case "VBREPLACE"
                     Me.Text1Label.Text = "Old Value:"
                     Me.TEXT1TextBox.Visible = True
+                    TEXT1TextBox.Width = 165
                     Me.Text2Label.Text = "New Value:"
                     Me.TEXT2TextBox.Visible = True
+                    Me.TEXT2TextBox.Width = 191
                     Me.Text3Label.Visible = False
                     Me.TEXT3TextBox.Visible = False
                     Me.FUNCTION1TextBox.Visible = False
@@ -650,9 +663,10 @@
 
                     Me.TEXT1Label.Text = "Split-Zeichen:"
                     Me.TEXT1TextBox.Visible = True
-                    Me.Text2Label.Text = "Wähle Vorkommen: (Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'"
+                    TEXT1TextBox.Width = 50
+                    Me.Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
                     Me.TEXT2TextBox.Visible = True
-
+                    Me.TEXT2TextBox.Width = 50
                     Me.TEXT3TextBox.Visible = False
                     Me.Text3Label.Visible = False
 
@@ -663,6 +677,7 @@
                 Case "REG. EXPRESSION"
                     Me.Text1Label.Text = "Regulärer Ausdruck:"
                     Me.TEXT1TextBox.Visible = True
+                    TEXT1TextBox.Width = 537
                     Me.Text2Label.Visible = False
                     Me.TEXT2TextBox.Visible = False
                     Me.Text3Label.Visible = False
@@ -701,7 +716,7 @@
     End Sub
 
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
-
+        Save_Dokumentart()
         enableControls(XtraTabPage6)
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
@@ -946,8 +961,7 @@
             Try
                 Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
                 If ClassDatabase.Execute_non_Query(copy, True) Then
-                    MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die manuelle Nachbearbeitung wurde nicht kopiert." _
+                    MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
-                           & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
                     Dim str = "Global-Indexer Dokarten"
                     If ToolStripComboBox1.Text <> "" Then
                         str = ToolStripComboBox1.Text
@@ -968,8 +982,12 @@
     Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
         Save_Dokumentart()
     End Sub
+    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
+        MyDataset.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        enableControls(XtraTabPage2)
+    End Sub
 
-    Private Sub lblFileparameter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFileparameter.SelectedIndexChanged
+    Private Sub btnAddWindowsVariable_Click(sender As Object, e As EventArgs) Handles btnAddWindowsVariable.Click
         If Not lbFileparameter.SelectedItem Is Nothing Then
             If GUIDAUTO_INDEXTextbox.Text <> "" Then
                 Dim value As String
@@ -995,7 +1013,11 @@
         End If
     End Sub
 
-    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
+    Private Sub VARIANTComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles VARIANTComboBox.SelectedIndexChanged
-        enableControls(XtraTabPage2)
+
+    End Sub
+
+    Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
+        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
     End Sub
 End Class

Global_Indexer/frmConfig_Basic.designer.vb

@@ -22,6 +22,7 @@ Partial Class frmConfig_Basic
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -38,13 +39,18 @@ Partial Class frmConfig_Basic
         Me.txtPasswort = New System.Windows.Forms.TextBox()
         Me.BtnConnect = New System.Windows.Forms.Button()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.btnApplicationFolder = New System.Windows.Forms.Button()
         Me.btnopenlog = New System.Windows.Forms.Button()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.txtuniversalViewer = New System.Windows.Forms.TextBox()
         Me.lblUniversalViewer = New System.Windows.Forms.Label()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -56,12 +62,11 @@ Partial Class frmConfig_Basic
         Me.btnstartstop2 = New System.Windows.Forms.Button()
         Me.btnstartstop1 = New System.Windows.Forms.Button()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.TabPage2.SuspendLayout()
         Me.TabPage3.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'TabControl1
@@ -73,7 +78,7 @@ Partial Class frmConfig_Basic
         Me.TabControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(695, 261)
+        Me.TabControl1.Size = New System.Drawing.Size(695, 358)
         Me.TabControl1.TabIndex = 0
         '
         'TabPage1
@@ -93,7 +98,7 @@ Partial Class frmConfig_Basic
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(687, 235)
+        Me.TabPage1.Size = New System.Drawing.Size(687, 332)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Datenbank-Verbindung"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -215,18 +220,43 @@ Partial Class frmConfig_Basic
         Me.TabPage2.Controls.Add(Me.CheckBox2)
         Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
         Me.TabPage2.Controls.Add(Me.btnopenlog)
-        Me.TabPage2.Controls.Add(Me.CheckBox1)
+        Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
         Me.TabPage2.Controls.Add(Me.Button1)
         Me.TabPage2.Controls.Add(Me.txtuniversalViewer)
         Me.TabPage2.Controls.Add(Me.lblUniversalViewer)
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(687, 235)
+        Me.TabPage2.Size = New System.Drawing.Size(687, 332)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Diverse Einstellungen"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
+        Me.CheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.CheckBox3.Location = New System.Drawing.Point(11, 56)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(249, 17)
+        Me.CheckBox3.TabIndex = 7
+        Me.CheckBox3.Text = "Dokumente bei Indexierung nicht anzeigen"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
+        Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.CheckBox2.Location = New System.Drawing.Point(241, 96)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(231, 17)
+        Me.CheckBox2.TabIndex = 6
+        Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
         'btnApplicationFolder
         '
         Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
@@ -251,15 +281,15 @@ Partial Class frmConfig_Basic
         Me.btnopenlog.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnopenlog.UseVisualStyleBackColor = True
         '
-        'CheckBox1
+        'chkLogErrorsOnly
         '
-        Me.CheckBox1.AutoSize = True
+        Me.chkLogErrorsOnly.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(11, 96)
+        Me.chkLogErrorsOnly.Location = New System.Drawing.Point(11, 96)
-        Me.CheckBox1.Name = "CheckBox1"
+        Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
-        Me.CheckBox1.Size = New System.Drawing.Size(99, 17)
+        Me.chkLogErrorsOnly.Size = New System.Drawing.Size(99, 17)
-        Me.CheckBox1.TabIndex = 3
+        Me.chkLogErrorsOnly.TabIndex = 3
-        Me.CheckBox1.Text = "LogErrorsOnly"
+        Me.chkLogErrorsOnly.Text = "LogErrorsOnly"
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
         '
         'Button1
         '
@@ -288,6 +318,9 @@ Partial Class frmConfig_Basic
         '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.Label8)
+        Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
+        Me.TabPage3.Controls.Add(Me.DataGridView1)
         Me.TabPage3.Controls.Add(Me.Button2)
         Me.TabPage3.Controls.Add(Me.txtScanFolderWatch)
         Me.TabPage3.Controls.Add(Me.Label7)
@@ -301,11 +334,45 @@ Partial Class frmConfig_Basic
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(687, 235)
+        Me.TabPage3.Size = New System.Drawing.Size(687, 332)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Überwachte Ordner - Folderwatch"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(8, 197)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(611, 13)
+        Me.Label8.TabIndex = 13
+        Me.Label8.Text = "Definieren Sie hier Inhalte von Dateinamen welche von der Folderwatch-Überwachung" & _
+    " ausgenommen werden sollen:"
+        '
+        'btnSaveExclusionFiles
+        '
+        Me.btnSaveExclusionFiles.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
+        Me.btnSaveExclusionFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSaveExclusionFiles.Location = New System.Drawing.Point(209, 213)
+        Me.btnSaveExclusionFiles.Name = "btnSaveExclusionFiles"
+        Me.btnSaveExclusionFiles.Size = New System.Drawing.Size(94, 29)
+        Me.btnSaveExclusionFiles.TabIndex = 12
+        Me.btnSaveExclusionFiles.Text = "Speichern"
+        Me.btnSaveExclusionFiles.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSaveExclusionFiles.UseVisualStyleBackColor = True
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(11, 213)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.Size = New System.Drawing.Size(192, 113)
+        Me.DataGridView1.TabIndex = 11
+        '
         'Button2
         '
         Me.Button2.Location = New System.Drawing.Point(616, 142)
@@ -406,36 +473,11 @@ Partial Class frmConfig_Basic
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
         '
-        'CheckBox3
-        '
-        Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
-        Me.CheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.CheckBox3.Location = New System.Drawing.Point(11, 56)
-        Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(249, 17)
-        Me.CheckBox3.TabIndex = 7
-        Me.CheckBox3.Text = "Dokumente bei Indexierung nicht anzeigen"
-        Me.CheckBox3.UseVisualStyleBackColor = True
-        '
-        'CheckBox2
-        '
-        Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
-        Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.CheckBox2.Location = New System.Drawing.Point(241, 96)
-        Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(231, 17)
-        Me.CheckBox2.TabIndex = 6
-        Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
-        Me.CheckBox2.UseVisualStyleBackColor = True
-        '
         'frmConfig_Basic
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(695, 261)
+        Me.ClientSize = New System.Drawing.Size(695, 358)
         Me.Controls.Add(Me.TabControl1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -451,6 +493,7 @@ Partial Class frmConfig_Basic
         Me.TabPage2.PerformLayout()
         Me.TabPage3.ResumeLayout(False)
         Me.TabPage3.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -480,7 +523,7 @@ Partial Class frmConfig_Basic
     Friend WithEvents btnFW_Desktop As System.Windows.Forms.Button
     Friend WithEvents btnstartstop1 As System.Windows.Forms.Button
     Friend WithEvents btnsetFW_Folder As System.Windows.Forms.Button
-    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
+    Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox
     Friend WithEvents btnopenlog As System.Windows.Forms.Button
     Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
     Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
@@ -489,4 +532,7 @@ Partial Class frmConfig_Basic
     Friend WithEvents Label7 As System.Windows.Forms.Label
     Friend WithEvents btnstartstop2 As System.Windows.Forms.Button
     Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button
+    Friend WithEvents Label8 As System.Windows.Forms.Label
 End Class

Global_Indexer/frmConfig_Basic.vb

@@ -82,21 +82,7 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If Not MyConnectionString = String.Empty Then
-            Dim csb As New SqlClient.SqlConnectionStringBuilder
-            csb.ConnectionString = MyConnectionString
       
-            Dim constr = MyConnectionString
-            constr = constr.Replace(csb.Password, "XXXXX")
-            Me.txtActualConnection.Text = constr
-            Me.txtuniversalViewer.Text = UniversalViewer
-
-            'Me.txtActualConnection.Text = MyConnectionString
-            CheckBox1.Checked = LogErrorsOnly
-        End If
-        If UniversalViewer = String.Empty Then
-            Me.TabControl1.SelectedIndex = 1
-        End If
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -116,10 +102,11 @@ Public Class frmConfig_Basic
     Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
 
     End Sub
-
+    Dim reload As Boolean = False
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 2
+                reload = True
                 Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
                 If Not folderwatch Is Nothing Then
                     CURRENT_FOLDERWATCH = folderwatch
@@ -157,7 +144,8 @@ Public Class frmConfig_Basic
                     btnstartstop2.Text = "Überwachung starten"
                     btnstartstop2.Image = My.Resources.bell_go
                 End If
-              
+                reload = False
+                Me.DataGridView1.DataSource = DTEXCLUDE_FILES
         End Select
     End Sub
 
@@ -167,9 +155,17 @@ Public Class frmConfig_Basic
     End Sub
     Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
         Try
-            If (Not System.IO.Directory.Exists(mypath)) Then
+            Try
-                System.IO.Directory.CreateDirectory(mypath)
+                If (Not System.IO.Directory.Exists(mypath)) Then
-            End If
+                    System.IO.Directory.CreateDirectory(mypath)
+                End If
+            Catch ex As Exception
+                ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
+                ClassLogger.Add(" >> " & ex.Message, False)
+                MsgBox("Fehler beim Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                Exit Sub
+            End Try
+          
             Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
             Dim sql As String
             If folderwatch Is Nothing Then
@@ -183,16 +179,17 @@ Public Class frmConfig_Basic
                 If FOLDER_TYPE = "SCAN" Then
                     CURRENT_SCAN_FOLDERWATCH = folderwatch
                     Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
-
                 Else
                     CURRENT_FOLDERWATCH = folderwatch
                     Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
                 End If
-
             End If
             If FW_started = True And FOLDER_TYPE = "DEFAULT" Then
                 ClassFolderWatcher.Restart_FolderWatch()
             End If
+            If FWSCAN_started = True And FOLDER_TYPE = "SCAN" Then
+                ClassFolderWatcher.Restart_FolderWatchSCAN()
+            End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:")
         End Try
@@ -239,16 +236,33 @@ Public Class frmConfig_Basic
         End If
     End Sub
 
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
         If formloaded = True Then
-            SaveConfigValue("LogErrorsOnly", CheckBox1.Checked)
+            SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
-            ClassLogger.Add(" >> LogErrorsOnly auf '" & CheckBox1.Checked & "' umgestellt", False)
+            ClassLogger.Add(" >> LogErrorsOnly auf '" & chkLogErrorsOnly.Checked & "' umgestellt", False)
-            LogErrorsOnly = CheckBox1.Checked
+            LogErrorsOnly = chkLogErrorsOnly.Checked
         End If
     End Sub
 
     Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If Not MyConnectionString = String.Empty Then
+            Dim csb As New SqlClient.SqlConnectionStringBuilder
+            csb.ConnectionString = MyConnectionString
+
+            Dim constr = MyConnectionString
+            constr = constr.Replace(csb.Password, "XXXXX")
+            Me.txtActualConnection.Text = constr
+        End If
+        Me.txtuniversalViewer.Text = UniversalViewer
+        chkLogErrorsOnly.Checked = LogErrorsOnly
+
+        If ERROR_STATE = "FAILED CONNECTION" Then
+            Me.TabControl1.SelectedIndex = 0
+        ElseIf ERROR_STATE = "NO UV" Then
+            Me.TabControl1.SelectedIndex = 1
+        End If
         formloaded = True
+
     End Sub
     Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click
         Process.Start(ClassLogger.DateiSpeicherort)
@@ -269,7 +283,7 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
-        If CURRENT_FOLDERWATCH <> "" Then
+        If CURRENT_SCAN_FOLDERWATCH <> "" Then
             CheckFWSCAN_State()
         End If
     End Sub
@@ -277,4 +291,20 @@ Public Class frmConfig_Basic
     Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
         My.Settings.Save()
     End Sub
+
+    Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
+        If reload = True Then Exit Sub
+        CheckFolder(txtScanFolderWatch.Text, "SCAN")
+    End Sub
+
+    Private Sub txtFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtFolderWatch.TextChanged
+        If reload = True Then Exit Sub
+        CheckFolder(txtFolderWatch.Text, "DEFAULT")
+    End Sub
+
+    Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
+        DTEXCLUDE_FILES.AcceptChanges()
+        DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions)
+        MsgBox("Änderungen gespeichert!", MsgBoxStyle.Information)
+    End Sub
 End Class

Global_Indexer/frmConnections.Designer.vb

@@ -127,7 +127,7 @@ Partial Class frmConnections
         'ERSTELLTWERLabel
         '
         ERSTELLTWERLabel.AutoSize = True
-        ERSTELLTWERLabel.Location = New System.Drawing.Point(186, 227)
+        ERSTELLTWERLabel.Location = New System.Drawing.Point(185, 251)
         ERSTELLTWERLabel.Name = "ERSTELLTWERLabel"
         ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 13)
         ERSTELLTWERLabel.TabIndex = 19
@@ -136,7 +136,7 @@ Partial Class frmConnections
         'ERSTELLTWANNLabel
         '
         ERSTELLTWANNLabel.AutoSize = True
-        ERSTELLTWANNLabel.Location = New System.Drawing.Point(185, 268)
+        ERSTELLTWANNLabel.Location = New System.Drawing.Point(333, 251)
         ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel"
         ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 13)
         ERSTELLTWANNLabel.TabIndex = 21
@@ -145,7 +145,7 @@ Partial Class frmConnections
         'GEANDERTWERLabel
         '
         GEANDERTWERLabel.AutoSize = True
-        GEANDERTWERLabel.Location = New System.Drawing.Point(337, 227)
+        GEANDERTWERLabel.Location = New System.Drawing.Point(484, 251)
         GEANDERTWERLabel.Name = "GEANDERTWERLabel"
         GEANDERTWERLabel.Size = New System.Drawing.Size(80, 13)
         GEANDERTWERLabel.TabIndex = 23
@@ -154,7 +154,7 @@ Partial Class frmConnections
         'GEAENDERTWANNLabel
         '
         GEAENDERTWANNLabel.AutoSize = True
-        GEAENDERTWANNLabel.Location = New System.Drawing.Point(337, 268)
+        GEAENDERTWANNLabel.Location = New System.Drawing.Point(624, 251)
         GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel"
         GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 13)
         GEAENDERTWANNLabel.TabIndex = 25
@@ -188,6 +188,11 @@ Partial Class frmConnections
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = 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_CONNECTIONBindingNavigator
@@ -380,7 +385,7 @@ Partial Class frmConnections
         'ERSTELLTWERTextBox
         '
         Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWER", True))
-        Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(189, 243)
+        Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(188, 267)
         Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
         Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(144, 22)
         Me.ERSTELLTWERTextBox.TabIndex = 20
@@ -388,7 +393,7 @@ Partial Class frmConnections
         'ERSTELLTWANNTextBox
         '
         Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWANN", True))
-        Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(189, 284)
+        Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(337, 267)
         Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox"
         Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(144, 22)
         Me.ERSTELLTWANNTextBox.TabIndex = 22
@@ -396,7 +401,7 @@ Partial Class frmConnections
         'GEANDERTWERTextBox
         '
         Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
-        Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(340, 243)
+        Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(487, 267)
         Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
         Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(134, 22)
         Me.GEANDERTWERTextBox.TabIndex = 24
@@ -404,7 +409,7 @@ Partial Class frmConnections
         'GEAENDERTWANNTextBox
         '
         Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
-        Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(340, 284)
+        Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(627, 267)
         Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
         Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(134, 22)
         Me.GEAENDERTWANNTextBox.TabIndex = 26
@@ -426,7 +431,7 @@ Partial Class frmConnections
         Me.ListBox1.FormattingEnabled = True
         Me.ListBox1.Location = New System.Drawing.Point(0, 22)
         Me.ListBox1.Name = "ListBox1"
-        Me.ListBox1.Size = New System.Drawing.Size(161, 290)
+        Me.ListBox1.Size = New System.Drawing.Size(161, 264)
         Me.ListBox1.TabIndex = 28
         Me.ListBox1.ValueMember = "GUID"
         '
@@ -527,11 +532,10 @@ Partial Class frmConnections
         '
         'lblSave
         '
-        Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSave.AutoSize = True
         Me.lblSave.BackColor = System.Drawing.Color.Yellow
         Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(557, 41)
+        Me.lblSave.Location = New System.Drawing.Point(484, 229)
         Me.lblSave.Name = "lblSave"
         Me.lblSave.Size = New System.Drawing.Size(228, 17)
         Me.lblSave.TabIndex = 79
@@ -542,7 +546,7 @@ Partial Class frmConnections
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(827, 326)
+        Me.ClientSize = New System.Drawing.Size(827, 300)
         Me.Controls.Add(Me.lblSave)
         Me.Controls.Add(Me.chkOR_ohne_TNS)
         Me.Controls.Add(Me.btnCheck_Con)

Global_Indexer/frmIndex.vb

@@ -344,16 +344,16 @@ Public Class frmIndex
             For Each DR In DT.Rows
                 If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then
                     If DR.Item("Indexiert") = True Then
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index: " & indexname, False)
                         Select Case RequestFor
                             Case "FILE"
                                 If DR.Item("Indexwert_File").ToString <> String.Empty Then
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString, False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >>Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString, False)
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False)
                                     Return DR.Item("Indexwert_File")
                                 Else
                                     If DR.Item("Indexwert").ToString <> String.Empty Then
-                                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
+                                        If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
                                         Console.WriteLine("Rückgabe manueller wert: " & DR.Item("Indexwert"))
                                         Return DR.Item("Indexwert")
                                     Else
@@ -367,7 +367,7 @@ Public Class frmIndex
                                 End If
                             Case Else
                                 If DR.Item("Indexwert").ToString <> String.Empty Then
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
                                     Return DR.Item("Indexwert")
                                 Else
                                     Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
@@ -433,7 +433,7 @@ Public Class frmIndex
                 End If
 
                 If LogErrorsOnly = False Then
-                    ClassLogger.Add(" ...SQL-ConnectionString: " & connectionString.Substring(0, connectionString.LastIndexOf("=")), False)
+                    ClassLogger.Add(" >>SQL-ConnectionString: " & connectionString.Substring(0, connectionString.LastIndexOf("=")), False)
                 End If
 
                 If ergebnis Is Nothing Then
@@ -489,7 +489,7 @@ Public Class frmIndex
                     End If
                 Else
                     runinLZ = True
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
                 End If
 
 
@@ -673,7 +673,7 @@ Public Class frmIndex
     Function CheckWrite_IndexeMan(dokartid As Integer)
         '#### Zuerst manuelle Werte indexieren ####
         Try
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...In CheckWrite_IndexeMan", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >>In CheckWrite_IndexeMan", False)
             Dim result As Boolean = False
             For Each ctrl As Control In Me.pnlIndex.Controls
                 '            ' MsgBox(ctrl.Name)
@@ -859,7 +859,7 @@ Public Class frmIndex
                 Select Case element.Value.Substring(2, 1).ToUpper
                     'Manueller Indexwert
                     Case "M"
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index wird geprüft...", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False)
                         Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
                         Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE")
                         If value <> String.Empty Then
@@ -1012,7 +1012,7 @@ Public Class frmIndex
 
 
 
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexvalue: " & idxvalue.ToString, False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False)
                         Count += 1
                         indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
                         If indexierung_erfolgreich = False Then
@@ -1032,8 +1032,8 @@ Public Class frmIndex
                     If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then
                         Dim indexname = row.Item("INDEXNAME").ToString
                         Dim idxvalue = row.Item("Indexwert")
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Auto Indexvalue: " & idxvalue.ToString, False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Auto Indexvalue: " & idxvalue.ToString, False)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexvalue: " & idxvalue.ToString, False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
                         Count += 1
                         indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
                         If indexierung_erfolgreich = False Then
@@ -1068,7 +1068,7 @@ Public Class frmIndex
     End Function
     Private Function WriteIndex2File(indexname As String, indexvalue As String)
         Try
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexvalue: " & indexvalue.ToString, False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & indexvalue.ToString, False)
             Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue)
         Catch ex As Exception
             MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -1095,6 +1095,8 @@ Public Class frmIndex
 
             Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
             If DT.Rows.Count = 1 Then
+                CURRENT_MESSAGEDATE = ""
+                CURRENT_MESSAGESUBJECT = ""
                 'Message-ID nur auswerten wenn vorher nicht gestzt wurde!
                 If CURRENT_MESSAGEID = "" Then
                     If Not msg.InternetMessageId Is Nothing Then
@@ -1143,8 +1145,8 @@ Public Class frmIndex
                     End If
 
 
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...emailFrom: " & emailFrom, False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...emailTo: " & emailTo, False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False)
                     'FROM
                     If Not IsNothing(emailFrom) Then
                         indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, emailFrom)
@@ -1163,13 +1165,14 @@ Public Class frmIndex
                     End If
 
                     ' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...subj: " & msg.Subject, False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & msg.Subject, False)
                     indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject)
+                    CURRENT_MESSAGESUBJECT = msg.Subject
                     If indexierung_erfolgreich = False Then
                         MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical)
                         Return False
                     End If
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...MessageDeliveryTime: " & msg.MessageDeliveryTime, False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> MessageDeliveryTime: " & msg.MessageDeliveryTime, False)
                     indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, msg.MessageDeliveryTime)
                     CURRENT_MESSAGEDATE = msg.MessageDeliveryTime
                     If indexierung_erfolgreich = False Then
@@ -1195,40 +1198,36 @@ Public Class frmIndex
         Try
             Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
             If DT.Rows.Count = 1 Then
+
                 If Not CURRENT_MESSAGEID Is Nothing Then
                     If CURRENT_MESSAGEID <> "" Then
                         indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, CURRENT_MESSAGEID)
                         If indexierung_erfolgreich = False Then
-                            MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
+                            MsgBox("Error in SetAttachmentIndices MESSAGE-ID - See log", MsgBoxStyle.Critical)
                             Return False
                         End If
                     End If
                 End If
-                'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, msg.SenderEmailAddress)
+                'Das Subject speichern
-                'If indexierung_erfolgreich = False Then
+                If CURRENT_MESSAGESUBJECT <> "" Then
-                '    MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
+                    indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, CURRENT_MESSAGESUBJECT)
-                '    Return False
-                'End If
-                'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_TO").ToString, msg.ReceivedByEmailAddress)
-                'If indexierung_erfolgreich = False Then
-                '    MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
-                '    Return False
-                'End If
-                'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject)
-                'If indexierung_erfolgreich = False Then
-                '    MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
-                '    Return False
-                'End If
-                If CURRENT_MESSAGEDATE <> "" Then
-                    indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, CURRENT_MESSAGEDATE)
                     If indexierung_erfolgreich = False Then
-                        MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
+                        MsgBox("Error in SetAttachmentIndices SUBJECT - See log", MsgBoxStyle.Critical)
                         Return False
                     End If
                 End If
+                'Das MesageDate speichern
+                If CURRENT_MESSAGEDATE <> "" Then
+                    indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, CURRENT_MESSAGEDATE)
+                    If indexierung_erfolgreich = False Then
+                        MsgBox("Error in SetAttachmentIndices DATE - See log", MsgBoxStyle.Critical)
+                        Return False
+                    End If
+                End If
+                'Kennzeichnen das es ein Anhang war!
                 indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_CHECK_ATTACHMENT").ToString, True)
                 If indexierung_erfolgreich = False Then
-                    MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
+                    MsgBox("Error in SetAttachmentIndices ATTACHMENT Y/N - See log", MsgBoxStyle.Critical)
                     Return False
                 End If
                 Return indexierung_erfolgreich
@@ -1318,9 +1317,10 @@ Public Class frmIndex
 
     End Sub
     Sub CloseUniversalViewer()
-        If Not CURRENT_WORKFILE.EndsWith("msg") Then
+        Dim workfile = CURRENT_WORKFILE.ToLower
+        If Not workfile.EndsWith("msg") Then
             CURRENT_HTML_DOC = ""
-            If CURRENT_WORKFILE.EndsWith("pdf") Then
+            If workfile.EndsWith("pdf") Then
                 Me.PdfViewer1.DocumentFilePath = ""
                 My.Settings.SplitterDistance_Viewer = SplitContainer1.SplitterDistance
             Else
@@ -1332,6 +1332,14 @@ Public Class frmIndex
 
         Else
             My.Settings.SplitterDistance_Viewer = SplitContainer1.SplitterDistance
+            Try
+                If File.Exists(CURRENT_HTML_DOC) Then
+                    File.Delete(CURRENT_HTML_DOC)
+                End If
+            Catch ex As Exception
+                ClassLogger.Add(" - Fehler bei Delete HTML-Doc - Fehler: " & vbNewLine & ex.Message)
+            End Try
+          
         End If
         My.Settings.Save()
 
@@ -1353,10 +1361,10 @@ Public Class frmIndex
             ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Then
                 Select Case DropType
                     Case "@FW_MSGONLY@"
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file from folderwatch", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False)
                         Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
                     Case "@OUTLOOK_MESSAGE@"
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file through dragdrop", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file through dragdrop", False)
                         Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
                 End Select
 
@@ -1553,7 +1561,7 @@ Public Class frmIndex
                 ' MsgBox(DT.Rows.Count.ToString)
                 For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows
                     Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & indexname & "'", False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False)
                     If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
                         ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
                         Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -1566,26 +1574,26 @@ Public Class frmIndex
                         ' alle Vorkommen der Indexe im SQL-String durchlaufen
                         For Each element As System.Text.RegularExpressions.Match In elemente
                             ' MsgBox(element.Value.ToUpper)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Element: '" & element.Value & "'", False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False)
                             '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
                             'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
                             'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
                             Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
                             'den Platzhalter im SQL-String durch den Wert ersetzen
                             Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
                             If manIndexwert <> "" Then
                                 SqlString = SqlString.Replace(element.Value, manIndexwert)
-                                If LogErrorsOnly = False Then ClassLogger.Add(" ...zusammengesetzter SQL-String: " & SqlString, False)
+                                If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False)
                             Else
                                 ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
                                 Return False
                             End If
                         Next
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ausführen SQL....", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
                         Dim automatischerValue As String = ""
                         automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis SQL: '" & automatischerValue & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis SQL: '" & automatischerValue & "'", False)
                         If automatischerValue <> String.Empty Then
                             DR_AUTOINDEX.Item("Indexiert") = True
                             DR_AUTOINDEX.Item("Indexwert") = automatischerValue
@@ -1600,7 +1608,7 @@ Public Class frmIndex
                                 Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
                                 'Indexierung mit WindowsVariable
                                 If DEFAULTVALUE.StartsWith("$") Then
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
                                     Select Case DEFAULTVALUE.ToUpper
                                         Case "$filename_ext".ToUpper
                                             DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
@@ -1619,9 +1627,9 @@ Public Class frmIndex
                                         Case "$DateDDMMYYY".ToUpper
                                             DEFAULTVALUE = System.DateTime.Now.ToShortDateString
                                     End Select
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
                                 Else
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
                                 End If
                                 'Den Wert in der Zwischentabelle speichern
                                 DR_AUTOINDEX.Item("Indexiert") = True
@@ -1653,9 +1661,10 @@ Public Class frmIndex
             Me.grpBetreff.Visible = False
             Me.pnlPDF.Visible = False
             CURRENT_HTML_DOC = ""
-            If Not CURRENT_WORKFILE.EndsWith("msg") Then
+            Dim workfile As String = CURRENT_WORKFILE.ToLower
+            If Not workfile.EndsWith("msg") Then
                 CURRENT_HTML_DOC = ""
-                If CURRENT_WORKFILE.EndsWith("pdf") Then
+                If workfile.EndsWith("pdf") Then
                     Me.SplitContainer1.Panel2Collapsed = False
                     PdfViewer1.LoadDocument(CURRENT_WORKFILE)
                     pnlPDF.Dock = DockStyle.Fill
@@ -1695,35 +1704,41 @@ Public Class frmIndex
                 End If
 
             Else
-                Me.grpBetreff.Dock = DockStyle.Top
-                Me.grpbxMailBody.Dock = DockStyle.Fill
-                Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
-                'Eine tempfile generieren
                 Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
-                Dim name = Path.GetFileNameWithoutExtension(tempFilename)
+                Try
-                tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html")
+                    Me.grpBetreff.Dock = DockStyle.Top
-                'tempfile löschen
+                    Me.grpbxMailBody.Dock = DockStyle.Fill
-                If My.Computer.FileSystem.FileExists(tempFilename) Then
+                    Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
-                    My.Computer.FileSystem.DeleteFile(tempFilename)
+                    'Eine tempfile generieren
-                End If
+                    Dim name = Path.GetFileNameWithoutExtension(tempFilename)
+                    tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html")
+                    If LogErrorsOnly = False Then ClassLogger.Add(" ...tempFilename: " & tempFilename, False)
+                    'tempfile löschen
+                    If My.Computer.FileSystem.FileExists(tempFilename) Then
+                        My.Computer.FileSystem.DeleteFile(tempFilename)
+                    End If
 
-                Me.txtBetreff.Text = msg_email.Subject
+                    Me.txtBetreff.Text = msg_email.Subject
-                'Try
+                    'Try
-                Dim wFile As System.IO.FileStream
+                    Dim wFile As System.IO.FileStream
-                Dim byteData() As Byte
+                    Dim byteData() As Byte
-                byteData = msg_email.BodyHtml
+                    byteData = msg_email.BodyHtml
+                    If LogErrorsOnly = False Then ClassLogger.Add(" ...byteData HTML finished", False)
+                    ' MsgBox(msg_email.InternetCodePage)
+                    '    wFile = New FileStream(tempFilename, FileMode.Append)
+                    '    wFile.Write(byteData, 0, byteData.Length)
+                    '    wFile.Close()
+                    'Catch ex As IOException
+                    '    MsgBox(ex.ToString)
+                    'End Try
 
-                ' MsgBox(msg_email.InternetCodePage)
+                    Dim vIn() As Byte = msg_email.BodyHtml
-                '    wFile = New FileStream(tempFilename, FileMode.Append)
+                    Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn)
-                '    wFile.Write(byteData, 0, byteData.Length)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" ...byteData finished. Now write to file", False)
-                '    wFile.Close()
+                    File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8)
-                'Catch ex As IOException
+                Catch ex As Exception
-                '    MsgBox(ex.ToString)
+                    MsgBox("Unerwarteter Fehler bei getHTML from Email: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                'End Try
+                End Try
-
-                Dim vIn() As Byte = msg_email.BodyHtml
-                Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn)
-                File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8)
 
                 CURRENT_HTML_DOC = tempFilename
                 Me.tslblWebbrowser.Text = CURRENT_HTML_DOC
@@ -1773,20 +1788,24 @@ Public Class frmIndex
     Private Function WORK_FILE()
         Try
             Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID)
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Manuelle Indexe geladen", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Manuelle Indexe geladen", False)
 
             If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
                 CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue
                 If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then
                     '##### Manuelle Indexe indexiert #####
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False)
                     If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then
+                        If LogErrorsOnly = False Then ClassLogger.Add(" ...FillIndexe_Autom durchlaufen", False)
                         'Den Zielnamen zusammenbauen
                         If Name_Generieren() = True Then
-
+                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False)
+                            'Dokumentenviewer ausblenden
+                            CloseUniversalViewer()
+                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False)
                             'Die Datei verschieben
                             If Move_File2_Target() = True Then
-                                CloseUniversalViewer()
+                                If LogErrorsOnly = False Then ClassLogger.Add(" ...Move_File2_Target durchlaufen", False)
                                 'Die Originaldatei löschen
                                 If DropType = "@DROPFROMFSYSTEM@" Then
                                     If chkdelete_origin.Checked = True Then
@@ -1892,7 +1911,7 @@ Public Class frmIndex
                     exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
                 End If
                 If exp2WD = True Then
-                    'Prüfen ob Sessiond a ist - wenn nicht nochmal neu initiieren
+                    'Prüfen ob Session da ist - wenn nicht nochmal neu initiieren
                     If ClassWindream.oSession Is Nothing Then
                         ClassWindream.Init()
                     End If
@@ -1998,24 +2017,24 @@ Public Class frmIndex
             '####
             ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
             For Each element As System.Text.RegularExpressions.Match In elemente
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...Elementname in FolderString: '" & element.ToString & "'", False)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
                 Select Case element.Value.Substring(2, 1).ToUpper
                     'Manueller Indexwert
                     Case "M"
                         Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False)
                         Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE")
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False)
                         If Not ManIndex_Value = String.Empty Then
                             If IsDate(ManIndex_Value) Then
                                 ManIndex_Value = CDate(ManIndex_Value).ToString("yyyyMMdd")
                             End If
                             folderindex = folderindex.Replace(element.ToString, ManIndex_Value)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPattern: '" & folderindex & "'", False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False)
                         Else
                             Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True)
                             If optional_index = True Then
-                                If LogErrorsOnly = False Then ClassLogger.Add(" ...Optionaler Indexwert ist NICHT gefüllt", False)
+                                If LogErrorsOnly = False Then ClassLogger.Add(" >> Optionaler Indexwert ist NICHT gefüllt", False)
                             Else
                                 ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True)
                                 Return True
@@ -2023,12 +2042,12 @@ Public Class frmIndex
                         End If
                     Case "A"
                         Dim AutoIndexname = element.Value.Substring(3, element.Value.Length - 4)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Auto-Indexwert aus '" & AutoIndexname & "' auszulesen.", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Auto-Indexwert aus '" & AutoIndexname & "' auszulesen.", False)
                         Dim AutoIndex_Value As String = GetAutoIndex_Value(AutoIndexname)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False)
                         If Not AutoIndex_Value = String.Empty Then
                             folderindex = folderindex.Replace(element.ToString, AutoIndex_Value)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPattern: '" & folderindex & "'", False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False)
                         Else
                             ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True)
                         End If
@@ -2054,7 +2073,7 @@ Public Class frmIndex
                                 folder_temp = My.Computer.Clock.LocalTime.Year & "-" & _Month
                         End Select
                         folderindex = folderindex.Replace(element.ToString, folder_temp)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPatter nach V-Element: '" & folderindex & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPatter nach V-Element: '" & folderindex & "'", False)
                     Case Else
                         ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper)
                         MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:")
@@ -2137,10 +2156,10 @@ Public Class frmIndex
             'Next
 
 
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Den Root-Folder zusammenfügen...", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Den Root-Folder zusammenfügen>> ", False)
             Dim fullpath As String = RootFolder & "\" & folderindex & "\"
             fullpath.Replace("\\", "\")
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Fullpath (mit evtl. Sonderzeichen (SZ)) '" & fullpath & "'", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Fullpath (mit evtl. Sonderzeichen (SZ)) '" & fullpath & "'", False)
             Dim invalidPathChars() As Char = Path.GetInvalidPathChars()
             For Each sonderChar As Char In invalidPathChars
                 'Sonderzeichen ausser Whitespace entfernen
@@ -2150,10 +2169,10 @@ Public Class frmIndex
                     End If
                 End If
             Next sonderChar
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Fullpath (ohne SZ) '" & fullpath & "'", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Fullpath (ohne SZ) '" & fullpath & "'", False)
             If Directory.Exists(fullpath) = False Then
                 Directory.CreateDirectory(fullpath)
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...Folder '" & fullpath & "' wurde angelegt", False)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Folder '" & fullpath & "' wurde angelegt", False)
             End If
 
             'Die aktuelle Datei soll gleichzeitig verschoben werden
@@ -2161,13 +2180,13 @@ Public Class frmIndex
             Dim Dateiname As String = Path.GetFileName(fullfilename)
             Dim _Pfad, _WDLaufwerk, _Ziel As String
             _Ziel = fullpath & Dateiname
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...Ziel: " & _Ziel, False)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Ziel: " & _Ziel, False)
             'Nur verschieben und überprüfen wenn Pfad ungleich
             If Path.GetDirectoryName(fullfilename) <> Path.GetDirectoryName(_Ziel) Then
                 Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf("."))
                 Dim version As Integer = 2
                 Do While File.Exists(_Ziel) = True
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False)
                     Dim neuername As String = Stammname & "~" & version & extension
                     _Ziel = neuername
                     version = version + 1

Global_Indexer/frmSQL-Result.Designer.vb

@@ -0,0 +1,219 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSQL_Result
+    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()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQL_Result))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
+        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtSQLCommand = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.BindingNavigator1.SuspendLayout()
+        CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'BindingNavigator1
+        '
+        Me.BindingNavigator1.AddNewItem = Nothing
+        Me.BindingNavigator1.BindingSource = Me.BindingSource1
+        Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
+        Me.BindingNavigator1.CountItemFormat = "von {0} Datensätzen"
+        Me.BindingNavigator1.DeleteItem = Nothing
+        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2})
+        Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0)
+        Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
+        Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
+        Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem
+        Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
+        Me.BindingNavigator1.Name = "BindingNavigator1"
+        Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem
+        Me.BindingNavigator1.Size = New System.Drawing.Size(643, 25)
+        Me.BindingNavigator1.TabIndex = 0
+        Me.BindingNavigator1.Text = "BindingNavigator1"
+        '
+        'BindingNavigatorCountItem
+        '
+        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22)
+        Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen"
+        Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
+        '
+        'BindingNavigatorMoveFirstItem
+        '
+        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
+        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben"
+        '
+        'BindingNavigatorMovePreviousItem
+        '
+        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
+        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben"
+        '
+        'BindingNavigatorSeparator
+        '
+        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorPositionItem
+        '
+        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
+        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
+        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
+        Me.BindingNavigatorPositionItem.Text = "0"
+        Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position"
+        '
+        'BindingNavigatorSeparator1
+        '
+        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
+        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorMoveNextItem
+        '
+        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
+        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben"
+        '
+        'BindingNavigatorMoveLastItem
+        '
+        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
+        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben"
+        '
+        'BindingNavigatorSeparator2
+        '
+        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
+        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.txtSQLCommand)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 25)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(643, 100)
+        Me.Panel1.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(85, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "SQL-Command:"
+        '
+        'txtSQLCommand
+        '
+        Me.txtSQLCommand.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSQLCommand.Location = New System.Drawing.Point(3, 22)
+        Me.txtSQLCommand.Multiline = True
+        Me.txtSQLCommand.Name = "txtSQLCommand"
+        Me.txtSQLCommand.ReadOnly = True
+        Me.txtSQLCommand.Size = New System.Drawing.Size(637, 75)
+        Me.txtSQLCommand.TabIndex = 1
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.AllowUserToAddRows = False
+        Me.DataGridView1.AllowUserToDeleteRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView1.Location = New System.Drawing.Point(0, 125)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.ReadOnly = True
+        Me.DataGridView1.Size = New System.Drawing.Size(643, 331)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'frmSQL_Result
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(643, 456)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.BindingNavigator1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmSQL_Result"
+        Me.Text = "Ergebnisanzeige für SQL"
+        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.BindingNavigator1.ResumeLayout(False)
+        Me.BindingNavigator1.PerformLayout()
+        CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator
+    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents txtSQLCommand As System.Windows.Forms.TextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+End Class

Global_Indexer/frmSQL-Result.resx

@@ -0,0 +1,200 @@
+<?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="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>171, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
+        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
+        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
+        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
+        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
+        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
+        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
+        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
+        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
+        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
+        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
+        oAc0QjgAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
+        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
+        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
+        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
+        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
+        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
+        AAAA//8A/wAAAP8A/wD//wAA////AAAA/////wAAAP93d3d3/wAPh3d3d3d48A93d3d3d3fwD3d3d3d3
+        d/APd3d3d3d38A93d3d3d3fwD3d3d3d3d/APd3d3d3d38A93d3d3d3fwD3eI//+Id/APf//////38A9/
+        //////fwD4eI//+IePAA/3d3d3f/AAAA/////wAA8A8AAMADAACAAQAAgAEAAIABAACAAQAAgAEAAIAB
+        AACAAQAAgAEAAIABAACAAQAAgAEAAIABAADAAwAA8A8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
+        AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAhoaGAKSjpACzs7MA29naAODg4ADm5OUA6+vrAPHv
+        8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8AAAAAAA0MDAwMDAwNAAAAAAAADQgEAwEBAQEDBAgNAAAADQYBAQEBAQEB
+        AQEBBg0AAAwBAQEBAQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEB
+        AQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEBAQICAQEBAQEMAAAM
+        AQIFBwsLCwsHBQIBDAAACgIICwsLCwsLCwsIAQwAAAoCCAsLCwsLCwsLCAEMAAANBgIFBwsLCwsHBQIG
+        DQAAAA0IBAMBAQEBAwQIDQAAAAAAAA0MDAwMDAwNAAAAAPAPAADAAwAAgAEAAIABAACAAQAAgAEAAIAB
+        AACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAwAMAAPAPAAA=
+</value>
+  </data>
+</root>

Global_Indexer/frmSQL-Result.vb

@@ -0,0 +1,8 @@
+Public Class frmSQL_Result
+
+    Private Sub frmSQL_Result_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtSQLCommand.Text = CURRENT_SQLRESULT
+        Me.BindingSource1.DataSource = DTSQL_RESULT
+        DataGridView1.DataSource = DTSQL_RESULT
+    End Sub
+End Class

Global_Indexer/frmSQLConfigAutoIndex.Designer.vb

@@ -24,6 +24,8 @@ Partial Class SQLConfigAutoIndex
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim SQL_ERGEBNISLabel As System.Windows.Forms.Label
+        Dim Label3 As System.Windows.Forms.Label
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.btnVorschlag = New System.Windows.Forms.Button()
         Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox()
         Me.cmbConnection = New System.Windows.Forms.ComboBox()
@@ -34,29 +36,64 @@ Partial Class SQLConfigAutoIndex
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnsave = New System.Windows.Forms.Button()
         Me.lblSave = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cmbManualIDX = New System.Windows.Forms.ComboBox()
+        Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TBDD_INDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter()
+        Me.btnaddManualIdx = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvPlaceholders = New System.Windows.Forms.DataGridView()
+        Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.radioView = New System.Windows.Forms.RadioButton()
+        Me.radioTable = New System.Windows.Forms.RadioButton()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtCondition = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cmbSelectColumns = New System.Windows.Forms.ComboBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cmbWhereOperator = New System.Windows.Forms.ComboBox()
+        Me.cmbFromTables = New System.Windows.Forms.ComboBox()
+        Me.cmbWhereColumns = New System.Windows.Forms.ComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
         SQL_ERGEBNISLabel = New System.Windows.Forms.Label()
+        Label3 = New System.Windows.Forms.Label()
         CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox4.SuspendLayout()
         Me.SuspendLayout()
         '
         'SQL_ERGEBNISLabel
         '
         SQL_ERGEBNISLabel.AutoSize = True
-        SQL_ERGEBNISLabel.Location = New System.Drawing.Point(12, 66)
+        SQL_ERGEBNISLabel.Location = New System.Drawing.Point(12, 161)
         SQL_ERGEBNISLabel.Name = "SQL_ERGEBNISLabel"
         SQL_ERGEBNISLabel.Size = New System.Drawing.Size(157, 13)
         SQL_ERGEBNISLabel.TabIndex = 50
         SQL_ERGEBNISLabel.Text = "SQL für automatischen Index:"
         '
+        'Label3
+        '
+        Label3.AutoSize = True
+        Label3.Location = New System.Drawing.Point(9, 8)
+        Label3.Name = "Label3"
+        Label3.Size = New System.Drawing.Size(93, 13)
+        Label3.TabIndex = 87
+        Label3.Text = "SQL-Connection:"
+        '
         'btnVorschlag
         '
         Me.btnVorschlag.Image = Global.Global_Indexer.My.Resources.Resources.database_go
         Me.btnVorschlag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVorschlag.Location = New System.Drawing.Point(675, 79)
+        Me.btnVorschlag.Location = New System.Drawing.Point(646, 177)
         Me.btnVorschlag.Name = "btnVorschlag"
-        Me.btnVorschlag.Size = New System.Drawing.Size(151, 25)
+        Me.btnVorschlag.Size = New System.Drawing.Size(177, 37)
         Me.btnVorschlag.TabIndex = 48
-        Me.btnVorschlag.Text = "Teste SQL"
+        Me.btnVorschlag.Text = "Teste SQL (BETA)"
         Me.btnVorschlag.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnVorschlag.UseVisualStyleBackColor = True
         '
@@ -65,11 +102,11 @@ Partial Class SQLConfigAutoIndex
         Me.SQL_ERGEBNISTextBox.AcceptsReturn = True
         Me.SQL_ERGEBNISTextBox.AcceptsTab = True
         Me.SQL_ERGEBNISTextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.SQL_ERGEBNISTextBox.Location = New System.Drawing.Point(15, 82)
+        Me.SQL_ERGEBNISTextBox.Location = New System.Drawing.Point(15, 177)
         Me.SQL_ERGEBNISTextBox.Multiline = True
         Me.SQL_ERGEBNISTextBox.Name = "SQL_ERGEBNISTextBox"
         Me.SQL_ERGEBNISTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.SQL_ERGEBNISTextBox.Size = New System.Drawing.Size(654, 136)
+        Me.SQL_ERGEBNISTextBox.Size = New System.Drawing.Size(616, 136)
         Me.SQL_ERGEBNISTextBox.TabIndex = 47
         '
         'cmbConnection
@@ -77,7 +114,7 @@ Partial Class SQLConfigAutoIndex
         Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource
         Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
         Me.cmbConnection.FormattingEnabled = True
-        Me.cmbConnection.Location = New System.Drawing.Point(15, 24)
+        Me.cmbConnection.Location = New System.Drawing.Point(12, 24)
         Me.cmbConnection.Name = "cmbConnection"
         Me.cmbConnection.Size = New System.Drawing.Size(268, 21)
         Me.cmbConnection.TabIndex = 53
@@ -122,19 +159,20 @@ Partial Class SQLConfigAutoIndex
         '
         Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.database_connect
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(289, 22)
+        Me.Button1.Location = New System.Drawing.Point(286, 17)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(122, 23)
+        Me.Button1.Size = New System.Drawing.Size(189, 32)
         Me.Button1.TabIndex = 54
-        Me.Button1.Text = "SQL-Connections"
+        Me.Button1.Text = "Verwaltung SQL-Connections"
         Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.UseVisualStyleBackColor = True
         '
         'btnsave
         '
+        Me.btnsave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
         Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnsave.Location = New System.Drawing.Point(736, 187)
+        Me.btnsave.Location = New System.Drawing.Point(733, 282)
         Me.btnsave.Name = "btnsave"
         Me.btnsave.Size = New System.Drawing.Size(90, 31)
         Me.btnsave.TabIndex = 55
@@ -144,22 +182,245 @@ Partial Class SQLConfigAutoIndex
         '
         'lblSave
         '
-        Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSave.AutoSize = True
         Me.lblSave.BackColor = System.Drawing.Color.Yellow
-        Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSave.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(445, 221)
+        Me.lblSave.Location = New System.Drawing.Point(643, 217)
         Me.lblSave.Name = "lblSave"
-        Me.lblSave.Size = New System.Drawing.Size(224, 17)
+        Me.lblSave.Size = New System.Drawing.Size(180, 13)
         Me.lblSave.TabIndex = 79
         Me.lblSave.Text = "SQL-Daten erfolgreich gespeichert!"
         Me.lblSave.Visible = False
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 316)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(151, 13)
+        Me.Label1.TabIndex = 80
+        Me.Label1.Text = "Platzhalter manuelle Indexe:"
+        '
+        'cmbManualIDX
+        '
+        Me.cmbManualIDX.DataSource = Me.TBDD_INDEX_MANBindingSource
+        Me.cmbManualIDX.DisplayMember = "NAME"
+        Me.cmbManualIDX.FormattingEnabled = True
+        Me.cmbManualIDX.Location = New System.Drawing.Point(15, 332)
+        Me.cmbManualIDX.Name = "cmbManualIDX"
+        Me.cmbManualIDX.Size = New System.Drawing.Size(171, 21)
+        Me.cmbManualIDX.TabIndex = 81
+        Me.cmbManualIDX.ValueMember = "GUID"
+        '
+        'TBDD_INDEX_MANBindingSource
+        '
+        Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
+        Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
+        '
+        'TBDD_INDEX_MANTableAdapter
+        '
+        Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True
+        '
+        'btnaddManualIdx
+        '
+        Me.btnaddManualIdx.Image = Global.Global_Indexer.My.Resources.Resources.action_add_16xMD
+        Me.btnaddManualIdx.Location = New System.Drawing.Point(192, 332)
+        Me.btnaddManualIdx.Name = "btnaddManualIdx"
+        Me.btnaddManualIdx.Size = New System.Drawing.Size(27, 21)
+        Me.btnaddManualIdx.TabIndex = 82
+        Me.btnaddManualIdx.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.Label2.Location = New System.Drawing.Point(316, 316)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(132, 15)
+        Me.Label2.TabIndex = 84
+        Me.Label2.Text = "Platzhalter Ersetzungen:"
+        '
+        'dgvPlaceholders
+        '
+        Me.dgvPlaceholders.AllowUserToAddRows = False
+        Me.dgvPlaceholders.AllowUserToDeleteRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
+        Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
+        Me.dgvPlaceholders.Enabled = False
+        Me.dgvPlaceholders.Location = New System.Drawing.Point(319, 334)
+        Me.dgvPlaceholders.Name = "dgvPlaceholders"
+        Me.dgvPlaceholders.Size = New System.Drawing.Size(312, 132)
+        Me.dgvPlaceholders.TabIndex = 83
+        '
+        'colPlaceholder
+        '
+        Me.colPlaceholder.HeaderText = "Platzhalter"
+        Me.colPlaceholder.Name = "colPlaceholder"
+        Me.colPlaceholder.ReadOnly = True
+        '
+        'colReplace
+        '
+        Me.colReplace.HeaderText = "Ersetzung"
+        Me.colReplace.Name = "colReplace"
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.Label5)
+        Me.GroupBox4.Controls.Add(Me.radioView)
+        Me.GroupBox4.Controls.Add(Me.radioTable)
+        Me.GroupBox4.Controls.Add(Me.Label4)
+        Me.GroupBox4.Controls.Add(Me.txtCondition)
+        Me.GroupBox4.Controls.Add(Me.Label6)
+        Me.GroupBox4.Controls.Add(Me.cmbSelectColumns)
+        Me.GroupBox4.Controls.Add(Me.Label7)
+        Me.GroupBox4.Controls.Add(Me.cmbWhereOperator)
+        Me.GroupBox4.Controls.Add(Me.cmbFromTables)
+        Me.GroupBox4.Controls.Add(Me.cmbWhereColumns)
+        Me.GroupBox4.Controls.Add(Me.Label8)
+        Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox4.Location = New System.Drawing.Point(15, 51)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(808, 107)
+        Me.GroupBox4.TabIndex = 86
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "SQL-Befehl generieren (BETA)"
+        '
+        'radioView
+        '
+        Me.radioView.AutoSize = True
+        Me.radioView.Location = New System.Drawing.Point(241, 19)
+        Me.radioView.Name = "radioView"
+        Me.radioView.Size = New System.Drawing.Size(55, 17)
+        Me.radioView.TabIndex = 25
+        Me.radioView.Text = "Views"
+        Me.radioView.UseVisualStyleBackColor = True
+        '
+        'radioTable
+        '
+        Me.radioTable.AutoSize = True
+        Me.radioTable.Checked = True
+        Me.radioTable.Location = New System.Drawing.Point(154, 19)
+        Me.radioTable.Name = "radioTable"
+        Me.radioTable.Size = New System.Drawing.Size(68, 17)
+        Me.radioTable.TabIndex = 24
+        Me.radioTable.TabStop = True
+        Me.radioTable.Text = "Tabellen"
+        Me.radioTable.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(6, 21)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(126, 13)
+        Me.Label4.TabIndex = 86
+        Me.Label4.Text = "Tabellenart auswählen:"
+        '
+        'txtCondition
+        '
+        Me.txtCondition.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCondition.Location = New System.Drawing.Point(363, 75)
+        Me.txtCondition.Name = "txtCondition"
+        Me.txtCondition.Size = New System.Drawing.Size(234, 20)
+        Me.txtCondition.TabIndex = 29
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(6, 50)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(43, 13)
+        Me.Label6.TabIndex = 19
+        Me.Label6.Text = "SELECT"
+        '
+        'cmbSelectColumns
+        '
+        Me.cmbSelectColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbSelectColumns.Enabled = False
+        Me.cmbSelectColumns.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmbSelectColumns.FormattingEnabled = True
+        Me.cmbSelectColumns.Location = New System.Drawing.Point(63, 47)
+        Me.cmbSelectColumns.Name = "cmbSelectColumns"
+        Me.cmbSelectColumns.Size = New System.Drawing.Size(233, 21)
+        Me.cmbSelectColumns.TabIndex = 20
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(302, 50)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(31, 13)
+        Me.Label7.TabIndex = 21
+        Me.Label7.Text = "FROM"
+        '
+        'cmbWhereOperator
+        '
+        Me.cmbWhereOperator.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbWhereOperator.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmbWhereOperator.FormattingEnabled = True
+        Me.cmbWhereOperator.Items.AddRange(New Object() {"=", "<>", "<", ">"})
+        Me.cmbWhereOperator.Location = New System.Drawing.Point(304, 75)
+        Me.cmbWhereOperator.Name = "cmbWhereOperator"
+        Me.cmbWhereOperator.Size = New System.Drawing.Size(47, 21)
+        Me.cmbWhereOperator.TabIndex = 28
+        '
+        'cmbFromTables
+        '
+        Me.cmbFromTables.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbFromTables.Enabled = False
+        Me.cmbFromTables.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmbFromTables.FormattingEnabled = True
+        Me.cmbFromTables.Location = New System.Drawing.Point(363, 47)
+        Me.cmbFromTables.Name = "cmbFromTables"
+        Me.cmbFromTables.Size = New System.Drawing.Size(234, 21)
+        Me.cmbFromTables.TabIndex = 22
+        '
+        'cmbWhereColumns
+        '
+        Me.cmbWhereColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbWhereColumns.Enabled = False
+        Me.cmbWhereColumns.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmbWhereColumns.FormattingEnabled = True
+        Me.cmbWhereColumns.Location = New System.Drawing.Point(63, 75)
+        Me.cmbWhereColumns.Name = "cmbWhereColumns"
+        Me.cmbWhereColumns.Size = New System.Drawing.Size(233, 21)
+        Me.cmbWhereColumns.TabIndex = 27
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(6, 78)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(37, 13)
+        Me.Label8.TabIndex = 23
+        Me.Label8.Text = "WHERE"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(628, 47)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(217, 52)
+        Me.Label5.TabIndex = 87
+        Me.Label5.Text = "Hinweis:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Definieren Sie den SQL-Befehl indem Sie " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1. Tabelle/View" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2"
+        '
         'SQLConfigAutoIndex
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(833, 251)
+        Me.ClientSize = New System.Drawing.Size(858, 477)
+        Me.Controls.Add(Label3)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.dgvPlaceholders)
+        Me.Controls.Add(Me.btnaddManualIdx)
+        Me.Controls.Add(Me.cmbManualIDX)
+        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.lblSave)
         Me.Controls.Add(Me.btnsave)
         Me.Controls.Add(Me.Button1)
@@ -172,9 +433,13 @@ Partial Class SQLConfigAutoIndex
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "SQLConfigAutoIndex"
-        Me.Text = "Konfiguration SQL"
+        Me.Text = "SQL-Editor für automatischen Index"
         CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -189,4 +454,26 @@ Partial Class SQLConfigAutoIndex
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents btnsave As System.Windows.Forms.Button
     Friend WithEvents lblSave As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cmbManualIDX As System.Windows.Forms.ComboBox
+    Friend WithEvents TBDD_INDEX_MANBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents TBDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter
+    Friend WithEvents btnaddManualIdx As System.Windows.Forms.Button
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents dgvPlaceholders As System.Windows.Forms.DataGridView
+    Friend WithEvents colPlaceholder As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents colReplace As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+    Friend WithEvents txtCondition As System.Windows.Forms.TextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents cmbSelectColumns As System.Windows.Forms.ComboBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents cmbWhereOperator As System.Windows.Forms.ComboBox
+    Friend WithEvents cmbFromTables As System.Windows.Forms.ComboBox
+    Friend WithEvents cmbWhereColumns As System.Windows.Forms.ComboBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents radioTable As System.Windows.Forms.RadioButton
+    Friend WithEvents radioView As System.Windows.Forms.RadioButton
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
 End Class

Global_Indexer/frmSQLConfigAutoIndex.resx

@@ -120,6 +120,9 @@
   <metadata name="SQL_ERGEBNISLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
+  <metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
   <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>127, 17</value>
   </metadata>
@@ -132,4 +135,16 @@
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>609, 17</value>
   </metadata>
+  <metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>782, 17</value>
+  </metadata>
+  <metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1017, 17</value>
+  </metadata>
+  <metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="colReplace.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

Global_Indexer/frmSQLConfigAutoIndex.vb

@@ -1,66 +1,115 @@
 Imports Oracle.ManagedDataAccess.Client
+Imports System.Text.RegularExpressions
+
 Public Class SQLConfigAutoIndex
+    Dim CurrentPosition As Integer = 0
+
+    Dim CurrentTableType As String
    
     Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click
         TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text)
     End Sub
-    Private Sub TestSQL(conid As Integer, sql_Vorschlag As String)
+    Private Sub TestSQL(conid As Integer, sql_command As String)
         Try
-            Dim connectionString As String
+            Dim query As String = sql_command
 
-            Dim i As Integer
+            For Each row As DataGridViewRow In dgvPlaceholders.Rows
+                Dim placeholder As String = row.Cells(0).Value
+                Dim replacement As String = row.Cells(1).Value
 
-            connectionString = ClassFormFunctions.GetConnectionString(conid)
+                ' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
-            If connectionString <> "" Then
+                If Not String.IsNullOrEmpty(replacement) Then
-                If connectionString.Contains("Initial Catalog=") Then
+                    query = query.Replace(placeholder, replacement)
-                    Dim sqlCnn As SqlClient.SqlConnection
+                Else
-                    Dim sqlCmd As SqlClient.SqlCommand
+                    MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
-                    Dim adapter As New SqlClient.SqlDataAdapter
+                    Exit Sub
-                    Dim NewDataset As New DataSet
+                End If
-                    sqlCnn = New SqlClient.SqlConnection(connectionString)
+            Next
-                    sqlCnn.Open()
+
-                    sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn)
+            Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
-                    adapter.SelectCommand = sqlCmd
+            Dim dt As DataTable
-                    adapter.Fill(NewDataset)
+            If typeCS.Length > 0 Then
-                    Dim msg As String
+                Dim CS As String
-                    For i = 0 To NewDataset.Tables(0).Rows.Count - 1
+                CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
-                        msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
+                If typeCS.ToUpper = "Oracle".ToUpper Then
-                        If i = 30 Then
+                    dt = ClassDatabase.Oracle_Return_Datatable(query, CS, True)
-                            Exit For
+                Else
-                        End If
+                    dt = ClassDatabase.Return_Datatable_CS(query, CS, True)
-                    Next
-                    adapter.Dispose()
-                    sqlCmd.Dispose()
-                    sqlCnn.Close()
-                    MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
-
-                ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains(";Persist Security Info=True;User Id=") Then
-                    Dim sqlCnn As OracleConnection
-                    Dim sqlCmd As OracleCommand
-                    Dim adapter As OracleDataAdapter
-                    Dim NewDataset As DataSet
-                    sqlCnn = New OracleConnection(connectionString)
-                    ' Try
-                    sqlCnn.Open()
-                    sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn)
-                    adapter.SelectCommand = sqlCmd
-                    adapter.Fill(NewDataset)
-                    Dim msg As String
-                    For i = 0 To NewDataset.Tables(0).Rows.Count - 1
-                        msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
-                        If i = 30 Then
-                            Exit For
-                        End If
-                    Next
-                    adapter.Dispose()
-                    sqlCmd.Dispose()
-                    sqlCnn.Close()
-                    MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
                 End If
-            Else
-                MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
             End If
 
+            If Not IsNothing(dt) Then
+                If dt.Rows.Count = 1 Then
+                    MsgBox("Es wurde genau 1 Datensatz zurückgegeben!", MsgBoxStyle.Information)
+                End If
+                CURRENT_SQLRESULT = sql_command
+                DTSQL_RESULT = dt
+                frmSQL_Result.ShowDialog()
+            End If
+
+            'If ds IsNot Nothing Then
+            '    dgvResult.DataSource = ds.Tables(0)
+            'End If
+
+
+
+
+            'Try
+            '    Dim connectionString As String
+
+            '    Dim i As Integer
+
+            '    connectionString = ClassFormFunctions.GetConnectionString(conid)
+            '    If connectionString <> "" Then
+            '        If connectionString.Contains("Initial Catalog=") Then
+            '            Dim sqlCnn As SqlClient.SqlConnection
+            '            Dim sqlCmd As SqlClient.SqlCommand
+            '            Dim adapter As New SqlClient.SqlDataAdapter
+            '            Dim NewDataset As New DataSet
+            '            sqlCnn = New SqlClient.SqlConnection(connectionString)
+            '            sqlCnn.Open()
+            '            sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn)
+            '            adapter.SelectCommand = sqlCmd
+            '            adapter.Fill(NewDataset)
+            '            Dim msg As String
+            '            For i = 0 To NewDataset.Tables(0).Rows.Count - 1
+            '                msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
+            '                If i = 30 Then
+            '                    Exit For
+            '                End If
+            '            Next
+            '            adapter.Dispose()
+            '            sqlCmd.Dispose()
+            '            sqlCnn.Close()
+            '            MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
+
+            '        ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains(";Persist Security Info=True;User Id=") Then
+            '            Dim sqlCnn As OracleConnection
+            '            Dim sqlCmd As OracleCommand
+            '            Dim adapter As OracleDataAdapter
+            '            Dim NewDataset As DataSet
+            '            sqlCnn = New OracleConnection(connectionString)
+            '            ' Try
+            '            sqlCnn.Open()
+            '            sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn)
+            '            adapter.SelectCommand = sqlCmd
+            '            adapter.Fill(NewDataset)
+            '            Dim msg As String
+            '            For i = 0 To NewDataset.Tables(0).Rows.Count - 1
+            '                msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine
+            '                If i = 30 Then
+            '                    Exit For
+            '                End If
+            '            Next
+            '            adapter.Dispose()
+            '            sqlCmd.Dispose()
+            '            sqlCnn.Close()
+            '            MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
+            '        End If
+            '    Else
+            '        MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
+            '    End If
+
         Catch ex As Exception
             ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
@@ -68,14 +117,25 @@ Public Class SQLConfigAutoIndex
     End Sub
 
     Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
-        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
+        Try
-        Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
-        Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
+            Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
-        Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO)
+            Me.TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
-        If DT.Rows.Count = 1 Then
+            Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
-            Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
+            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO)
-            SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
+            If DT.Rows.Count = 1 Then
-        End If
+                Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
+                SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
+            End If
+            Try
+                Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, CURRENT_DOKART_ID)
+            Catch ex As System.Exception
+                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Manual Indices:")
+            End Try
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadFormData:")
+        End Try
+      
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -93,10 +153,10 @@ Public Class SQLConfigAutoIndex
             Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''")
             If insresultstring <> origresultstring Then
                 Dim cmd As String
-                cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',CHANGED_WHO = '" & _
+                cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ", SQL_RESULT = '" & insresultstring & "', CHANGED_WHO = '" & _
                 Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXAUTO
                 If ClassDatabase.Execute_non_Query(cmd, True) = True Then
-                    lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now
+                    lblSave.Text = "SQL-Daten gespeichert - " & Now
                     Me.lblSave.Visible = True
                 Else
                     Me.lblSave.Visible = False
@@ -117,4 +177,194 @@ Public Class SQLConfigAutoIndex
             e.Handled = True
         End If
     End Sub
+
+    Private Sub btnaddManualIdx_Click(sender As Object, e As EventArgs) Handles btnaddManualIdx.Click
+        If cmbManualIDX.SelectedIndex <> -1 Then
+            If Not cmbManualIDX.Text = String.Empty Then
+                Dim placeholder As String = "[%" & cmbManualIDX.Text & "]"
+                SQL_ERGEBNISTextBox.Text = SQL_ERGEBNISTextBox.Text.Insert(CurrentPosition, placeholder)
+            End If
+        End If
+    End Sub
+    Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+
+    Private Sub SQL_ERGEBNISTextBox_KeyUp(sender As Object, e As KeyEventArgs) Handles SQL_ERGEBNISTextBox.KeyUp
+        CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
+    End Sub
+
+    Private Sub SQL_ERGEBNISTextBox_MouseUp(sender As Object, e As MouseEventArgs) Handles SQL_ERGEBNISTextBox.MouseUp
+        CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
+    End Sub
+    Private Sub SQL_ERGEBNISTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_ERGEBNISTextBox.TextChanged
+        CurrentPosition = SQL_ERGEBNISTextBox.SelectionStart
+        If SQL_ERGEBNISTextBox.Text.Trim().Count = 0 Then
+            dgvPlaceholders.Enabled = False
+        Else
+            dgvPlaceholders.Enabled = True
+        End If
+        CheckForPlaceholders()
+    End Sub
+    Public Property Value() As String
+        Get
+            Return SQL_ERGEBNISTextBox.Text
+        End Get
+        Set(value As String)
+            SQL_ERGEBNISTextBox.Text = value
+        End Set
+    End Property
+    Private Sub CheckForPlaceholders()
+        Dim count As Integer = 0
+        Dim text As String = Me.Value
+        Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
+        Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
+
+        dgvPlaceholders.Rows.Clear()
+
+        For Each match As Match In matches
+            dgvPlaceholders.Rows.Add({match.Value, ""})
+        Next
+    End Sub
+
+    Private Sub cmbSelectConditions_Changed(sender As Object, e As EventArgs) Handles cmbSelectColumns.SelectedIndexChanged, cmbFromTables.SelectedIndexChanged, cmbWhereColumns.SelectedIndexChanged, cmbWhereOperator.SelectedIndexChanged, txtCondition.TextChanged
+        Try
+            Dim sql = ""
+            Dim column, table, column2, op, condition As String
+            Dim isNumberRegex = New Regex("^\d+$")
+
+            column = cmbSelectColumns.Text
+            table = cmbFromTables.Text
+            column2 = cmbWhereColumns.Text
+            op = cmbWhereOperator.Text
+            condition = txtCondition.Text
+
+            If column <> "" And table <> "" Then
+                sql = String.Format("SELECT [{0}] FROM [{1}]", column, table)
+
+                If column2 <> "" And op <> "" And condition <> "" Then
+
+                    If isNumberRegex.Match(condition).Success = False Then
+                        condition = String.Format("'{0}'", condition)
+                    End If
+
+                    sql &= String.Format(" WHERE [{0}] {1} {2}", column2, op, condition)
+                ElseIf column2 <> "" And op <> "" And condition = "" Then
+                    sql &= String.Format(" WHERE [{0}] {1}", column2, op)
+                ElseIf column2 <> "" And op = "" And condition = "" Then
+                    sql &= String.Format(" WHERE '{0}'", column2)
+                End If
+
+            End If
+
+            SQL_ERGEBNISTextBox.Text = sql
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in cmbSelectConditions_Changed:")
+        End Try
+      
+    End Sub
+
+    Private Sub radioTable_CheckedChanged(sender As Object, e As EventArgs) Handles radioTable.CheckedChanged
+        If radioTable.Checked Then
+            CurrentTableType = "TABLE"
+        End If
+        EnableTables()
+    End Sub
+
+    Private Sub radioView_CheckedChanged(sender As Object, e As EventArgs) Handles radioView.CheckedChanged
+        If radioView.Checked Then
+            CurrentTableType = "VIEW"
+        End If
+        EnableTables()
+    End Sub
+    Private Sub cmbFromTables_SelectedIndexChanged() Handles cmbFromTables.SelectedIndexChanged
+        If cmbFromTables.Text <> "" Then
+            EnableColumns()
+        Else
+            EnableColumns(False)
+        End If
+    End Sub
+    Private Sub EnableTables()
+        cmbFromTables.Enabled = True
+    End Sub
+    Private Sub EnableColumns(Optional enabled = True)
+        cmbSelectColumns.Enabled = enabled
+        cmbWhereColumns.Enabled = enabled
+    End Sub
+    Private Sub cmbTables_DropDown(sender As Object, e As EventArgs) Handles cmbFromTables.DropDown
+        Try
+            Dim type As String
+
+            If CurrentTableType = "TABLE" Then
+                type = "'BASE TABLE'"
+            ElseIf CurrentTableType = "VIEW" Then
+                type = "'VIEW'"
+            End If
+
+            Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
+            Dim dt As DataTable
+            If typeCS.Length > 0 Then
+                Dim SQL As String = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
+                Dim CS As String
+                CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
+                If typeCS.ToUpper = "Oracle".ToUpper Then
+
+
+                    If type = "'VIEW'" Then
+                        'DB-Abfrage für alle Views definieren 
+                        SQL = "select VIEW_NAME from USER_VIEWS"
+                    Else
+                        'DB-Abfrage für alle Tables definieren 
+                        SQL = "select TABLE_NAME from USER_TABLES"
+                    End If
+                    dt = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True)
+                Else
+                    SQL = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
+                    dt = ClassDatabase.Return_Datatable_CS(SQL, CS, True)
+                End If
+                If dt IsNot Nothing Then
+                    cmbFromTables.Items.Clear()
+                    For Each row As DataRow In dt.Rows
+                        cmbFromTables.Items.Add(row.Item(0))
+                    Next
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in cmbTables_DropDown:")
+        End Try
+
+    End Sub
+    Private Sub cmbColumns_DropDown(sender As Object, e As EventArgs) Handles cmbSelectColumns.DropDown
+        Dim table = cmbFromTables.Text
+        GetColumns(table, cmbSelectColumns)
+    End Sub
+    Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox)
+        Try
+            Dim CS As String
+            CS = ClassFormFunctions.GetConnectionString(cmbConnection.SelectedValue)
+            Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, MyConnectionString, True)
+            Dim SQL As String
+            Dim DT As DataTable
+            If typeCS.ToUpper = "Oracle".ToUpper Then
+                SQL = "select COLUMN_NAME from USER_TAB_COLS where TABLE_NAME='" & tableName & "' order by COLUMN_NAME"
+                DT = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True)
+            Else
+                SQL = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name"
+                DT = ClassDatabase.Return_Datatable_CS(SQL, CS, True)
+            End If
+
+            If DT IsNot Nothing Then
+                combobox.Items.Clear()
+                For Each row As DataRow In DT.Rows
+                    combobox.Items.Add(row.Item(0))
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetColumns:")
+        End Try
+     
+    End Sub
+
+    Private Sub cmbWhereColumns_DropDown(sender As Object, e As EventArgs) Handles cmbWhereColumns.DropDown
+        Dim table = cmbFromTables.Text
+        GetColumns(table, cmbWhereColumns)
+    End Sub
 End Class

Global_Indexer/frmSQLSuggestion.Designer.vb

@@ -61,9 +61,11 @@ Partial Class frmSQLSuggestion
         SQL_UEBERPRUEFUNGLabel.AutoSize = True
         SQL_UEBERPRUEFUNGLabel.Location = New System.Drawing.Point(533, 66)
         SQL_UEBERPRUEFUNGLabel.Name = "SQL_UEBERPRUEFUNGLabel"
-        SQL_UEBERPRUEFUNGLabel.Size = New System.Drawing.Size(207, 13)
+        SQL_UEBERPRUEFUNGLabel.Size = New System.Drawing.Size(437, 39)
         SQL_UEBERPRUEFUNGLabel.TabIndex = 51
-        SQL_UEBERPRUEFUNGLabel.Text = "SQL-Überprüfung für manuellen Index:"
+        SQL_UEBERPRUEFUNGLabel.Text = "SQL-Überprüfung für manuellen Index:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Definieren Sie hier einen SQL-Befehl der di" & _
+    "e Auswahl auf VORHANDEN überprüft." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE I" & _
+    "HRE_WERT_SPALTE = INPUTVALUE)"
         '
         'GroupBox1
         '
@@ -72,18 +74,18 @@ Partial Class frmSQLSuggestion
         Me.GroupBox1.Controls.Add(Me.Label2)
         Me.GroupBox1.Location = New System.Drawing.Point(15, 229)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(351, 77)
+        Me.GroupBox1.Size = New System.Drawing.Size(351, 93)
         Me.GroupBox1.TabIndex = 52
         Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Rückgabewert testen:"
+        Me.GroupBox1.Text = "Nachbearbeitung testen:"
         '
         'btnTestNachbearbeitung
         '
         Me.btnTestNachbearbeitung.Image = Global.Global_Indexer.My.Resources.Resources.database_go
         Me.btnTestNachbearbeitung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnTestNachbearbeitung.Location = New System.Drawing.Point(227, 43)
+        Me.btnTestNachbearbeitung.Location = New System.Drawing.Point(227, 59)
         Me.btnTestNachbearbeitung.Name = "btnTestNachbearbeitung"
-        Me.btnTestNachbearbeitung.Size = New System.Drawing.Size(103, 28)
+        Me.btnTestNachbearbeitung.Size = New System.Drawing.Size(103, 27)
         Me.btnTestNachbearbeitung.TabIndex = 1
         Me.btnTestNachbearbeitung.Text = "Test"
         Me.btnTestNachbearbeitung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -91,7 +93,7 @@ Partial Class frmSQLSuggestion
         '
         'txtTest_idxMan
         '
-        Me.txtTest_idxMan.Location = New System.Drawing.Point(9, 46)
+        Me.txtTest_idxMan.Location = New System.Drawing.Point(9, 63)
         Me.txtTest_idxMan.Name = "txtTest_idxMan"
         Me.txtTest_idxMan.Size = New System.Drawing.Size(212, 22)
         Me.txtTest_idxMan.TabIndex = 0
@@ -101,9 +103,10 @@ Partial Class frmSQLSuggestion
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(6, 21)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(324, 13)
+        Me.Label2.Size = New System.Drawing.Size(324, 39)
         Me.Label2.TabIndex = 0
-        Me.Label2.Text = "Geben Sie hier den Ausgangswert des manuellen Indexes ein:"
+        Me.Label2.Text = "Geben Sie hier den Ausgangswert des manuellen Indexes ein." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Nachbearbeitung w" & _
+    "ird durchlaufen und Ihnen wird der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ergebniswert angezeigt."
         '
         'btnVorschlag
         '
@@ -130,10 +133,10 @@ Partial Class frmSQLSuggestion
         'SQL_UEBERPRUEFUNGTextBox
         '
         Me.SQL_UEBERPRUEFUNGTextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.SQL_UEBERPRUEFUNGTextBox.Location = New System.Drawing.Point(536, 82)
+        Me.SQL_UEBERPRUEFUNGTextBox.Location = New System.Drawing.Point(536, 112)
         Me.SQL_UEBERPRUEFUNGTextBox.Multiline = True
         Me.SQL_UEBERPRUEFUNGTextBox.Name = "SQL_UEBERPRUEFUNGTextBox"
-        Me.SQL_UEBERPRUEFUNGTextBox.Size = New System.Drawing.Size(351, 137)
+        Me.SQL_UEBERPRUEFUNGTextBox.Size = New System.Drawing.Size(434, 106)
         Me.SQL_UEBERPRUEFUNGTextBox.TabIndex = 49
         '
         'cmbConnection
@@ -195,7 +198,7 @@ Partial Class frmSQLSuggestion
         '
         Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(797, 275)
+        Me.Button2.Location = New System.Drawing.Point(880, 229)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(90, 31)
         Me.Button2.TabIndex = 55
@@ -205,11 +208,10 @@ Partial Class frmSQLSuggestion
         '
         'lblSave
         '
-        Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSave.AutoSize = True
         Me.lblSave.BackColor = System.Drawing.Color.Yellow
         Me.lblSave.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(533, 250)
+        Me.lblSave.Location = New System.Drawing.Point(679, 237)
         Me.lblSave.Name = "lblSave"
         Me.lblSave.Size = New System.Drawing.Size(195, 15)
         Me.lblSave.TabIndex = 79
@@ -220,7 +222,7 @@ Partial Class frmSQLSuggestion
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(907, 326)
+        Me.ClientSize = New System.Drawing.Size(973, 326)
         Me.Controls.Add(Me.lblSave)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)

Global_Indexer/frmSQL_Admin.vb

@@ -10,10 +10,8 @@ Public Class frmSQL_Admin
             If txtSQL.Text.ToLower.StartsWith("select") Then
                 Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, True)
                 If Not dt Is Nothing Then
-                    If dt.Rows.Count > 0 Then
+                    XtraTabControl1.SelectedTabPageIndex = 1
-                        XtraTabControl1.SelectedTabPageIndex = 1
+                    BindingSource1.DataSource = dt
-                        BindingSource1.DataSource = dt
-                    End If
                 End If
             Else
                 Dim result As MsgBoxResult = MsgBox("Bitte bestätigen Sie das Ausführen des SQL-Befehls?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")

Global_Indexer/frmStart.Designer.vb

@@ -33,6 +33,7 @@ Partial Class frmStart
         Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel()
@@ -43,7 +44,6 @@ Partial Class frmStart
         Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components)
         Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
         Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
-        Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip1.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -55,7 +55,7 @@ Partial Class frmStart
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(265, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(305, 24)
         Me.MenuStrip1.TabIndex = 5
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -114,13 +114,19 @@ Partial Class frmStart
         Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
         Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
         '
+        'InfoToolStripMenuItem
+        '
+        Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
+        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
+        Me.InfoToolStripMenuItem.Text = "Info"
+        '
         'StatusStrip1
         '
         Me.StatusStrip1.AllowDrop = True
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblFW})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 111)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 99)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(265, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(305, 22)
         Me.StatusStrip1.TabIndex = 6
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -189,19 +195,13 @@ Partial Class frmStart
         Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
         Me.NotifyIcon1.Text = "GlobalIndexer"
         '
-        'InfoToolStripMenuItem
-        '
-        Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
-        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
-        Me.InfoToolStripMenuItem.Text = "Info"
-        '
         'frmStart
         '
         Me.AllowDrop = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.SystemColors.ActiveCaption
-        Me.ClientSize = New System.Drawing.Size(265, 133)
+        Me.ClientSize = New System.Drawing.Size(305, 121)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.MenuStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Global_Indexer/frmStart.resx

@@ -432,6 +432,9 @@
         /+AAH/////////////////////////////////////////////8=
 </value>
   </data>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>203</value>
+  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA

Global_Indexer/frmStart.vb

@@ -105,7 +105,7 @@ Public Class frmStart
         Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
         DTACTUAL_FILES = Nothing
         DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
-
+        ABORT_INDEXING = False
         If DTACTUAL_FILES.Rows.Count > 1 Then
             frmIndexFileList.ShowDialog()
             DTACTUAL_FILES = Nothing
@@ -142,16 +142,25 @@ Public Class frmStart
                         Dim result As MsgBoxResult
                         result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                         If result = MsgBoxResult.Yes Then
+                            Dim containsfw_file As Boolean = False
                             Try
-                                'Zuerst die Daten des Ablaufs löschen
+                                ABORT_INDEXING = True
-                                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
                                 For Each Filerow As DataRow In DTACTUAL_FILES.Rows
                                     Dim filestring As String = Filerow.Item("FILENAME2WORK")
                                     Dim handletype As String = Filerow.Item("HANDLE_TYPE")
+
                                     If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
                                         System.IO.File.Delete(filestring)
+                                    ElseIf handletype.StartsWith("@FW") Then
+                                        containsfw_file = True
                                     End If
                                 Next
+                                'Zuerst die Daten des Ablaufs löschen
+                                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
+                                If containsfw_file = True Then
+                                    MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
+                                End If
+
                             Catch ex As Exception
                                 MsgBox("Fehler bei Abbruch der Indexierung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                             End Try
@@ -237,11 +246,15 @@ Public Class frmStart
             ClassLogger.Add(">> Programmstart: " & Now, False)
             ClassLogger.Add(">> Username: " & Environment.UserName, False)
             LoadMyConfig()
+            If LoadFileExclusion() = False Then
+                MsgBox("Dies Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!", MsgBoxStyle.Information)
+            End If
 
             If MyConnectionString = String.Empty Then
                 frmConfig_Basic.ShowDialog()
             End If
             If ClassDatabase.Init() = False Then
+                ERROR_STATE = "FAILED CONNECTION"
                 MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Konfiguration der Datenbankverbindung und ggfls. den Datenbankserver", MsgBoxStyle.Critical)
                 frmConfig_Basic.ShowDialog()
             End If
@@ -250,16 +263,11 @@ Public Class frmStart
                 START_INCOMPLETE = True
                 Exit Sub
             End If
-            If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then
-                frmConfig_Basic.ShowDialog()
-            End If
-
             If MyConnectionString = String.Empty Then
                 ClassLogger.Add(" >> Kein Connection-String definiert - Global Indexer wird geschlossen!", False)
                 START_INCOMPLETE = True
                 Exit Sub
             End If
-            Refresh_Licence()
             USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
             If USER_GUID Is Nothing Then
                 ClassLogger.Add(" - ACHTUNG: User '" & Environment.UserName & "' nicht in der Userverwaltung hinterlegt!", False)
@@ -268,18 +276,34 @@ Public Class frmStart
                 START_INCOMPLETE = True
                 Exit Sub
             Else
+                Refresh_Licence()
                 CURRENT_USERID = USER_GUID
-                Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString)
+                If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then
+                    ERROR_STATE = "NO UV"
+                    frmConfig_Basic.ShowDialog()
+                End If
+
+
+                'Die FolderWatch starten
+                Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
+                Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
                 If Not folderwatch Is Nothing Then
                     CURRENT_FOLDERWATCH = folderwatch
                     If FW_started = True Then
                         tslblFW.Visible = True
                         ClassFolderWatcher.StartStop_FolderWatch()
                     End If
-                    If CURRENT_FOLDERWATCH <> "" Then
+                End If
-                        TimerFolderWatch.Start()
+                If Not folderwatch_SCAN Is Nothing Then
+                    CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
+                    If FWSCAN_started = True Then
+                        tslblFW.Visible = True
+                        ClassFolderWatcher.StartStop_FolderWatchSCAN()
                     End If
                 End If
+                If CURRENT_FOLDERWATCH <> "" Or CURRENT_SCAN_FOLDERWATCH <> "" Then
+                    TimerFolderWatch.Start()
+                End If
                 sql = "SELECT MODULE_GI FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
                 sql = sql.Replace("@user", Environment.UserName)
                 If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
@@ -298,7 +322,11 @@ Public Class frmStart
                         Exit Sub
                     End If
                     sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
-                    ClassDatabase.Execute_non_Query(sql, True)
+                    If ClassDatabase.Execute_non_Query(sql, True) = True Then
+
+                    End If
+
+
                     sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'Global-Indexer')"
                     ClassDatabase.Execute_non_Query(sql, True)
 
@@ -322,11 +350,15 @@ Public Class frmStart
                         TimerClose3Minutes.Start()
                     End If
                     'Anzahl der eingeloggten User
-                    UserLoggedin = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Global-Indexer'", MyConnectionString)
+                    UserLoggedin = ClassDatabase.Execute_Scalar("select count(*) from TBDD_USER_MODULE_LOG_IN where MODULE = 'Global-Indexer'", MyConnectionString, True)
                     If License_Anzahl < UserLoggedin Then
                         MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & License_Anzahl.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                        ClassLogger.Add(" - Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen für Process-Manager!", False)
+                        ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & License_Anzahl & ") für Process-Manager!", False)
                         If ISUserAdmin = False Then
+                            'Anmeldung wieder herausnehmen
+                            sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
+                            ClassDatabase.Execute_non_Query(sql, True)
+                            ClassLogger.Add(" - Wieder abgemeldet", False)
                             START_INCOMPLETE = True
                             Exit Sub
                         Else
@@ -339,7 +371,7 @@ Public Class frmStart
                     sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Global-Indexer'"
                     Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
                     ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" - Anzahl Angemeldete User: " & anzahl.ToString, False)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
                     If Load_BasicConfig() = False Then
                         START_INCOMPLETE = True
                         Exit Sub
@@ -372,7 +404,7 @@ Public Class frmStart
         Try
             Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM  TBHOTKEY_USER_PROFILE WHERE USER_ID = " & CURRENT_USERID & " GROUP BY HOTKEY1, HOTKEY2", True)
             If DT.Rows.Count > 0 Then
-                If LogErrorsOnly = False Then ClassLogger.Add(" ... " & DT.Rows.Count & " Hotkeys", False)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False)
                 Dim i As Integer = 0
                 For Each row As DataRow In DT.Rows
                     i += 1
@@ -391,21 +423,21 @@ Public Class frmStart
 
                     Select Case row.Item("HOTKEY1")
                         Case "Strg"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False)
                             HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
                         Case "Shift"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False)
                             HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
                         Case "Alt"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False)
                             HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
                         Case "win"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False)
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False)
                             HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
                     End Select
                 Next
             Else
-                If LogErrorsOnly = False Then ClassLogger.Add(" ... Keine Hotkeys!", False)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False)
             End If
         Catch ex As Exception
             MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -444,18 +476,30 @@ Public Class frmStart
             If FW_started = True Then
                 'Prüfen ob alle Files abgearbeitet wurden
                 Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
-                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
+                DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
-                If DT.Rows.Count > 0 Then
+                If DTACTUAL_FILES.Rows.Count > 0 Then
+                    ABORT_INDEXING = False
                     ' Dim fil As String
                     Me.TimerFolderWatch.Stop()
-                    For Each row As DataRow In DT.Rows
+                    For Each row As DataRow In DTACTUAL_FILES.Rows
-                        If ClassFilehandle.IsFileInUse(row.Item(1)) = True Then
+                        If ABORT_INDEXING = True Then
-                            CURRENT_WORKFILE = row.Item(1)
+                            Exit For
-                            CURRENT_FILENAME = row.Item(1)
+                        End If
-                            CURRENT_WORKFILE_GUID = row.Item("GUID")
+                        Dim FileForWork As String = row.Item(1)
-                            Open_IndexDialog()
+                        If LogErrorsOnly = False Then ClassLogger.Add(">> In Timer Folderwatch - File: " & FileForWork, False)
+                        Dim fileInUse As Boolean = ClassFilehandle.IsFileInUse(FileForWork)
+                        Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
+                        If fileInUse = False Then
+                            If fileexists = True Then
+                                CURRENT_WORKFILE = FileForWork
+                                CURRENT_FILENAME = FileForWork
+                                CURRENT_WORKFILE_GUID = row.Item("GUID")
+                                Open_IndexDialog()
+                            Else
+                                ClassLogger.Add(">> Datei existiert (noch) nicht - fileexists?!", False)
+                            End If
                         Else
-                            ClassLogger.Add(">> Datei '" & row.Item(1) & "' kann nicht exclusiv geöffnet werden!", False)
+                            ClassLogger.Add(">> Datei '" & row.Item(1) & "' kann nicht exclusiv geöffnet werden - fileInUse!", False)
                         End If
 
                     Next

SetupWix/Product.wxs

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
      xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
-  <Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.2.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
+  <Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.7.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
     <Package Id="*" Keywords="Installer" Description="Digital Data Global Indexer Setup" Comments="Global Indexer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
 
     <!-- Nicht entfernen! -->
@@ -136,9 +136,7 @@
         <Directory Id="ProgramMenuDir" Name="Global Indexer">
           <Component Id="ProgramMenuDir" Guid="5200DF59-FED6-4C5A-8393-90B8ED526432">
             <RemoveFolder Id="ProgramMenuDir" On="uninstall" />
-
+            <RegistryValue Root="HKMU" Key="Software\[Manufacturer]\[ProductName]" Type="string" Value="" KeyPath="yes" />
-            <!-- Wird bei Deinstallation gelöscht -->
-            <RegistryValue Root="HKCU" Key="Software\[Manufacturer]\[ProductName]" Type="string" Value="[DD]" Name="Path" />
           </Component>
         </Directory>
       </Directory>