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

MS2501

Browse Source
This commit is contained in:
SchreiberM 2017-01-25 10:16:40 +01:00
parent 042f24e231
commit 64c99f80b9
43 changed files with 5067 additions and 2448 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
Global_Indexer.sln
View File

@ -5,11 +5,6 @@ VisualStudioVersion = 12.0.21005.1
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}"
EndProject EndProject
Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "Setup", "Setup\Setup.isproj", "{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}"
ProjectSection(ProjectDependencies) = postProject
{7474B1D2-49A4-4D12-B544-C8674D3F7231} = {7474B1D2-49A4-4D12-B544-C8674D3F7231}
EndProjectSection
EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}" Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}"
EndProject EndProject
Global Global
@ -56,36 +51,6 @@ Global
{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Any CPU.ActiveCfg = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Any CPU.Build.0 = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Mixed Platforms.Build.0 = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|x86.ActiveCfg = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|x86.Build.0 = CD_ROM
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Any CPU.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Any CPU.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Mixed Platforms.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Mixed Platforms.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|x86.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|x86.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Any CPU.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Any CPU.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Mixed Platforms.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|x86.ActiveCfg = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|x86.Build.0 = DVD-5
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Any CPU.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Any CPU.Build.0 = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Mixed Platforms.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Mixed Platforms.Build.0 = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|x86.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|x86.Build.0 = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Any CPU.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Any CPU.Build.0 = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Mixed Platforms.Build.0 = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|x86.ActiveCfg = SingleImage
{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|x86.Build.0 = SingleImage
{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86 {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86
{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86 {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86 {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86

2
Global_Indexer/ClassDatabase.vb
View File

@ -24,12 +24,12 @@ Public Class ClassDatabase
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung SQLcommand.CommandText = Select_anweisung
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable() Dim dt As DataTable = New DataTable()
adapter1.Fill(dt) adapter1.Fill(dt)
SQLconnect.Close() SQLconnect.Close()
Return dt Return dt
Catch ex As Exception Catch ex As Exception
If userInput = True Then If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)

9
Global_Indexer/ClassDragDrop.vb
View File

@ -15,7 +15,7 @@ Public Class ClassDragDrop
For i = 0 To MyFiles.Length - 1 For i = 0 To MyFiles.Length - 1
ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False) ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
ReDim Preserve files_dropped(i) ReDim Preserve files_dropped(i)
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i) files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i)) ' ListBox1.Items.Add(MyFiles(i))
Next Next
Return True Return True
@ -71,7 +71,7 @@ Public Class ClassDragDrop
'// always good to make sure we actually created the file '// always good to make sure we actually created the file
If (finTemp.Exists = True) Then If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0) ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
Return True Return True
Else Else
@ -110,9 +110,6 @@ Public Class ClassDragDrop
strFile = strFile.Replace("!", "") strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "") strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "") strFile = strFile.Replace("$", "")
ClassLogger.Add(">> Drop of msg - File:" & strFile, False) ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
Try Try
myobj.SaveAs(strFile) myobj.SaveAs(strFile)
@ -122,7 +119,7 @@ Public Class ClassDragDrop
End Try End Try
ReDim Preserve files_dropped(i) ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
Next Next
Return True Return True
'Drop eines Outlook Attachments 'Drop eines Outlook Attachments

47
Global_Indexer/ClassEmailHeaderExtractor.vb
View File

@ -54,6 +54,53 @@ Public Class ClassEmailHeaderExtractor
Return Nothing Return Nothing
End Function End Function
Public Shared Function extractFromAddress1(messageHeaders As String, Regex As String)
Try
Dim result
Dim i As Integer = 0
If IsNothing(messageHeaders) Then
Return Nothing
End If
' einen Regulären Ausdruck laden
Dim strRegex As String = Regex
Dim myRegex As New Regex(strRegex, RegexOptions.None)
Dim strTargetString As String = messageHeaders
' 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
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(Regex)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(messageHeaders)
'Dim result
'Dim i As Integer = 0
'' alle Vorkommen der Indexe im header durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' If i = 0 Then
' result = element.ToString
' Else
' result = result & ";" & element.ToString
' End If
' i += 1
'Next
Return result
Catch ex As Exception
MsgBox("Unexpected Error in extractFromAddress1: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
''' <summary> ''' <summary>
''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse. ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.

10
Global_Indexer/ClassFilehandle.vb
View File

@ -25,7 +25,7 @@ Public Class ClassFilehandle
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("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)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If handletype.StartsWith("@FW") Then If handletype.StartsWith("|FW") Then
Return Email_Decay(filename, True) Return Email_Decay(filename, True)
Else Else
Return Email_Decay(filename) Return Email_Decay(filename)
@ -41,11 +41,11 @@ Public Class ClassFilehandle
End Function End Function
Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False) Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
Try Try
Dim msgonly As String = "@MSGONLY@" Dim msgonly As String = "|MSGONLY|"
Dim ATT_EXTR As String = "@ATTMNTEXTRACTED@" Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
If FW = True Then If FW = True Then
msgonly = "@FW_MSGONLY@" msgonly = "|FW_MSGONLY|"
ATT_EXTR = "@FW_ATTMNTEXTRACTED@" ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
End If End If
Dim erfolgreich As Boolean = False Dim erfolgreich As Boolean = False
Dim msg As New Msg.Message(msgname) Dim msg As New Msg.Message(msgname)

5
Global_Indexer/ClassFolderWatcher.vb
View File

@ -139,9 +139,9 @@ Public Class ClassFolderWatcher
Dim handleType As String Dim handleType As String
If e.FullPath.ToLower.EndsWith(".msg") Then If e.FullPath.ToLower.EndsWith(".msg") Then
handleType = "@FW_OUTLOOK_MESSAGE@" handleType = "|FW_OUTLOOK_MESSAGE|"
Else Else
handleType = "@FW_SIMPLEINDEXER@" handleType = "|FW_SIMPLEINDEXER|"
End If End If
'Die Datei übergeben 'Die Datei übergeben
If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False) If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
@ -149,7 +149,6 @@ Public Class ClassFolderWatcher
ClassFilehandle.Decide_FileHandle(e.FullPath, handleType) ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
Else Else
ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False) ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False)
Console.WriteLine("File existiert bereits")
End If End If
Catch ex As Exception Catch ex As Exception

118
Global_Indexer/ClassWindream.vb
View File

