AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:21ea774aa791b316510ef1b1cbafb6a567d7fa17
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign
..
compare: AppStd:Limilabs
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign

32 Commits
21ea774aa7 ... Limilabs

Author SHA1 Message Date
Jonathan Jenne
f23a5a3ec1 Version 2.4.2.6 2021-08-23 14:38:43 +02:00
Jonathan Jenne
133d461395 clear all files after indexing 2021-08-23 14:32:34 +02:00
Jonathan Jenne
77ece6ca83 Clear tempfiles in every case after index button has been clicked 2021-08-23 14:30:27 +02:00
Jonathan Jenne
8c5927530d Delete Email Tempfiles at successful indexing and at program end 2021-08-23 14:29:10 +02:00
Jonathan Jenne
0c850a11fc Version 2.4.2.5 2021-08-23 14:17:24 +02:00
Jonathan Jenne
b4c9b4f0b8 simplify saving attachments 2021-08-23 14:14:06 +02:00
Jonathan Jenne
7f3a73afd3 Version 2.4.2.4 2021-08-23 13:43:59 +02:00
Jonathan Jenne
90eb5d18ec Version 2.4.2.3 2021-08-23 10:59:14 +02:00
Jonathan Jenne
a732db2171 Include Mail.dll in installer 2021-08-23 10:59:07 +02:00
Jonathan Jenne
0704b07de7 Version 2.4.2.2 - Remove Independentsoft Email, Replace with Limilabs.Mail, Remove manual Email Data Exctraction, Support Eml Files 2021-08-23 10:48:08 +02:00
Jonathan Jenne
3da7e37c91 Integration of LimiLabs, Init 2021-08-19 16:31:29 +02:00
Jonathan Jenne
d7fca23ebc Version 2.4.2.1 2021-07-08 13:50:46 +02:00
Jonathan Jenne
917d8b71a0 Add Language Module, use RemoveInvalidCharacters to Remove Emojis from Filenames 2021-07-08 13:50:05 +02:00
Jonathan Jenne
79202e379e Version 2.4.2 2021-07-08 12:52:20 +02:00
Jonathan Jenne
8d82888437 include SEQUENCE into dataset queries for TBDD_INDEX_AUTOM 2021-07-08 12:21:56 +02:00
Jonathan Jenne
d8dc517d11 fix: dont abort when deleting one temp file fails 2021-07-08 12:21:36 +02:00
Jonathan Jenne
f792a17395 Version 2.4.1 2021-07-07 16:50:03 +02:00
Jonathan Jenne
04b4a14ac8 fix getMessageHeaders 2021-07-07 16:49:03 +02:00
Jonathan Jenne
bcbc8890ed Version 2.4.0.12 2021-07-07 16:31:52 +02:00
Jonathan Jenne
0a0147f751 Fix frmIndexFileList message for already processed files 2021-07-07 16:31:27 +02:00
Jonathan Jenne
5622af9f04 Version 2.4.0.11 2021-07-07 16:25:39 +02:00
Jonathan Jenne
bb59b39773 exit file index loop when multiindexing was on 2021-07-07 16:25:27 +02:00
Jonathan Jenne
1a6d55d982 Version 2.4.0.10 2021-07-07 15:41:19 +02:00
Jonathan Jenne
03ab1f00c5 Bugfixes 2.4.0.9 2021-07-07 15:40:44 +02:00
Jonathan Jenne
b32fd431be Version 2.4.0.9 2021-07-07 11:31:50 +02:00
Jonathan Jenne
a581d8c81a Fix Filedrop 2021-07-07 11:31:22 +02:00
Jonathan Jenne
69554d7fbd Version 2.4.0.8 2021-07-07 10:59:49 +02:00
Jonathan Jenne
82be34b28e Duplicate files message box with top most, only hash filename for msg files directly from outlook 2021-07-07 10:59:23 +02:00
Jonathan Jenne
47a66e1220 Version 2.4.0.7 2021-07-06 16:46:39 +02:00
Jonathan Jenne
5c44668002 FileExists in DropTable: generate hash from filename for msg files 2021-07-06 16:45:32 +02:00
Jonathan Jenne
a0c725163a Decide_Filehandle: topmost MessageBox Fix 2021-07-06 16:41:10 +02:00
Jonathan Jenne
2ca5bd4c37 extractFromHeader: Make regex matching case insensitive 2021-07-06 16:40:17 +02:00
20 changed files with 1074 additions and 975 deletions
Expand all files Collapse all files

