Version 2.4.2.6

Global_Indexer/ClassEmailHeaderExtractor.vb

@@ -1,112 +1,105 @@
-Imports Independentsoft
+Imports Limilabs.Mail
+Imports Limilabs.Mail.MSG
 Imports System.Text.RegularExpressions
 
 Public Class ClassEmailHeaderExtractor
-    ''' <summary>
-    ''' Extrahiert die Headerinformationen aus einer .msg Datei mithilfe der MSG.NET Klasse
-    ''' </summary>
-    ''' <param name="path">Der Pfad einer .msg Datei</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(path As String)
-        Try
-            Dim msg As New Msg.Message(path)
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
-            Return headers
-        Catch ex As Exception
-            Return Nothing
-        End Try
-    End Function
+    '''' <summary>
+    '''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
+    '''' </summary>
+    '''' <param name="msg">Eine Email vom Typ Msg.Message</param>
+    '''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
+    'Public Shared Function getMessageHeaders(msg As Msg.Message)
+    '    Try
+    '        Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+    '        Return headers
+    '    Catch ex As Exception
+    '        Return Nothing
+    '    End Try
+    'End Function
 
-    ''' <summary>
-    ''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
-    ''' </summary>
-    ''' <param name="msg">Eine Email vom Typ Msg.Message</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(msg As Msg.Message)
-        Try
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
-            Return headers
-        Catch ex As Exception
-            Return Nothing
-        End Try
-    End Function
+    '''' <summary>
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
+    '''' </summary>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    '    If IsNothing(messageHeaders) Then
+    '        Return Nothing
+    '    End If
 
-    ''' <summary>
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
-    ''' </summary>
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
+    '    For Each rx In RegexList
+    '        Dim match As Match = rx.Match(messageHeaders)
+    '        Dim email As String = match.Groups(RegexGroup).Value
 
-        For Each rx In RegexList
-            Dim match As Match = rx.Match(messageHeaders)
-            Dim email As String = match.Groups(RegexGroup).Value
+    '        If Not String.IsNullOrWhiteSpace(email) Then
+    '            Return email
+    '        End If
+    '    Next
 
-            If Not String.IsNullOrWhiteSpace(email) Then
-                Return email
-            End If
-        Next
+    '    Return Nothing
+    'End Function
+    'Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
+    '    Try
+    '        Dim result = Nothing
+    '        Dim i As Integer = 0
+    '        If IsNothing(messageHeaders) Then
+    '            Return Nothing
+    '        End If
+    '        ' einen Regulären Ausdruck laden
+    '        Dim strRegex As String = Regex
+    '        Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
+    '        Dim strTargetString As String = messageHeaders.Trim
+    '        ' die Vorkommen im String auslesen
+    '        For Each myMatch As Match In myRegex.Matches(strTargetString)
+    '            If myMatch.Success Then
+    '                LOGGER.Debug("Match success. Matched Value: [{0}]", myMatch.Value)
 
-        Return Nothing
-    End Function
-    Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
-        Try
-            Dim result
-            Dim i As Integer = 0
-            If IsNothing(messageHeaders) Then
-                Return Nothing
-            End If
-            ' einen Regulären Ausdruck laden
-            Dim strRegex As String = Regex
-            Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace)
-            Dim strTargetString As String = messageHeaders.Trim
-            ' die Vorkommen im String auslesen
-            For Each myMatch As Match In myRegex.Matches(strTargetString)
-                If myMatch.Success Then
-                    If myMatch.Value <> "" Then
-                        If i = 0 Then
-                            result = myMatch.Value.ToString
-                        Else
-                            result = result & ";" & myMatch.Value.ToString
-                        End If
-                        i += 1
-                    End If
-                End If
-            Next
-            Return result
-        Catch ex As Exception
-            MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return Nothing
-        End Try
+    '                If myMatch.Value <> "" Then
+    '                    If i = 0 Then
+    '                        result = myMatch.Value.ToString
+    '                    Else
+    '                        result = result & ";" & myMatch.Value.ToString
+    '                    End If
+    '                    i += 1
+    '                End If
+    '            Else
+    '                LOGGER.Debug("Match failed!")
+    '            End If
+    '        Next
 
-    End Function
+    '        LOGGER.Debug("Extracted value: [{0}]", result)
 
-    ''' <summary>
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
-    ''' </summary>
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
+    '        Return result
+    '    Catch ex As Exception
+    '        LOGGER.Error(ex)
+    '        MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+    '        Return Nothing
+    '    End Try
+    'End Function
 
-        For Each rx In RegexList
-            Dim match As Match = rx.Match(messageHeaders)
-            Dim email As String = match.Groups(RegexGroup).Value
+    '''' <summary>
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
+    '''' </summary>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    '    If IsNothing(messageHeaders) Then
+    '        Return Nothing
+    '    End If
 
-            If Not String.IsNullOrWhiteSpace(email) Then
-                Return email
-            End If
-        Next
+    '    For Each rx In RegexList
+    '        Dim match As Match = rx.Match(messageHeaders)
+    '        Dim email As String = match.Groups(RegexGroup).Value
 
-        Return Nothing
-    End Function
+    '        If Not String.IsNullOrWhiteSpace(email) Then
+    '            Return email
+    '        End If
+    '    Next
+
+    '    Return Nothing
+    'End Function
 End Class

Global_Indexer/ClassFileDrop.vb

@@ -53,7 +53,7 @@ Public Class ClassFileDrop
                 Loop
                 stmInput.Close()
                 'Sonderzeichen entfernen
-                Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
+                Dim Tempfilename = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(stbFileName.ToString)
                 Dim anhaenge = e.Data.GetDataPresent("FileContents")
                 'Dim path As String = "C:\VBProjekte\Dateien"
                 '// put the zip file into the temp directory
@@ -117,10 +117,12 @@ Public Class ClassFileDrop
                     If subj.Contains("/") Then
                         subj = subj.Replace("/", "-")
                     End If