@ -42,7 +42,6 @@ Public Class ClassWindream
Public Shared oBrowser As New WMOBRWSLib.ServerBrowser Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
Public Shared oDokumentTypen As WINDREAMLib.WMObjects Public Shared oDokumentTypen As WINDREAMLib.WMObjects
Private oController As New WMOSearchController Private oController As New WMOSearchController
Public Shared _DateiinWindream As String
Public Shared _WDObjekttyp As String Public Shared _WDObjekttyp As String
Private Shared aktWMObject As WINDREAMLib.WMObject Private Shared aktWMObject As WINDREAMLib.WMObject
#End Region #End Region
@ -573,17 +572,17 @@ Public Class ClassWindream
Const STREAM_BinaryObject = "BinaryObject" Const STREAM_BinaryObject = "BinaryObject"
If LogErrorsOnly = False Then ClassLogger.Add(" ...Stream_File wurde gestartet", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Stream_File wurde gestartet", False)
Dim endgültigerDateiname As String = "" Dim windreamFilename As String = ""
' Objekt für Datei und Zielverzeichnis anlegen ' Objekt für Datei und Zielverzeichnis anlegen
Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False)
'"Version-KZ entfernen '"Version-KZ entfernen
newfilename = newfilename.Replace("\\", "\") newfilename = newfilename.Replace("\\", "\")
endgültigerDateiname = newfilename.Substring(2) windreamFilename = newfilename.Substring(2)
If endgültigerDateiname.Contains("[%Version]") Then If windreamFilename.Contains("[%Version]") Then
endgültigerDateiname = endgültigerDateiname.Replace("[%Version]", "") windreamFilename = windreamFilename.Replace("[%Version]", "")
newfilename = endgültigerDateiname newfilename = windreamFilename
End If End If
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
@ -640,6 +639,7 @@ Public Class ClassWindream
ClassLogger.Add(" >> Login on dms-Server failed", False) ClassLogger.Add(" >> Login on dms-Server failed", False)
' MsgBox("Login failed. ") ' MsgBox("Login failed. ")
End If End If
oSession = Session
Const WMCOMEventWMSessionNeedIndex = 1 Const WMCOMEventWMSessionNeedIndex = 1
'windream Objekte erstellen ohne Indexierungs-Event 'windream Objekte erstellen ohne Indexierungs-Event
@ -647,10 +647,10 @@ Public Class ClassWindream
'================================================================== '==================================================================
' check if files exist ' check if files exist
'================================================================== '==================================================================
If LogErrorsOnly = False Then ClassLogger.Add(" ...ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename, False)
Dim wdFilexists As Boolean Dim wdFilexists As Boolean
If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0)
Err.Clear() Err.Clear()
If wdFilexists = False Then If wdFilexists = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
@ -658,47 +658,53 @@ Public Class ClassWindream
'================================================================== '==================================================================
' create an object ' create an object
'================================================================== '==================================================================
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
' MsgBox("Created file: " + endgültigerDateiname) ' MsgBox("Created file: " + windreamFilename)
Else Else
'endgültigerDateiname = \Brainpool - Geschäftsprozess\GI\DAGI_Digital Data[%Version].jpg
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
'### Automatische Versionierung ### If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then
Dim version As Integer = 2 ''##########
Dim extension As String = Path.GetExtension(newfilename) Dim msg = String.Format("Eine Datei mit identischem Namen " & vbNewLine & "'{0}'" & vbNewLine & "existiert bereits!" & vbNewLine & "Wollen Sie die bestehende Datei ersetzen?", newfilename)
Dim Stammname As String = newfilename.Substring(0, newfilename.LastIndexOf(".")).Substring(3) If USER_LANGUAGE <> "de-DE" Then
Dim neuername As String = newfilename.Substring(0, newfilename.LastIndexOf(".")).Substring(3) msg = "There is already a file with the same name! Would You like to replace the file?"
End If
Do While File.Exists(vWLaufwerk & ":\" & neuername & extension) = True Dim result As MsgBoxResult
ClassLogger.Add(" >> Datei " & vWLaufwerk & ":\" & neuername & extension & " ist vorhanden - Versionieren....", False) result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
neuername = Stammname & VERSION_DELIMITER & version If result = MsgBoxResult.No Then
endgültigerDateiname = "\" & neuername & extension windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
version = version + 1 Else
Loop If Delete_WDFile(windreamFilename) = False Then
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) Return False
End If
End If
ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
End If
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename, False)
If WMObject IsNot Nothing Then If WMObject IsNot Nothing Then
newfilename = vWLaufwerk & ":" & windreamFilename
' lock object for file system access (to change the file itself) ' lock object for file system access (to change the file itself)
WMObject.lock() WMObject.lock()
' set fileIO the local source file ' set fileIO the local source file
aFileIO.bstrOriginalFileName = filenameQuelle aFileIO.bstrOriginalFileName = filenameQuelle
If Err.Number > 0 Then If Err.Number > 0 Then
'MsgBox(Err.Number.ToString)
ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
@ -707,7 +713,7 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -717,7 +723,7 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -726,7 +732,7 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
@ -736,7 +742,7 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -745,7 +751,7 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
@ -755,37 +761,37 @@ Public Class ClassWindream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLogger.Add(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) Dim info2 As New FileInfo(newfilename)
Dim length1 As Long = info2.Length Dim length1 As Long = info2.Length
If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False)
If length1 > 0 And Err.Number = 0 Then If length > 0 And Err.Number = 0 Then
Dim p As String Dim p As String
If endgültigerDateiname.StartsWith("\") Then If windreamFilename.StartsWith("\") Then
If endgültigerDateiname.StartsWith("\\") Then If windreamFilename.StartsWith("\\") Then
p = endgültigerDateiname.Replace("\\", "\") p = windreamFilename.Replace("\\", "\")
Else Else
p = endgültigerDateiname p = windreamFilename
End If End If
Else Else
p = "\" & endgültigerDateiname p = "\" & windreamFilename
End If End If
_DateiinWindream = vWLaufwerk & ":" & p CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
ClassLogger.Add(" >> Datei '" & _DateiinWindream & "' wurde erfolgreich importiert!", False) ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!", False)
aktWMObject = WMObject aktWMObject = WMObject
CURRENT_NEWFILENAME = _DateiinWindream
Return True Return True
Else Else
System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Delete_WDFile(windreamFilename)
Console.WriteLine(Err.Number.ToString)
ClassLogger.Add(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht") ClassLogger.Add(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht")
Return False Return False
End If End If
Else Else
ClassLogger.Add(" Could not create a WMObject for file:'" & windreamFilename & "'")
Return False Return False
End If End If
Else Else
@ -794,6 +800,28 @@ Public Class ClassWindream
End If End If
End Function End Function
Public Shared Function Delete_WDFile(ByVal WD_File As String)
Try
If Not WD_File.StartsWith("\") Then
WD_File = WD_File.Substring(2)
End If
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
Try
WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
Catch ex As Exception
ClassLogger.Add(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing", False)
Return False
End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Deleting started - Object created", False)
WMObject.Delete()
Return True
Catch ex As Exception
MsgBox("Unexpected Error in Delete_WDFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Delete_WDFile: " & ex.Message, False)
Return False
End Try
End Function
''' <summary> ''' <summary>
''' Übergibt einer in windream gespeicherten Datei Indexwerte ''' Übergibt einer in windream gespeicherten Datei Indexwerte
''' </summary> ''' </summary>

51
Global_Indexer/Global_Indexer.vbproj
View File

@ -53,32 +53,32 @@
<ApplicationManifest>My Project\app.manifest</ApplicationManifest> <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.Charts.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Pdf.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.RichEdit.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.RichEdit.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Spreadsheet.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Spreadsheet.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Utils.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.1.Wizard, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraNavBar.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraRichEdit.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraRichEdit.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraSpreadsheet.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraSpreadsheet.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
@ -305,6 +305,9 @@
<EmbeddedResource Include="frmConfig_Basic.de.resx"> <EmbeddedResource Include="frmConfig_Basic.de.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon> <DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.en-US.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.en.resx"> <EmbeddedResource Include="frmConfig_Basic.en.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon> <DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

19
Global_Indexer/Global_Indexer.vbproj.bak
View File

@ -54,14 +54,12 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.Charts.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Charts.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Office.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.RichEdit.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.RichEdit.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Sparkline.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -83,18 +81,18 @@
<Reference Include="DevExpress.XtraTreeList.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraTreeList.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\Bibliotheken\DLL\DLLLicenseManager.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
</Reference> </Reference>
<Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL"> <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>\\dd-sto01\DD-STO01-A2\Projekte\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
</Reference> </Reference>
<Reference Include="Interop.WINDREAMLib"> <Reference Include="Interop.WINDREAMLib">
<HintPath>..\..\..\Bibliotheken\DLL\windreamDLL\64bit\Interop.WINDREAMLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes> <EmbedInteropTypes>False</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Interop.WMOTOOLLib"> <Reference Include="Interop.WMOTOOLLib">
<HintPath>\\dd-sto01\DD-STO01-A2\Projekte\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="Oracle.ManagedDataAccess, Version=4.121.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL"> <Reference Include="Oracle.ManagedDataAccess, Version=4.121.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL">
@ -139,6 +137,7 @@
<Compile Include="AboutBox1.vb"> <Compile Include="AboutBox1.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="ClassControls.vb" />
<Compile Include="ClassDatabase.vb" /> <Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEmail.vb" /> <Compile Include="ClassEmail.vb" />
@ -297,9 +296,15 @@
<EmbeddedResource Include="AboutBox1.resx"> <EmbeddedResource Include="AboutBox1.resx">
<DependentUpon>AboutBox1.vb</DependentUpon> <DependentUpon>AboutBox1.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmAdministration.en-US.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.resx"> <EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon> <DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.de.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.en.resx"> <EmbeddedResource Include="frmConfig_Basic.en.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon> <DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -575,6 +580,8 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content> </Content>
<Content Include="globe_handdrawn.ico" /> <Content Include="globe_handdrawn.ico" />
<None Include="Resources\Close_16xMD.png" />
<None Include="Resources\Close_16xLG.png" />
<None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" /> <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />
<None Include="Resources\Globix_ico.bmp" /> <None Include="Resources\Globix_ico.bmp" />
<None Include="Resources\email.png" /> <None Include="Resources\email.png" />

1
Global_Indexer/ModuleCURRENT.vb
View File

@ -8,6 +8,7 @@
Public CURR_WORKFILE_EXTENSION As String Public CURR_WORKFILE_EXTENSION As String
Public CURRENT_DOKART_ID As Integer Public CURRENT_DOKART_ID As Integer
Public CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"
Public CURRENT_LASTDOKART As String = "" Public CURRENT_LASTDOKART As String = ""
Public CURRENT_INDEXMAN As Integer Public CURRENT_INDEXMAN As Integer
Public CURRENT_INDEXAUTO As Integer Public CURRENT_INDEXAUTO As Integer

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")> <Assembly: AssemblyProduct("Global Indexer")>
<Assembly: AssemblyCopyright("Copyright © 2015")> <Assembly: AssemblyCopyright("Copyright © 2017")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>
<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("1.9.8.2")> <Assembly: AssemblyVersion("1.9.8.7")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

6
Global_Indexer/My Project/licenses.licx
View File

@ -1,3 +1,3 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

227
Global_Indexer/MyDataset.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209 ' Laufzeitversion:4.0.30319.36366
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -1844,6 +1844,8 @@ Partial Public Class MyDataset
Private columnSEQUENCE As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn
Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
@ -2007,6 +2009,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", "4.0.0.0")> _
Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUPLICATE_HANDLING
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@ -2044,9 +2054,25 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer) As TBDD_DOKUMENTARTRow Public Overloads Function AddTBDD_DOKUMENTARTRow( _
ByVal BEZEICHNUNG As String, _
ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, _
ByVal KURZNAME As String, _
ByVal ZIEL_PFAD As String, _
ByVal BESCHREIBUNG As String, _
ByVal AKTIV As Boolean, _
ByVal NAMENKONVENTION As String, _
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Date, _
ByVal GEANDERTWER As String, _
ByVal GEAENDERTWANN As Date, _
ByVal OBJEKTTYP As String, _
ByVal WINDREAM_DIRECT As Boolean, _
ByVal FOLDER_FOR_INDEX As String, _
ByVal SEQUENCE As Integer, _
ByVal DUPLICATE_HANDLING As String) As TBDD_DOKUMENTARTRow
Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow)
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE} Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING}
If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then
columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0)
End If End If
@ -2094,6 +2120,7 @@ Partial Public Class MyDataset
Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT") Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT")
Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2131,8 +2158,11 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE) MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnDUPLICATE_HANDLING = New Global.System.Data.DataColumn("DUPLICATE_HANDLING", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUPLICATE_HANDLING)
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.AllowDBNull = false Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true Me.columnGUID.Unique = true
@ -2150,6 +2180,7 @@ Partial Public Class MyDataset
Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnNAMENKONVENTION.MaxLength = 500
Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.AllowDBNull = false
Me.columnERSTELLTWER.MaxLength = 50 Me.columnERSTELLTWER.MaxLength = 50
Me.columnERSTELLTWANN.AllowDBNull = false
Me.columnGEANDERTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50
Me.columnOBJEKTTYP.MaxLength = 50 Me.columnOBJEKTTYP.MaxLength = 50
Me.columnWINDREAM_DIRECT.AllowDBNull = false Me.columnWINDREAM_DIRECT.AllowDBNull = false
@ -2158,6 +2189,9 @@ Partial Public Class MyDataset
Me.columnFOLDER_FOR_INDEX.MaxLength = 500 Me.columnFOLDER_FOR_INDEX.MaxLength = 500
Me.columnSEQUENCE.AllowDBNull = false Me.columnSEQUENCE.AllowDBNull = false
Me.columnSEQUENCE.DefaultValue = CType(1,Integer) Me.columnSEQUENCE.DefaultValue = CType(1,Integer)
Me.columnDUPLICATE_HANDLING.AllowDBNull = false
Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default",String)
Me.columnDUPLICATE_HANDLING.MaxLength = 30
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -3235,6 +3269,8 @@ Partial Public Class MyDataset
Private columnOPTIONAL As Global.System.Data.DataColumn Private columnOPTIONAL As Global.System.Data.DataColumn
Private columnSAVE_VALUE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
@ -3414,6 +3450,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", "4.0.0.0")> _
Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSAVE_VALUE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@ -3468,9 +3512,10 @@ Partial Public Class MyDataset
ByVal ADDED_WHEN As Date, _ ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date, _ ByVal CHANGED_WHEN As Date, _
ByVal _OPTIONAL As Boolean) As TBDD_INDEX_MANRow ByVal _OPTIONAL As Boolean, _
ByVal SAVE_VALUE As Boolean) As TBDD_INDEX_MANRow
Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow) Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL} Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL, SAVE_VALUE}
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0)
End If End If
@ -3523,6 +3568,7 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") Me.columnOPTIONAL = MyBase.Columns("OPTIONAL")
Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -3567,6 +3613,8 @@ Partial Public Class MyDataset
Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL")
Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL")
MyBase.Columns.Add(Me.columnOPTIONAL) MyBase.Columns.Add(Me.columnOPTIONAL)
Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSAVE_VALUE)
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.AllowDBNull = false Me.columnGUID.AllowDBNull = false
@ -3599,6 +3647,8 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50
Me.columnOPTIONAL.AllowDBNull = false Me.columnOPTIONAL.AllowDBNull = false
Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) Me.columnOPTIONAL.DefaultValue = CType(false,Boolean)
Me.columnSAVE_VALUE.AllowDBNull = false
Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -4211,6 +4261,8 @@ Partial Public Class MyDataset
Private columnIndexwert_File As Global.System.Data.DataColumn Private columnIndexwert_File As Global.System.Data.DataColumn
Private columnSAVE_VALUE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
@ -4422,6 +4474,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", "4.0.0.0")> _
Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSAVE_VALUE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@ -4481,9 +4541,10 @@ Partial Public Class MyDataset
ByVal Indexiert As Boolean, _ ByVal Indexiert As Boolean, _
ByVal Indexwert As String, _ ByVal Indexwert As String, _
ByVal _OPTIONAL As Boolean, _ ByVal _OPTIONAL As Boolean, _
ByVal Indexwert_File As String) As VWDDINDEX_MANRow ByVal Indexwert_File As String, _
ByVal SAVE_VALUE As Boolean) As VWDDINDEX_MANRow
Dim rowVWDDINDEX_MANRow As VWDDINDEX_MANRow = CType(Me.NewRow,VWDDINDEX_MANRow) Dim rowVWDDINDEX_MANRow As VWDDINDEX_MANRow = CType(Me.NewRow,VWDDINDEX_MANRow)
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_CHECK, Indexiert, Indexwert, _OPTIONAL, Indexwert_File} Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_CHECK, Indexiert, Indexwert, _OPTIONAL, Indexwert_File, SAVE_VALUE}
rowVWDDINDEX_MANRow.ItemArray = columnValuesArray rowVWDDINDEX_MANRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWDDINDEX_MANRow) Me.Rows.Add(rowVWDDINDEX_MANRow)
Return rowVWDDINDEX_MANRow Return rowVWDDINDEX_MANRow
@ -4534,6 +4595,7 @@ Partial Public Class MyDataset
Me.columnIndexwert = MyBase.Columns("Indexwert") Me.columnIndexwert = MyBase.Columns("Indexwert")
Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") Me.columnOPTIONAL = MyBase.Columns("OPTIONAL")
Me.columnIndexwert_File = MyBase.Columns("Indexwert_File") Me.columnIndexwert_File = MyBase.Columns("Indexwert_File")
Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -4586,6 +4648,8 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnOPTIONAL) MyBase.Columns.Add(Me.columnOPTIONAL)
Me.columnIndexwert_File = New Global.System.Data.DataColumn("Indexwert_File", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnIndexwert_File = New Global.System.Data.DataColumn("Indexwert_File", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIndexwert_File) MyBase.Columns.Add(Me.columnIndexwert_File)
Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSAVE_VALUE)
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.AllowDBNull = false Me.columnGUID.AllowDBNull = false
Me.columnGUID.Unique = true Me.columnGUID.Unique = true
@ -4617,6 +4681,8 @@ Partial Public Class MyDataset
Me.columnOPTIONAL.AllowDBNull = false Me.columnOPTIONAL.AllowDBNull = false
Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) Me.columnOPTIONAL.DefaultValue = CType(false,Boolean)
Me.columnIndexwert_File.DefaultValue = CType("",String) Me.columnIndexwert_File.DefaultValue = CType("",String)
Me.columnSAVE_VALUE.AllowDBNull = false
Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -12975,11 +13041,7 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property ERSTELLTWANN() As Date Public Property ERSTELLTWANN() As Date
Get Get
Try Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date)
Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value
@ -13068,6 +13130,17 @@ Partial Public Class MyDataset
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property DUPLICATE_HANDLING() As String
Get
Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String)
End Get
Set
Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow
@ -13103,18 +13176,6 @@ Partial Public Class MyDataset
Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsERSTELLTWANNNull() As Boolean
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetERSTELLTWANNNull()
Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsGEANDERTWERNull() As Boolean Public Function IsGEANDERTWERNull() As Boolean
@ -13700,6 +13761,17 @@ Partial Public Class MyDataset
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property SAVE_VALUE() As Boolean
Get
Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow
@ -14455,6 +14527,17 @@ Partial Public Class MyDataset
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property SAVE_VALUE() As Boolean
Get
Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn),Boolean)
End Get
Set
Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsWD_INDEXNull() As Boolean Public Function IsWD_INDEXNull() As Boolean
@ -20010,6 +20093,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT")
tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX")
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
@ -20020,12 +20104,13 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG"& _ "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" D"& _
",@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERS"& _ "UPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_"& _
"TELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ "PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIR"& _
"UID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAME"& _ "ECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _
"NKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FR"& _ "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _
"OM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKU"& _
"MENTART WHERE (GUID = SCOPE_IDENTITY())"
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("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -20039,6 +20124,7 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _
@ -20046,10 +20132,11 @@ Namespace MyDatasetTableAdapters
"CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _
"NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _
"NDREAM_DIRECT = @WINDREAM_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _ "NDREAM_DIRECT = @WINDREAM_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _
"@FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _ "@FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _
" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG"& _ "G"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGAN"& _
", AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN,"& _ "GSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER"& _
" OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" ", ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHER"& _
"E (GUID = @GUID)"
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("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -20063,6 +20150,7 @@ Namespace MyDatasetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub End Sub
@ -20083,7 +20171,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _
"PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _
"ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _
"NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BE"& _
"ZEICHNUNG"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).Connection = Me.Connection
@ -20099,10 +20188,10 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _
"PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _
"ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _
"NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"& _
" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (MODULE"& _ " FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
"_ID = 1)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" "WHERE (MODULE_ID = 1)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG"
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
End Sub End Sub
@ -20207,7 +20296,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer) As Integer Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer
If (BEZEICHNUNG Is Nothing) Then If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else Else
@ -20252,6 +20341,11 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String)
End If End If
Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer)
If (DUPLICATE_HANDLING Is Nothing) Then
Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING")
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
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
@ -20271,7 +20365,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (BEZEICHNUNG Is Nothing) Then If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else Else
@ -20316,8 +20410,13 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) If (DUPLICATE_HANDLING Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING")
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State 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
@ -21229,6 +21328,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL")
tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
@ -21239,12 +21339,13 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _
"MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _
"SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@NAME,@WD_INDEX,"& _ "SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@NAM"& _
"@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESU"& _ "E,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUEN"& _
"LT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_IND"& _ "CE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
"EX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_R"& _ "UID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNE"& _
"ESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTI"& _ "CTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _
"ONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())" "D_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()"& _
")"
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("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -21260,6 +21361,7 @@ Namespace MyDatasetTableAdapters
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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_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("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", 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_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _
@ -21267,10 +21369,11 @@ Namespace MyDatasetTableAdapters
"GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _
"D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _
"@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" OPTIONAL = @OPTIONAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ " OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _
"DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION"& _ "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION"& _
"_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ ", DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_W"& _
", CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)" "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (G"& _
"UID = @GUID)"
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("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -21286,6 +21389,7 @@ Namespace MyDatasetTableAdapters
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("@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("@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_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("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub End Sub
@ -21305,8 +21409,9 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _
"T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _ "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _
"D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ "D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL, SAVE_VAL"& _
" TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" "UE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SE"& _
"QUENCE"
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("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub End Sub
@ -21390,7 +21495,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 DOK_ID As Integer, ByVal NAME As String, ByVal WD_INDEX As String, ByVal COMMENT As String, ByVal DATATYPE As String, ByVal SUGGESTION As Boolean, ByVal DEFAULT_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal SEQUENCE As Integer, ByVal SQL_RESULT As String, ByVal SQL_CHECK As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean) As Integer Public Overloads Overridable Function Insert(ByVal DOK_ID As Integer, ByVal NAME As String, ByVal WD_INDEX As String, ByVal COMMENT As String, ByVal DATATYPE As String, ByVal SUGGESTION As Boolean, ByVal DEFAULT_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal SEQUENCE As Integer, ByVal SQL_RESULT As String, ByVal SQL_CHECK As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE As Boolean) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer)
If (NAME Is Nothing) Then If (NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("NAME") Throw New Global.System.ArgumentNullException("NAME")
@ -21441,6 +21546,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String) Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String)
End If End If
Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
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
@ -21475,6 +21581,7 @@ Namespace MyDatasetTableAdapters
ByVal ACTIVE As Boolean, _ ByVal ACTIVE As Boolean, _
ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHO As String, _
ByVal _OPTIONAL As Boolean, _ ByVal _OPTIONAL As Boolean, _
ByVal SAVE_VALUE As Boolean, _
ByVal Original_GUID As Integer, _ ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer)
@ -21527,8 +21634,9 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(16).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
@ -22093,6 +22201,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK")
tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL")
tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
End Sub End Sub
@ -22112,7 +22221,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _ Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _
"KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _ "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _
", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _ ", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)" ", SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)"
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("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub End Sub

109
Global_Indexer/MyDataset.xsd
View File

@ -115,8 +115,9 @@ WHERE (GUID = @Original_GUID)</CommandText>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_DOKUMENTART <CommandText>INSERT INTO TBDD_DOKUMENTART
(BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE) (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE,
VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE); DUPLICATE_HANDLING)
VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING);
SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -131,13 +132,14 @@ SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKT
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" 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, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, <CommandText>SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN,
OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING
FROM TBDD_DOKUMENTART FROM TBDD_DOKUMENTART
ORDER BY SEQUENCE, BEZEICHNUNG</CommandText> ORDER BY SEQUENCE, BEZEICHNUNG</CommandText>
<Parameters /> <Parameters />
@ -148,8 +150,8 @@ ORDER BY SEQUENCE, BEZEICHNUNG</CommandText>
<CommandText>UPDATE TBDD_DOKUMENTART <CommandText>UPDATE TBDD_DOKUMENTART
SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV,
NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT,
FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)</CommandText> SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -164,6 +166,7 @@ SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKT
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" 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="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
@ -188,6 +191,7 @@ SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKT
<Mapping SourceColumn="WINDREAM_DIRECT" DataSetColumn="WINDREAM_DIRECT" /> <Mapping SourceColumn="WINDREAM_DIRECT" DataSetColumn="WINDREAM_DIRECT" />
<Mapping SourceColumn="FOLDER_FOR_INDEX" DataSetColumn="FOLDER_FOR_INDEX" /> <Mapping SourceColumn="FOLDER_FOR_INDEX" DataSetColumn="FOLDER_FOR_INDEX" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" /> <Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="DUPLICATE_HANDLING" DataSetColumn="DUPLICATE_HANDLING" />
</Mappings> </Mappings>
<Sources> <Sources>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdateFolderIndex" Modifier="Public" Name="cmdUpdateFolderIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdUpdateFolderIndex"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdateFolderIndex" Modifier="Public" Name="cmdUpdateFolderIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdUpdateFolderIndex">
@ -209,7 +213,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, <CommandText>SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN,
OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING
FROM TBDD_DOKUMENTART FROM TBDD_DOKUMENTART
WHERE (GUID IN WHERE (GUID IN
(SELECT DOKART_ID (SELECT DOKART_ID
@ -348,33 +352,34 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_INDEX_MAN <CommandText>INSERT INTO TBDD_INDEX_MAN
(DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL) (DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE)
VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL); VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" 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="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" 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="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SAVE_VALUE" ColumnName="SAVE_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_VALUE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_VALUE" 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, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, <CommandText>SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,
CHANGED_WHEN, OPTIONAL CHANGED_WHEN, OPTIONAL, SAVE_VALUE
FROM TBDD_INDEX_MAN FROM TBDD_INDEX_MAN
WHERE (DOK_ID = @DOK_ID) WHERE (DOK_ID = @DOK_ID)
ORDER BY SEQUENCE</CommandText> ORDER BY SEQUENCE</CommandText>
@ -384,30 +389,31 @@ ORDER BY SEQUENCE</CommandText>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_MAN <CommandText>UPDATE TBDD_INDEX_MAN
SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE, SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE,
CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO,
OPTIONAL = @OPTIONAL OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)</CommandText> SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" 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="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" 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="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="SAVE_VALUE" ColumnName="SAVE_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_VALUE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@ -432,6 +438,7 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="OPTIONAL" DataSetColumn="OPTIONAL" /> <Mapping SourceColumn="OPTIONAL" DataSetColumn="OPTIONAL" />
<Mapping SourceColumn="SAVE_VALUE" DataSetColumn="SAVE_VALUE" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -520,7 +527,7 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, <CommandText>SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME,
PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE
FROM VWDDINDEX_MAN FROM VWDDINDEX_MAN
WHERE (DOK_ID = @DokID)</CommandText> WHERE (DOK_ID = @DokID)</CommandText>
<Parameters> <Parameters>
@ -550,6 +557,7 @@ WHERE (DOK_ID = @DokID)</CommandText>
<Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" /> <Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
<Mapping SourceColumn="SQL_CHECK" DataSetColumn="SQL_CHECK" /> <Mapping SourceColumn="SQL_CHECK" DataSetColumn="SQL_CHECK" />
<Mapping SourceColumn="OPTIONAL" DataSetColumn="OPTIONAL" /> <Mapping SourceColumn="OPTIONAL" DataSetColumn="OPTIONAL" />
<Mapping SourceColumn="SAVE_VALUE" DataSetColumn="SAVE_VALUE" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -1787,7 +1795,7 @@ ORDER BY GUID DESC</CommandText>
<xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow"> <xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG"> <xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1832,7 +1840,7 @@ ORDER BY GUID DESC</CommandText>
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" /> <xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" />
<xs:element name="GEANDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEANDERTWER" msprop:Generator_ColumnPropNameInRow="GEANDERTWER" msprop:Generator_ColumnPropNameInTable="GEANDERTWERColumn" msprop:Generator_UserColumnName="GEANDERTWER" minOccurs="0"> <xs:element name="GEANDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEANDERTWER" msprop:Generator_ColumnPropNameInRow="GEANDERTWER" msprop:Generator_ColumnPropNameInTable="GEANDERTWERColumn" msprop:Generator_UserColumnName="GEANDERTWER" minOccurs="0">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -1857,6 +1865,13 @@ ORDER BY GUID DESC</CommandText>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" default="1" /> <xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" default="1" />
<xs:element name="DUPLICATE_HANDLING" msprop:Generator_ColumnVarNameInTable="columnDUPLICATE_HANDLING" msprop:Generator_ColumnPropNameInRow="DUPLICATE_HANDLING" msprop:Generator_ColumnPropNameInTable="DUPLICATE_HANDLINGColumn" msprop:Generator_UserColumnName="DUPLICATE_HANDLING" default="Default">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -2000,6 +2015,7 @@ ORDER BY GUID DESC</CommandText>
</xs:element> </xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" /> <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" /> <xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="SAVE_VALUE" msprop:Generator_ColumnVarNameInTable="columnSAVE_VALUE" msprop:Generator_ColumnPropNameInRow="SAVE_VALUE" msprop:Generator_ColumnPropNameInTable="SAVE_VALUEColumn" msprop:Generator_UserColumnName="SAVE_VALUE" type="xs:boolean" default="false" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -2185,6 +2201,7 @@ ORDER BY GUID DESC</CommandText>
<xs:element name="Indexwert" msprop:Generator_ColumnVarNameInTable="columnIndexwert" msprop:Generator_ColumnPropNameInRow="Indexwert" msprop:Generator_ColumnPropNameInTable="IndexwertColumn" msprop:Generator_UserColumnName="Indexwert" type="xs:string" default="" minOccurs="0" /> <xs:element name="Indexwert" msprop:Generator_ColumnVarNameInTable="columnIndexwert" msprop:Generator_ColumnPropNameInRow="Indexwert" msprop:Generator_ColumnPropNameInTable="IndexwertColumn" msprop:Generator_UserColumnName="Indexwert" type="xs:string" default="" minOccurs="0" />
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" /> <xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="Indexwert_File" msprop:Generator_ColumnVarNameInTable="columnIndexwert_File" msprop:Generator_ColumnPropNameInRow="Indexwert_File" msprop:Generator_ColumnPropNameInTable="Indexwert_FileColumn" msprop:Generator_UserColumnName="Indexwert_File" type="xs:string" default="" minOccurs="0" /> <xs:element name="Indexwert_File" msprop:Generator_ColumnVarNameInTable="columnIndexwert_File" msprop:Generator_ColumnPropNameInRow="Indexwert_File" msprop:Generator_ColumnPropNameInTable="Indexwert_FileColumn" msprop:Generator_UserColumnName="Indexwert_File" type="xs:string" default="" minOccurs="0" />
<xs:element name="SAVE_VALUE" msprop:Generator_ColumnVarNameInTable="columnSAVE_VALUE" msprop:Generator_ColumnPropNameInRow="SAVE_VALUE" msprop:Generator_ColumnPropNameInTable="SAVE_VALUEColumn" msprop:Generator_UserColumnName="SAVE_VALUE" type="xs:boolean" default="false" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

90
Global_Indexer/MyDataset.xss
View File

@ -4,40 +4,40 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="511" ViewPortY="-39" 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="-47" 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="20" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_USER" ZOrder="21" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="44" X="119" Y="308" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="1" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="22" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="23" 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="42" 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="43" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="41" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" /> <Shape ID="DesignTable:TBDD_MODULES" ZOrder="42" 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="34" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" /> <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="35" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="40" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="41" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="2" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" /> <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="3" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="38" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="39" 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="21" 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="22" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="35" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="36" 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="23" 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="24" 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="32" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="33" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="30" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="31" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="28" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="29" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="27" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="28" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="24" 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="25" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="7" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="8" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="9" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="10" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="8" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" /> <Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="9" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="12" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="13" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="13" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="14" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="11" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" /> <Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="12" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="6" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="7" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="5" 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="6" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="3" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="4" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="36" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" /> <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="37" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="29" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="30" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBAD_Users" ZOrder="1" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" /> <Shape ID="DesignTable:TBAD_Users" ZOrder="2" 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="43" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="44" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>431</X> <X>431</X>
@ -49,7 +49,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="39" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="40" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>543</X> <X>543</X>
@ -61,7 +61,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="37" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="38" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>397</X> <X>397</X>
@ -73,7 +73,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="33" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="34" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>605</X> <X>605</X>
@ -89,7 +89,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="31" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="32" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>959</X> <X>959</X>
@ -101,7 +101,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="26" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="27" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1193</X> <X>1193</X>
@ -117,7 +117,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="25" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="26" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>871</X> <X>871</X>
@ -129,7 +129,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="19" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="20" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>94</X> <X>94</X>
@ -149,7 +149,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="18" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="19" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>129</X> <X>129</X>
@ -165,7 +165,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="17" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="18" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>183</X> <X>183</X>
@ -177,7 +177,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="16" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="17" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>88</X> <X>88</X>
@ -197,7 +197,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="15" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="16" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>117</X> <X>117</X>
@ -217,7 +217,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="14" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="15" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>765</X> <X>765</X>
@ -233,7 +233,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="10" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="11" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>409</X> <X>409</X>
@ -253,7 +253,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="4" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="5" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>38</X> <X>38</X>

275
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -99,17 +99,23 @@ Partial Class frmAdministration
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown() Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New Global_Indexer.MyDataset() Me.MyDataset = New Global_Indexer.MyDataset()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown()
Me.WINDREAM_DIRECTCheckBox = New System.Windows.Forms.CheckBox() Me.WINDREAM_DIRECTCheckBox = New System.Windows.Forms.CheckBox()
Me.btndeleteZuordnung = New System.Windows.Forms.Button() Me.btndeleteZuordnung = New System.Windows.Forms.Button()
Me.lblObjekttyp = New System.Windows.Forms.Label() Me.lblObjekttyp = New System.Windows.Forms.Label()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.SAVE_VALUECheckBox = New System.Windows.Forms.CheckBox()
Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblWDINDEX = New System.Windows.Forms.Label() Me.lblWDINDEX = New System.Windows.Forms.Label()
Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox() Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox()
Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.ListBox5 = New System.Windows.Forms.ListBox() Me.ListBox5 = New System.Windows.Forms.ListBox()
Me.btnSQLView = New System.Windows.Forms.Button() Me.btnSQLView = New System.Windows.Forms.Button()
Me.lblSaveIndexMan = New System.Windows.Forms.Label() Me.lblSaveIndexMan = New System.Windows.Forms.Label()
@ -211,6 +217,7 @@ Partial Class frmAdministration
Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnRefreshAutomatic = New System.Windows.Forms.ToolStripButton()
Me.INDEXNAME_AutoIndexTXT = New System.Windows.Forms.TextBox() Me.INDEXNAME_AutoIndexTXT = New System.Windows.Forms.TextBox()
Me.XtraTabPage9 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage9 = New DevExpress.XtraTab.XtraTabPage()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
@ -278,8 +285,13 @@ Partial Class frmAdministration
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.OBJEKTTYPComboBox = New System.Windows.Forms.ComboBox() Me.OBJEKTTYPComboBox = New System.Windows.Forms.ComboBox()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox() Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEMAIL = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox()
Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox()
Me.lblsaveUSer = New System.Windows.Forms.Label() Me.lblsaveUSer = New System.Windows.Forms.Label()
Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl()
@ -388,14 +400,6 @@ Partial Class frmAdministration
Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter() Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter()
Me.VWGI_DOCTYPE_GROUPTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter() Me.VWGI_DOCTYPE_GROUPTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEMAIL = New DevExpress.XtraGrid.Columns.GridColumn()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
BEZEICHNUNGLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label()
EINGANGSART_IDLabel = New System.Windows.Forms.Label() EINGANGSART_IDLabel = New System.Windows.Forms.Label()
@ -471,9 +475,12 @@ Partial Class frmAdministration
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage1.SuspendLayout()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout()
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl2.SuspendLayout() Me.XtraTabControl2.SuspendLayout()
Me.XtraTabPage3.SuspendLayout() Me.XtraTabPage3.SuspendLayout()
@ -502,7 +509,9 @@ Partial Class frmAdministration
CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout() Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout()
Me.XtraTabPage2.SuspendLayout() Me.XtraTabPage2.SuspendLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl3.SuspendLayout() Me.XtraTabControl3.SuspendLayout()
Me.XtraTabPage7.SuspendLayout() Me.XtraTabPage7.SuspendLayout()
@ -519,10 +528,6 @@ Partial Class frmAdministration
CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -905,6 +910,7 @@ Partial Class frmAdministration
'XtraTabPage1 'XtraTabPage1
' '
resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
Me.XtraTabPage1.Controls.Add(Me.GroupBox6)
Me.XtraTabPage1.Controls.Add(Me.GridControl1) Me.XtraTabPage1.Controls.Add(Me.GridControl1)
Me.XtraTabPage1.Controls.Add(Label9) Me.XtraTabPage1.Controls.Add(Label9)
Me.XtraTabPage1.Controls.Add(SEQUENCELabel3) Me.XtraTabPage1.Controls.Add(SEQUENCELabel3)
@ -948,11 +954,20 @@ Partial Class frmAdministration
Me.XtraTabPage1.Controls.Add(Me.OBJEKTTYPComboBox) Me.XtraTabPage1.Controls.Add(Me.OBJEKTTYPComboBox)
Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Name = "XtraTabPage1"
' '
'SEQUENCENumericUpDown 'GroupBox6
' '
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) Me.GroupBox6.Controls.Add(Me.ComboBox3)
resources.ApplyResources(Me.SEQUENCENumericUpDown, "SEQUENCENumericUpDown") resources.ApplyResources(Me.GroupBox6, "GroupBox6")
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.TabStop = False
'
'ComboBox3
'
Me.ComboBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True))
Me.ComboBox3.FormattingEnabled = True
Me.ComboBox3.Items.AddRange(New Object() {resources.GetString("ComboBox3.Items"), resources.GetString("ComboBox3.Items1"), resources.GetString("ComboBox3.Items2")})
resources.ApplyResources(Me.ComboBox3, "ComboBox3")
Me.ComboBox3.Name = "ComboBox3"
' '
'TBDD_DOKUMENTARTBindingSource 'TBDD_DOKUMENTARTBindingSource
' '
@ -964,6 +979,46 @@ Partial Class frmAdministration
Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'GridControl1
'
Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsView.ColumnAutoWidth = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'colBEZEICHNUNG
'
resources.ApplyResources(Me.colBEZEICHNUNG, "colBEZEICHNUNG")
Me.colBEZEICHNUNG.FieldName = "BEZEICHNUNG"
Me.colBEZEICHNUNG.Name = "colBEZEICHNUNG"
'
'SEQUENCENumericUpDown
'
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True))
resources.ApplyResources(Me.SEQUENCENumericUpDown, "SEQUENCENumericUpDown")
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
'
'WINDREAM_DIRECTCheckBox 'WINDREAM_DIRECTCheckBox
' '
Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True)) Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True))
@ -999,6 +1054,7 @@ Partial Class frmAdministration
'XtraTabPage3 'XtraTabPage3
' '
resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3") resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
Me.XtraTabPage3.Controls.Add(Me.SAVE_VALUECheckBox)
Me.XtraTabPage3.Controls.Add(Me.lblWDINDEX) Me.XtraTabPage3.Controls.Add(Me.lblWDINDEX)
Me.XtraTabPage3.Controls.Add(Me.OPTIONALCheckBox) Me.XtraTabPage3.Controls.Add(Me.OPTIONALCheckBox)
Me.XtraTabPage3.Controls.Add(Me.ListBox5) Me.XtraTabPage3.Controls.Add(Me.ListBox5)
@ -1030,6 +1086,18 @@ Partial Class frmAdministration
Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
Me.XtraTabPage3.Name = "XtraTabPage3" Me.XtraTabPage3.Name = "XtraTabPage3"
' '
'SAVE_VALUECheckBox
'
Me.SAVE_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SAVE_VALUE", True))
resources.ApplyResources(Me.SAVE_VALUECheckBox, "SAVE_VALUECheckBox")
Me.SAVE_VALUECheckBox.Name = "SAVE_VALUECheckBox"
Me.SAVE_VALUECheckBox.UseVisualStyleBackColor = True
'
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'lblWDINDEX 'lblWDINDEX
' '
resources.ApplyResources(Me.lblWDINDEX, "lblWDINDEX") resources.ApplyResources(Me.lblWDINDEX, "lblWDINDEX")
@ -1042,11 +1110,6 @@ Partial Class frmAdministration
Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox" Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox"
Me.OPTIONALCheckBox.UseVisualStyleBackColor = True Me.OPTIONALCheckBox.UseVisualStyleBackColor = True
' '
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'ListBox5 'ListBox5
' '
Me.ListBox5.DataSource = Me.TBDD_INDEX_MANBindingSource Me.ListBox5.DataSource = Me.TBDD_INDEX_MANBindingSource
@ -1151,7 +1214,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_MANBindingNav.BindingSource = Me.TBDD_INDEX_MANBindingSource Me.TBDD_INDEX_MANBindingNav.BindingSource = Me.TBDD_INDEX_MANBindingSource
Me.TBDD_INDEX_MANBindingNav.CountItem = Me.ToolStripLabel1 Me.TBDD_INDEX_MANBindingNav.CountItem = Me.ToolStripLabel1
Me.TBDD_INDEX_MANBindingNav.CountItemFormat = "von {0} manuellen Indexen" Me.TBDD_INDEX_MANBindingNav.CountItemFormat = "von {0} manuellen Indexen"
Me.TBDD_INDEX_MANBindingNav.DeleteItem = Me.ToolStripButton2 Me.TBDD_INDEX_MANBindingNav.DeleteItem = Nothing
Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton41}) Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton41})
resources.ApplyResources(Me.TBDD_INDEX_MANBindingNav, "TBDD_INDEX_MANBindingNav") resources.ApplyResources(Me.TBDD_INDEX_MANBindingNav, "TBDD_INDEX_MANBindingNav")
Me.TBDD_INDEX_MANBindingNav.MoveFirstItem = Me.ToolStripButton3 Me.TBDD_INDEX_MANBindingNav.MoveFirstItem = Me.ToolStripButton3
@ -1562,7 +1625,7 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.lbFileparameter, "lbFileparameter") resources.ApplyResources(Me.lbFileparameter, "lbFileparameter")
Me.lbFileparameter.FormattingEnabled = True Me.lbFileparameter.FormattingEnabled = True
Me.lbFileparameter.Items.AddRange(New Object() {resources.GetString("lbFileparameter.Items"), resources.GetString("lbFileparameter.Items1"), resources.GetString("lbFileparameter.Items2"), resources.GetString("lbFileparameter.Items3"), resources.GetString("lbFileparameter.Items4"), resources.GetString("lbFileparameter.Items5"), resources.GetString("lbFileparameter.Items6")}) Me.lbFileparameter.Items.AddRange(New Object() {resources.GetString("lbFileparameter.Items"), resources.GetString("lbFileparameter.Items1"), resources.GetString("lbFileparameter.Items2"), resources.GetString("lbFileparameter.Items3"), resources.GetString("lbFileparameter.Items4"), resources.GetString("lbFileparameter.Items5"), resources.GetString("lbFileparameter.Items6"), resources.GetString("lbFileparameter.Items7")})
Me.lbFileparameter.Name = "lbFileparameter" Me.lbFileparameter.Name = "lbFileparameter"
' '
'ListBox6 'ListBox6
@ -1678,7 +1741,7 @@ Partial Class frmAdministration
Me.BindingNavigator2.CountItemFormat = "von {0} automatischen Indexen" Me.BindingNavigator2.CountItemFormat = "von {0} automatischen Indexen"
Me.BindingNavigator2.DeleteItem = Me.ToolStripButton17 Me.BindingNavigator2.DeleteItem = Me.ToolStripButton17
resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2")
Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton18, Me.ToolStripButton19, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton20, Me.ToolStripButton21, Me.ToolStripSeparator9, Me.ToolStripButton16, Me.ToolStripButton17, Me.ToolStripButton22}) Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton18, Me.ToolStripButton19, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton20, Me.ToolStripButton21, Me.ToolStripSeparator9, Me.ToolStripButton16, Me.ToolStripButton17, Me.ToolStripButton22, Me.tsbtnRefreshAutomatic})
Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton18 Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton18
Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton21 Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton21
Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton20 Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton20
@ -1753,6 +1816,13 @@ Partial Class frmAdministration
resources.ApplyResources(Me.ToolStripButton22, "ToolStripButton22") resources.ApplyResources(Me.ToolStripButton22, "ToolStripButton22")
Me.ToolStripButton22.Name = "ToolStripButton22" Me.ToolStripButton22.Name = "ToolStripButton22"
' '
'tsbtnRefreshAutomatic
'
Me.tsbtnRefreshAutomatic.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnRefreshAutomatic.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tsbtnRefreshAutomatic, "tsbtnRefreshAutomatic")
Me.tsbtnRefreshAutomatic.Name = "tsbtnRefreshAutomatic"
'
'INDEXNAME_AutoIndexTXT 'INDEXNAME_AutoIndexTXT
' '
Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
@ -2229,17 +2299,63 @@ Partial Class frmAdministration
Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1)
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
' '
'SHORTNAMETextBox 'GridControl2
' '
Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "SHORTNAME", True)) resources.ApplyResources(Me.GridControl2, "GridControl2")
resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox") Me.GridControl2.DataSource = Me.TBDD_USERBindingSource
Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox" Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.ShowOnlyPredefinedDetails = True
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
' '
'TBDD_USERBindingSource 'TBDD_USERBindingSource
' '
Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
Me.TBDD_USERBindingSource.DataSource = Me.MyDataset Me.TBDD_USERBindingSource.DataSource = Me.MyDataset
' '
'GridView2
'
Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME, Me.colNAME, Me.colEMAIL})
Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2"
Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.Editable = False
Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView2.OptionsView.ColumnAutoWidth = False
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
Me.GridView2.OptionsView.ShowAutoFilterRow = True
Me.GridView2.OptionsView.ShowGroupPanel = False
'
'colUSERNAME
'
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
Me.colUSERNAME.FieldName = "USERNAME"
Me.colUSERNAME.Name = "colUSERNAME"
'
'colNAME
'
resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME"
Me.colNAME.Name = "colNAME"
'
'colEMAIL
'
resources.ApplyResources(Me.colEMAIL, "colEMAIL")
Me.colEMAIL.FieldName = "EMAIL"
Me.colEMAIL.Name = "colEMAIL"
'
'SHORTNAMETextBox
'
Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "SHORTNAME", True))
resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox")
Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox"
'
'LANGUAGEComboBox 'LANGUAGEComboBox
' '
Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True)) Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True))
@ -2980,86 +3096,6 @@ Partial Class frmAdministration
' '
Me.VWGI_DOCTYPE_GROUPTableAdapter.ClearBeforeFill = True Me.VWGI_DOCTYPE_GROUPTableAdapter.ClearBeforeFill = True
' '
'GridControl1
'
Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsView.ColumnAutoWidth = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'colBEZEICHNUNG
'
resources.ApplyResources(Me.colBEZEICHNUNG, "colBEZEICHNUNG")
Me.colBEZEICHNUNG.FieldName = "BEZEICHNUNG"
Me.colBEZEICHNUNG.Name = "colBEZEICHNUNG"
'
'GridControl2
'
resources.ApplyResources(Me.GridControl2, "GridControl2")
Me.GridControl2.DataSource = Me.TBDD_USERBindingSource
Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.ShowOnlyPredefinedDetails = True
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
'
'GridView2
'
Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME, Me.colNAME, Me.colEMAIL})
Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2"
Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
Me.GridView2.OptionsBehavior.Editable = False
Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView2.OptionsView.ColumnAutoWidth = False
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
Me.GridView2.OptionsView.ShowAutoFilterRow = True
Me.GridView2.OptionsView.ShowGroupPanel = False
'
'colUSERNAME
'
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
Me.colUSERNAME.FieldName = "USERNAME"
Me.colUSERNAME.Name = "colUSERNAME"
'
'colNAME
'
resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME"
Me.colNAME.Name = "colNAME"
'
'colEMAIL
'
resources.ApplyResources(Me.colEMAIL, "colEMAIL")
Me.colEMAIL.FieldName = "EMAIL"
Me.colEMAIL.Name = "colEMAIL"
'
'frmAdministration 'frmAdministration
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -3071,9 +3107,12 @@ Partial Class frmAdministration
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout() Me.XtraTabPage1.PerformLayout()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False)
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl2.ResumeLayout(False) Me.XtraTabControl2.ResumeLayout(False)
Me.XtraTabPage3.ResumeLayout(False) Me.XtraTabPage3.ResumeLayout(False)
@ -3114,7 +3153,9 @@ Partial Class frmAdministration
Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout() Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout()
Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.ResumeLayout(False)
Me.XtraTabPage2.PerformLayout() Me.XtraTabPage2.PerformLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl3.ResumeLayout(False) Me.XtraTabControl3.ResumeLayout(False)
Me.XtraTabPage7.ResumeLayout(False) Me.XtraTabPage7.ResumeLayout(False)
@ -3138,10 +3179,6 @@ Partial Class frmAdministration
CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -3446,4 +3483,8 @@ Partial Class frmAdministration
Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents tsbtnRefreshAutomatic As System.Windows.Forms.ToolStripButton
Friend WithEvents SAVE_VALUECheckBox As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
End Class End Class