189
Global_Indexer/ClassEmailHeaderExtractor.vb
View File

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

11
Global_Indexer/ClassFileDrop.vb
View File

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

257
Global_Indexer/ClassFilehandle.vb
View File

@@ -1,46 +1,41 @@
Imports System.IO Imports System.IO
Imports System.Guid
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports Independentsoft Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Language
Imports Limilabs.Mail
Public Class ClassFilehandle Public Class ClassFilehandle
''' <summary> Public Shared Function Decide_FileHandle(pFilename As String, pHandletype As String)
''' 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)
Try Try
If filename.EndsWith(".msg") Then If pFilename.ToUpper.EndsWith(".MSG") Or pFilename.ToUpper.EndsWith(".EML") Then
CURRENT_MESSAGEID = "" CURRENT_MESSAGEID = ""
Dim _msg As New Msg.Message(filename) Dim oMail As IMail = EMAIL.Load_Email(pFilename)
If _msg.Attachments.Count > 0 Then If oMail.Attachments.Count > 0 Then
Dim result As MsgBoxResult Dim oTitle As String
Dim oMessage As String
If USER_LANGUAGE = "de-DE" Then 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 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 End If
Dim oResult As DialogResult
If result = MsgBoxResult.Yes Then ' Weird hack to force messagebox to be topmost
If handletype.StartsWith("|FW") Then ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
Return Email_Decay(filename, True) oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
Else
Return Email_Decay(filename) If oResult = MsgBoxResult.Yes Then
End If Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
End If End If
End If End If
End If End If
If filename.ToUpper.EndsWith(".LNK") Then If pFilename.ToUpper.EndsWith(".LNK") Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer") MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
Else Else
@@ -49,112 +44,162 @@ Public Class ClassFilehandle
Return False Return False
End If End If
Return Insert_GI_File(filename, handletype) Return Insert_GI_File(pFilename, pHandletype)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
End Function 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 Try
Dim msgonly As String = "|MSGONLY|" Dim oMessageOnlyMarker As String = "|MSGONLY|"
Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|" Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
If FW = True Then If pFolderWatch = True Then
msgonly = "|FW_MSGONLY|" oMessageOnlyMarker = "|FW_MSGONLY|"
ATT_EXTR = "|FW_ATTMNTEXTRACTED|" oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
End If End If
Dim erfolgreich As Boolean = False Dim oSuccess As Boolean = False
Dim msg As New Msg.Message(msgname)
If Not msg.InternetMessageId Is Nothing Then LOGGER.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
CURRENT_MESSAGEID = msg.InternetMessageId Dim oEmail As IMail = EMAIL.Load_Email(pEmailFilePath)
If oEmail.MessageID IsNot Nothing Then
CURRENT_MESSAGEID = oEmail.MessageID
Else Else
LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!") LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
Dim sGUID As String CURRENT_MESSAGEID = NewGuid.ToString()
sGUID = System.Guid.NewGuid.ToString()
CURRENT_MESSAGEID = sGUID
End If End If
'Nur die MSGDatei ablegen Dim oEmailFilePathWithoutAttachments = EMAIL.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg") TEMP_FILES.Add(oEmailFilePathWithoutAttachments)
If File.Exists(tempfile) Then If Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
File.Delete(tempfile) oSuccess = True
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 Dim oAttachments As List(Of String) = EMAIL.Save_AttachmentsToDisk(pEmailFilePath)
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) LOGGER.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
If erfolgreich = False Then 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 Exit For
End If 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 Next
End If End If
Return erfolgreich
Return oSuccess
Catch ex As Exception 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 Try
End Function 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) Private Shared Function Insert_GI_File(filename As String, handleType As String)
Try Try
filename = filename.Replace("'", "''") filename = filename.Replace("'", "''")
Dim oHash As String Dim oHash As String = String.Empty
If File.Exists(filename) Then If File.Exists(filename) Then
Try If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
oHash = FILESYSTEM.GetChecksum(filename) oHash = FILESYSTEM.GetChecksumFromString(filename)
Catch ex As Exception
LOGGER.Error(ex)
oHash = String.Empty
End Try
Else Else
oHash = String.Empty oHash = FILESYSTEM.GetChecksum(filename)
End If
End If End If
Dim filename_only As String = Path.GetFileName(filename) Dim filename_only As String = Path.GetFileName(filename)
@@ -195,7 +240,7 @@ Public Class ClassFilehandle
Try Try
Dim version As Integer = 1 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) extension = Path.GetExtension(Dateiname)
Dim _neuername As String = Stammname Dim _neuername As String = Stammname