+
                     'Sonderzeichen entfernen
-                    subj = ClassFilehandle.InvalidCharacters(subj)
+                    subj = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(subj)
                     'hardcode a destination path for testing
                     Dim oFilename As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
+
                     oFilename = oFilename.Replace("?", "")
                     oFilename = oFilename.Replace("!", "")
                     oFilename = oFilename.Replace("%", "")
@@ -139,15 +141,20 @@ Public Class ClassFileDrop
                     ReDim Preserve files_dropped(i)
                     files_dropped(i) = "|OUTLOOK_MESSAGE|" & oFilename
                 Next
+
+
                 Return True
                 'Drop eines Outlook Attachments
             End If
+
         Catch ex As Exception
             MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
+
     End Function
 
+
     'Private Sub DragDrop_HandleTobit(e As DragEventArgs)
     '    If e.Data.GetDataPresent("#TobitMsgData") Then
     '        Dim Quellpfad As String = ""

Global_Indexer/ClassFilehandle.vb

@@ -1,46 +1,41 @@
 Imports System.IO
+Imports System.Guid
 Imports System.Text.RegularExpressions
-Imports Independentsoft
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Language
+Imports Limilabs.Mail
 
 Public Class ClassFilehandle
-    ''' <summary>
-    ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String
-    ''' die in Dateinamen nicht erlaubt sind.
-    ''' </summary>
-    ''' <param name="Input">Der zu prüfende String</param>
-    ''' <returns>String ohne nichterlaubte Zeichen</returns>
-    Public Shared Function InvalidCharacters(Input As String) As String
-        Dim replacement = ""
-        'Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
-        Dim regexSearch = New String(Path.GetInvalidFileNameChars()) & New String(Path.GetInvalidPathChars())
-        Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
-        Return r.Replace(Input, replacement)
-    End Function
-    Public Shared Function Decide_FileHandle(filename As String, handletype As String)
+    Public Shared Function Decide_FileHandle(pFilename As String, pHandletype As String)
         Try
-            If filename.EndsWith(".msg") Then
+            If pFilename.ToUpper.EndsWith(".MSG") Or pFilename.ToUpper.EndsWith(".EML") Then
                 CURRENT_MESSAGEID = ""
-                Dim _msg As New Msg.Message(filename)
-                If _msg.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
+                Dim oMail As IMail = EMAIL.Load_Email(pFilename)
+                If oMail.Attachments.Count > 0 Then
+                    Dim oTitle As String
+                    Dim oMessage As String
 
                     If USER_LANGUAGE = "de-DE" Then
-                        result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Nachfrage zur Indexierung:"
+                        oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?"
                     Else
-                        result = MessageBox.Show(New Form With {.TopMost = True}, "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Question about Indexing:"
+                        oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?"
                     End If
+                    Dim oResult As DialogResult
 
-                    If result = MsgBoxResult.Yes Then
-                        If handletype.StartsWith("|FW") Then
-                            Return Email_Decay(filename, True)
-                        Else
-                            Return Email_Decay(filename)
-                        End If
+                    ' Weird hack to force messagebox to be topmost
+                    ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
+                    oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+
+                    If oResult = MsgBoxResult.Yes Then
+                        Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
+                        Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
                     End If
                 End If
             End If
 
-            If filename.ToUpper.EndsWith(".LNK") Then
+            If pFilename.ToUpper.EndsWith(".LNK") Then
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
                 Else
@@ -49,112 +44,162 @@ Public Class ClassFilehandle
                 Return False
             End If
 
-            Return Insert_GI_File(filename, handletype)
+            Return Insert_GI_File(pFilename, pHandletype)
         Catch ex As Exception
             MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
     End Function
-    Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+
+    Private Shared Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean
         Try
-            Dim msgonly As String = "|MSGONLY|"
-            Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
-            If FW = True Then
-                msgonly = "|FW_MSGONLY|"
-                ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+            Dim oMessageOnlyMarker As String = "|MSGONLY|"
+            Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
+            If pFolderWatch = True Then
+                oMessageOnlyMarker = "|FW_MSGONLY|"
+                oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
             End If
-            Dim erfolgreich As Boolean = False
-            Dim msg As New Msg.Message(msgname)
+            Dim oSuccess As Boolean = False
 
-            If Not msg.InternetMessageId Is Nothing Then
-                CURRENT_MESSAGEID = msg.InternetMessageId
+            LOGGER.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
+            Dim oEmail As IMail = EMAIL.Load_Email(pEmailFilePath)
+
+            If oEmail.MessageID IsNot Nothing Then
+                CURRENT_MESSAGEID = oEmail.MessageID
             Else
-                LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
-                Dim sGUID As String
-                sGUID = System.Guid.NewGuid.ToString()
-                CURRENT_MESSAGEID = sGUID
+                LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+                CURRENT_MESSAGEID = NewGuid.ToString()
             End If
 
-            'Nur die MSGDatei ablegen
-            Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+            Dim oEmailFilePathWithoutAttachments = EMAIL.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
+            TEMP_FILES.Add(oEmailFilePathWithoutAttachments)
 
-            If File.Exists(tempfile) Then
-                File.Delete(tempfile)
-            End If
-            Dim _msgEXAtt As New Msg.Message(msgname)
-            _msgEXAtt.Attachments.Clear()
-            _msgEXAtt.Save(tempfile)
-            'Datei in Array zum Templöschen speichern
-            TEMP_FILES.Add(tempfile)
+            If Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
+                oSuccess = True
 
-            If Insert_GI_File(tempfile, msgonly) = True Then
-                erfolgreich = True
-                'Hier nun die Anhänge herauslösen
-                Dim _msg As New Msg.Message(msgname)
-                Dim i1 As Integer = 1
+                Dim oAttachments As List(Of String) = EMAIL.Save_AttachmentsToDisk(pEmailFilePath)
 
-                LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
-                For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
-                    If erfolgreich = False Then
+                LOGGER.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
+
+                For Each oAttachment In oAttachments
+                    TEMP_FILES.Add(oAttachment)
+                    LOGGER.Debug("Saved attachment [{0}].", oAttachment)
+                    oSuccess = Insert_GI_File(oAttachment, oExtractedAttachmentMarker)
+
+                    If oSuccess = False Then
+                        LOGGER.Warn("Saving attachment to disk failed: [{0}]", oAttachment)
                         Exit For
                     End If
-                    Dim attachment_name As String
-                    If attachment.LongFileName Is Nothing Then
-                        attachment_name = attachment.DisplayName
-                    Else
-                        attachment_name = attachment.LongFileName
-                    End If
-                    If attachment.EmbeddedMessage IsNot Nothing Then
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-
-                        If tempfile <> String.Empty Then
-                            Dim oMessage = attachment.EmbeddedMessage
-                            oMessage.Save(tempfile)
-                            TEMP_FILES.Add(tempfile)
-                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    ElseIf Not attachment_name.Contains("inline") Then
-                        'Sonderzeichen entfernen
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name)
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-                        If tempfile <> "" Then
-                            attachment.Save(tempfile)
-                            'Datei in Array zum Templöschen speichern
-                            TEMP_FILES.Add(tempfile)
-                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
-                            'nun der Insert des Anhanges
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    End If
                 Next
             End If
-            Return erfolgreich
+
+            Return oSuccess
         Catch ex As Exception
-            MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Warn("Saving email to disk failed (Email_Decay)")
+            LOGGER.Error(ex)
+
+            Return False
         End Try
     End Function
 
+    'Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    '    Try
+    '        Dim msgonly As String = "|MSGONLY|"
+    '        Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+    '        If FW = True Then
+    '            msgonly = "|FW_MSGONLY|"
+    '            ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+    '        End If
+    '        Dim erfolgreich As Boolean = False
+    '        Dim msg As New MSG.Message(msgname)
+
+    '        If msg.InternetMessageId IsNot Nothing Then
+    '            CURRENT_MESSAGEID = msg.InternetMessageId
+    '        Else
+    '            LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+    '            Dim sGUID As String
+    '            sGUID = System.Guid.NewGuid.ToString()
+    '            CURRENT_MESSAGEID = sGUID
+    '        End If
+
+    '        'Nur die MSGDatei ablegen
+    '        Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+
+    '        If File.Exists(tempfile) Then
+    '            File.Delete(tempfile)
+    '        End If
+    '        Dim _msgEXAtt As New Msg.Message(msgname)
+    '        _msgEXAtt.Attachments.Clear()
+    '        _msgEXAtt.Save(tempfile)
+    '        'Datei in Array zum Templöschen speichern
+    '        TEMP_FILES.Add(tempfile)
+
+    '        If Insert_GI_File(tempfile, msgonly) = True Then
+    '            erfolgreich = True
+    '            'Hier nun die Anhänge herauslösen
+    '            Dim _msg As New Msg.Message(msgname)
+    '            Dim i1 As Integer = 1
+
+    '            LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
+    '            For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+    '                If erfolgreich = False Then
+    '                    Exit For
+    '                End If
+    '                Dim attachment_name As String
+    '                If attachment.LongFileName Is Nothing Then
+    '                    attachment_name = attachment.DisplayName
+    '                Else
+    '                    attachment_name = attachment.LongFileName
+    '                End If
+    '                If attachment.EmbeddedMessage IsNot Nothing Then
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+    '                    If tempfile <> String.Empty Then
+    '                        Dim oMessage = attachment.EmbeddedMessage
+    '                        oMessage.IsEmbedded = False
+    '                        oMessage.Save(tempfile)
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                ElseIf Not attachment_name.Contains("inline") Then
+    '                    'Sonderzeichen entfernen
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name)
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+    '                    If tempfile <> "" Then
+    '                        attachment.Save(tempfile)
+    '                        'Datei in Array zum Templöschen speichern
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        'nun der Insert des Anhanges
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                End If
+    '            Next
+    '        End If
+    '        Return erfolgreich
+    '    Catch ex As Exception
+    '        MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Function
+
     Private Shared Function Insert_GI_File(filename As String, handleType As String)
         Try
             filename = filename.Replace("'", "''")
 
-            Dim oHash As String
+            Dim oHash As String = String.Empty
 
             If File.Exists(filename) Then
-                Try
-                    oHash = FILESYSTEM.GetChecksum(filename)
-                Catch ex As Exception
-                    LOGGER.Error(ex)
-                    oHash = String.Empty
-                End Try
+                If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    oHash = FILESYSTEM.GetChecksumFromString(filename)
                 Else
-                oHash = String.Empty
+                    oHash = FILESYSTEM.GetChecksum(filename)
+                End If
             End If
 
             Dim filename_only As String = Path.GetFileName(filename)
@@ -195,7 +240,7 @@ Public Class ClassFilehandle
         Try
             Dim version As Integer = 1
 
-            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname)
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname).Trim()
             extension = Path.GetExtension(Dateiname)
 
             Dim _neuername As String = Stammname

Global_Indexer/ClassFolderWatcher.vb

@@ -1,5 +1,4 @@
 Imports System.IO
-Imports Independentsoft
 Imports System.Threading
 
 Public Class ClassFolderWatcher

Global_Indexer/ClassIndexFunctions.vb

@@ -1,34 +1,39 @@
 Imports System.IO
 
 Public Class ClassIndexFunctions
-    Public Shared Function FileExistsinDropTable(Filename As String) As Date
+    Public Shared Function FileExistsinDropTable(pFilename As String, pHandleType As String) As Date
         Dim oSQL As String
         Dim oHash As String
 
         Try
-            If Filename.Contains("'") Then
-                Filename = Filename.Replace("'", "''")
+            If pFilename.Contains("'") Then
+                pFilename = pFilename.Replace("'", "''")
             End If
 
+            If pFilename.ToUpper.EndsWith(".MSG") And (pHandleType = "|OUTLOOK_MESSAGE|" Or pHandleType = "|MSGONLY|") Then
+                ' MSG Files cannot be hashed based on filecontents, so we use the filename instead
+                oHash = FILESYSTEM.GetChecksumFromString(pFilename)
+            Else
                 ' If file cannot be accessed, checksum cannot be generated
                 ' In this case, the file should be treated as not yet existing
-            oHash = FILESYSTEM.GetChecksum(Filename)
+                oHash = FILESYSTEM.GetChecksum(pFilename)
+            End If
 
             If oHash Is Nothing Then
-                LOGGER.Warn("Checksum for file {0} could not be generated. Treating as new file.", Filename)
+                LOGGER.Warn("Checksum for file {0} could not be generated. Treating as new file.", pFilename)
                 Return Nothing
             End If
 
-            oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
-            Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+            'oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
+            'Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
 
-            If oResult Is Nothing Then
-                Return Nothing
-            End If
+            'If oResult Is Nothing Then
+            'Return Nothing
+            'End If
 
-            If oResult.Rows.Count = 0 Then
+            'If oResult.Rows.Count = 0 Then
             oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
-                oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+            Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
 
             If oResult Is Nothing Then
                 Return Nothing
@@ -40,35 +45,37 @@ Public Class ClassIndexFunctions
                 Dim oFirstRow As DataRow = oResult.Rows.Item(0)
                 Return oFirstRow.Item("ADDED_WHEN")
             End If
-            Else
-                Dim oFirstRow As DataRow = oResult.Rows.Item(0)
-                Return oFirstRow.Item("ADDED_WHEN")
-            End If
+            'Else
+            'Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+            'Return oFirstRow.Item("ADDED_WHEN")
+            'End If
         Catch ex As Exception
             MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
             Return Nothing
         End Try
     End Function
 
-    Public Shared Function CheckDuplicateFiles(Filepath As String, ModuleTitle As String)
-        Dim oFileInfo As New FileInfo(Filepath)
+    Public Shared Function CheckDuplicateFiles(pFilepath As String, pModuleTitle As String, Optional pHandleType As String = "")
+        Dim oFileInfo As New FileInfo(pFilepath)
         Dim oFilename As String = oFileInfo.Name
-        Dim oFileExists As Date = FileExistsinDropTable(Filepath)
+        Dim oFileExists As Date = FileExistsinDropTable(pFilepath, pHandleType)
 
         If oFileExists.Equals(Date.MinValue) Then
             Return True
         Else
             Dim oResult As DialogResult
             Dim oDate As String = oFileExists.ToString("d")
-            Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
-            Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
+            Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
+            Dim oMessage As String
 
             If USER_LANGUAGE = "de-DE" Then
-                oResult = MsgBox($"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?", oBoxOptions, oBoxTitle)
+                oMessage = $"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?"
             Else
-                oResult = MsgBox($"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?", oBoxOptions, oBoxTitle)
+                oMessage = $"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?"
             End If
 
+            oResult = MessageBox.Show(oMessage, oBoxTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+
             If oResult = DialogResult.Yes Then
                 Return True
             End If

Global_Indexer/ClassInit.vb

@@ -1,9 +1,10 @@
 Imports System.ComponentModel
-Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Windream
 Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
+Imports DLLLicenseManager
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
@@ -67,6 +68,7 @@ Public Class ClassInit
         configResult = Load_BasicConfig()
 
         FILESYSTEM = New File(LOGCONFIG)
+        EMAIL = New Email2(LOGCONFIG)
 
         If configResult = False Then
             If USER_LANGUAGE = "de-DE" Then

Global_Indexer/Global_Indexer.vbproj

@@ -167,10 +167,17 @@
       <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
       <SpecificVersion>False</SpecificVersion>
     </Reference>
+    <Reference Include="DigitalData.Modules.Language, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Logging, Version=2.0.0.1, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.Messaging">
+      <HintPath>..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Windows">
       <HintPath>..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
     </Reference>
@@ -182,10 +189,6 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
-    </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
       <EmbedInteropTypes>False</EmbedInteropTypes>
@@ -194,6 +197,10 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
+    <Reference Include="Mail, Version=3.0.21189.1553, Culture=neutral, PublicKeyToken=6dc438ab78a525b3, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
@@ -467,6 +474,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.en-US.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.en.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
@@ -768,6 +776,9 @@
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
     <Content Include="globe_handdrawn.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Resources\DD_Icons_ICO_GLOBIX_1.ico" />
     <None Include="Resources\itemtypechecked.svg" />
     <None Include="Resources\trackingchanges_next.svg" />

Global_Indexer/MailLicense.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<License>
+  <Id>4dc5ef40-f1a9-468b-994c-b7ed600ad878</Id>
+  <ProductName>Mail.dll</ProductName>
+  <SubscriptionUntil>2022-07-29</SubscriptionUntil>
+  <RegisteredTo>Digital Data GmbH</RegisteredTo>
+  <LicenseType>single developer</LicenseType>
+  <BuyerName>Digital Data GmbH</BuyerName>
+  <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
+    <SignedInfo>
+      <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />
+      <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
+      <Reference URI="">
+        <Transforms>
+          <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
+        </Transforms>
+        <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
+        <DigestValue>75MRtl4ipYelIZYlpT8O7QDX9Zc=</DigestValue>
+      </Reference>
+    </SignedInfo>
+    <SignatureValue>Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo=</SignatureValue>
+  </Signature>
+</License>

Global_Indexer/ModuleCURRENT.vb

@@ -1,6 +1,7 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
 
 Module ModuleCURRENT
     Public ERROR_STATE As String
@@ -16,6 +17,7 @@ Module ModuleCURRENT
     Public LOGCONFIG As LogConfig
     Public LOGGER As Logger
     Public FILESYSTEM As File
+    Public EMAIL As Email2
 
     Public CURRENT_DOKART_ID As Integer
     Public CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2406")>
+<Assembly: AssemblyTrademark("2420")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.0.6")>
+<Assembly: AssemblyVersion("2.4.2.6")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/MyDataset.Designer.vb

@@ -7784,6 +7784,8 @@ Partial Public Class MyDataset
         
         Private columnFILENAME_ONLY As Global.System.Data.DataColumn
         
+        Private columnFILE_HASH As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -7883,6 +7885,14 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property FILE_HASHColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnFILE_HASH
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -7920,9 +7930,9 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow
+        Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String, ByVal FILE_HASH As String) As TBGI_FILES_USERRow
             Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY}
+            Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY, FILE_HASH}
             rowTBGI_FILES_USERRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowTBGI_FILES_USERRow)
             Return rowTBGI_FILES_USERRow
@@ -7959,6 +7969,7 @@ Partial Public Class MyDataset
             Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE")
             Me.columnDelete = MyBase.Columns("Delete")
             Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY")
+            Me.columnFILE_HASH = MyBase.Columns("FILE_HASH")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -7982,6 +7993,8 @@ Partial Public Class MyDataset
             MyBase.Columns.Add(Me.columnDelete)
             Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnFILENAME_ONLY)
+            Me.columnFILE_HASH = New Global.System.Data.DataColumn("FILE_HASH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnFILE_HASH)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnGUID.AutoIncrement = true
             Me.columnGUID.AutoIncrementSeed = -1
@@ -7995,6 +8008,7 @@ Partial Public Class MyDataset
             Me._columnUSER_WORK.MaxLength = 50
             Me.columnWORKED.AllowDBNull = false
             Me.columnADDED_WHEN.AllowDBNull = false
+            Me.columnHANDLE_TYPE.AllowDBNull = false
             Me.columnHANDLE_TYPE.MaxLength = 50
             Me.columnDelete.DefaultValue = CType(false,Boolean)
             Me.columnFILENAME_ONLY.AllowDBNull = false
@@ -13521,11 +13535,7 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property HANDLE_TYPE() As String
             Get
-                Try 
                 Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String)
-                Catch e As Global.System.InvalidCastException
-                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e)
-                End Try
             End Get
             Set
                 Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value
@@ -13560,15 +13570,18 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Function IsHANDLE_TYPENull() As Boolean
-            Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn)
-        End Function
-        
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Sub SetHANDLE_TYPENull()
-            Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull
-        End Sub
+        Public Property FILE_HASH() As String
+            Get
+                Try 
+                    Return CType(Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_HASH in Tabelle TBGI_FILES_USER ist DBNull.", e)
+                End Try
+            End Get
+            Set
+                Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = value
+            End Set
+        End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
@@ -13581,6 +13594,18 @@ Partial Public Class MyDataset
         Public Sub SetDeleteNull()
             Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull
         End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Function IsFILE_HASHNull() As Boolean
+            Return Me.IsNull(Me.tableTBGI_FILES_USER.FILE_HASHColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetFILE_HASHNull()
+            Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = Global.System.Convert.DBNull
+        End Sub
     End Class
     
     '''<summary>