737
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

76
Global_Indexer/frmAdministration.vb
View File

@ -111,6 +111,9 @@
' Then use the following code to create the Dialog window ' Then use the following code to create the Dialog window
' Change the .SelectedPath property to the default location ' Change the .SelectedPath property to the default location
With FolderBrowserDialog1 With FolderBrowserDialog1
If ZIEL_PFADTextBox.Text <> "" Then
.SelectedPath = ZIEL_PFADTextBox.Text
End If
' Desktop is the root folder in the dialog. ' Desktop is the root folder in the dialog.
'.RootFolder = Environment.SpecialFolder.Desktop '.RootFolder = Environment.SpecialFolder.Desktop
' Prompt the user with a custom message. ' Prompt the user with a custom message.
@ -175,7 +178,7 @@
lblSaveDokart.Visible = False lblSaveDokart.Visible = False
If DOKART_GUIDTextBox.Text <> String.Empty Then If DOKART_GUIDTextBox.Text <> String.Empty Then
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) Load_TabData()
End If End If
End Sub End Sub
@ -269,10 +272,12 @@
Else Else
btnSQLView.Visible = False btnSQLView.Visible = False
End If End If
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If End If
frmloaded = True frmloaded = True
tscmbUser.SelectedIndex = 0 tscmbUser.SelectedIndex = 0
TBDD_INDEX_MANBindingNav.Visible = True TBDD_INDEX_MANBindingNav.Visible = True
TBDD_INDEX_MANBindingNav.Visible = True
End Sub End Sub
Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@ -859,29 +864,18 @@
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try Try
Dim del As String = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID IN (SELECT GUID FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text & ")" Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text Dim str = "Global-Indexer Dokarten"
If ClassDatabase.Execute_non_Query(del, True) = True Then If ToolStripComboBox1.Text <> "" Then
del = "DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text str = ToolStripComboBox1.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART_MODULE WHERE DOKART_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART WHERE GUID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
' Load_Dokart("Global-Indexer Dokarten")
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End If
End If
End If End If
Load_Dokart(str)
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
End Try End Try
End If End If
End Sub End Sub
@ -1009,6 +1003,8 @@
value = "$filename_ext" value = "$filename_ext"
Case "Dateiname (ohne Endung)".ToUpper Case "Dateiname (ohne Endung)".ToUpper
value = "$filename" value = "$filename"
Case "Dateiendung".ToUpper
value = "$extension"
Case "Datei Erstelldatum".ToUpper Case "Datei Erstelldatum".ToUpper
value = "$FileCreateDate" value = "$FileCreateDate"
Case "Datei Erstellt wer".ToUpper Case "Datei Erstellt wer".ToUpper
@ -1041,4 +1037,44 @@
Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
End Sub End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
If GUIDTextBox1.Text <> "" Then
Try
Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBDD_INDEX_MAN WHERE GUID = " & GUIDTextBox1.Text
If ClassDatabase.Execute_non_Query(del) = True Then
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting manual index: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
Dim result As MsgBoxResult
result = MessageBox.Show("Sind Sie sicher dass Sie diesen User löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_USER " & USER_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
If tscmbUser.SelectedIndex = 1 Then
Refresh_User(True)
Else
Refresh_User(False)
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete User: ")
End Try
End If
End Sub
Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
End Sub
End Class End Class

24
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox() Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
@ -42,7 +42,6 @@ Partial Class frmConfig_Basic
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.cmbLanguage = New System.Windows.Forms.ComboBox() Me.cmbLanguage = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
@ -67,6 +66,7 @@ Partial Class frmConfig_Basic
Me.btnstartstop2 = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button() Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@ -173,10 +173,10 @@ Partial Class frmConfig_Basic
' '
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.LinkLabel1)
Me.TabPage2.Controls.Add(Me.Button3) Me.TabPage2.Controls.Add(Me.Button3)
Me.TabPage2.Controls.Add(Me.cmbLanguage) Me.TabPage2.Controls.Add(Me.cmbLanguage)
Me.TabPage2.Controls.Add(Me.Label9) Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.LinkLabel1)
Me.TabPage2.Controls.Add(Me.CheckBox3) Me.TabPage2.Controls.Add(Me.CheckBox3)
Me.TabPage2.Controls.Add(Me.CheckBox2) Me.TabPage2.Controls.Add(Me.CheckBox2)
Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly) Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
@ -208,12 +208,6 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label9, "Label9") resources.ApplyResources(Me.Label9, "Label9")
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
' '
'LinkLabel1
'
resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.TabStop = True
'
'CheckBox3 'CheckBox3
' '
resources.ApplyResources(Me.CheckBox3, "CheckBox3") resources.ApplyResources(Me.CheckBox3, "CheckBox3")
@ -300,8 +294,8 @@ Partial Class frmConfig_Basic
' '
'DataGridView1 'DataGridView1
' '
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
resources.ApplyResources(Me.DataGridView1, "DataGridView1") resources.ApplyResources(Me.DataGridView1, "DataGridView1")
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
@ -377,6 +371,12 @@ Partial Class frmConfig_Basic
' '
Me.OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
' '
'LinkLabel1
'
resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.TabStop = True
'
'frmConfig_Basic 'frmConfig_Basic
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -434,9 +434,9 @@ Partial Class frmConfig_Basic
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents btnLogMail As System.Windows.Forms.Button Friend WithEvents btnLogMail As System.Windows.Forms.Button
Friend WithEvents cmbLanguage As System.Windows.Forms.ComboBox Friend WithEvents cmbLanguage As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
End Class End Class

155
Global_Indexer/frmConfig_Basic.en-US.resx Normal file
View File

@ -0,0 +1,155 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>582, 280</value>
</data>
<data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>582, 280</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAFKcAABKjAAIo/8AAYHTAA2o/wApsP8AADlzAAeY8QAEbrkAWML/AFTA/wAfmeYAFH3FAGfI
/wCH0/8ASr3/ADm2/wAAXbwAAITeAACM+AAAYsMAFHS1AACO/wAqrf0AAE6UAABCewAAYLIAAEOZAAA5
awAInPYAADNzAABwzgCB0f8AAFKMAAN7zgC25P8Ae8//ACWHxQAAbcYASLz/AP///wA4nNoAH5LaAACI
7wAAi/wATrr+AJPX/wB9z/8AUL//AAA6jgAAWrUAAHnzAABu3QAcgM0AhNL/AGfH/wAln/AAJaT9ADOu
/gBEuf4AAH/5ABKJ6wAAdNoAAIT/ABJ+yQAARo4AAFW+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAACBwcHBwAHBwAAAAAAAAAAAkAtQUIHPUMHAAAAAAECAAI6Ozw9IDs+PwcAAAE0NQI2
LyQvNzc4MTkHAAEsLS4OES8wDg4xMTEyMwABJygpJA4qHR0dHSsGBgYHAAEBJCUmHQAAABodBgYGBwAB
ICEKIgAAABocHQYGIwcBFxgKEBkCAhobHB0GHh8AAQ4PEBEBEhMUFQIWAwMDBwEKCwYGDAEBAgINAwMD
BAcAAQEBBgYGBgYDAwgJAwcAAAAAAQYGAwMDAwMCBwcAAAAAAAEDAwMBBAMFAgAAAAAAAAAAAQEBAAEB
AgAAAAAAAAAAAAAAAAAAAAAAAAAAAPgnAAD4AwAAyAEAAIABAAAAAQAAAAAAAIHAAACDgAAAAAEAAAAA
AAAAAAAAgAEAAOADAADgDwAA8R8AAP//AAA=
</value>
</data>
</root>

1217
Global_Indexer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

29
Global_Indexer/frmConfig_Basic.vb
View File