1
Global_Indexer/ClassFolderWatcher.vb
View File

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

53
Global_Indexer/ClassIndexFunctions.vb
View File

@@ -1,34 +1,39 @@
Imports System.IO Imports System.IO
Public Class ClassIndexFunctions 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 oSQL As String
Dim oHash As String Dim oHash As String
Try Try
If Filename.Contains("'") Then If pFilename.Contains("'") Then
Filename = Filename.Replace("'", "''") pFilename = pFilename.Replace("'", "''")
End If 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 ' If file cannot be accessed, checksum cannot be generated
' In this case, the file should be treated as not yet existing ' 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 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 Return Nothing
End If End If
oSQL = "SELECT * FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN" '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) 'Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
If oResult Is Nothing Then 'If oResult Is Nothing Then
Return Nothing 'Return Nothing
End If '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" 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 If oResult Is Nothing Then
Return Nothing Return Nothing
@@ -40,35 +45,37 @@ Public Class ClassIndexFunctions
Dim oFirstRow As DataRow = oResult.Rows.Item(0) Dim oFirstRow As DataRow = oResult.Rows.Item(0)
Return oFirstRow.Item("ADDED_WHEN") Return oFirstRow.Item("ADDED_WHEN")
End If End If
Else 'Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0) 'Dim oFirstRow As DataRow = oResult.Rows.Item(0)
Return oFirstRow.Item("ADDED_WHEN") 'Return oFirstRow.Item("ADDED_WHEN")
End If 'End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical) MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function CheckDuplicateFiles(Filepath As String, ModuleTitle As String) Public Shared Function CheckDuplicateFiles(pFilepath As String, pModuleTitle As String, Optional pHandleType As String = "")
Dim oFileInfo As New FileInfo(Filepath) Dim oFileInfo As New FileInfo(pFilepath)
Dim oFilename As String = oFileInfo.Name 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 If oFileExists.Equals(Date.MinValue) Then
Return True Return True
Else Else
Dim oResult As DialogResult Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d") Dim oDate As String = oFileExists.ToString("d")
Dim oBoxTitle = $"GLOBIX - {ModuleTitle}" Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo Dim oMessage As String
If USER_LANGUAGE = "de-DE" Then 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 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 End If
oResult = MessageBox.Show(oMessage, oBoxTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If oResult = DialogResult.Yes Then If oResult = DialogResult.Yes Then
Return True Return True
End If End If

4
Global_Indexer/ClassInit.vb
View File

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

19
Global_Indexer/Global_Indexer.vbproj
View File

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

23
Global_Indexer/MailLicense.xml Normal file
View File

@@ -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>

2
Global_Indexer/ModuleCURRENT.vb
View File

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

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

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

303
Global_Indexer/MyDataset.Designer.vb generated
View File

@@ -7784,6 +7784,8 @@ Partial Public Class MyDataset
Private columnFILENAME_ONLY As Global.System.Data.DataColumn Private columnFILENAME_ONLY As Global.System.Data.DataColumn
Private columnFILE_HASH As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New() Public Sub New()
@@ -7883,6 +7885,14 @@ Partial Public Class MyDataset
End Get End Get
End Property 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@@ -7920,9 +7930,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 rowTBGI_FILES_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBGI_FILES_USERRow) Me.Rows.Add(rowTBGI_FILES_USERRow)
Return rowTBGI_FILES_USERRow Return rowTBGI_FILES_USERRow
@@ -7959,6 +7969,7 @@ Partial Public Class MyDataset
Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE")
Me.columnDelete = MyBase.Columns("Delete") Me.columnDelete = MyBase.Columns("Delete")
Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY") Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY")
Me.columnFILE_HASH = MyBase.Columns("FILE_HASH")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -7982,6 +7993,8 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnDelete) MyBase.Columns.Add(Me.columnDelete)
Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFILENAME_ONLY) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementSeed = -1
@@ -7995,6 +8008,7 @@ Partial Public Class MyDataset
Me._columnUSER_WORK.MaxLength = 50 Me._columnUSER_WORK.MaxLength = 50
Me.columnWORKED.AllowDBNull = false Me.columnWORKED.AllowDBNull = false
Me.columnADDED_WHEN.AllowDBNull = false Me.columnADDED_WHEN.AllowDBNull = false
Me.columnHANDLE_TYPE.AllowDBNull = false
Me.columnHANDLE_TYPE.MaxLength = 50 Me.columnHANDLE_TYPE.MaxLength = 50
Me.columnDelete.DefaultValue = CType(false,Boolean) Me.columnDelete.DefaultValue = CType(false,Boolean)
Me.columnFILENAME_ONLY.AllowDBNull = false 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property HANDLE_TYPE() As String Public Property HANDLE_TYPE() As String
Get Get
Try
Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String) 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 End Get
Set Set
Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value
@@ -13560,15 +13570,18 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsHANDLE_TYPENull() As Boolean Public Property FILE_HASH() As String
Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) Get
End Function Try
Return CType(Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn),String)
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Catch e As Global.System.InvalidCastException
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_HASH in Tabelle TBGI_FILES_USER ist DBNull.", e)
Public Sub SetHANDLE_TYPENull() End Try
Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull End Get
End Sub Set
Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
@@ -13581,6 +13594,18 @@ Partial Public Class MyDataset
Public Sub SetDeleteNull() Public Sub SetDeleteNull()
Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull
End Sub 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 End Class
'''<summary> '''<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.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 = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_INDEX_AUTOM] ([DOCTYPE_ID], [INDEXNAME], [VALUE], [CONNECTION_I"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _
"D], [COMMENT], [ACTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN"& _ "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
"], [SQL_RESULT], [SQL_ACTIVE]) VALUES (@DOCTYPE_ID, @INDEXNAME, @VALUE, @CONNECT"& _ "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,"& _
"ION_ID, @COMMENT, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN,"& _ "@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _
" @SQL_RESULT, @SQL_ACTIVE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTI"& _ "GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _
"ON_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RE"& _ "E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _
"SULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY "& _ "ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _
"SEQUENCE" "NTITY()) ORDER BY SEQUENCE"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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_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, 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("@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, 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_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, 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("@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, 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_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, 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("@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 = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_INDEX_AUTOM] SET [DOCTYPE_ID] = @DOCTYPE_ID, [INDEXNAME] = @INDEXNAM"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _
"E, [VALUE] = @VALUE, [CONNECTION_ID] = @CONNECTION_ID, [COMMENT] = @COMMENT, [AC"& _ "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _
"TIVE] = @ACTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ "MMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDE"& _
"WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [SQL_RESULT] = @SQL_RESULT,"& _ "D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _
" [SQL_ACTIVE] = @SQL_ACTIVE WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] ="& _ "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
" @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VAL"& _ " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _
"UE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID]"& _ "NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _
" = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR "& _ "QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _
"([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_W"& _ "CE"
"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.CommandType = Global.System.Data.CommandType.Text 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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_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, 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("@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, 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_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, 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("@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, 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_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, 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("@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("@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("@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_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_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("@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("@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("@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, "", "", ""))
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -18292,9 +18294,10 @@ Namespace MyDatasetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_"& _ Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_IND"& _ " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _
"EX_AUTOM WHERE (DOCTYPE_ID = @DOCTYPE_ID) ORDER BY SEQUENCE" "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).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, "", "", "")) 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 End Sub
@@ -18432,7 +18435,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ 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) Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
If (INDEXNAME Is Nothing) Then If (INDEXNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("INDEXNAME") Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18477,6 +18480,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_RESULT,String) Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_RESULT,String)
End If End If
Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean) 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 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update( _ 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
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
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
If (INDEXNAME Is Nothing) Then If (INDEXNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("INDEXNAME") Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18567,62 +18545,9 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_RESULT,String) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_RESULT,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_DOCTYPE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
If (Original_INDEXNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
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)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then
@@ -18637,39 +18562,6 @@ Namespace MyDatasetTableAdapters
End If End If
End Try End Try
End Function 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 End Class
'''<summary> '''<summary>
@@ -20697,6 +20589,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE")
tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY") tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY")
tableMapping.ColumnMappings.Add("FILE_HASH", "FILE_HASH")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
End Sub End Sub
@@ -20714,8 +20607,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI"& _ 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"& _ "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 = "& _
"ER(USER@WORK) = UPPER(@USERNAME))" "0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text 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, "", "", "")) 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 End Sub

93
Global_Indexer/MyDataset.xsd
View File

@@ -657,27 +657,33 @@ ORDER BY SEQUENCE</CommandText>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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> 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> <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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" 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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" 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="" 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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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> <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" /> <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> </Parameters>
@@ -685,40 +691,27 @@ SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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> 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> <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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" 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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" 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="" 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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" 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" />
<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" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@@ -1089,10 +1082,10 @@ WHERE (USER_ID = @USER_ID) ORDER BY NAME</CommandText>
</TableAdapter> </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"> <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> <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> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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 FROM TBGI_FILES_USER
WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText> WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText>
<Parameters> <Parameters>
@@ -1110,6 +1103,7 @@ WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" /> <Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" />
<Mapping SourceColumn="FILENAME_ONLY" DataSetColumn="FILENAME_ONLY" /> <Mapping SourceColumn="FILENAME_ONLY" DataSetColumn="FILENAME_ONLY" />
<Mapping SourceColumn="FILE_HASH" DataSetColumn="FILE_HASH" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@@ -2177,7 +2171,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
</xs:element> </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="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="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:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
<xs:maxLength value="50" /> <xs:maxLength value="50" />
@@ -2192,6 +2186,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

30
Global_Indexer/MyDataset.xss
View File

@@ -6,28 +6,28 @@
</autogenerated>--> </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"> <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> <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_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="13" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" /> <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_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_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_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: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: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_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: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="6" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <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="5" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <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="7" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <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="12" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <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="15" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <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="4" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <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="9" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <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: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: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> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
@@ -118,7 +118,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </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> <RoutePoints>
<Point> <Point>
<X>380</X> <X>380</X>

7
Global_Indexer/frmConfig_Basic.vb
View File

@@ -516,11 +516,4 @@ Public Class frmConfig_Basic
' Navigate to a URL. ' Navigate to a URL.
System.Diagnostics.Process.Start("http://www.didalog.de/Support") System.Diagnostics.Process.Start("http://www.didalog.de/Support")
End Sub 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 End Class

4
Global_Indexer/frmIndex.designer.vb generated
View File

@@ -107,9 +107,9 @@ Partial Class frmIndex
Me.ComboboxDoctype.Name = "ComboboxDoctype" 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.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
SerializableAppearanceObject1.Options.UseBackColor = True 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.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) Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
' '
'RibbonControl1 'RibbonControl1

24
Global_Indexer/frmIndex.resx
View File

@@ -433,37 +433,37 @@
<value>2</value> <value>2</value>
</data> </data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <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> <value>Combo</value>
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons1" xml:space="preserve"> <data name="ComboboxDoctype.Properties.Buttons1" xml:space="preserve">
<value /> <value />
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons2" type="System.Int32, mscorlib"> <data name="ComboboxDoctype.Properties.Buttons2" type="System.Int32, mscorlib">
<value>20</value> <value>20</value>
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons3" type="System.Boolean, mscorlib"> <data name="ComboboxDoctype.Properties.Buttons3" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons4" type="System.Boolean, mscorlib"> <data name="ComboboxDoctype.Properties.Buttons4" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons5" type="System.Boolean, mscorlib"> <data name="ComboboxDoctype.Properties.Buttons5" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
<data name="ComboBoxEdit1.Properties.Buttons6" xml:space="preserve"> <data name="ComboboxDoctype.Properties.Buttons6" xml:space="preserve">
<value /> <value />
</data> </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 /> <value />
</data> </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 /> <value />
</data> </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> <value>Default</value>
</data> </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> <value>Bitte wählen Sie ein Profil</value>
</data> </data>
<data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing"> <data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing">
@@ -619,7 +619,7 @@
<value>DocumentViewer1</value> <value>DocumentViewer1</value>
</data> </data>
<data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve"> <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>
<data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve"> <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>

908
Global_Indexer/frmIndex.vb
View File

File diff suppressed because it is too large Load Diff

46
Global_Indexer/frmIndexFileList.vb
View File

@@ -8,12 +8,36 @@ Public Class frmIndexFileList
Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName) Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then 'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER ' CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName ' CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).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 End If
CheckedListBoxControl1.Items.Add(New SplitFile With {
.FileName = oFilename,
.Exists = oFileExists,
.[Date] = oImportDate
})
Next
CheckedListBoxControl1.CheckAll() CheckedListBoxControl1.CheckAll()
Catch ex As Exception Catch ex As Exception
@@ -22,6 +46,20 @@ Public Class frmIndexFileList
End Try End Try
End Sub 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 Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
Try Try
LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count) LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)

21
Global_Indexer/frmStart.vb
View File

@@ -1,6 +1,5 @@
Imports System.IO Imports System.IO
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports Independentsoft
Imports DLLLicenseManager Imports DLLLicenseManager
Imports System.Text Imports System.Text
Imports System.Globalization Imports System.Globalization
@@ -168,7 +167,7 @@ Public Class frmStart
Dim oHandleType As String = oFiledropString.Substring(0, oLastPipe + 1) Dim oHandleType As String = oFiledropString.Substring(0, oLastPipe + 1)
Dim oFilename As String = oFiledropString.Substring(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) ClassFilehandle.Decide_FileHandle(oFilename, oHandleType)
End If End If
End If End If
@@ -199,9 +198,9 @@ Public Class frmStart
LOGGER.Debug("No files to be indexed, aborting!") LOGGER.Debug("No files to be indexed, aborting!")
If USER_LANGUAGE = "de-DE" Then 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 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
End If End If
@@ -218,6 +217,11 @@ Public Class frmStart
If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
Open_IndexDialog() Open_IndexDialog()
End If 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 Next
Show() Show()
@@ -249,14 +253,17 @@ Public Class frmStart
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
EMAIL.Clear_TempFiles()
'TempDateien löschen 'TempDateien löschen
For Each oFile In TEMP_FILES
Try Try
For Each _file In TEMP_FILES System.IO.File.Delete(oFile)
System.IO.File.Delete(_file)
Next
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
Next
Try Try
IndexForm.DisposeViewer() IndexForm.DisposeViewer()

6
SetupVS19/Product.wxs
View File

@@ -118,6 +118,10 @@
<File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" /> <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
<File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" /> <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="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>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275"> <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
@@ -129,8 +133,8 @@
<!--Verschiedene Bibliotheken--> <!--Verschiedene Bibliotheken-->
<Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275"> <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="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
<File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
</Component> </Component>
<!--WINDREAM Bibliotheken--> <!--WINDREAM Bibliotheken-->