@@ -18205,78 +18230,55 @@ Namespace MyDatasetTableAdapters
             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.InsertCommand.Connection = Me.Connection
-            Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_INDEX_AUTOM] ([DOCTYPE_ID], [INDEXNAME], [VALUE], [CONNECTION_I"& _ 
-                "D], [COMMENT], [ACTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN"& _ 
-                "], [SQL_RESULT], [SQL_ACTIVE]) VALUES (@DOCTYPE_ID, @INDEXNAME, @VALUE, @CONNECT"& _ 
-                "ION_ID, @COMMENT, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN,"& _ 
-                " @SQL_RESULT, @SQL_ACTIVE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTI"& _ 
-                "ON_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RE"& _ 
-                "SULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY "& _ 
-                "SEQUENCE"
+            Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         (DOCTYPE_ID, INDEXNAME, VA"& _ 
+                "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ 
+                "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@DOCTYPE_ID,@INDEXNAME,"& _ 
+                "@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _ 
+                "GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _ 
+                "E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ 
+                "ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _ 
+                "NTITY()) ORDER BY SEQUENCE"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
-            Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_INDEX_AUTOM] SET [DOCTYPE_ID] = @DOCTYPE_ID, [INDEXNAME] = @INDEXNAM"& _ 
-                "E, [VALUE] = @VALUE, [CONNECTION_ID] = @CONNECTION_ID, [COMMENT] = @COMMENT, [AC"& _ 
-                "TIVE] = @ACTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ 
-                "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [SQL_RESULT] = @SQL_RESULT,"& _ 
-                " [SQL_ACTIVE] = @SQL_ACTIVE WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] ="& _ 
-                " @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VAL"& _ 
-                "UE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID]"& _ 
-                " = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR "& _ 
-                "([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_W"& _ 
-                "HO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL"& _ 
-                ") OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [C"& _ 
-                "HANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_C"& _ 
-                "HANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANG"& _ 
-                "ED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Origina"& _ 
-                "l_SQL_ACTIVE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMME"& _ 
-                "NT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_AC"& _ 
-                "TIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE"
+            Me._adapter.UpdateCommand.CommandText = "UPDATE       TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ 
+                "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ 
+                "MMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         ADDE"& _ 
+                "D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _ 
+                "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ 
+                "       (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _ 
+                "NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ 
+                "QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _ 
+                "CE"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -18292,9 +18294,10 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
-            Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_"& _ 
-                "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_IND"& _ 
-                "EX_AUTOM WHERE (DOCTYPE_ID = @DOCTYPE_ID) ORDER BY SEQUENCE"
+            Me._commandCollection(0).CommandText = "SELECT        GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ 
+                " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _ 
+                "NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ 
+                "ORDER BY SEQUENCE"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
@@ -18432,7 +18435,7 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
-        Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer
+        Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As Integer
             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
             If (INDEXNAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18477,6 +18480,7 @@ Namespace MyDatasetTableAdapters
                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_RESULT,String)
             End If
             Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
+            Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -18496,33 +18500,7 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
-        Public Overloads Overridable Function Update( _
-                    ByVal DOCTYPE_ID As Integer,  _
-                    ByVal INDEXNAME As String,  _
-                    ByVal VALUE As String,  _
-                    ByVal CONNECTION_ID As Short,  _
-                    ByVal COMMENT As String,  _
-                    ByVal ACTIVE As Boolean,  _
-                    ByVal ADDED_WHO As String,  _
-                    ByVal ADDED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal CHANGED_WHO As String,  _
-                    ByVal CHANGED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal SQL_RESULT As String,  _
-                    ByVal SQL_ACTIVE As Boolean,  _
-                    ByVal Original_GUID As Integer,  _
-                    ByVal Original_DOCTYPE_ID As Integer,  _
-                    ByVal Original_INDEXNAME As String,  _
-                    ByVal Original_VALUE As String,  _
-                    ByVal Original_CONNECTION_ID As Short,  _
-                    ByVal Original_COMMENT As String,  _
-                    ByVal Original_ACTIVE As Boolean,  _
-                    ByVal Original_ADDED_WHO As String,  _
-                    ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal Original_CHANGED_WHO As String,  _
-                    ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal Original_SQL_RESULT As String,  _
-                    ByVal Original_SQL_ACTIVE As Boolean,  _
-                    ByVal GUID As Integer) As Integer
+        Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
             If (INDEXNAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18567,62 +18545,9 @@ Namespace MyDatasetTableAdapters
                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_RESULT,String)
             End If
             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer)
-            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_DOCTYPE_ID,Integer)
-            If (Original_INDEXNAME Is Nothing) Then
-                Throw New Global.System.ArgumentNullException("Original_INDEXNAME")
-            Else
-                Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_INDEXNAME,String)
-            End If
-            If (Original_VALUE Is Nothing) Then
-                Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
-                Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
-            Else
-                Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
-                Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_VALUE,String)
-            End If
-            Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CONNECTION_ID,Short)
-            If (Original_COMMENT Is Nothing) Then
-                Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
-                Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
-            Else
-                Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
-                Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_COMMENT,String)
-            End If
-            Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ACTIVE,Boolean)
-            If (Original_ADDED_WHO Is Nothing) Then
-                Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
-            Else
-                Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String)
-            End If
-            If (Original_ADDED_WHEN.HasValue = true) Then
-                Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
-                Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date)
-            Else
-                Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
-                Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
-            End If
-            If (Original_CHANGED_WHO Is Nothing) Then
-                Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
-                Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
-            Else
-                Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
-                Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String)
-            End If
-            If (Original_CHANGED_WHEN.HasValue = true) Then
-                Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
-                Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date)
-            Else
-                Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
-                Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
-            End If
-            If (Original_SQL_RESULT Is Nothing) Then
-                Throw New Global.System.ArgumentNullException("Original_SQL_RESULT")
-            Else
-                Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_SQL_RESULT,String)
-            End If
-            Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_SQL_ACTIVE,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(30).Value = CType(GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
+            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -18637,39 +18562,6 @@ Namespace MyDatasetTableAdapters
                 End If
             End Try
         End Function
-        
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
-         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
-         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
-        Public Overloads Overridable Function Update( _
-                    ByVal DOCTYPE_ID As Integer,  _
-                    ByVal INDEXNAME As String,  _
-                    ByVal VALUE As String,  _
-                    ByVal CONNECTION_ID As Short,  _
-                    ByVal COMMENT As String,  _
-                    ByVal ACTIVE As Boolean,  _
-                    ByVal ADDED_WHO As String,  _
-                    ByVal ADDED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal CHANGED_WHO As String,  _
-                    ByVal CHANGED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal SQL_RESULT As String,  _
-                    ByVal SQL_ACTIVE As Boolean,  _
-                    ByVal Original_GUID As Integer,  _
-                    ByVal Original_DOCTYPE_ID As Integer,  _
-                    ByVal Original_INDEXNAME As String,  _
-                    ByVal Original_VALUE As String,  _
-                    ByVal Original_CONNECTION_ID As Short,  _
-                    ByVal Original_COMMENT As String,  _
-                    ByVal Original_ACTIVE As Boolean,  _
-                    ByVal Original_ADDED_WHO As String,  _
-                    ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal Original_CHANGED_WHO As String,  _
-                    ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date),  _
-                    ByVal Original_SQL_RESULT As String,  _
-                    ByVal Original_SQL_ACTIVE As Boolean) As Integer
-            Return Me.Update(DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, Original_GUID, Original_DOCTYPE_ID, Original_INDEXNAME, Original_VALUE, Original_CONNECTION_ID, Original_COMMENT, Original_ACTIVE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_SQL_RESULT, Original_SQL_ACTIVE, Original_GUID)
-        End Function
     End Class
     
     '''<summary>
@@ -20697,6 +20589,7 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
             tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE")
             tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY")
+            tableMapping.ColumnMappings.Add("FILE_HASH", "FILE_HASH")
             Me._adapter.TableMappings.Add(tableMapping)
         End Sub
         
@@ -20714,8 +20607,8 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
             Me._commandCollection(0).CommandText = "SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI"& _ 
-                "LENAME_ONLY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (WORKED = 0) AND (UPP"& _ 
-                "ER(USER@WORK) = UPPER(@USERNAME))"
+                "LENAME_ONLY, FILE_HASH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (WORKED = "& _ 
+                "0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub

Global_Indexer/MyDataset.xsd

@@ -657,27 +657,33 @@ ORDER BY SEQUENCE</CommandText>
                 </DeleteCommand>
                 <InsertCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>INSERT INTO [TBDD_INDEX_AUTOM] ([DOCTYPE_ID], [INDEXNAME], [VALUE], [CONNECTION_ID], [COMMENT], [ACTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [SQL_RESULT], [SQL_ACTIVE]) VALUES (@DOCTYPE_ID, @INDEXNAME, @VALUE, @CONNECTION_ID, @COMMENT, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @SQL_RESULT, @SQL_ACTIVE);
+                    <CommandText>INSERT INTO TBDD_INDEX_AUTOM
+                         (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)
+VALUES        (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); 
 SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (DOCTYPE_ID = @DOCTYPE_ID) ORDER BY SEQUENCE</CommandText>
+                    <CommandText>SELECT        GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE
+FROM            TBDD_INDEX_AUTOM
+WHERE        (DOCTYPE_ID = @DOCTYPE_ID)
+ORDER BY SEQUENCE</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
@@ -685,40 +691,27 @@ SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED
                 </SelectCommand>
                 <UpdateCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>UPDATE [TBDD_INDEX_AUTOM] SET [DOCTYPE_ID] = @DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [VALUE] = @VALUE, [CONNECTION_ID] = @CONNECTION_ID, [COMMENT] = @COMMENT, [ACTIVE] = @ACTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [SQL_RESULT] = @SQL_RESULT, [SQL_ACTIVE] = @SQL_ACTIVE WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Original_SQL_ACTIVE));
+                    <CommandText>UPDATE       TBDD_INDEX_AUTOM
+SET                DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, 
+                         ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE
+WHERE        (GUID = @Original_GUID); 
 SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_VALUE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@Original_CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Original" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
                   </DbCommand>
                 </UpdateCommand>
@@ -1089,10 +1082,10 @@ WHERE        (USER_ID = @USER_ID) ORDER BY NAME</CommandText>
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_FILES_USERTableAdapter" GeneratorDataComponentClassName="TBGI_FILES_USERTableAdapter" Name="TBGI_FILES_USER" UserDataComponentName="TBGI_FILES_USERTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_FILES_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBGI_FILES_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY
+                    <CommandText>SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH
 FROM            TBGI_FILES_USER
 WHERE        (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText>
                     <Parameters>
@@ -1110,6 +1103,7 @@ WHERE        (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText
               <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
               <Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" />
               <Mapping SourceColumn="FILENAME_ONLY" DataSetColumn="FILENAME_ONLY" />
+              <Mapping SourceColumn="FILE_HASH" DataSetColumn="FILE_HASH" />
             </Mappings>
             <Sources />
           </TableAdapter>
@@ -2177,7 +2171,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
               </xs:element>
               <xs:element name="WORKED" msprop:Generator_ColumnVarNameInTable="columnWORKED" msprop:Generator_ColumnPropNameInRow="WORKED" msprop:Generator_ColumnPropNameInTable="WORKEDColumn" msprop:Generator_UserColumnName="WORKED" type="xs:boolean" />
               <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
-              <xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE" minOccurs="0">
+              <xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="50" />
@@ -2192,6 +2186,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
+              <xs:element name="FILE_HASH" msprop:Generator_ColumnVarNameInTable="columnFILE_HASH" msprop:Generator_ColumnPropNameInRow="FILE_HASH" msprop:Generator_ColumnPropNameInTable="FILE_HASHColumn" msprop:Generator_UserColumnName="FILE_HASH" type="xs:string" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>

Global_Indexer/MyDataset.xss

@@ -6,28 +6,28 @@
 </autogenerated>-->
 <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="251" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:TBDD_USER" ZOrder="11" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="13" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
+    <Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="14" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
     <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="17" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="29" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
     <Shape ID="DesignTable:TBDD_MODULES" ZOrder="28" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="2" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="3" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
     <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="27" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="10" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
+    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="11" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
     <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="25" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="1" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="2" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="22" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="3" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="6" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="5" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="7" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="12" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="15" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="4" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="9" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="4" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="7" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="6" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="8" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="13" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="1" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
+    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="5" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="10" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="23" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
     <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="19" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBAD_Users" ZOrder="14" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
+    <Shape ID="DesignTable:TBAD_Users" ZOrder="15" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
   </Shapes>
   <Connectors>
     <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
@@ -118,7 +118,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="8" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="9" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/frmConfig_Basic.vb

@@ -516,11 +516,4 @@ Public Class frmConfig_Basic
         ' Navigate to a URL.
         System.Diagnostics.Process.Start("http://www.didalog.de/Support")
     End Sub
-
-    'Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged
-    '    If CURR_DELETE_ORIGIN <> chkdelete_origin.Checked Then
-    '        CURR_DELETE_ORIGIN = chkdelete_origin.Checked
-    '        SaveConfigValue("Delete_OriginFile", CURR_DELETE_ORIGIN)
-    '    End If
-    'End Sub
 End Class

Global_Indexer/frmIndex.designer.vb

@@ -107,9 +107,9 @@ Partial Class frmIndex
         Me.ComboboxDoctype.Name = "ComboboxDoctype"
         SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
         SerializableAppearanceObject1.Options.UseBackColor = True
-        Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboBoxEdit1.Properties.Buttons1"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboBoxEdit1.Properties.Buttons6"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons7"), Object), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
+        Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
         Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
-        Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboBoxEdit1.Properties.NullText")
+        Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
         Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
         '
         'RibbonControl1

Global_Indexer/frmIndex.resx

@@ -433,37 +433,37 @@
     <value>2</value>
   </data>
   <assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="ComboBoxEdit1.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
+  <data name="ComboboxDoctype.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
     <value>Combo</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons1" xml:space="preserve">
+  <data name="ComboboxDoctype.Properties.Buttons1" xml:space="preserve">
     <value />
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons2" type="System.Int32, mscorlib">
+  <data name="ComboboxDoctype.Properties.Buttons2" type="System.Int32, mscorlib">
     <value>20</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons3" type="System.Boolean, mscorlib">
+  <data name="ComboboxDoctype.Properties.Buttons3" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons4" type="System.Boolean, mscorlib">
+  <data name="ComboboxDoctype.Properties.Buttons4" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons5" type="System.Boolean, mscorlib">
+  <data name="ComboboxDoctype.Properties.Buttons5" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons6" xml:space="preserve">
+  <data name="ComboboxDoctype.Properties.Buttons6" xml:space="preserve">
     <value />
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons7" type="System.Resources.ResXNullRef, System.Windows.Forms">
+  <data name="ComboboxDoctype.Properties.Buttons7" type="System.Resources.ResXNullRef, System.Windows.Forms">
     <value />
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons8" type="System.Resources.ResXNullRef, System.Windows.Forms">
+  <data name="ComboboxDoctype.Properties.Buttons8" type="System.Resources.ResXNullRef, System.Windows.Forms">
     <value />
   </data>
-  <data name="ComboBoxEdit1.Properties.Buttons9" type="DevExpress.Utils.ToolTipAnchor, DevExpress.Utils.v19.2">
+  <data name="ComboboxDoctype.Properties.Buttons9" type="DevExpress.Utils.ToolTipAnchor, DevExpress.Utils.v19.2">
     <value>Default</value>
   </data>
-  <data name="ComboBoxEdit1.Properties.NullText" xml:space="preserve">
+  <data name="ComboboxDoctype.Properties.NullText" xml:space="preserve">
     <value>Bitte wählen Sie ein Profil</value>
   </data>
   <data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing">
@@ -619,7 +619,7 @@
     <value>DocumentViewer1</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.4.4.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.3.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>

Global_Indexer/frmIndexFileList.vb

@@ -8,12 +8,36 @@ Public Class frmIndexFileList
             Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
 
-            If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
-                CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
-                CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
-                CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+            'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+            '    CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+            '    CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+            '    CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+            'End If
+
+            CheckedListBoxControl1.DisplayMember = "FileName"
+            CheckedListBoxControl1.ValueMember = "FileName"
+            CheckedListBoxControl1.Items.Clear()
+
+            For Each oFile As DataRow In MyDataset1.TBGI_FILES_USER.Rows
+                Dim oFilename = oFile.Item("FILENAME_ONLY")
+                Dim oPath = oFile.Item("FILENAME2WORK")
+                Dim oHash = oFile.Item("FILE_HASH")
+                Dim oHandleType = oFile.Item("HANDLE_TYPE")
+
+                Dim oImportDate = ClassIndexFunctions.FileExistsinDropTable(oPath, oHandleType)
+                Dim oFileExists As Boolean = True
+
+                If oImportDate = DateTime.MinValue Then
+                    oFileExists = False
                 End If
 
+                CheckedListBoxControl1.Items.Add(New SplitFile With {
+                    .FileName = oFilename,
+                    .Exists = oFileExists,
+                    .[Date] = oImportDate
+                })
+            Next
+
             CheckedListBoxControl1.CheckAll()
 
         Catch ex As Exception
@@ -22,6 +46,20 @@ Public Class frmIndexFileList
         End Try
     End Sub
 
+    Public Class SplitFile
+        Public FileName As String
+        Public Exists As Boolean
+        Public [Date] As Date
+
+        Public Overrides Function ToString() As String
+            If Exists Then
+                Return $"{FileName} (Die Datei wurde bereits am [{[Date]}] verarbeitet)"
+            Else
+                Return FileName
+            End If
+        End Function
+    End Class
+
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
             LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)

Global_Indexer/frmStart.vb

@@ -1,6 +1,5 @@
 Imports System.IO
 Imports Microsoft.Office.Interop
-Imports Independentsoft
 Imports DLLLicenseManager
 Imports System.Text
 Imports System.Globalization
@@ -168,7 +167,7 @@ Public Class frmStart
                     Dim oHandleType As String = oFiledropString.Substring(0, oLastPipe + 1)
                     Dim oFilename As String = oFiledropString.Substring(oLastPipe + 1)
 
-                    If ClassIndexFunctions.CheckDuplicateFiles(oFilename, "Manuelle Ablage") Then
+                    If ClassIndexFunctions.CheckDuplicateFiles(oFilename, "Manuelle Ablage", oHandleType) Then
                         ClassFilehandle.Decide_FileHandle(oFilename, oHandleType)
                     End If
                 End If
@@ -199,9 +198,9 @@ Public Class frmStart
                 LOGGER.Debug("No files to be indexed, aborting!")
 
                 If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", MsgBoxStyle.Information, Text)
+                    MessageBox.Show("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                 Else
-                    MsgBox("You did not select any files for indexing. Indexing will be stopped.", MsgBoxStyle.Information, Text)
+                    MessageBox.Show("You did not select any files for indexing. Indexing will be stopped.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                 End If
             End If
 
@@ -218,6 +217,11 @@ Public Class frmStart
                 If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
                     Open_IndexDialog()
                 End If
+
+                ' If multi-indexing is active, all files have been indexed by now, so we can leave the loop
+                If MULTIINDEXING_ACTIVE Then
+                    Exit For
+                End If
             Next
 
             Show()
@@ -249,14 +253,17 @@ Public Class frmStart
         Catch ex As Exception
             MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
+
+        EMAIL.Clear_TempFiles()
+
         'TempDateien löschen
+        For Each oFile In TEMP_FILES
             Try
-            For Each _file In TEMP_FILES
-                System.IO.File.Delete(_file)
-            Next
+                System.IO.File.Delete(oFile)
             Catch ex As Exception
                 LOGGER.Error(ex)
             End Try
+        Next
 
         Try
             IndexForm.DisposeViewer()

SetupVS19/Product.wxs

@@ -118,6 +118,10 @@
         <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
         <File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
         <File Id="Windows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll" KeyPath="no" />
+        <File Id="Language" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll" KeyPath="no" />
+
+        <File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" Source="DigitalData.Modules.Messaging.dll" KeyPath="no" />
+        <File Id="Messaging.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
@@ -129,8 +133,8 @@
 
       <!--Verschiedene Bibliotheken-->
       <Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
-        <File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll" KeyPath="yes" />
         <File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
+        <File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
       </Component>
 
       <!--WINDREAM Bibliotheken-->