@ -133,6 +133,14 @@ Public Class frmConfig_Basic
Try Try
With OpenFileDialog1 With OpenFileDialog1
' Do ' Do
If txtuniversalViewer.Text <> "" Then
Try
OpenFileDialog1.InitialDirectory = Path.GetDirectoryName(txtuniversalViewer.Text)
Catch ex As Exception
End Try
End If
.Filter = "Viewer.Exe|*.exe" .Filter = "Viewer.Exe|*.exe"
.FilterIndex = 1 .FilterIndex = 1
.Title = "Pfad zu Universal Viewer.exe:" .Title = "Pfad zu Universal Viewer.exe:"
@ -343,6 +351,9 @@ Public Class frmConfig_Basic
Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click
Dim fbdialog As New FolderBrowserDialog Dim fbdialog As New FolderBrowserDialog
If txtFolderWatch.Text <> "" Then
fbdialog.SelectedPath = txtFolderWatch.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "DEFAULT") CheckFolder(fbdialog.SelectedPath, "DEFAULT")
End If End If
@ -415,6 +426,9 @@ Public Class frmConfig_Basic
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fbdialog As New FolderBrowserDialog Dim fbdialog As New FolderBrowserDialog
If txtScanFolderWatch.Text <> "" Then
fbdialog.SelectedPath = txtScanFolderWatch.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "SCAN") CheckFolder(fbdialog.SelectedPath, "SCAN")
End If End If
@ -494,14 +508,6 @@ Public Class frmConfig_Basic
End If End If
End Sub End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' Specify that the link was visited.
Me.LinkLabel1.LinkVisited = True
' Navigate to a URL.
System.Diagnostics.Process.Start("http://www.didalog.de/Support")
End Sub
Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged
If chkbxUserAut.Checked Then If chkbxUserAut.Checked Then
Me.txtPasswort.Enabled = False Me.txtPasswort.Enabled = False
@ -511,4 +517,11 @@ Public Class frmConfig_Basic
Me.txtUser.Enabled = True Me.txtUser.Enabled = True
End If End If
End Sub End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' Specify that the link was visited.
Me.LinkLabel1.LinkVisited = True
' Navigate to a URL.
System.Diagnostics.Process.Start("http://www.didalog.de/Support")
End Sub
End Class End Class

12
Global_Indexer/frmHistory.resx
View File

@ -362,7 +362,7 @@
<value>GridControl1</value> <value>GridControl1</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -485,31 +485,31 @@
<value>GridView1</value> <value>GridView1</value>
</data> </data>
<data name="&gt;&gt;GridView1.Type" xml:space="preserve"> <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colGUID.Name" xml:space="preserve"> <data name="&gt;&gt;colGUID.Name" xml:space="preserve">
<value>colGUID</value> <value>colGUID</value>
</data> </data>
<data name="&gt;&gt;colGUID.Type" xml:space="preserve"> <data name="&gt;&gt;colGUID.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colFILENAME_ORIGINAL.Name" xml:space="preserve"> <data name="&gt;&gt;colFILENAME_ORIGINAL.Name" xml:space="preserve">
<value>colFILENAME_ORIGINAL</value> <value>colFILENAME_ORIGINAL</value>
</data> </data>
<data name="&gt;&gt;colFILENAME_ORIGINAL.Type" xml:space="preserve"> <data name="&gt;&gt;colFILENAME_ORIGINAL.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colFILENAME_NEW.Name" xml:space="preserve"> <data name="&gt;&gt;colFILENAME_NEW.Name" xml:space="preserve">
<value>colFILENAME_NEW</value> <value>colFILENAME_NEW</value>
</data> </data>
<data name="&gt;&gt;colFILENAME_NEW.Type" xml:space="preserve"> <data name="&gt;&gt;colFILENAME_NEW.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve">
<value>colADDED_WHEN</value> <value>colADDED_WHEN</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmHistory</value> <value>frmHistory</value>

242
Global_Indexer/frmHotKey_Add.Designer.vb generated
View File

@ -104,6 +104,10 @@ Partial Class frmHotKey_Add
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
Me.TabControlMain = New System.Windows.Forms.TabControl() Me.TabControlMain = New System.Windows.Forms.TabControl()
Me.TabPageUebersicht = New System.Windows.Forms.TabPage() Me.TabPageUebersicht = New System.Windows.Forms.TabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colString = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox() Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
@ -206,9 +210,18 @@ Partial Class frmHotKey_Add
Me.btndeleteUserProfile = New System.Windows.Forms.Button() Me.btndeleteUserProfile = New System.Windows.Forms.Button()
Me.chklbUserProfile = New System.Windows.Forms.CheckedListBox() Me.chklbUserProfile = New System.Windows.Forms.CheckedListBox()
Me.btndelete = New System.Windows.Forms.Button() Me.btndelete = New System.Windows.Forms.Button()
Me.ListBox_Profiles = New System.Windows.Forms.ListBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.TabPage_Designer = New System.Windows.Forms.TabPage() Me.TabPage_Designer = New System.Windows.Forms.TabPage()
Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.Label20 = New System.Windows.Forms.Label()
Me.lblLinkCopyPaste = New System.Windows.Forms.Label()
Me.btnAddCopypasteConfig = New System.Windows.Forms.Button()
Me.txtcopypastePatter = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.cmbCopyPasteFunction = New System.Windows.Forms.ComboBox()
Me.TabPageTest = New System.Windows.Forms.TabPage() Me.TabPageTest = New System.Windows.Forms.TabPage()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.chkboxshowfilledControlsOnly_Test = New System.Windows.Forms.CheckBox() Me.chkboxshowfilledControlsOnly_Test = New System.Windows.Forms.CheckBox()
@ -226,16 +239,6 @@ Partial Class frmHotKey_Add
Me.TBHOTKEY_PATTERNS_REWORKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter() Me.TBHOTKEY_PATTERNS_REWORKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter()
Me.TBHOTKEY_WINDOW_HOOKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter() Me.TBHOTKEY_WINDOW_HOOKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.cmbCopyPasteFunction = New System.Windows.Forms.ComboBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.txtcopypastePatter = New System.Windows.Forms.TextBox()
Me.btnAddCopypasteConfig = New System.Windows.Forms.Button()
Me.lblLinkCopyPaste = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
WD_SEARCHLabel = New System.Windows.Forms.Label() WD_SEARCHLabel = New System.Windows.Forms.Label()
@ -274,6 +277,8 @@ Partial Class frmHotKey_Add
CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControlMain.SuspendLayout() Me.TabControlMain.SuspendLayout()
Me.TabPageUebersicht.SuspendLayout() Me.TabPageUebersicht.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBoxPatterns.SuspendLayout() Me.GroupBoxPatterns.SuspendLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControlDetails.SuspendLayout() Me.TabControlDetails.SuspendLayout()
@ -293,14 +298,14 @@ Partial Class frmHotKey_Add
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.TabPage_Designer.SuspendLayout() Me.TabPage_Designer.SuspendLayout()
Me.TabControl2.SuspendLayout()
Me.TabPage7.SuspendLayout()
Me.TabPage8.SuspendLayout()
Me.TabPageTest.SuspendLayout() Me.TabPageTest.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl2.SuspendLayout()
Me.TabPage7.SuspendLayout()
Me.TabPage8.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -790,15 +795,59 @@ Partial Class frmHotKey_Add
'TabPageUebersicht 'TabPageUebersicht
' '
resources.ApplyResources(Me.TabPageUebersicht, "TabPageUebersicht") resources.ApplyResources(Me.TabPageUebersicht, "TabPageUebersicht")
Me.TabPageUebersicht.Controls.Add(Me.GridControl1)
Me.TabPageUebersicht.Controls.Add(Me.ToolStrip1) Me.TabPageUebersicht.Controls.Add(Me.ToolStrip1)
Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns) Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns)
Me.TabPageUebersicht.Controls.Add(Me.TabControl1) Me.TabPageUebersicht.Controls.Add(Me.TabControl1)
Me.TabPageUebersicht.Controls.Add(Me.btndelete) Me.TabPageUebersicht.Controls.Add(Me.btndelete)
Me.TabPageUebersicht.Controls.Add(Me.ListBox_Profiles)
Me.TabPageUebersicht.Controls.Add(Me.Label9) Me.TabPageUebersicht.Controls.Add(Me.Label9)
Me.TabPageUebersicht.Name = "TabPageUebersicht" Me.TabPageUebersicht.Name = "TabPageUebersicht"
Me.TabPageUebersicht.UseVisualStyleBackColor = True Me.TabPageUebersicht.UseVisualStyleBackColor = True
' '
'GridControl1
'
Me.GridControl1.DataSource = Me.TBHOTKEY_PROFILEBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colString})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsBehavior.ReadOnly = True
Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsSelection.EnableAppearanceFocusedRow = False
Me.GridView1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridView1.OptionsSelection.MultiSelect = True
Me.GridView1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridView1.OptionsView.ColumnAutoWidth = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowDetailButtons = False
Me.GridView1.OptionsView.ShowGroupPanel = False
Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
'
'colGUID
'
resources.ApplyResources(Me.colGUID, "colGUID")
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
'
'colString
'
resources.ApplyResources(Me.colString, "colString")
Me.colString.FieldName = "String"
Me.colString.Name = "colString"
'
'ToolStrip1 'ToolStrip1
' '
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
@ -1548,16 +1597,6 @@ Partial Class frmHotKey_Add
Me.btndelete.Name = "btndelete" Me.btndelete.Name = "btndelete"
Me.btndelete.UseVisualStyleBackColor = True Me.btndelete.UseVisualStyleBackColor = True
' '
'ListBox_Profiles
'
resources.ApplyResources(Me.ListBox_Profiles, "ListBox_Profiles")
Me.ListBox_Profiles.BackColor = System.Drawing.SystemColors.ControlLight
Me.ListBox_Profiles.DataSource = Me.TBHOTKEY_PROFILEBindingSource
Me.ListBox_Profiles.DisplayMember = "String"
Me.ListBox_Profiles.FormattingEnabled = True
Me.ListBox_Profiles.Name = "ListBox_Profiles"
Me.ListBox_Profiles.ValueMember = "GUID"
'
'Label9 'Label9
' '
resources.ApplyResources(Me.Label9, "Label9") resources.ApplyResources(Me.Label9, "Label9")
@ -1572,6 +1611,75 @@ Partial Class frmHotKey_Add
Me.TabPage_Designer.Name = "TabPage_Designer" Me.TabPage_Designer.Name = "TabPage_Designer"
Me.TabPage_Designer.UseVisualStyleBackColor = True Me.TabPage_Designer.UseVisualStyleBackColor = True
' '
'TabControl2
'
resources.ApplyResources(Me.TabControl2, "TabControl2")
Me.TabControl2.Controls.Add(Me.TabPage7)
Me.TabControl2.Controls.Add(Me.TabPage8)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
'
'TabPage7
'
Me.TabPage7.Controls.Add(Me.GroupBox2_Controls)
resources.ApplyResources(Me.TabPage7, "TabPage7")
Me.TabPage7.Name = "TabPage7"
Me.TabPage7.UseVisualStyleBackColor = True
'
'TabPage8
'
Me.TabPage8.Controls.Add(Me.Label20)
Me.TabPage8.Controls.Add(Me.lblLinkCopyPaste)
Me.TabPage8.Controls.Add(Me.btnAddCopypasteConfig)
Me.TabPage8.Controls.Add(Me.txtcopypastePatter)
Me.TabPage8.Controls.Add(Me.Label19)
Me.TabPage8.Controls.Add(Me.Label18)
Me.TabPage8.Controls.Add(Me.cmbCopyPasteFunction)
resources.ApplyResources(Me.TabPage8, "TabPage8")
Me.TabPage8.Name = "TabPage8"
Me.TabPage8.UseVisualStyleBackColor = True
'
'Label20
'
resources.ApplyResources(Me.Label20, "Label20")
Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label20.Name = "Label20"
'
'lblLinkCopyPaste
'
resources.ApplyResources(Me.lblLinkCopyPaste, "lblLinkCopyPaste")
Me.lblLinkCopyPaste.BackColor = System.Drawing.Color.Yellow
Me.lblLinkCopyPaste.Name = "lblLinkCopyPaste"
'
'btnAddCopypasteConfig
'
resources.ApplyResources(Me.btnAddCopypasteConfig, "btnAddCopypasteConfig")
Me.btnAddCopypasteConfig.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnAddCopypasteConfig.Name = "btnAddCopypasteConfig"
Me.btnAddCopypasteConfig.UseVisualStyleBackColor = True
'
'txtcopypastePatter
'
resources.ApplyResources(Me.txtcopypastePatter, "txtcopypastePatter")
Me.txtcopypastePatter.Name = "txtcopypastePatter"
'
'Label19
'
resources.ApplyResources(Me.Label19, "Label19")
Me.Label19.Name = "Label19"
'
'Label18
'
resources.ApplyResources(Me.Label18, "Label18")
Me.Label18.Name = "Label18"
'
'cmbCopyPasteFunction
'
Me.cmbCopyPasteFunction.FormattingEnabled = True
Me.cmbCopyPasteFunction.Items.AddRange(New Object() {resources.GetString("cmbCopyPasteFunction.Items"), resources.GetString("cmbCopyPasteFunction.Items1")})
resources.ApplyResources(Me.cmbCopyPasteFunction, "cmbCopyPasteFunction")
Me.cmbCopyPasteFunction.Name = "cmbCopyPasteFunction"
'
'TabPageTest 'TabPageTest
' '
Me.TabPageTest.Controls.Add(Me.GroupBox3) Me.TabPageTest.Controls.Add(Me.GroupBox3)
@ -1663,75 +1771,6 @@ Partial Class frmHotKey_Add
' '
Me.TBHOTKEY_WINDOW_HOOKTableAdapter.ClearBeforeFill = True Me.TBHOTKEY_WINDOW_HOOKTableAdapter.ClearBeforeFill = True
' '
'TabControl2
'
resources.ApplyResources(Me.TabControl2, "TabControl2")
Me.TabControl2.Controls.Add(Me.TabPage7)
Me.TabControl2.Controls.Add(Me.TabPage8)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
'
'TabPage7
'
Me.TabPage7.Controls.Add(Me.GroupBox2_Controls)
resources.ApplyResources(Me.TabPage7, "TabPage7")
Me.TabPage7.Name = "TabPage7"
Me.TabPage7.UseVisualStyleBackColor = True
'
'TabPage8
'
Me.TabPage8.Controls.Add(Me.Label20)
Me.TabPage8.Controls.Add(Me.lblLinkCopyPaste)
Me.TabPage8.Controls.Add(Me.btnAddCopypasteConfig)
Me.TabPage8.Controls.Add(Me.txtcopypastePatter)
Me.TabPage8.Controls.Add(Me.Label19)
Me.TabPage8.Controls.Add(Me.Label18)
Me.TabPage8.Controls.Add(Me.cmbCopyPasteFunction)
resources.ApplyResources(Me.TabPage8, "TabPage8")
Me.TabPage8.Name = "TabPage8"
Me.TabPage8.UseVisualStyleBackColor = True
'
'cmbCopyPasteFunction
'
Me.cmbCopyPasteFunction.FormattingEnabled = True
Me.cmbCopyPasteFunction.Items.AddRange(New Object() {resources.GetString("cmbCopyPasteFunction.Items"), resources.GetString("cmbCopyPasteFunction.Items1")})
resources.ApplyResources(Me.cmbCopyPasteFunction, "cmbCopyPasteFunction")
Me.cmbCopyPasteFunction.Name = "cmbCopyPasteFunction"
'
'Label18
'
resources.ApplyResources(Me.Label18, "Label18")
Me.Label18.Name = "Label18"
'
'Label19
'
resources.ApplyResources(Me.Label19, "Label19")
Me.Label19.Name = "Label19"
'
'txtcopypastePatter
'
resources.ApplyResources(Me.txtcopypastePatter, "txtcopypastePatter")
Me.txtcopypastePatter.Name = "txtcopypastePatter"
'
'btnAddCopypasteConfig
'
resources.ApplyResources(Me.btnAddCopypasteConfig, "btnAddCopypasteConfig")
Me.btnAddCopypasteConfig.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnAddCopypasteConfig.Name = "btnAddCopypasteConfig"
Me.btnAddCopypasteConfig.UseVisualStyleBackColor = True
'
'lblLinkCopyPaste
'
resources.ApplyResources(Me.lblLinkCopyPaste, "lblLinkCopyPaste")
Me.lblLinkCopyPaste.BackColor = System.Drawing.Color.Yellow
Me.lblLinkCopyPaste.Name = "lblLinkCopyPaste"
'
'Label20
'
resources.ApplyResources(Me.Label20, "Label20")
Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label20.Name = "Label20"
'
'frmHotKey_Add 'frmHotKey_Add
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -1753,6 +1792,8 @@ Partial Class frmHotKey_Add
Me.TabControlMain.ResumeLayout(False) Me.TabControlMain.ResumeLayout(False)
Me.TabPageUebersicht.ResumeLayout(False) Me.TabPageUebersicht.ResumeLayout(False)
Me.TabPageUebersicht.PerformLayout() Me.TabPageUebersicht.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBoxPatterns.ResumeLayout(False) Me.GroupBoxPatterns.ResumeLayout(False)
Me.GroupBoxPatterns.PerformLayout() Me.GroupBoxPatterns.PerformLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -1780,16 +1821,16 @@ Partial Class frmHotKey_Add
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage_Designer.ResumeLayout(False) Me.TabPage_Designer.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False)
Me.TabPage7.ResumeLayout(False)
Me.TabPage8.ResumeLayout(False)
Me.TabPage8.PerformLayout()
Me.TabPageTest.ResumeLayout(False) Me.TabPageTest.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout() Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl2.ResumeLayout(False)
Me.TabPage7.ResumeLayout(False)
Me.TabPage8.ResumeLayout(False)
Me.TabPage8.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1835,7 +1876,6 @@ Partial Class frmHotKey_Add
Friend WithEvents ListBox_MainWindows_Test As System.Windows.Forms.ListBox Friend WithEvents ListBox_MainWindows_Test As System.Windows.Forms.ListBox
Friend WithEvents TabPageUebersicht As System.Windows.Forms.TabPage Friend WithEvents TabPageUebersicht As System.Windows.Forms.TabPage
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents ListBox_Profiles As System.Windows.Forms.ListBox
Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents btndelete As System.Windows.Forms.Button Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents btnUserAdd_Profile As System.Windows.Forms.Button Friend WithEvents btnUserAdd_Profile As System.Windows.Forms.Button
@ -1977,4 +2017,8 @@ Partial Class frmHotKey_Add
Friend WithEvents cmbCopyPasteFunction As System.Windows.Forms.ComboBox Friend WithEvents cmbCopyPasteFunction As System.Windows.Forms.ComboBox
Friend WithEvents lblLinkCopyPaste As System.Windows.Forms.Label Friend WithEvents lblLinkCopyPaste As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colString As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

2715
Global_Indexer/frmHotKey_Add.resx
View File

File diff suppressed because it is too large Load Diff

108
Global_Indexer/frmHotKey_Add.vb
View File

@ -238,11 +238,6 @@
Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName
End If End If
End Sub End Sub
Private Sub txtKey_KeyUp(sender As Object, e As KeyEventArgs) Handles txtKey.KeyUp
Console.WriteLine(e.KeyCode)
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
Select Case TabControlMain.SelectedIndex Select Case TabControlMain.SelectedIndex
@ -290,23 +285,29 @@
End Sub End Sub
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
If ListBox_Profiles.SelectedIndex <> -1 Then Dim ID
Try
ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
Catch ex As Exception
ID = 0
End Try
If ID > 1 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try Try
Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ID
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue & ")" del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID & ")"
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ID
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ListBox_Profiles.SelectedValue del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
ClassLogger.Add(">> Hotkey-Profil: " & ListBox_Profiles.SelectedValue & " wurde gelöscht!", False) ClassLogger.Add(">> Hotkey-Profil: " & ID & " wurde gelöscht!", False)
Load_Profiles() Load_Profiles()
Load_UserForProfiles() Load_UserForProfiles()
MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
@ -326,16 +327,22 @@
Try Try
Dim added As Integer = 0 Dim added As Integer = 0
Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems
If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then Dim ID
Try
ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
Catch ex As Exception
ID = 0
End Try
If ID > 1 And items.Count > 0 Then
For Each item In items For Each item In items
Dim SQL Dim SQL
SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
If exists = 0 Then If exists = 0 Then
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue) TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ID)
added += 1 added += 1
End If End If
@ -359,15 +366,29 @@
End Sub End Sub
Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click
For i = 0 To chklbUser.Items.Count - 1 If TabControl1.SelectedIndex = 1 Then
chklbUser.SetItemChecked(i, True) For i = 0 To chklbUser.Items.Count - 1
Next chklbUser.SetItemChecked(i, True)
Next
ElseIf TabControl1.SelectedIndex = 2 Then
For i = 0 To chklbUserProfile.Items.Count - 1
chklbUserProfile.SetItemChecked(i, True)
Next
End If
End Sub End Sub
Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click
For i = 0 To chklbUser.Items.Count - 1 If TabControl1.SelectedIndex = 1 Then
chklbUser.SetItemChecked(i, False) For i = 0 To chklbUser.Items.Count - 1
Next chklbUser.SetItemChecked(i, False)
Next
ElseIf TabControl1.SelectedIndex = 2 Then
For i = 0 To chklbUserProfile.Items.Count - 1
chklbUserProfile.SetItemChecked(i, False)
Next
End If
End Sub End Sub
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@ -381,9 +402,15 @@
End Sub End Sub
Sub Load_UserForProfiles() Sub Load_UserForProfiles()
Try Try
If ListBox_Profiles.SelectedIndex <> -1 Then Dim ID
Try
ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
Catch ex As Exception
ID = 0
End Try
If ID > 1 Then
chklbUserProfile.Items.Clear() chklbUserProfile.Items.Clear()
Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ListBox_Profiles.SelectedValue Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
For Each dr As DataRow In DT.Rows For Each dr As DataRow In DT.Rows
@ -396,9 +423,14 @@
End Try End Try
End Sub End Sub
Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim ID
If ListBox_Profiles.SelectedIndex <> -1 Then Try
ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
Catch ex As Exception
ID = 0
End Try
If ID > 0 Then
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 1 Case 1
'Try 'Try
@ -436,7 +468,13 @@
Try Try
Dim deleted As Integer = 0 Dim deleted As Integer = 0
Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems
If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then Dim ID
Try
ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
Catch ex As Exception
ID = 0
End Try
If ID > 1 And items.Count > 0 Then
For Each item In items For Each item In items
Dim SQL Dim SQL
SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
@ -445,10 +483,10 @@
MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation) MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
Dim ID = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) Dim ID1 = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
If ID > 0 Then If ID1 > 0 Then
TBHOTKEY_USER_PROFILETableAdapter.Delete(ID) TBHOTKEY_USER_PROFILETableAdapter.Delete(ID1)
deleted += 1 deleted += 1
End If End If
Next Next
@ -778,4 +816,12 @@
Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged
End Sub End Sub
Private Sub chklbUserProfile_MouseEnter(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseEnter
ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter)
End Sub
Private Sub chklbUserProfile_MouseLeave(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseLeave
ToolTipController1.HideHint()
End Sub
End Class End Class

62
Global_Indexer/frmIndex.resx
View File

@ -805,7 +805,7 @@
<value>PdfViewer1</value> <value>PdfViewer1</value>
</data> </data>
<data name="&gt;&gt;PdfViewer1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfViewer1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfViewer1.Parent" xml:space="preserve"> <data name="&gt;&gt;PdfViewer1.Parent" xml:space="preserve">
<value>pnlPDF</value> <value>pnlPDF</value>
@ -868,7 +868,7 @@
<value>RibbonControl1</value> <value>RibbonControl1</value>
</data> </data>
<data name="&gt;&gt;RibbonControl1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.Parent" xml:space="preserve">
<value>pnlPDF</value> <value>pnlPDF</value>
@ -1033,175 +1033,175 @@
<value>PdfFileOpenBarItem1</value> <value>PdfFileOpenBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfFileOpenBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfFileOpenBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfFileSaveAsBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfFileSaveAsBarItem1.Name" xml:space="preserve">
<value>PdfFileSaveAsBarItem1</value> <value>PdfFileSaveAsBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfFileSaveAsBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfFileSaveAsBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfFilePrintBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfFilePrintBarItem1.Name" xml:space="preserve">
<value>PdfFilePrintBarItem1</value> <value>PdfFilePrintBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfFilePrintBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfFilePrintBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfFilePrintBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfFilePrintBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfPreviousPageBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfPreviousPageBarItem1.Name" xml:space="preserve">
<value>PdfPreviousPageBarItem1</value> <value>PdfPreviousPageBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfPreviousPageBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfPreviousPageBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfNextPageBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfNextPageBarItem1.Name" xml:space="preserve">
<value>PdfNextPageBarItem1</value> <value>PdfNextPageBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfNextPageBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfNextPageBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfFindTextBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfFindTextBarItem1.Name" xml:space="preserve">
<value>PdfFindTextBarItem1</value> <value>PdfFindTextBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfFindTextBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfFindTextBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoomOutBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoomOutBarItem1.Name" xml:space="preserve">
<value>PdfZoomOutBarItem1</value> <value>PdfZoomOutBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoomOutBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoomOutBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoomInBarItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoomInBarItem1.Name" xml:space="preserve">
<value>PdfZoomInBarItem1</value> <value>PdfZoomInBarItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoomInBarItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoomInBarItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfExactZoomListBarSubItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfExactZoomListBarSubItem1.Name" xml:space="preserve">
<value>PdfExactZoomListBarSubItem1</value> <value>PdfExactZoomListBarSubItem1</value>
</data> </data>
<data name="&gt;&gt;PdfExactZoomListBarSubItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfExactZoomListBarSubItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom10CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom10CheckItem1.Name" xml:space="preserve">
<value>PdfZoom10CheckItem1</value> <value>PdfZoom10CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom10CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom10CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom25CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom25CheckItem1.Name" xml:space="preserve">
<value>PdfZoom25CheckItem1</value> <value>PdfZoom25CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom25CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom25CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom50CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom50CheckItem1.Name" xml:space="preserve">
<value>PdfZoom50CheckItem1</value> <value>PdfZoom50CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom50CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom50CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom75CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom75CheckItem1.Name" xml:space="preserve">
<value>PdfZoom75CheckItem1</value> <value>PdfZoom75CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom75CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom75CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom100CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom100CheckItem1.Name" xml:space="preserve">
<value>PdfZoom100CheckItem1</value> <value>PdfZoom100CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom100CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom100CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom125CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom125CheckItem1.Name" xml:space="preserve">
<value>PdfZoom125CheckItem1</value> <value>PdfZoom125CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom125CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom125CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom150CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom150CheckItem1.Name" xml:space="preserve">
<value>PdfZoom150CheckItem1</value> <value>PdfZoom150CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom150CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom150CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom200CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom200CheckItem1.Name" xml:space="preserve">
<value>PdfZoom200CheckItem1</value> <value>PdfZoom200CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom200CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom200CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom400CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom400CheckItem1.Name" xml:space="preserve">
<value>PdfZoom400CheckItem1</value> <value>PdfZoom400CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom400CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom400CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoom500CheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoom500CheckItem1.Name" xml:space="preserve">
<value>PdfZoom500CheckItem1</value> <value>PdfZoom500CheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfZoom500CheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoom500CheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfSetActualSizeZoomModeCheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfSetActualSizeZoomModeCheckItem1.Name" xml:space="preserve">
<value>PdfSetActualSizeZoomModeCheckItem1</value> <value>PdfSetActualSizeZoomModeCheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfSetActualSizeZoomModeCheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfSetActualSizeZoomModeCheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfSetPageLevelZoomModeCheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfSetPageLevelZoomModeCheckItem1.Name" xml:space="preserve">
<value>PdfSetPageLevelZoomModeCheckItem1</value> <value>PdfSetPageLevelZoomModeCheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfSetPageLevelZoomModeCheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfSetPageLevelZoomModeCheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfSetFitWidthZoomModeCheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfSetFitWidthZoomModeCheckItem1.Name" xml:space="preserve">
<value>PdfSetFitWidthZoomModeCheckItem1</value> <value>PdfSetFitWidthZoomModeCheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfSetFitWidthZoomModeCheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfSetFitWidthZoomModeCheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfSetFitVisibleZoomModeCheckItem1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfSetFitVisibleZoomModeCheckItem1.Name" xml:space="preserve">
<value>PdfSetFitVisibleZoomModeCheckItem1</value> <value>PdfSetFitVisibleZoomModeCheckItem1</value>
</data> </data>
<data name="&gt;&gt;PdfSetFitVisibleZoomModeCheckItem1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfSetFitVisibleZoomModeCheckItem1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfRibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfRibbonPage1.Name" xml:space="preserve">
<value>PdfRibbonPage1</value> <value>PdfRibbonPage1</value>
</data> </data>
<data name="&gt;&gt;PdfRibbonPage1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfRibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfRibbonPage, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfRibbonPage, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfFileRibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfFileRibbonPageGroup1.Name" xml:space="preserve">
<value>PdfFileRibbonPageGroup1</value> <value>PdfFileRibbonPageGroup1</value>
</data> </data>
<data name="&gt;&gt;PdfFileRibbonPageGroup1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfFileRibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfFileRibbonPageGroup, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfFileRibbonPageGroup, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfNavigationRibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfNavigationRibbonPageGroup1.Name" xml:space="preserve">
<value>PdfNavigationRibbonPageGroup1</value> <value>PdfNavigationRibbonPageGroup1</value>
</data> </data>
<data name="&gt;&gt;PdfNavigationRibbonPageGroup1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfNavigationRibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfZoomRibbonPageGroup1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfZoomRibbonPageGroup1.Name" xml:space="preserve">
<value>PdfZoomRibbonPageGroup1</value> <value>PdfZoomRibbonPageGroup1</value>
</data> </data>
<data name="&gt;&gt;PdfZoomRibbonPageGroup1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfZoomRibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfBarController1.Name" xml:space="preserve"> <data name="&gt;&gt;PdfBarController1.Name" xml:space="preserve">
<value>PdfBarController1</value> <value>PdfBarController1</value>
</data> </data>
<data name="&gt;&gt;PdfBarController1.Type" xml:space="preserve"> <data name="&gt;&gt;PdfBarController1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PdfBarController2.Name" xml:space="preserve"> <data name="&gt;&gt;PdfBarController2.Name" xml:space="preserve">
<value>PdfBarController2</value> <value>PdfBarController2</value>
</data> </data>
<data name="&gt;&gt;PdfBarController2.Type" xml:space="preserve"> <data name="&gt;&gt;PdfBarController2.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmIndex</value> <value>frmIndex</value>

504
Global_Indexer/frmIndex.vb
View File

@ -7,6 +7,7 @@ Imports Oracle.ManagedDataAccess.Client
Imports System.Text Imports System.Text
Imports System.Security.AccessControl Imports System.Security.AccessControl
Imports System.Security.Principal Imports System.Security.Principal
Imports System.DirectoryServices
Public Class frmIndex Public Class frmIndex
#Region "+++++ Variablen ++++++" #Region "+++++ Variablen ++++++"
@ -337,7 +338,7 @@ Public Class frmIndex
' Return 99 ' Return 99
' End Try ' End Try
' End Function ' End Function
Function GetManIndex_Value(indexname As String, RequestFor As String) Function GetManIndex_Value(indexname As String, RequestFor As String, opt As Boolean)
Try Try
Dim DT As DataTable Dim DT As DataTable
Dim DR As DataRow Dim DR As DataRow
@ -355,15 +356,16 @@ Public Class frmIndex
Else Else
If DR.Item("Indexwert").ToString <> String.Empty Then If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Console.WriteLine("Rückgabe manueller wert: " & DR.Item("Indexwert"))
Return DR.Item("Indexwert") Return DR.Item("Indexwert")
Else Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True) If opt = False Then
If optional_index = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False) ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return Nothing
Else
Return ""
End If End If
Return Nothing
End If End If
End If End If
Case Else Case Else
@ -371,12 +373,14 @@ Public Class frmIndex
If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Return DR.Item("Indexwert") Return DR.Item("Indexwert")
Else Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True) 'Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If optional_index = False Then If opt = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False) ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return Nothing
Else
Return ""
End If End If
Return Nothing
End If End If
End Select End Select
Else Else
@ -438,7 +442,7 @@ Public Class frmIndex
End If End If
If ergebnis Is Nothing Then If ergebnis Is Nothing Then
showlblhinweis("Kein Ergebnis für automatisches SQL: " & vsqlstatement) 'showlblhinweis("Kein Ergebnis für automatisches SQL: " & vsqlstatement)
Return "" Return ""
Else Else
Return ergebnis Return ergebnis
@ -952,13 +956,13 @@ Public Class frmIndex
End If End If
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
Console.WriteLine(element.ToString)
Select Case element.Value.Substring(2, 1).ToUpper Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False) If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False)
Dim Indexname = element.Value.Substring(3, element.Value.Length - 4) Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE") Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & Indexname & "')", MyConnectionString, True)
Dim value As String = GetManIndex_Value(Indexname, "FILE", optional_index)
If value <> String.Empty Then If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value) DATEINAME = DATEINAME.Replace(element.Value, value)
NewFileString = DATEINAME NewFileString = DATEINAME
@ -966,7 +970,7 @@ Public Class frmIndex
AnzahlIndexe += 1 AnzahlIndexe += 1
sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
Else Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & Indexname & "')", MyConnectionString, True)
If optional_index = True Then If optional_index = True Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@ -993,11 +997,16 @@ Public Class frmIndex
Case "A" Case "A"
Dim value As String = GetAutoIndex_Value(element.Value.Substring(3, element.Value.Length - 4)) Dim value As String = GetAutoIndex_Value(element.Value.Substring(3, element.Value.Length - 4))
If value <> String.Empty Then If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value) If value = "EMPTY_OI" Then
NewFileString = DATEINAME DATEINAME = DATEINAME.Replace(element.Value, "")
sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString NewFileString = DATEINAME
AnzahlIndexe += 1 Else
sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" DATEINAME = DATEINAME.Replace(element.Value, value)
NewFileString = DATEINAME
sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
AnzahlIndexe += 1
sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
End If
Else Else
err = True err = True
End If End If
@ -1024,12 +1033,21 @@ Public Class frmIndex
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2) datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY" Case "DD_MM_YYYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year
Case "YYMMDD"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & _Month & _day
Case "YYYYMMDD"
datetemp = My.Computer.Clock.LocalTime.Year & _Month & _day
Case "DDMMYY"
datetemp = _day & _Month & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DDMMYYYY"
datetemp = _day & _Month & My.Computer.Clock.LocalTime.Year
Case "OFilename" Case "OFilename"
DATEINAME = DATEINAME.Replace(element.Value, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)) DATEINAME = DATEINAME.Replace(element.Value, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE))
Case "Username" Case "Username".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, Environment.UserName) DATEINAME = DATEINAME.Replace(element.Value, Environment.UserName)
Case "Usercode" Case "Usercode".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, CURRENT_USER_SHORT) DATEINAME = DATEINAME.Replace(element.Value, CURRENT_USER_SHORT)
Case ""
End Select End Select
If datetemp <> "" Then If datetemp <> "" Then
DATEINAME = DATEINAME.Replace(element.Value, datetemp) DATEINAME = DATEINAME.Replace(element.Value, datetemp)
@ -1063,9 +1081,24 @@ Public Class frmIndex
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:") MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
End Select End Select
Next Next
CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(CURRENT_NEWFILENAME, "") CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(NewFileString, "")
CURRENT_NEWFILENAME = NewFileString & extension
If CURRENT_NEWFILENAME.EndsWith("_") Then
CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Substring(0, CURRENT_NEWFILENAME.Length - 1)
End If
If CURRENT_NEWFILENAME.StartsWith("_") Then
CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Substring(1)
End If
If CURRENT_NEWFILENAME.Contains("__") Then
CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Replace("__", "_")
End If
CURRENT_NEWFILENAME &= extension
Dim sollfilename = System.IO.Path.GetFileName(CURRENT_NEWFILENAME)
If sollfilename.StartsWith("_") Then
sollfilename = sollfilename.Substring(1)
Dim _path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME)
CURRENT_NEWFILENAME = _path & "\" & sollfilename
End If
Dim path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME) Dim path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME)
If folder_Created = False Then If folder_Created = False Then
' Den Zielordner erstellen ' Den Zielordner erstellen
@ -1108,26 +1141,29 @@ Public Class frmIndex
Dim idxvalue = row.Item("Indexwert") Dim idxvalue = row.Item("Indexwert")
Dim indexname = row.Item("WD_INDEX").ToString Dim indexname = row.Item("WD_INDEX").ToString
Dim optional_Index = CBool(row.Item("OPTIONAL")) Dim optional_Index = CBool(row.Item("OPTIONAL"))
If CBool(row.Item("Indexiert")) = True And idxvalue.ToString <> "" Then Dim indexiert = CBool(row.Item("Indexiert"))
If indexiert And idxvalue.ToString <> "" And idxvalue <> "EMPTY_OI" Then
If indexname <> String.Empty Then If indexname <> String.Empty Then
'Den Indexwert zwischenspeichern If row.Item("SAVE_VALUE") = True Then
Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS 'Den Indexwert zwischenspeichern
Dim rowexists As Boolean = False Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
For Each rowTemp As DataRow In DTTemp.Rows Dim rowexists As Boolean = False
'Wenn bereits ein Eintrag existiert..... For Each rowTemp As DataRow In DTTemp.Rows
If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then 'Wenn bereits ein Eintrag existiert.....
rowexists = True If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then
'......überschreiben rowexists = True
rowTemp.Item("Value") = row.Item("Indexwert") '......überschreiben
rowTemp.Item("Value") = row.Item("Indexwert")
End If
Next
'.....ansonsten neu anlegen
If rowexists = False Then
Dim newRow As DataRow = DTTemp.NewRow()
newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
newRow("Indexname") = row.Item("INDEXNAME").ToString
newRow("Value") = row.Item("Indexwert")
DTTemp.Rows.Add(newRow)
End If End If
Next
'.....ansonsten neu anlegen
If rowexists = False Then
Dim newRow As DataRow = DTTemp.NewRow()
newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
newRow("Indexname") = row.Item("INDEXNAME").ToString
newRow("Value") = row.Item("Indexwert")
DTTemp.Rows.Add(newRow)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False)
@ -1155,28 +1191,31 @@ Public Class frmIndex
If DTAut.Rows.Count > 0 Then If DTAut.Rows.Count > 0 Then
Dim Count As Integer = 0 Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows For Each row As DataRow In DTAut.Rows
If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then Dim indexiert = CBool(row.Item("Indexiert"))
Dim indexname = row.Item("INDEXNAME").ToString Dim Indexvalue = row.Item("Indexwert").ToString
Dim idxvalue = row.Item("Indexwert") Dim indexname = row.Item("INDEXNAME").ToString
If LogErrorsOnly = False Then ClassLogger.Add(" >> Auto Indexvalue: " & idxvalue.ToString, False) If indexiert = True And Indexvalue <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False) If Indexvalue <> "EMPTY_OI" Then
Count += 1 If LogErrorsOnly = False Then ClassLogger.Add(" >> Auto Indexname: " & indexname.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue) If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & Indexvalue.ToString, False)
If indexierung_erfolgreich = False Then Count += 1
MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, Indexvalue)
Return False If indexierung_erfolgreich = False Then
Exit For MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical)
Return False
Exit For
End If
End If End If
End If End If
Next Next
End If End If
If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Or CURRENT_NEWFILENAME.EndsWith(".msg") Then If DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or CURRENT_NEWFILENAME.EndsWith(".msg") Then
indexierung_erfolgreich = SetEmailIndices() indexierung_erfolgreich = SetEmailIndices()
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
Return False Return False
End If End If
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
indexierung_erfolgreich = SetAttachmentIndices() indexierung_erfolgreich = SetAttachmentIndices()
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
@ -1206,7 +1245,20 @@ Public Class frmIndex
Private Function SetEmailIndices() Private Function SetEmailIndices()
Dim indexierung_erfolgreich As Boolean = False Dim indexierung_erfolgreich As Boolean = False
Try Try
Dim msg As New Msg.Message(CURRENT_NEWFILENAME) Dim msg As Msg.Message = New Msg.Message(CURRENT_NEWFILENAME)
Dim msgDisplayTo = msg.DisplayTo
Dim msgInternetAccountName = msg.InternetAccountName
If LogErrorsOnly = False Then
ClassLogger.Add("", False)
ClassLogger.Add(" >> msgInternetAccountName: " & msgInternetAccountName, False)
ClassLogger.Add(" >> SenderName: " & msg.SenderName, False)
ClassLogger.Add(" >> SenderEmailAddress: " & msg.SenderEmailAddress, False)
ClassLogger.Add(" >> ReceivedByName: " & msg.ReceivedByName, False)
ClassLogger.Add(" >> ReceivedByEmailAddress: " & msg.ReceivedByEmailAddress, False)
ClassLogger.Add("", False)
End If
'Console.WriteLine("Subject: " + msg.Subject) 'Console.WriteLine("Subject: " + msg.Subject)
'Console.WriteLine("MessageDeliveryTime:" & msg.MessageDeliveryTime) 'Console.WriteLine("MessageDeliveryTime:" & msg.MessageDeliveryTime)
'Console.WriteLine("SenderName: " + msg.SenderName) 'Console.WriteLine("SenderName: " + msg.SenderName)
@ -1247,7 +1299,7 @@ Public Class frmIndex
' Regular Expressions vorbereiten ' Regular Expressions vorbereiten
Dim fromPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FROM_EMAIL_HEADER'", MyConnectionString) Dim fromPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FROM_EMAIL_HEADER'", MyConnectionString)
Dim toPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'TO_EMAIL_HEADER'", MyConnectionString) Dim toPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'TO_EMAIL_HEADER'", MyConnectionString)
Dim finalize_pattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FINALIZE'", MyConnectionString)
If fromPattern <> "" And toPattern <> "" Then If fromPattern <> "" And toPattern <> "" Then
Dim FromRegexList As New List(Of Regex) Dim FromRegexList As New List(Of Regex)
Dim ToRegexList As New List(Of Regex) Dim ToRegexList As New List(Of Regex)
@ -1259,30 +1311,86 @@ Public Class frmIndex
' Email Header auslesen ' Email Header auslesen
Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg) Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg)
Dim emailFrom As String Dim emailFrom
Dim emailTo As String Dim emailTo
' Email Absender und Empfänger ' Email Absender und Empfänger
If headers Is Nothing Then If headers Is Nothing Then
If msg.DisplayTo Is Nothing Then If IsNothing(msgDisplayTo) Then
ClassLogger.Add(" >> DisplayTo in email is nothing - default will be set", False) ClassLogger.Add(" >> DisplayTo in email is nothing - default will be set", False)
emailTo = "NO RECIPIENT" emailTo = "NO RECIPIENT"
Else Else
emailTo = msg.DisplayTo.Replace("'", "") emailTo = msgDisplayTo.ToString.Replace("'", "")
End If End If
If msg.InternetAccountName Is Nothing Then If IsNothing(msgInternetAccountName) Then
ClassLogger.Add(" >> InternetAccountName in email is nothing - default will be set", False) ClassLogger.Add(" >> InternetAccountName in email is nothing - default will be set", False)
emailFrom = "" emailFrom = ""
Else Else
emailFrom = msg.InternetAccountName.Replace("'", "") emailFrom = msgInternetAccountName.ToString.Replace("'", "")
End If End If
Else Else
emailFrom = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList) If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo and From Extraction via messageheader.", False)
emailTo = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList) emailFrom = ClassEmailHeaderExtractor.extractFromAddress1(headers, fromPattern) 'FromRegexList)
End If emailFrom = ClassEmailHeaderExtractor.extractFromAddress1(emailFrom, finalize_pattern)
emailTo = ClassEmailHeaderExtractor.extractFromAddress1(headers, toPattern) ' extractToAddress(headers, ToRegexList)
emailTo = ClassEmailHeaderExtractor.extractFromAddress1(emailTo, finalize_pattern)
If IsNothing(emailFrom) Or IsNothing(emailTo) Then emailFrom = emailFrom.Replace("<", "")
MsgBox("Unhandled Exception in SetEmailIndices - emailfrom or recipiant are empty and defaults could not be set." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation) emailFrom = emailFrom.Replace(">", "")
Return False If Not IsNothing(emailTo) Then
emailTo = emailTo.Replace("<", "")
emailTo = emailTo.Replace(">", "")
End If
If Not IsNothing(emailTo) Then
Dim _duplicatesCheck As List(Of String) = New List(Of String)
_duplicatesCheck = emailTo.ToString.Split(";").ToList
' Filter distinct elements, and convert back into list.
Dim result As List(Of String) = _duplicatesCheck.Distinct().ToList
' Display result.
Dim i As Integer = 0
For Each element As String In result
If i = 0 Then
emailTo = element
Else
emailTo = emailTo & ";" & element
End If
i += 1
Next
End If
If LogErrorsOnly = False Then ClassLogger.Add("", True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Headers-Content: ", True)
If LogErrorsOnly = False Then ClassLogger.Add(headers.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add("", True)
End If
'Handler für leere emailFrom-Adresse
If IsNothing(emailFrom) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom couldn't be extracted from messageheader...", False)
If Not IsNothing(msg.SenderEmailAddress) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom via msg.SenderEmailAddress will be used instead!", False)
emailFrom = msg.SenderEmailAddress.ToString.Replace("'", "")
Else
MsgBox("Could't get 'emailfrom' from messageHeader." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation)
Return False
End If
End If
'Handler für leere emailTo-Adresse
If IsNothing(emailTo) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo couldn't be extracted from messageheader...", False)
If (headers.Contains("exc") Or headers.Contains("exchange")) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> ...try with LDAP-option", False)
Dim _email = GetUserEmailfromLDAP(msgDisplayTo)
If _email <> "" Then
emailTo = _email
Else
ClassLogger.Add(">> email-adress couldn't be read from LDAP with name '" & msgDisplayTo & "'", False)
MsgBox("Could't get 'emailto' from messageHeader and later on with LDAP-Option." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation)
Return False
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> no exchange patterns found in headers!", False)
MsgBox("Could't get 'emailto' from messageHeader and exhange-Patterns weren't found." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation)
Return False
End If
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False)
@ -1338,6 +1446,37 @@ Public Class frmIndex
End Function
Public Function GetUserEmailfromLDAP(ByVal userName As String) As String
Dim domainName As String = Environment.UserDomainName '"PutYourDomainNameHere" '< Change this value to your actual domain name. For example: "yahoo"
Dim dommain As String = "com" '<change this value to your actual domain region. For example: "com" as in "yahoo.com"
Dim path As String = String.Format("LDAP://CN=User,DC={0}", domainName)
Dim userEmail As String = String.Empty
Using search As DirectorySearcher = New DirectorySearcher(path)
Dim result As SearchResult
Try
search.Filter = "(SAMAccountName=" & userName & ")"
search.PropertiesToLoad.Add("mail")
result = search.FindOne()
Catch ex As Exception
search.Filter = ""
search.Filter = "(GivenName=" & userName & ")"
search.PropertiesToLoad.Add("mail")
End Try
Try
result = search.FindOne()
If result IsNot Nothing Then userEmail = result.Properties("mail").ToString
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in GetUserEmail from LDAP: " & ex.Message, False)
End Try
End Using
Return userEmail
End Function End Function
Private Function SetAttachmentIndices() Private Function SetAttachmentIndices()
Dim indexierung_erfolgreich As Boolean = True Dim indexierung_erfolgreich As Boolean = True
@ -1498,26 +1637,26 @@ Public Class frmIndex
CURRENT_ISATTACHMENT = False CURRENT_ISATTACHMENT = False
DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True) DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True)
chkdelete_origin.Visible = False chkdelete_origin.Visible = False
If DropType = "@DROPFROMFSYSTEM@" Then If DropType = "|DROPFROMFSYSTEM|" Then
chkdelete_origin.Visible = True chkdelete_origin.Visible = True
chkdelete_origin.Checked = Delete_OriginFile chkdelete_origin.Checked = Delete_OriginFile
Me.Text = "Indexierung der gedroppten Datei:" Me.Text = "Indexierung der gedroppten Datei:"
ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Then ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
Select Case DropType Select Case DropType
Case "@FW_MSGONLY@" Case "|FW_MSGONLY|"
If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:" Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
Case "@OUTLOOK_MESSAGE@" Case "|OUTLOOK_MESSAGE|"
If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file through dragdrop", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file through dragdrop", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang):" Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
End Select End Select
ElseIf DropType = "@MSGONLY@" Then ElseIf DropType = "|MSGONLY|" Then
Me.Text = "Indexierung der msg-Datei (ohne Anhang):" Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
CURRENT_ISATTACHMENT = True CURRENT_ISATTACHMENT = True
Me.Text = "Indexierung eines Email-Attachments:" Me.Text = "Indexierung eines Email-Attachments:"
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
Me.Text = "Indexierung einer Folderwatch-Datei:" Me.Text = "Indexierung einer Folderwatch-Datei:"
End If End If
txtIndexfilepath.Text = CURRENT_WORKFILE txtIndexfilepath.Text = CURRENT_WORKFILE
@ -1602,8 +1741,11 @@ Public Class frmIndex
lblhinweis.Visible = False lblhinweis.Visible = False
lblerror.Visible = False lblerror.Visible = False
Me.pnlIndex.Controls.Clear() Me.pnlIndex.Controls.Clear()
Dim sql As String = "Select WINDREAM_DIRECT from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
WDDirect = ClassDatabase.Execute_Scalar(sql, MyConnectionString) Dim DT_DOKART As DataTable = ClassDatabase.Return_Datatable(sql)
WDDirect = DT_DOKART.Rows(0).Item("WINDREAM_DIRECT")
CURRENT_DOKART_DUPLICATE_HANDLING = DT_DOKART.Rows(0).Item("DUPLICATE_HANDLING")
Refresh_IndexeMan(cmbDokumentart.SelectedValue) Refresh_IndexeMan(cmbDokumentart.SelectedValue)
End If End If
@ -1613,12 +1755,12 @@ Public Class frmIndex
Private Sub Refresh_IndexeMan(dokartid As Integer) Private Sub Refresh_IndexeMan(dokartid As Integer)
Dim sql Dim sql
Try Try
Sql = "select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid & " ORDER BY T.SEQUENCE" sql = "select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid & " ORDER BY T.SEQUENCE"
DT_INDEXEMAN = ClassDatabase.Return_Datatable(sql) DT_INDEXEMAN = ClassDatabase.Return_Datatable(sql)
pnlIndex.Visible = True pnlIndex.Visible = True
LoadIndexe_Man() LoadIndexe_Man()
Catch ex As System.Exception Catch ex As System.Exception
ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & Sql) ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:")
End Try End Try
End Sub End Sub
@ -1723,6 +1865,7 @@ Public Class frmIndex
If DT_INDEXAUTOM.Rows.Count > 0 Then If DT_INDEXAUTOM.Rows.Count > 0 Then
' MsgBox(DT.Rows.Count.ToString) ' MsgBox(DT.Rows.Count.ToString)
For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows
Dim optionalIndex As Boolean
Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME") Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False)
If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
@ -1736,6 +1879,7 @@ Public Class frmIndex
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SqlString) Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SqlString)
' alle Vorkommen der Indexe im SQL-String durchlaufen ' alle Vorkommen der Indexe im SQL-String durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
' MsgBox(element.Value.ToUpper) ' MsgBox(element.Value.ToUpper)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False)
'' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden) '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
@ -1743,17 +1887,60 @@ Public Class frmIndex
'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
'den Platzhalter im SQL-String durch den Wert ersetzen optionalIndex = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & elementOhneSonderzeichen & "')", MyConnectionString, True)
Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO") If elementOhneSonderzeichen.StartsWith("$") Then 'windowsParameter
Dim result = ""
Try
Select Case elementOhneSonderzeichen.ToString.ToUpper
Case "$filename_ext".ToUpper
result = Path.GetFileName(CURRENT_WORKFILE)
Case "$filename".ToUpper
result = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
Case "$extension".ToUpper
result = Path.GetExtension(CURRENT_WORKFILE)
result = result.Replace(".", "")
Case "$FileCreateDate".ToUpper
Dim FI As New FileInfo(CURRENT_WORKFILE)
Dim CreationDate As Date = FI.CreationTime
result = CreationDate.ToShortDateString
Case "$FileCreatedWho".ToUpper
Dim fs As FileSecurity = File.GetAccessControl(CURRENT_WORKFILE)
Dim sid As IdentityReference = fs.GetOwner(GetType(SecurityIdentifier))
Dim ntaccount As IdentityReference = sid.Translate(GetType(NTAccount))
Dim owner As String = ntaccount.ToString()
result = owner
Case "$DateDDMMYYY".ToUpper
result = System.DateTime.Now.ToShortDateString
Case "$Username"
result = Environment.UserName
Case "$Usercode"
result = CURRENT_USER_SHORT
End Select
Catch ex As Exception
result = "XXX"
ClassLogger.Add(" - Unexpected error in FillIndexe_Autom - WindowsFilePatterns - Fehler: " & vbNewLine & ex.Message)
MsgBox("Unexpected error in Replacement WindowsFilePatterns: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Routine will continue - Please check logfile", MsgBoxStyle.Exclamation, )
End Try
If result <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> file-related parameter found: '" & elementOhneSonderzeichen & "' - Result: '" & result & "'", False)
SqlString = SqlString.Replace(element.Value, result)
Else
ClassLogger.Add(">> Attention: file-related parameter '" & elementOhneSonderzeichen & "' returned an empty string!", False)
End If
Else 'ganz normaler manueller Index
'den Platzhalter im SQL-String durch den Wert ersetzen
Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO", optionalIndex)
If Not IsNothing(manIndexwert) Then
SqlString = SqlString.Replace(element.Value, manIndexwert)
If Not IsNothing(manIndexwert) Then Else
SqlString = SqlString.Replace(element.Value, manIndexwert) ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False) ' Return False
Else End If
ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False)
Return False
End If End If
Next Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Replaced and complete SQL-result: " & SqlString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
Dim automatischerValue As String = "" Dim automatischerValue As String = ""
automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER")) automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
@ -1762,9 +1949,16 @@ Public Class frmIndex
DR_AUTOINDEX.Item("Indexiert") = True DR_AUTOINDEX.Item("Indexiert") = True
DR_AUTOINDEX.Item("Indexwert") = automatischerValue DR_AUTOINDEX.Item("Indexwert") = automatischerValue
Else Else
ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False) If optionalIndex = True Then
ClassLogger.Add(" - SqlString: " & SqlString, False) DR_AUTOINDEX.Item("Indexiert") = True
Return False DR_AUTOINDEX.Item("Indexwert") = "EMPTY_OI"
' Return True
Else
ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
ClassLogger.Add(" - SqlString: " & SqlString, False)
' Return False
End If
End If End If
Else Else
If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then
@ -1778,6 +1972,8 @@ Public Class frmIndex
DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE) DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
Case "$filename".ToUpper Case "$filename".ToUpper
DEFAULTVALUE = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) DEFAULTVALUE = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
Case "$extension".ToUpper
DEFAULTVALUE = Path.GetExtension(CURRENT_WORKFILE)
Case "$FileCreateDate".ToUpper Case "$FileCreateDate".ToUpper
Dim FI As New FileInfo(CURRENT_WORKFILE) Dim FI As New FileInfo(CURRENT_WORKFILE)
Dim CreationDate As Date = FI.CreationTime Dim CreationDate As Date = FI.CreationTime
@ -1851,7 +2047,6 @@ Public Class frmIndex
End If End If
Next Next
Case ".xlsx" Case ".xlsx"
Console.WriteLine("xlsx file")
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("excel") Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("excel")
Dim filename As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) Dim filename As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
For Each p As Process In pProcess For Each p As Process In pProcess
@ -1862,7 +2057,6 @@ Public Class frmIndex
Case Else Case Else
If My.Settings.DoNot_Show_Documents = False And UniversalViewer_Path <> "" Then If My.Settings.DoNot_Show_Documents = False And UniversalViewer_Path <> "" Then
If File.Exists(UniversalViewer_Path) Then If File.Exists(UniversalViewer_Path) Then
Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE))
Dim psi As New ProcessStartInfo(UniversalViewer_Path, """" & CURRENT_WORKFILE & """") Dim psi As New ProcessStartInfo(UniversalViewer_Path, """" & CURRENT_WORKFILE & """")
Proc.EnableRaisingEvents = True Proc.EnableRaisingEvents = True
Proc.StartInfo = psi Proc.StartInfo = psi
@ -1978,6 +2172,7 @@ Public Class frmIndex
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False)
If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...FillIndexe_Autom durchlaufen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...FillIndexe_Autom durchlaufen", False)
'Den Zielnamen zusammenbauen 'Den Zielnamen zusammenbauen
If Name_Generieren() = True Then If Name_Generieren() = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False)
@ -1988,23 +2183,23 @@ Public Class frmIndex
If Move_File2_Target() = True Then If Move_File2_Target() = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Move_File2_Target durchlaufen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Move_File2_Target durchlaufen", False)
'Die Originaldatei löschen 'Die Originaldatei löschen
If DropType = "@DROPFROMFSYSTEM@" Then If DropType = "|DROPFROMFSYSTEM|" Then
If chkdelete_origin.Checked = True Then If chkdelete_origin.Checked = True Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
DeleteFile() DeleteFile()
End If End If
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
If CURRENT_WORKFILE.EndsWith("pdf") Then If CURRENT_WORKFILE.EndsWith("pdf") Then
Me.PdfViewer1.DocumentFilePath = "" Me.PdfViewer1.DocumentFilePath = ""
End If End If
DeleteFile() DeleteFile()
ElseIf (DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@") Then ElseIf (DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|") Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
DeleteFile() DeleteFile()
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
DeleteFile() DeleteFile()
@ -2059,11 +2254,11 @@ Public Class frmIndex
CURRENT_WORKFILE = filerow.Item("FILENAME2WORK") CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
DropType = filerow.Item("HANDLE_TYPE") DropType = filerow.Item("HANDLE_TYPE")
'Dim HandleType As String = filerow.Item("HANDLE_TYPE") 'Dim HandleType As String = filerow.Item("HANDLE_TYPE")
'If HandleType = "@DROPFROMFSYSTEM@" Then 'If HandleType = "|DROPFROMFSYSTEM|" Then
' DropType = "dragdrop file" ' DropType = "dragdrop file"
'ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then 'ElseIf HandleType = "|OUTLOOK_ATTMNT|" Then
' DropType = "dragdrop attachment" ' DropType = "dragdrop attachment"
'ElseIf HandleType = "@OUTLOOKMESSAGE@" Then 'ElseIf HandleType = "|OUTLOOKMESSAGE|" Then
' DropType = "dragdrop message" ' DropType = "dragdrop message"
'End If 'End If
If WORK_FILE() = False Then If WORK_FILE() = False Then
@ -2115,9 +2310,9 @@ Public Class frmIndex
End If End If
End If End If
If DropType = "@DROPFROMFSYSTEM@" Or DropType = "@OUTLOOK_ATTACHMENT@" Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@FW_SIMPLEINDEXER@" Then If DropType = "|DROPFROMFSYSTEM|" Or DropType = "|OUTLOOK_ATTACHMENT|" Or DropType = "|ATTMNTEXTRACTED|" Or DropType = "|FW_SIMPLEINDEXER|" Then
exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Then ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Then
exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
End If End If
If exp2WD = True Then If exp2WD = True Then
@ -2136,14 +2331,14 @@ Public Class frmIndex
Try Try
Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')" Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')"
ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString, True) ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString, True)
If DropType.Contains("MSG") Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then If DropType.Contains("MSG") Or DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
If CURRENT_MESSAGEID <> "" Then If CURRENT_MESSAGEID <> "" Then
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY" Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"
Dim GUID = ClassDatabase.Execute_Scalar(max, MyConnectionString, True) Dim GUID = ClassDatabase.Execute_Scalar(max, MyConnectionString, True)
Try Try
If GUID > 0 Then If GUID > 0 Then
Dim sqlUpdate As String Dim sqlUpdate As String
If DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then If DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
sqlUpdate = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID sqlUpdate = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
ClassDatabase.Execute_non_Query(sqlUpdate, True) ClassDatabase.Execute_non_Query(sqlUpdate, True)
Else Else
@ -2187,7 +2382,6 @@ Public Class frmIndex
Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs)
If Not PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.Custom Then If Not PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.Custom Then
Console.WriteLine(PdfViewer1.ZoomMode)
'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomMode) 'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomMode)
'PDFViewer_ZoomMode = PdfViewer1.ZoomMode 'PDFViewer_ZoomMode = PdfViewer1.ZoomMode
End If End If
@ -2221,14 +2415,14 @@ Public Class frmIndex
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
Console.WriteLine(element.ToString)
Select Case element.Value.Substring(2, 1).ToUpper Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False)
Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE") Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE", optional_index)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False)
If Not ManIndex_Value = String.Empty Then If Not ManIndex_Value = String.Empty Then
If IsDate(ManIndex_Value) Then If IsDate(ManIndex_Value) Then
@ -2237,7 +2431,7 @@ Public Class frmIndex
folderindex = folderindex.Replace(element.ToString, ManIndex_Value) folderindex = folderindex.Replace(element.ToString, ManIndex_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False)
Else Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True)
If optional_index = True Then If optional_index = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Optionaler Indexwert ist NICHT gefüllt", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Optionaler Indexwert ist NICHT gefüllt", False)
Else Else
@ -2251,8 +2445,13 @@ Public Class frmIndex
Dim AutoIndex_Value As String = GetAutoIndex_Value(AutoIndexname) Dim AutoIndex_Value As String = GetAutoIndex_Value(AutoIndexname)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False)
If Not AutoIndex_Value = String.Empty Then If Not AutoIndex_Value = String.Empty Then
folderindex = folderindex.Replace(element.ToString, AutoIndex_Value) If AutoIndex_Value = "EMPTY_OI" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False) folderindex = folderindex.Replace(element.ToString, "")
Else
folderindex = folderindex.Replace(element.ToString, AutoIndex_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & folderindex & "'", False)
End If
Else Else
ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True)
End If End If
@ -2316,38 +2515,65 @@ Public Class frmIndex
End If End If
'Die aktuelle Datei soll gleichzeitig verschoben werden ''Die aktuelle Datei soll gleichzeitig verschoben werden
Dim extension As String = Path.GetExtension(CURRENT_NEWFILENAME) 'Dim extension As String = Path.GetExtension(CURRENT_NEWFILENAME)
Dim Dateiname As String = Path.GetFileName(CURRENT_NEWFILENAME) 'Dim Dateiname As String = Path.GetFileName(CURRENT_NEWFILENAME)
Dim _Pfad, _WDLaufwerk, _Ziel As String 'Dim _Pfad, _WDLaufwerk, _Ziel As String
_Ziel = fullpath & Dateiname '_Ziel = fullpath & Dateiname
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ziel: " & _Ziel, False) 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Ziel: " & _Ziel, False)
'Nur verschieben und überprüfen wenn Pfad ungleich ''Nur verschieben und überprüfen wenn Pfad ungleich
Dim quell = Path.GetDirectoryName(CURRENT_NEWFILENAME) 'Dim quell = Path.GetDirectoryName(CURRENT_NEWFILENAME)
Dim ziel = Path.GetDirectoryName(_Ziel) 'Dim ziel = Path.GetDirectoryName(_Ziel)
If quell <> ziel Then 'If quell <> ziel Then
Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf(".")) ' If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then
Dim version As Integer = 2 ' ''##########
Do While File.Exists(_Ziel) = True ' Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen?"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False) ' If USER_LANGUAGE <> "de-DE" Then
Dim neuername As String = Stammname & "~" & version & extension ' msg = "Ther is already a file with the same name! Would You like to replace the file?"
_Ziel = neuername ' End If
version = version + 1 ' Dim result As MsgBoxResult
Loop ' result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
CURRENT_NEWFILENAME = _Ziel ' If result = MsgBoxResult.No Then
' My.Computer.FileSystem.MoveFile(fullfilename, _Ziel) ' _Ziel = ClassFilehandle.Versionierung_Datei(_Ziel).ToString.Substring(2)
ClassLogger.Add(" >> Dateiname wurde nach CrFolderIndex-Methode erzeugt", False) ' Else
CURRENT_NEWFILENAME = _Ziel ' If ClassWindream.Delete_WDFile(_Ziel.Substring(2)) = False Then
Else ' Return False
ClassLogger.Add(" >> Quell- und Zielordner identisch", False) ' End If
'ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielordner identisch", False) ' End If
'If Path.GetFileName(fullfilename) <> Path.GetFileName(_Ziel) And File.Exists(_Ziel) Then ' ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
' ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielname nicht identisch", False) ' _Ziel = ClassFilehandle.Versionierung_Datei(_Ziel).ToString.Substring(2)
' FileSystem.Rename(_Ziel, Path.GetDirectoryName(_Ziel) & Path.GetFileName(fullfilename)) ' End If
' ClassLogger.Add(" >> Datei wurde nach CrFolderIndex-Methode umbenannt", False)
' CURRENT_NEWFILENAME = _Ziel
'End If
End If
' 'Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf("."))
' 'Dim version As Integer = 2
' 'Do While File.Exists(_Ziel) = True
' ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False)
' ' Dim neuername As String = Stammname & "~" & version & extension
' ' _Ziel = neuername
' ' version = version + 1
' 'Loop
' If _Ziel.StartsWith("\") Then
' CURRENT_NEWFILENAME = "W:" & _Ziel
' Else
' CURRENT_NEWFILENAME = _Ziel
' End If
' ' My.Computer.FileSystem.MoveFile(fullfilename, _Ziel)
' ClassLogger.Add(" >> Dateiname wurde nach CrFolderIndex-Methode erzeugt", False)
'Else
' ClassLogger.Add(" >> Quell- und Zielordner identisch", False)
' 'ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielordner identisch", False)
' 'If Path.GetFileName(fullfilename) <> Path.GetFileName(_Ziel) And File.Exists(_Ziel) Then
' ' ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielname nicht identisch", False)
' ' FileSystem.Rename(_Ziel, Path.GetDirectoryName(_Ziel) & Path.GetFileName(fullfilename))
' ' ClassLogger.Add(" >> Datei wurde nach CrFolderIndex-Methode umbenannt", False)
' ' CURRENT_NEWFILENAME = _Ziel
' 'End If
'End If
Return True Return True
'Else 'Else

2
Global_Indexer/frmIndexFileList.resx
View File

@ -227,7 +227,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde
<value>CheckedListBoxControl1</value> <value>CheckedListBoxControl1</value>
</data> </data>
<data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve"> <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>

2
Global_Indexer/frmIndexFileList.vb
View File

@ -25,7 +25,7 @@
Dim _file = row.Item(1) Dim _file = row.Item(1)
Dim handletype As String = row.Item("HANDLE_TYPE") Dim handletype As String = row.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
Try Try
IO.File.Delete(_file) IO.File.Delete(_file)
Catch ex As Exception Catch ex As Exception

2
Global_Indexer/frmNamenkonvention.designer.vb generated
View File

@ -231,7 +231,7 @@ Partial Class frmNamenkonvention
' '
resources.ApplyResources(Me.cmbDate, "cmbDate") resources.ApplyResources(Me.cmbDate, "cmbDate")
Me.cmbDate.FormattingEnabled = True Me.cmbDate.FormattingEnabled = True
Me.cmbDate.Items.AddRange(New Object() {resources.GetString("cmbDate.Items"), resources.GetString("cmbDate.Items1"), resources.GetString("cmbDate.Items2"), resources.GetString("cmbDate.Items3")}) Me.cmbDate.Items.AddRange(New Object() {resources.GetString("cmbDate.Items"), resources.GetString("cmbDate.Items1"), resources.GetString("cmbDate.Items2"), resources.GetString("cmbDate.Items3"), resources.GetString("cmbDate.Items4"), resources.GetString("cmbDate.Items5"), resources.GetString("cmbDate.Items6"), resources.GetString("cmbDate.Items7")})
Me.cmbDate.Name = "cmbDate" Me.cmbDate.Name = "cmbDate"
' '
'Label20 'Label20

12
Global_Indexer/frmNamenkonvention.resx
View File

@ -640,6 +640,18 @@ Indizes und Textbausteinen zusammenzustellen.</value>
<data name="cmbDate.Items3" xml:space="preserve"> <data name="cmbDate.Items3" xml:space="preserve">
<value>DD_MM_YYYY</value> <value>DD_MM_YYYY</value>
</data> </data>
<data name="cmbDate.Items4" xml:space="preserve">
<value>YYMMDD</value>
</data>
<data name="cmbDate.Items5" xml:space="preserve">
<value>YYYYMMDD</value>
</data>
<data name="cmbDate.Items6" xml:space="preserve">
<value>DDMMYY</value>
</data>
<data name="cmbDate.Items7" xml:space="preserve">
<value>DDMMYYYY</value>
</data>
<data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing">
<value>21, 259</value> <value>21, 259</value>
</data> </data>

28
Global_Indexer/frmSQLConfigAutoIndex.Designer.vb generated
View File

@ -58,6 +58,9 @@ Partial Class SQLConfigAutoIndex
Me.cmbFromTables = New System.Windows.Forms.ComboBox() Me.cmbFromTables = New System.Windows.Forms.ComboBox()
Me.cmbWhereColumns = New System.Windows.Forms.ComboBox() Me.cmbWhereColumns = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbwindowsParam = New System.Windows.Forms.ComboBox()
Me.btnaddWindowPAram = New System.Windows.Forms.Button()
SQL_ERGEBNISLabel = New System.Windows.Forms.Label() SQL_ERGEBNISLabel = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label() Label3 = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -297,10 +300,32 @@ Partial Class SQLConfigAutoIndex
resources.ApplyResources(Me.Label8, "Label8") resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
' '
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'cmbwindowsParam
'
Me.cmbwindowsParam.FormattingEnabled = True
Me.cmbwindowsParam.Items.AddRange(New Object() {resources.GetString("cmbwindowsParam.Items"), resources.GetString("cmbwindowsParam.Items1"), resources.GetString("cmbwindowsParam.Items2"), resources.GetString("cmbwindowsParam.Items3"), resources.GetString("cmbwindowsParam.Items4"), resources.GetString("cmbwindowsParam.Items5"), resources.GetString("cmbwindowsParam.Items6"), resources.GetString("cmbwindowsParam.Items7")})
resources.ApplyResources(Me.cmbwindowsParam, "cmbwindowsParam")
Me.cmbwindowsParam.Name = "cmbwindowsParam"
'
'btnaddWindowPAram
'
Me.btnaddWindowPAram.Image = Global.Global_Indexer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.btnaddWindowPAram, "btnaddWindowPAram")
Me.btnaddWindowPAram.Name = "btnaddWindowPAram"
Me.btnaddWindowPAram.UseVisualStyleBackColor = True
'
'SQLConfigAutoIndex 'SQLConfigAutoIndex
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.btnaddWindowPAram)
Me.Controls.Add(Me.cmbwindowsParam)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Label3) Me.Controls.Add(Label3)
Me.Controls.Add(Me.GroupBox4) Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
@ -360,4 +385,7 @@ Partial Class SQLConfigAutoIndex
Friend WithEvents radioTable As System.Windows.Forms.RadioButton Friend WithEvents radioTable As System.Windows.Forms.RadioButton
Friend WithEvents radioView As System.Windows.Forms.RadioButton Friend WithEvents radioView As System.Windows.Forms.RadioButton
Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cmbwindowsParam As System.Windows.Forms.ComboBox
Friend WithEvents btnaddWindowPAram As System.Windows.Forms.Button
End Class End Class

122
Global_Indexer/frmSQLConfigAutoIndex.resx
View File

@ -147,7 +147,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SQL_ERGEBNISLabel.ZOrder" xml:space="preserve">
<value>12</value> <value>15</value>
</data> </data>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
@ -177,7 +177,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>0</value> <value>3</value>
</data> </data>
<data name="btnVorschlag.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnVorschlag.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
@ -207,7 +207,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;btnVorschlag.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnVorschlag.ZOrder" xml:space="preserve">
<value>11</value> <value>14</value>
</data> </data>
<data name="SQL_ERGEBNISTextBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="SQL_ERGEBNISTextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Consolas, 8.25pt</value> <value>Consolas, 8.25pt</value>
@ -238,7 +238,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SQL_ERGEBNISTextBox.ZOrder" xml:space="preserve">
<value>13</value> <value>16</value>
</data> </data>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value> <value>127, 17</value>
@ -265,7 +265,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;cmbConnection.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbConnection.ZOrder" xml:space="preserve">
<value>10</value> <value>13</value>
</data> </data>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>371, 17</value> <value>371, 17</value>
@ -301,7 +301,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>9</value> <value>12</value>
</data> </data>
<data name="btnsave.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnsave.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -334,7 +334,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;btnsave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnsave.ZOrder" xml:space="preserve">
<value>8</value> <value>11</value>
</data> </data>
<data name="lblSave.AutoSize" type="System.Boolean, mscorlib"> <data name="lblSave.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -367,7 +367,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lblSave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblSave.ZOrder" xml:space="preserve">
<value>7</value> <value>10</value>
</data> </data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -394,7 +394,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>6</value> <value>9</value>
</data> </data>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>782, 17</value> <value>782, 17</value>
@ -418,7 +418,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;cmbManualIDX.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbManualIDX.ZOrder" xml:space="preserve">
<value>5</value> <value>8</value>
</data> </data>
<metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1017, 17</value> <value>1017, 17</value>
@ -442,7 +442,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;btnaddManualIdx.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnaddManualIdx.ZOrder" xml:space="preserve">
<value>4</value> <value>7</value>
</data> </data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -472,7 +472,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>2</value> <value>5</value>
</data> </data>
<metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
@ -508,7 +508,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;dgvPlaceholders.ZOrder" xml:space="preserve"> <data name="&gt;&gt;dgvPlaceholders.ZOrder" xml:space="preserve">
<value>3</value> <value>6</value>
</data> </data>
<data name="radioView.AutoSize" type="System.Boolean, mscorlib"> <data name="radioView.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -847,8 +847,104 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;GroupBox4.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox4.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 365</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 13</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>88</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Platzhalter windows-variablen:</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="cmbwindowsParam.Items" xml:space="preserve">
<value>Dateiname (mit Endung)</value>
</data>
<data name="cmbwindowsParam.Items1" xml:space="preserve">
<value>Dateiname (ohne Endung)</value>
</data>
<data name="cmbwindowsParam.Items2" xml:space="preserve">
<value>Dateiendung</value>
</data>
<data name="cmbwindowsParam.Items3" xml:space="preserve">
<value>Datei Erstelldatum</value>
</data>
<data name="cmbwindowsParam.Items4" xml:space="preserve">
<value>Datei Erstellt wer</value>
</data>
<data name="cmbwindowsParam.Items5" xml:space="preserve">
<value>Aktuelles Datum (DD.MM.YYYY)</value>
</data>
<data name="cmbwindowsParam.Items6" xml:space="preserve">
<value>Username</value>
</data>
<data name="cmbwindowsParam.Items7" xml:space="preserve">
<value>Usercode</value>
</data>
<data name="cmbwindowsParam.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 381</value>
</data>
<data name="cmbwindowsParam.Size" type="System.Drawing.Size, System.Drawing">
<value>204, 21</value>
</data>
<data name="cmbwindowsParam.TabIndex" type="System.Int32, mscorlib">
<value>89</value>
</data>
<data name="&gt;&gt;cmbwindowsParam.Name" xml:space="preserve">
<value>cmbwindowsParam</value>
</data>
<data name="&gt;&gt;cmbwindowsParam.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbwindowsParam.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbwindowsParam.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="btnaddWindowPAram.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="btnaddWindowPAram.Location" type="System.Drawing.Point, System.Drawing">
<value>225, 381</value>
</data>
<data name="btnaddWindowPAram.Size" type="System.Drawing.Size, System.Drawing">
<value>27, 21</value>
</data>
<data name="btnaddWindowPAram.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
</data>
<data name="&gt;&gt;btnaddWindowPAram.Name" xml:space="preserve">
<value>btnaddWindowPAram</value>
</data>
<data name="&gt;&gt;btnaddWindowPAram.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnaddWindowPAram.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnaddWindowPAram.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>

32
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@ -374,4 +374,36 @@ Public Class SQLConfigAutoIndex
Dim table = cmbFromTables.Text Dim table = cmbFromTables.Text
GetColumns(table, cmbWhereColumns) GetColumns(table, cmbWhereColumns)
End Sub End Sub
Private Sub btnaddWindowPAram_Click(sender As Object, e As EventArgs) Handles btnaddWindowPAram.Click
If cmbwindowsParam.SelectedIndex <> -1 Then
If Not cmbwindowsParam.Text = String.Empty Then
Dim placeholder As String
Dim pattern As String = ""
Select Case cmbwindowsParam.Text.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
pattern = "$filename_ext".ToUpper
Case "Dateiname (ohne Endung)".ToUpper
pattern = "$filename".ToUpper
Case "Dateiendung".ToUpper
pattern = "$extension".ToUpper
Case "Datei Erstelldatum".ToUpper
pattern = "$FileCreateDate".ToUpper
Case "Datei Erstellt wer".ToUpper
pattern = "$FileCreatedWho".ToUpper
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
pattern = "$DateDDMMYYY".ToUpper
Case "Username"
pattern = "$Username".ToUpper
Case "Usercode"
pattern = "$Usercode".ToUpper
End Select
placeholder = "[%" & pattern & "]"
If placeholder <> "" Then
SQL_ERGEBNISTextBox.Text = SQL_ERGEBNISTextBox.Text.Insert(CurrentPosition, placeholder)
End If
End If
End If
End Sub
End Class End Class

10
Global_Indexer/frmSQL_Admin.resx
View File

@ -289,7 +289,7 @@
<value>XtraTabPage1</value> <value>XtraTabPage1</value>
</data> </data>
<data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve"> <data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve"> <data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve">
<value>XtraTabControl1</value> <value>XtraTabControl1</value>
@ -328,7 +328,7 @@
<value>GridControl1</value> <value>GridControl1</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>XtraTabPage2</value> <value>XtraTabPage2</value>
@ -482,7 +482,7 @@
<value>XtraTabPage2</value> <value>XtraTabPage2</value>
</data> </data>
<data name="&gt;&gt;XtraTabPage2.Type" xml:space="preserve"> <data name="&gt;&gt;XtraTabPage2.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;XtraTabPage2.Parent" xml:space="preserve"> <data name="&gt;&gt;XtraTabPage2.Parent" xml:space="preserve">
<value>XtraTabControl1</value> <value>XtraTabControl1</value>
@ -494,7 +494,7 @@
<value>XtraTabControl1</value> <value>XtraTabControl1</value>
</data> </data>
<data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve"> <data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -664,7 +664,7 @@
<value>GridView1</value> <value>GridView1</value>
</data> </data>
<data name="&gt;&gt;GridView1.Type" xml:space="preserve"> <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve"> <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
<value>BindingNavigatorCountItem</value> <value>BindingNavigatorCountItem</value>

12
Global_Indexer/frmStart.resx
View File

@ -559,7 +559,7 @@ in diesen Bereich oder</value>
<value>LabelControl1</value> <value>LabelControl1</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -1634,31 +1634,31 @@ in diesen Bereich oder</value>
<value>LabelMachine</value> <value>LabelMachine</value>
</data> </data>
<data name="&gt;&gt;LabelMachine.Type" xml:space="preserve"> <data name="&gt;&gt;LabelMachine.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelUser.Name" xml:space="preserve"> <data name="&gt;&gt;LabelUser.Name" xml:space="preserve">
<value>LabelUser</value> <value>LabelUser</value>
</data> </data>
<data name="&gt;&gt;LabelUser.Type" xml:space="preserve"> <data name="&gt;&gt;LabelUser.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve"> <data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve">
<value>LabelLoggedIn</value> <value>LabelLoggedIn</value>
</data> </data>
<data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve"> <data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelVersion.Name" xml:space="preserve"> <data name="&gt;&gt;LabelVersion.Name" xml:space="preserve">
<value>LabelVersion</value> <value>LabelVersion</value>
</data> </data>
<data name="&gt;&gt;LabelVersion.Type" xml:space="preserve"> <data name="&gt;&gt;LabelVersion.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonMiniToolbar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonMiniToolbar1.Name" xml:space="preserve">
<value>RibbonMiniToolbar1</value> <value>RibbonMiniToolbar1</value>
</data> </data>
<data name="&gt;&gt;RibbonMiniToolbar1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonMiniToolbar1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonMiniToolbar, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonMiniToolbar, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve"> <data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value> <value>MyDataset</value>

46
Global_Indexer/frmStart.resx.bak
View File

@ -146,13 +146,13 @@
<value>217, 22</value> <value>217, 22</value>
</data> </data>
<data name="GrundeinstellungenToolStripMenuItem.Text" xml:space="preserve"> <data name="GrundeinstellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Grundeinstellungen User</value> <value>User Basis Einstellungen</value>
</data> </data>
<data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>217, 22</value> <value>217, 22</value>
</data> </data>
<data name="FrmHotkeyAddToolStripMenuItem.Text" xml:space="preserve"> <data name="FrmHotkeyAddToolStripMenuItem.Text" xml:space="preserve">
<value>Hotkey-Funktion User</value> <value>Hotkeys User</value>
</data> </data>
<data name="HistoryIndexierteDateienToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="HistoryIndexierteDateienToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>217, 22</value> <value>217, 22</value>
@ -176,7 +176,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>393, 24</value> <value>335, 24</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib"> <data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
@ -209,17 +209,11 @@
<data name="tslblFW.Visible" type="System.Boolean, mscorlib"> <data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
<data name="tslblCultureInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>121, 17</value>
</data>
<data name="tslblCultureInfo.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 188</value> <value>0, 126</value>
</data> </data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>393, 22</value> <value>335, 22</value>
</data> </data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib"> <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>6</value> <value>6</value>
@ -549,23 +543,23 @@
<value>Comic Sans MS, 12pt</value> <value>Comic Sans MS, 12pt</value>
</data> </data>
<data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>53, 63</value> <value>24, 32</value>
</data> </data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>282, 46</value> <value>280, 46</value>
</data> </data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib"> <data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>8</value> <value>8</value>
</data> </data>
<data name="LabelControl1.Text" xml:space="preserve"> <data name="LabelControl1.Text" xml:space="preserve">
<value>Ziehen Sie Dateien per Drag and Drop <value>Ziehen Sie Dateien mit Drag and Drop
hierher oder</value> in diesen Bereich oder</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Name" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
<value>LabelControl1</value> <value>LabelControl1</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -613,7 +607,7 @@ hierher oder</value>
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
<value>53, 115</value> <value>24, 84</value>
</data> </data>
<data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
<value>282, 37</value> <value>282, 37</value>
@ -646,7 +640,7 @@ hierher oder</value>
<value>6, 13</value> <value>6, 13</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>393, 210</value> <value>335, 148</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value> <value>Segoe UI, 8.25pt</value>
@ -1606,12 +1600,6 @@ hierher oder</value>
<data name="&gt;&gt;tslblFW.Type" xml:space="preserve"> <data name="&gt;&gt;tslblFW.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;tslblCultureInfo.Name" xml:space="preserve">
<value>tslblCultureInfo</value>
</data>
<data name="&gt;&gt;tslblCultureInfo.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TimerFolderWatch.Name" xml:space="preserve"> <data name="&gt;&gt;TimerFolderWatch.Name" xml:space="preserve">
<value>TimerFolderWatch</value> <value>TimerFolderWatch</value>
</data> </data>
@ -1646,31 +1634,31 @@ hierher oder</value>
<value>LabelMachine</value> <value>LabelMachine</value>
</data> </data>
<data name="&gt;&gt;LabelMachine.Type" xml:space="preserve"> <data name="&gt;&gt;LabelMachine.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelUser.Name" xml:space="preserve"> <data name="&gt;&gt;LabelUser.Name" xml:space="preserve">
<value>LabelUser</value> <value>LabelUser</value>
</data> </data>
<data name="&gt;&gt;LabelUser.Type" xml:space="preserve"> <data name="&gt;&gt;LabelUser.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve"> <data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve">
<value>LabelLoggedIn</value> <value>LabelLoggedIn</value>
</data> </data>
<data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve"> <data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;LabelVersion.Name" xml:space="preserve"> <data name="&gt;&gt;LabelVersion.Name" xml:space="preserve">
<value>LabelVersion</value> <value>LabelVersion</value>
</data> </data>
<data name="&gt;&gt;LabelVersion.Type" xml:space="preserve"> <data name="&gt;&gt;LabelVersion.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonMiniToolbar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonMiniToolbar1.Name" xml:space="preserve">
<value>RibbonMiniToolbar1</value> <value>RibbonMiniToolbar1</value>
</data> </data>
<data name="&gt;&gt;RibbonMiniToolbar1.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonMiniToolbar1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonMiniToolbar, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonMiniToolbar, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve"> <data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value> <value>MyDataset</value>

20
Global_Indexer/frmStart.vb
View File

@ -222,14 +222,14 @@ Public Class frmStart
Sub Drag_Enter(sender As Object, e As DragEventArgs) Sub Drag_Enter(sender As Object, e As DragEventArgs)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All e.Effect = DragDropEffects.All
Console.WriteLine("DragEnter ...DragDrop") ' Console.WriteLine("DragEnter ...DragDrop")
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
'handle a message dragged from Outlook 'handle a message dragged from Outlook
e.Effect = DragDropEffects.Copy e.Effect = DragDropEffects.Copy
Console.WriteLine("DragEnter ...OutlookMessage") ' Console.WriteLine("DragEnter ...OutlookMessage")
ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
e.Effect = DragDropEffects.Copy e.Effect = DragDropEffects.Copy
Console.WriteLine("DragEnter ...Attachment from Outlook") ' Console.WriteLine("DragEnter ...Attachment from Outlook")
Else Else
'otherwise, do not handle 'otherwise, do not handle
e.Effect = DragDropEffects.None e.Effect = DragDropEffects.None
@ -245,13 +245,13 @@ Public Class frmStart
For Each Str As Object In ClassDragDrop.files_dropped For Each Str As Object In ClassDragDrop.files_dropped
If Not Str Is Nothing Then If Not Str Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1) Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1) Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
ClassFilehandle.Decide_FileHandle(filename, handleType) ClassFilehandle.Decide_FileHandle(filename, handleType)
i += 1 i += 1
Else Else
Console.WriteLine("File gibt es bereits") ' Console.WriteLine("File gibt es bereits")
End If End If
End If End If
@ -324,14 +324,14 @@ Public Class frmStart
Dim filestring As String = Filerow.Item("FILENAME2WORK") Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE") Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
Try Try
System.IO.File.Delete(filestring) System.IO.File.Delete(filestring)
Catch ex As Exception Catch ex As Exception
End Try End Try
ElseIf handletype.StartsWith("@FW") Then ElseIf handletype.StartsWith("|FW") Then
containsfw_file = True containsfw_file = True
End If End If
Next Next
@ -609,7 +609,7 @@ Public Class frmStart
Try Try
If FW_started = True Then If FW_started = True Then
'Prüfen ob alle Files abgearbeitet wurden 'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True) DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
If DTACTUAL_FILES.Rows.Count > 0 Then If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False ABORT_INDEXING = False
@ -735,7 +735,7 @@ Public Class frmStart
For Each fName In openFileDialog1.FileNames For Each fName In openFileDialog1.FileNames
ReDim Preserve ClassDragDrop.files_dropped(i) ReDim Preserve ClassDragDrop.files_dropped(i)
ClassLogger.Add(">> Chosen File: " & fName, False) ClassLogger.Add(">> Chosen File: " & fName, False)
ClassDragDrop.files_dropped(i) = "@DROPFROMFSYSTEM@" & fName ClassDragDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
i += 1 i += 1
Next Next
TimerCheckDroppedFiles.Start() TimerCheckDroppedFiles.Start()

126
Global_Indexer/frmUserKonfig_AddUsers.designer.vb generated
View File

@ -28,6 +28,15 @@ Partial Class frmUserKonfig_AddUsers
Me.lbGroups = New System.Windows.Forms.ListBox() Me.lbGroups = New System.Windows.Forms.ListBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.GridControlUsers = New DevExpress.XtraGrid.GridControl()
Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New Global_Indexer.MyDataset()
Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPrename = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton()
@ -35,25 +44,16 @@ Partial Class frmUserKonfig_AddUsers
Me.btnCancel = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button()
Me.btnAddUsers = New System.Windows.Forms.Button() Me.btnAddUsers = New System.Windows.Forms.Button()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.MyDataset = New Global_Indexer.MyDataset()
Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridControlUsers = New DevExpress.XtraGrid.GridControl()
Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPrename = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEmail = New DevExpress.XtraGrid.Columns.GridColumn()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainer1 'SplitContainer1
@ -92,53 +92,6 @@ Partial Class frmUserKonfig_AddUsers
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1" Me.ToolStripLabel1.Name = "ToolStripLabel1"
' '
'ToolStrip2
'
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone})
resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
Me.ToolStrip2.Name = "ToolStrip2"
'
'ToolStripLabel2
'
resources.ApplyResources(Me.ToolStripLabel2, "ToolStripLabel2")
Me.ToolStripLabel2.Name = "ToolStripLabel2"
'
'tbSelectEverything
'
Me.tbSelectEverything.Image = Global.Global_Indexer.My.Resources.Resources.CheckOutforEdit_13187_32x
resources.ApplyResources(Me.tbSelectEverything, "tbSelectEverything")
Me.tbSelectEverything.Name = "tbSelectEverything"
'
'tbSelectNone
'
Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
resources.ApplyResources(Me.tbSelectNone, "tbSelectNone")
Me.tbSelectNone.Name = "tbSelectNone"
'
'btnCancel
'
resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnAddUsers
'
Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add
resources.ApplyResources(Me.btnAddUsers, "btnAddUsers")
Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.UseVisualStyleBackColor = True
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TBAD_UsersBindingSource
'
Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
Me.TBAD_UsersBindingSource.DataSource = Me.MyDataset
'
'GridControlUsers 'GridControlUsers
' '
resources.ApplyResources(Me.GridControlUsers, "GridControlUsers") resources.ApplyResources(Me.GridControlUsers, "GridControlUsers")
@ -148,6 +101,16 @@ Partial Class frmUserKonfig_AddUsers
Me.GridControlUsers.ShowOnlyPredefinedDetails = True Me.GridControlUsers.ShowOnlyPredefinedDetails = True
Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers}) Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers})
' '
'TBAD_UsersBindingSource
'
Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
Me.TBAD_UsersBindingSource.DataSource = Me.MyDataset
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridViewUsers 'GridViewUsers
' '
Me.GridViewUsers.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.BackColor"), System.Drawing.Color) Me.GridViewUsers.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@ -200,6 +163,43 @@ Partial Class frmUserKonfig_AddUsers
Me.colEmail.OptionsColumn.AllowEdit = False Me.colEmail.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.colEmail, "colEmail") resources.ApplyResources(Me.colEmail, "colEmail")
' '
'ToolStrip2
'
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone})
resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
Me.ToolStrip2.Name = "ToolStrip2"
'
'ToolStripLabel2
'
resources.ApplyResources(Me.ToolStripLabel2, "ToolStripLabel2")
Me.ToolStripLabel2.Name = "ToolStripLabel2"
'
'tbSelectEverything
'
Me.tbSelectEverything.Image = Global.Global_Indexer.My.Resources.Resources.CheckOutforEdit_13187_32x
resources.ApplyResources(Me.tbSelectEverything, "tbSelectEverything")
Me.tbSelectEverything.Name = "tbSelectEverything"
'
'tbSelectNone
'
Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
resources.ApplyResources(Me.tbSelectNone, "tbSelectNone")
Me.tbSelectNone.Name = "tbSelectNone"
'
'btnCancel
'
resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnAddUsers
'
resources.ApplyResources(Me.btnAddUsers, "btnAddUsers")
Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.UseVisualStyleBackColor = True
'
'frmUserKonfig_AddUsers 'frmUserKonfig_AddUsers
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -214,12 +214,12 @@ Partial Class frmUserKonfig_AddUsers
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

106
Global_Indexer/frmUserKonfig_AddUsers.resx
View File

@ -262,7 +262,7 @@
<value>GridControlUsers</value> <value>GridControlUsers</value>
</data> </data>
<data name="&gt;&gt;GridControlUsers.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlUsers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlUsers.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlUsers.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>
@ -339,6 +339,9 @@
<data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="btnCancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
<value>220, 425</value> <value>220, 425</value>
</data> </data>
@ -363,6 +366,9 @@
<data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="btnAddUsers.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<data name="btnAddUsers.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnAddUsers.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
@ -875,6 +881,54 @@
<data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve"> <data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
<value>TBAD_UsersBindingSource</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value>
</data>
<data name="&gt;&gt;MyDataset.Type" xml:space="preserve">
<value>Global_Indexer.MyDataset, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;GridViewUsers.Name" xml:space="preserve">
<value>GridViewUsers</value>
</data>
<data name="&gt;&gt;GridViewUsers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSelect.Name" xml:space="preserve">
<value>colSelect</value>
</data>
<data name="&gt;&gt;colSelect.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colUsername.Name" xml:space="preserve">
<value>colUsername</value>
</data>
<data name="&gt;&gt;colUsername.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colPrename.Name" xml:space="preserve">
<value>colPrename</value>
</data>
<data name="&gt;&gt;colPrename.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSurname.Name" xml:space="preserve">
<value>colSurname</value>
</data>
<data name="&gt;&gt;colSurname.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colEmail.Name" xml:space="preserve">
<value>colEmail</value>
</data>
<data name="&gt;&gt;colEmail.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ToolStripLabel2.Name" xml:space="preserve"> <data name="&gt;&gt;ToolStripLabel2.Name" xml:space="preserve">
<value>ToolStripLabel2</value> <value>ToolStripLabel2</value>
</data> </data>
@ -897,55 +951,7 @@
<value>ToolTipController1</value> <value>ToolTipController1</value>
</data> </data>
<data name="&gt;&gt;ToolTipController1.Type" xml:space="preserve"> <data name="&gt;&gt;ToolTipController1.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value>
</data>
<data name="&gt;&gt;MyDataset.Type" xml:space="preserve">
<value>Global_Indexer.MyDataset, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
<value>TBAD_UsersBindingSource</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GridViewUsers.Name" xml:space="preserve">
<value>GridViewUsers</value>
</data>
<data name="&gt;&gt;GridViewUsers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSelect.Name" xml:space="preserve">
<value>colSelect</value>
</data>
<data name="&gt;&gt;colSelect.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colUsername.Name" xml:space="preserve">
<value>colUsername</value>
</data>
<data name="&gt;&gt;colUsername.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colPrename.Name" xml:space="preserve">
<value>colPrename</value>
</data>
<data name="&gt;&gt;colPrename.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSurname.Name" xml:space="preserve">
<value>colSurname</value>
</data>
<data name="&gt;&gt;colSurname.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colEmail.Name" xml:space="preserve">
<value>colEmail</value>
</data>
<data name="&gt;&gt;colEmail.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmUserKonfig_AddUsers</value> <value>frmUserKonfig_AddUsers</value>

12
Global_Indexer/frmUserKonfig_AddUsers.vb
View File

@ -278,12 +278,20 @@ Public Class frmUserKonfig_AddUsers
Dim PRENAME As String = userldap.GivenName Dim PRENAME As String = userldap.GivenName
Dim NAME As String = userldap.Surname Dim NAME As String = userldap.Surname
Dim USERNAME As String = userldap.SamAccountName Dim USERNAME As String = userldap.SamAccountName
Dim _name = userldap.DisplayName
Dim _name1 = userldap.Name
Dim _name3 = userldap.Name
Try Try
newUserRow.Username = userldap.SamAccountName newUserRow.Username = userldap.SamAccountName
Catch ex As Exception Catch ex As Exception
newUserRow.Username = user.ToString newUserRow.Username = user.ToString
End Try End Try
Dim email As String = userldap.EmailAddress Dim email As String
Try
email = userldap.EmailAddress
Catch ex As Exception
email = ""
End Try
newUserRow.Prename = PRENAME newUserRow.Prename = PRENAME
newUserRow.Surname = NAME newUserRow.Surname = NAME
newUserRow.Email = email newUserRow.Email = email
@ -301,7 +309,7 @@ Public Class frmUserKonfig_AddUsers
Dim usersAdded As Integer = 0 Dim usersAdded As Integer = 0
For Each row As DataRow In MyDataset.TBAD_Users.Rows For Each row As DataRow In MyDataset.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then If CBool(row.Item(0)) = CBool(True) Then
Dim USERNAME As String = row.Item(1) Dim USERNAME As String = row.Item(1)
Dim PRENAME As String = row.Item(2) Dim PRENAME As String = row.Item(2)

94
SetupWix/Product.wxs
View File

@ -92,29 +92,29 @@
<!-- DEVEXPRESS Bibliotheken --> <!-- DEVEXPRESS Bibliotheken -->
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191"> <Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
<File Id="DevExpress.Charts.v15.1.Core" Name="DevExpress.Charts.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Charts.v15.1.Core.dll" KeyPath="yes" /> <File Id="DevExpress.Charts.v15.2.Core" Name="DevExpress.Charts.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Charts.v15.2.Core.dll" KeyPath="yes" />
<File Id="DevExpress.Data.v15.1" Name="DevExpress.Data.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Data.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.Data.v15.2" Name="DevExpress.Data.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Data.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1" Name="DevExpress.DataAccess.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.DataAccess.v15.2" Name="DevExpress.DataAccess.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.DataAccess.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1.UI.dll" Name="DevExpress.DataAccess.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.UI.dll" KeyPath="no" /> <File Id="DevExpress.DataAccess.v15.2.UI.dll" Name="DevExpress.DataAccess.v15.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.DataAccess.v15.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.Office.v15.1.Core" Name="DevExpress.Office.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Office.v15.1.Core.dll" KeyPath="no"/> <File Id="DevExpress.Office.v15.2.Core" Name="DevExpress.Office.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Office.v15.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Core" Name="DevExpress.Pdf.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Core.dll" KeyPath="no"/> <File Id="DevExpress.Pdf.v15.2.Core" Name="DevExpress.Pdf.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Drawing" Name="DevExpress.Pdf.v15.1.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Drawing.dll" KeyPath="no" /> <File Id="DevExpress.Pdf.v15.2.Drawing" Name="DevExpress.Pdf.v15.2.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll" KeyPath="no" />
<File Id="DevExpress.Printing.v15.1.Core" Name="DevExpress.Printing.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Printing.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Printing.v15.2.Core" Name="DevExpress.Printing.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Printing.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.RichEdit.v15.1.Core" Name="DevExpress.RichEdit.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.RichEdit.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.RichEdit.v15.2.Core" Name="DevExpress.RichEdit.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.RichEdit.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Sparkline.v15.1.Core" Name="DevExpress.Sparkline.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Sparkline.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Sparkline.v15.2.Core" Name="DevExpress.Sparkline.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Spreadsheet.v15.1.Core" Name="DevExpress.Spreadsheet.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Spreadsheet.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Spreadsheet.v15.2.Core" Name="DevExpress.Spreadsheet.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Spreadsheet.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1" Name="DevExpress.Utils.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.Utils.v15.2" Name="DevExpress.Utils.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Utils.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1.UI" Name="DevExpress.Utils.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.UI.dll" KeyPath="no" /> <File Id="DevExpress.Utils.v15.2.UI" Name="DevExpress.Utils.v15.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Utils.v15.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.XtraCharts.v15.1" Name="DevExpress.XtraCharts.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraCharts.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraCharts.v15.2" Name="DevExpress.XtraCharts.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraCharts.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraBars.v15.1" Name="DevExpress.XtraBars.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraBars.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraBars.v15.2" Name="DevExpress.XtraBars.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraBars.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraEditors.v15.1" Name="DevExpress.XtraEditors.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraEditors.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraEditors.v15.2" Name="DevExpress.XtraEditors.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraEditors.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraGrid.v15.1" Name="DevExpress.XtraGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraGrid.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraGrid.v15.2" Name="DevExpress.XtraGrid.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraGrid.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraNavBar.v15.1" Name="DevExpress.XtraNavBar.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraNavBar.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraNavBar.v15.2" Name="DevExpress.XtraNavBar.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraNavBar.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPdfViewer.v15.1" Name="DevExpress.XtraPdfViewer.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraPdfViewer.v15.2" Name="DevExpress.XtraPdfViewer.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPrinting.v15.1" Name="DevExpress.XtraPrinting.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPrinting.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraPrinting.v15.2" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraRichEdit.v15.1" Name="DevExpress.XtraRichEdit.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraRichEdit.v15.2" Name="DevExpress.XtraRichEdit.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraSpreadsheet.v15.1" Name="DevExpress.XtraSpreadsheet.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraSpreadsheet.v15.2" Name="DevExpress.XtraSpreadsheet.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraTreeList.v15.1" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraTreeList.v15.2" Name="DevExpress.XtraTreeList.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll" KeyPath="no" />
</Component> </Component>
<!-- Lokalisierung für DEVEXPRESS Bibliotheken--> <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
<Directory Id="LOCALE_EN_US" Name="en-US"> <Directory Id="LOCALE_EN_US" Name="en-US">
@ -129,29 +129,29 @@
</Component> </Component>
<Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391"> <Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
<File Id="DevExpress.Charts.v15.1.Core.resources" Name="DevExpress.Charts.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Charts.v15.1.Core.dll" KeyPath="yes" /> <File Id="DevExpress.Charts.v15.2.Core.resources" Name="DevExpress.Charts.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Charts.v15.2.Core.dll" KeyPath="yes" />
<File Id="DevExpress.Data.v15.1.resources" Name="DevExpress.Data.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Data.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.Data.v15.2.resources" Name="DevExpress.Data.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Data.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1.resources" Name="DevExpress.DataAccess.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.DataAccess.v15.2.resources" Name="DevExpress.DataAccess.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.DataAccess.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1..resources" Name="DevExpress.DataAccess.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.UI.dll" KeyPath="no" /> <File Id="DevExpress.DataAccess.v15.2..resources" Name="DevExpress.DataAccess.v15.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.DataAccess.v15.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.Office.v15.1.Core.resources" Name="DevExpress.Office.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Office.v15.1.Core.dll" KeyPath="no"/> <File Id="DevExpress.Office.v15.2.Core.resources" Name="DevExpress.Office.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Office.v15.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Core.resources" Name="DevExpress.Pdf.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Core.dll" KeyPath="no"/> <File Id="DevExpress.Pdf.v15.2.Core.resources" Name="DevExpress.Pdf.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Drawing.resources" Name="DevExpress.Pdf.v15.1.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Drawing.dll" KeyPath="no" /> <File Id="DevExpress.Pdf.v15.2.Drawing.resources" Name="DevExpress.Pdf.v15.2.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll" KeyPath="no" />
<File Id="DevExpress.Printing.v15.1.Core.resources" Name="DevExpress.Printing.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Printing.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Printing.v15.2.Core.resources" Name="DevExpress.Printing.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Printing.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.RichEdit.v15.1.Core.resources" Name="DevExpress.RichEdit.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.RichEdit.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.RichEdit.v15.2.Core.resources" Name="DevExpress.RichEdit.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.RichEdit.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Sparkline.v15.1.Core.resources" Name="DevExpress.Sparkline.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Sparkline.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Sparkline.v15.2.Core.resources" Name="DevExpress.Sparkline.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Spreadsheet.v15.1.Core.resources" Name="DevExpress.Spreadsheet.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Spreadsheet.v15.1.Core.dll" KeyPath="no" /> <File Id="DevExpress.Spreadsheet.v15.2.Core.resources" Name="DevExpress.Spreadsheet.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Spreadsheet.v15.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1.resources" Name="DevExpress.Utils.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.Utils.v15.2.resources" Name="DevExpress.Utils.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Utils.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1.UI.resources" Name="DevExpress.Utils.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.UI.dll" KeyPath="no" /> <File Id="DevExpress.Utils.v15.2.UI.resources" Name="DevExpress.Utils.v15.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Utils.v15.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.XtraCharts.v15.1.resources" Name="DevExpress.XtraCharts.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraCharts.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraCharts.v15.2.resources" Name="DevExpress.XtraCharts.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraCharts.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraBars.v15.1.resources" Name="DevExpress.XtraBars.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraBars.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraBars.v15.2.resources" Name="DevExpress.XtraBars.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraBars.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraEditors.v15.1.resources" Name="DevExpress.XtraEditors.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraEditors.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraEditors.v15.2.resources" Name="DevExpress.XtraEditors.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraEditors.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraGrid.v15.1.resources" Name="DevExpress.XtraGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraGrid.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraGrid.v15.2.resources" Name="DevExpress.XtraGrid.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraGrid.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraNavBar.v15.1.resources" Name="DevExpress.XtraNavBar.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraNavBar.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraNavBar.v15.2.resources" Name="DevExpress.XtraNavBar.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraNavBar.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPdfViewer.v15.1.resources" Name="DevExpress.XtraPdfViewer.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraPdfViewer.v15.2.resources" Name="DevExpress.XtraPdfViewer.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPrinting.v15.1.resources" Name="DevExpress.XtraPrinting.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPrinting.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraPrinting.v15.2.resources" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraRichEdit.v15.1.resources" Name="DevExpress.XtraRichEdit.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraRichEdit.v15.2.resources" Name="DevExpress.XtraRichEdit.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraSpreadsheet.v15.1.resources" Name="DevExpress.XtraSpreadsheet.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraSpreadsheet.v15.2.resources" Name="DevExpress.XtraSpreadsheet.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraTreeList.v15.1.resources" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" KeyPath="no" /> <File Id="DevExpress.XtraTreeList.v15.2.resources" Name="DevExpress.XtraTreeList.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll" KeyPath="no" />
</Component> </Component>
</Directory> </Directory>
@ -203,6 +203,8 @@
<ComponentRef Id="ApplicationIco"/> <ComponentRef Id="ApplicationIco"/>
<ComponentRef Id="GlobalIndexer.Locales.de" /> <ComponentRef Id="GlobalIndexer.Locales.de" />
<ComponentRef Id="GlobalIndexer.Locales.en_us" /> <ComponentRef Id="GlobalIndexer.Locales.en_us" />
<ComponentRef Id="Scheduler.Locales" />
</Feature> </Feature>
<!-- Legt das Standard-Installationsverzeichnis fest--> <!-- Legt das Standard-Installationsverzeichnis fest-->