diff --git a/Global_Indexer/ClassDatabase.vb b/Global_Indexer/ClassDatabase.vb index fe32012..9920d51 100644 --- a/Global_Indexer/ClassDatabase.vb +++ b/Global_Indexer/ClassDatabase.vb @@ -11,7 +11,7 @@ Public Class ClassDatabase SQLconnect.Close() Return True Catch ex As Exception - ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Database-Init: " & ex.Message, True) Return False End Try End Function @@ -34,7 +34,7 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) ClassLogger.Add("#SQL: " & Select_anweisung, False) Return Nothing End Try @@ -57,7 +57,7 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) ClassLogger.Add("#SQL: " & Select_anweisung, False) Return Nothing End Try @@ -79,9 +79,9 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) ClassLogger.Add("#SQL: " & ExecuteCMD, False) - + Return False End Try End Function @@ -103,7 +103,7 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True) ClassLogger.Add("#SQL: " & cmdscalar, False) Return Nothing End Try @@ -123,7 +123,7 @@ Public Class ClassDatabase SQLconnect.Close() Return result Catch ex As Exception - ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True) + ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True) ClassLogger.Add("#SQL: " & cmdscalar, False) Return Nothing End Try @@ -145,7 +145,7 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei OracleExecute_non_Query: " & ex.Message, True) + ClassLogger.Add("Unexpected error in OracleExecute_non_Query: " & ex.Message, True) ClassLogger.Add("#SQL: " & ExecuteCMD, False) Return False @@ -170,7 +170,7 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) End If - ClassLogger.Add("Fehler bei Oracle_Return_Datatable: " & ex.Message, True) + ClassLogger.Add("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True) ClassLogger.Add("#SQL: " & Select_anweisung, False) Return Nothing End Try diff --git a/Global_Indexer/ClassDragDrop.vb b/Global_Indexer/ClassDragDrop.vb index 481e552..b073a41 100644 --- a/Global_Indexer/ClassDragDrop.vb +++ b/Global_Indexer/ClassDragDrop.vb @@ -39,11 +39,12 @@ Public Class ClassDragDrop intCnt += 1 Loop stmInput.Close() - + 'Sonderzeichen entfernen + Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString) Dim anhaenge = e.Data.GetDataPresent("FileContents") 'Dim path As String = "C:\VBProjekte\Dateien" '// put the zip file into the temp directory - Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString() + Dim strOutFile As String = Path.GetTempPath() & Tempfilename '// create the full-path name '// '// Second step: we have the file name. @@ -62,7 +63,10 @@ Public Class ClassDragDrop Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) '; fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length) fsOutput.Close() ' // close the file - + Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile) + If resultVersion <> "" Then + strOutFile = resultVersion + End If Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile) '// always good to make sure we actually created the file If (finTemp.Exists = True) Then @@ -80,7 +84,7 @@ Public Class ClassDragDrop Try oApp = New Outlook.Application() Catch ex As Exception - MsgBox("Fehler bei Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For") + MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For") End Try ClassLogger.Add(">> Drop of msg", False) @@ -89,18 +93,26 @@ Public Class ClassDragDrop For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count myobj = oApp.ActiveExplorer.Selection.Item(i) Dim subj As String = myobj.Subject + If subj = "" Then + subj = "NO_SUBJECT" + End If If subj.Contains("\") Then subj = subj.Replace("\", "-") End If If subj.Contains("/") Then subj = subj.Replace("/", "-") End If + 'Sonderzeichen entfernen + subj = ClassFilehandle.InvalidCharacters(subj) 'hardcode a destination path for testing - Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (subj + ".msg").Replace(":", "")) + Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg") strFile = strFile.Replace("?", "") strFile = strFile.Replace("!", "") strFile = strFile.Replace("%", "") strFile = strFile.Replace("$", "") + + + ClassLogger.Add(">> Drop of msg - File:" & strFile, False) Try myobj.SaveAs(strFile) @@ -122,13 +134,5 @@ Public Class ClassDragDrop End Function - ''' - ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String - ''' die in Dateinamen nicht erlaubt sind. - ''' - ''' Der zu prüfende String - ''' String ohne nichterlaubte Zeichen - Private Shared Function AdjustPath(Input As String) As String - Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|]", String.Empty) - End Function + End Class diff --git a/Global_Indexer/ClassFilehandle.vb b/Global_Indexer/ClassFilehandle.vb index 224fa91..02371e4 100644 --- a/Global_Indexer/ClassFilehandle.vb +++ b/Global_Indexer/ClassFilehandle.vb @@ -1,7 +1,21 @@ Imports System.IO Imports Independentsoft +Imports System.Text.RegularExpressions Public Class ClassFilehandle + ''' + ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String + ''' die in Dateinamen nicht erlaubt sind. + ''' + ''' Der zu prüfende String + ''' String ohne nichterlaubte Zeichen + Public Shared Function InvalidCharacters(Input As String) As String + Dim replacement = "" + 'Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline) + Dim regexSearch = New String(Path.GetInvalidFileNameChars()) & New String(Path.GetInvalidPathChars()) + Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch))) + Return r.Replace(Input, replacement) + End Function Public Shared Function Decide_FileHandle(filename As String, handletype As String) Try If filename.EndsWith(".msg") Then @@ -47,6 +61,7 @@ Public Class ClassFilehandle 'Nur die MSGDatei ablegen Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg") + If File.Exists(tempfile) Then File.Delete(tempfile) End If @@ -74,19 +89,20 @@ Public Class ClassFilehandle attachment_name = attachment.LongFileName End If If Not attachment_name.Contains("inline") Then + 'Sonderzeichen entfernen + attachment_name = ClassFilehandle.InvalidCharacters(attachment_name) tempfile = Path.Combine(Path.GetTempPath, attachment_name) - If File.Exists(tempfile) Then - File.Delete(tempfile) + tempfile = ClassFilehandle.Versionierung_Datei(tempfile) + If tempfile <> "" Then + attachment.Save(tempfile) + 'Datei in Array zum Templöschen speichern + TEMP_FILES.Add(tempfile) + If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) + 'nun der Insert des Anhanges + erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) + i1 += 1 End If - attachment.Save(tempfile) - 'Datei in Array zum Templöschen speichern - TEMP_FILES.Add(tempfile) - If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) - 'nun der Insert des Anhanges - erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) - i1 += 1 End If - Next End If Return erfolgreich @@ -130,4 +146,33 @@ Public Class ClassFilehandle End If End Function + Public Shared Function Versionierung_Datei(Dateiname As String) + Dim extension + Dim _NewFileString + Try + Dim version As Integer = 1 + + Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname) + extension = Path.GetExtension(Dateiname) + + Dim _neuername As String = Stammname + 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") + 'Überprüfen ob File existiert + If File.Exists(_neuername & extension) = False Then + _NewFileString = _neuername + Else + Do While File.Exists(_neuername & extension) + version = version + 1 + _neuername = Stammname & "~" & version + _NewFileString = _neuername + Loop + End If + Return _NewFileString & extension + Catch ex As Exception + ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:") + Return "" + End Try + + End Function End Class diff --git a/Global_Indexer/ClassFolderWatcher.vb b/Global_Indexer/ClassFolderWatcher.vb index c2f24b3..5c29b12 100644 --- a/Global_Indexer/ClassFolderWatcher.vb +++ b/Global_Indexer/ClassFolderWatcher.vb @@ -145,14 +145,15 @@ Public Class ClassFolderWatcher End If 'Die Datei übergeben If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False) - If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then + If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then ClassFilehandle.Decide_FileHandle(e.FullPath, handleType) Else + ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False) Console.WriteLine("File existiert bereits") End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created") End Try End Sub diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb index e77027b..99f8a12 100644 --- a/Global_Indexer/ClassHotkey_Windream.vb +++ b/Global_Indexer/ClassHotkey_Windream.vb @@ -281,7 +281,7 @@ Public Class ClassHotkey_Windream ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False) End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen der windream-Suche:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen der windream-Suche:") ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True) Return "Unexpected error while executing search" End Try @@ -318,7 +318,7 @@ Public Class ClassHotkey_Windream Catch ex As Exception ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True) MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unerwarteter Fehler bei RUN_WD_SEARCH" + Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" End Try diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb index 62cff0c..70f61e2 100644 --- a/Global_Indexer/ClassInit.vb +++ b/Global_Indexer/ClassInit.vb @@ -43,7 +43,7 @@ Public Class ClassInit configResult = Load_BasicConfig() If configResult = False Then - Throw New Exception("Fehler beim Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.") + Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.") End If diff --git a/Global_Indexer/ClassLayout.vb b/Global_Indexer/ClassLayout.vb index 28d13b8..a14e094 100644 --- a/Global_Indexer/ClassLayout.vb +++ b/Global_Indexer/ClassLayout.vb @@ -10,7 +10,11 @@ Public Class ClassWindowLocation _pathold = _path.Replace("frm", "frmfrm") If File.Exists(_pathold) Then Dim newfilename = Path.GetFileName(_path) - My.Computer.FileSystem.RenameFile(_pathold, newfilename) + Try + My.Computer.FileSystem.RenameFile(_pathold, newfilename) + Catch ex As Exception + My.Computer.FileSystem.DeleteFile(_pathold) + End Try _path = Path.Combine(Application.UserAppDataPath(), form.Name & "-Layout.xml") End If Dim layout As ClassLayout = New ClassLayout(_path) diff --git a/Global_Indexer/ClassLicence.vb b/Global_Indexer/ClassLicence.vb index b5d25a1..a162a0c 100644 --- a/Global_Indexer/ClassLicence.vb +++ b/Global_Indexer/ClassLicence.vb @@ -32,7 +32,7 @@ Public Class ClassLicence LicenseHotKey = 0 End Try Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Licensemanager:") START_INCOMPLETE = True End Try End Sub diff --git a/Global_Indexer/ClassLogger.vb b/Global_Indexer/ClassLogger.vb index cfe2772..33aef2f 100644 --- a/Global_Indexer/ClassLogger.vb +++ b/Global_Indexer/ClassLogger.vb @@ -208,7 +208,7 @@ Public Class ClassLogger If Not ClassLogger.HasInformedAboutError Then MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _ vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _ - MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + MsgBoxStyle.Information, "Unexpected error inm Öffnen der Logdatei") ClassLogger.HasInformedAboutError = True End If End Sub diff --git a/Global_Indexer/ClassPostprocessing.vb b/Global_Indexer/ClassPostprocessing.vb index 6721acc..04d5c02 100644 --- a/Global_Indexer/ClassPostprocessing.vb +++ b/Global_Indexer/ClassPostprocessing.vb @@ -41,8 +41,8 @@ Public Class ClassPostprocessing Next Return result Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_Nachbearbeitung_Wert:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:") Return result End Try diff --git a/Global_Indexer/ClassWindream.vb b/Global_Indexer/ClassWindream.vb index 8a0392b..605d09d 100644 --- a/Global_Indexer/ClassWindream.vb +++ b/Global_Indexer/ClassWindream.vb @@ -55,10 +55,10 @@ Public Class ClassWindream ''' ''' Sub New() - ' wenn ein Fehler bei der Initialisierung auftrat + ' wenn ein Unexpected error in der Initialisierung auftrat If Not ClassWindream.Init() Then ' Nachricht ausgeben - MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung") + MsgBox("Es trat ein Unexpected error in der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Unexpected error in Initialisierung") ' das Programm "abschießen" Process.GetCurrentProcess.Kill() @@ -268,7 +268,7 @@ Public Class ClassWindream MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version") Else - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Login an windream") End If Return False End Try @@ -290,7 +290,7 @@ Public Class ClassWindream Try Return oDokumentTypen Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen") Return Nothing End Try End Function @@ -312,7 +312,7 @@ Public Class ClassWindream Return objektTypenStr Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen als String") Return Nothing End Try @@ -402,7 +402,7 @@ Public Class ClassWindream Return aIndexNames Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der windream-Indexe") Return Nothing End Try End Function @@ -450,7 +450,7 @@ Public Class ClassWindream Next Catch ex As Exception - MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp") + MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Prüfen auf Existenz eines Index in einem Objekttyp") End Try Return False @@ -472,7 +472,7 @@ Public Class ClassWindream Try Return oSession.aLoggedin Catch ex As Exception - MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung") + MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Loggedin-Prüfung") End Try Return False @@ -487,7 +487,7 @@ Public Class ClassWindream Try Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer Catch ex As Exception - MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") + MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen des windream-Servers") End Try Return "" @@ -512,7 +512,7 @@ Public Class ClassWindream ' Return sDrive & ":" ' Catch ex As Exception - ' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks") + ' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen des windream-Laufwerks") ' End Try ' Return "" @@ -705,7 +705,7 @@ Public Class ClassWindream ' open the windream object's file stream for writing aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -715,7 +715,7 @@ Public Class ClassWindream ' give fileIO helper object the windream stream aFileIO.aWMStream = aWMStream If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -724,7 +724,7 @@ Public Class ClassWindream ' let fileIO object import the original file into windream aFileIO.ImportOriginal(True) If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -734,7 +734,7 @@ Public Class ClassWindream ' close the windream file stream aWMStream.Close() If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -743,7 +743,7 @@ Public Class ClassWindream ' save new windream object WMObject.save() If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -753,7 +753,7 @@ Public Class ClassWindream ' unlock the windream object WMObject.unlock() If Err.Number > 0 Then - ClassLogger.Add(" FEHLER bei 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() System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) Return False @@ -782,7 +782,7 @@ Public Class ClassWindream Return True Else System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - ClassLogger.Add(" FEHLER bei 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 End If Else @@ -803,7 +803,7 @@ Public Class ClassWindream ''' Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String) Try - + If LogErrorsOnly = False Then ClassLogger.Add(" ...DateiIndexieren wurde aufgerufen", False) WD_File = WD_File.Substring(2) Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject @@ -833,7 +833,7 @@ Public Class ClassWindream Try WMObject.Save() Catch ex As Exception - ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' wenn es einen Unexpected error inm speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden Return False End Try @@ -929,7 +929,7 @@ Public Class ClassWindream Try oDocument.Save() Catch ex As Exception - ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' wenn es einen Unexpected error inm speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden Return False End Try @@ -1099,7 +1099,7 @@ Public Class ClassWindream If LogErrorsOnly = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False) Dim myArray() - + 'For Each row As DataRow In DT.Rows 'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert"))) 'Next @@ -1249,10 +1249,10 @@ Public Class ClassWindream End If - + End If - + i += 1 Next @@ -1679,7 +1679,7 @@ Public Class ClassWindream 'Catch ex As Exception ' ' einen Hinweis über einen aufgetretenen Fehler an das Array für den TreeView-Log anhängen - ' ClassLogger.Add("Fehler bei Auswerten/Konvertieren des Typs!", ex.Message) + ' ClassLogger.Add("Unexpected error in Auswerten/Konvertieren des Typs!", ex.Message) ' ' die Indexierungsinformationen für den TreeView-Log zurückgeben ' Return False 'End Try @@ -1739,7 +1739,7 @@ Public Class ClassWindream End If Catch ex As Exception - ClassLogger.Add(" Hinweis: Unbekannter Fehler beim Indexieren der Datei.") + ClassLogger.Add(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.") ClassLogger.Add(ex.Message) End Try diff --git a/Global_Indexer/My Project/AssemblyInfo.vb b/Global_Indexer/My Project/AssemblyInfo.vb index 3e0b18b..b4e4462 100644 --- a/Global_Indexer/My Project/AssemblyInfo.vb +++ b/Global_Indexer/My Project/AssemblyInfo.vb @@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index 734face..4675e28 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -81,6 +81,8 @@ Partial Public Class MyDataset Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + Private tableTBAD_Users As TBAD_UsersDataTable + Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation Private relationFK_TBDD_INDEX_MAN_CID As Global.System.Data.DataRelation @@ -224,6 +226,9 @@ Partial Public Class MyDataset If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) End If + If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then + MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -521,6 +526,16 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable + Get + Return Me.tableTBAD_Users + End Get + End Property + _ + Private Function ShouldSerializeTBAD_Users() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -1295,6 +1327,9 @@ Partial Public Class MyDataset _ Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) + _ + Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -12121,6 +12156,327 @@ Partial Public Class MyDataset End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBAD_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) + + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBAD_Users" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSelect + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + Get + Return CType(Me.Rows(index),TBAD_UsersRow) + End Get + End Property + + _ + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler + + _ + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} + rowTBAD_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBAD_UsersRow) + Return rowTBAD_UsersRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBAD_UsersDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") + End Sub + + _ + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBAD_UsersRow() As TBAD_UsersRow + Return CType(Me.NewRow,TBAD_UsersRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBAD_UsersRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBAD_UsersRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBAD_UsersDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -17861,6 +18217,184 @@ Partial Public Class MyDataset End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBAD_UsersRow + Inherits Global.System.Data.DataRow + + Private tableTBAD_Users As TBAD_UsersDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) + End Sub + + _ + Public Property _Select() As Boolean + Get + Try + Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.SelectColumn) = value + End Set + End Property + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.UsernameColumn) = value + End Set + End Property + + _ + Public Property Prename() As String + Get + Try + Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.PrenameColumn) = value + End Set + End Property + + _ + Public Property Surname() As String + Get + Try + Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.SurnameColumn) = value + End Set + End Property + + _ + Public Property Email() As String + Get + Try + Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.EmailColumn) = value + End Set + End Property + + _ + Public Property ID() As Short + Get + Try + Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.IDColumn) = value + End Set + End Property + + _ + Public Function Is_SelectNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) + End Function + + _ + Public Sub Set_SelectNull() + Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) + End Function + + _ + Public Sub SetPrenameNull() + Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) + End Function + + _ + Public Sub SetSurnameNull() + Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) + End Function + + _ + Public Sub SetEmailNull() + Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -18868,6 +19402,42 @@ Partial Public Class MyDataset End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBAD_UsersRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBAD_UsersRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBAD_UsersRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class End Class Namespace MyDatasetTableAdapters @@ -27967,15 +28537,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -27985,6 +28546,15 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -27994,15 +28564,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -28021,6 +28582,24 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -28084,15 +28663,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If Return result End Function @@ -28119,14 +28689,6 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -28135,6 +28697,14 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -28143,14 +28713,6 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -28167,6 +28729,22 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -28223,14 +28801,6 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If Return result End Function @@ -28241,14 +28811,6 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -28305,6 +28867,22 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -28321,14 +28899,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -28337,14 +28907,6 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -28353,6 +28915,14 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ diff --git a/Global_Indexer/MyDataset.xsc b/Global_Indexer/MyDataset.xsc index 551d5be..bb52ab1 100644 --- a/Global_Indexer/MyDataset.xsc +++ b/Global_Indexer/MyDataset.xsc @@ -9,39 +9,29 @@ - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index afa2eb7..93a56d5 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -1708,7 +1708,7 @@ ORDER BY GUID DESC - + @@ -1784,7 +1784,7 @@ ORDER BY GUID DESC - + @@ -1860,7 +1860,7 @@ ORDER BY GUID DESC - + @@ -1897,7 +1897,7 @@ ORDER BY GUID DESC - + @@ -1911,7 +1911,7 @@ ORDER BY GUID DESC - + @@ -1925,7 +1925,7 @@ ORDER BY GUID DESC - + @@ -2003,7 +2003,7 @@ ORDER BY GUID DESC - + @@ -2076,7 +2076,7 @@ ORDER BY GUID DESC - + @@ -2188,7 +2188,7 @@ ORDER BY GUID DESC - + @@ -2284,7 +2284,7 @@ ORDER BY GUID DESC - + @@ -2339,7 +2339,7 @@ ORDER BY GUID DESC - + @@ -2347,7 +2347,7 @@ ORDER BY GUID DESC - + @@ -2397,7 +2397,7 @@ ORDER BY GUID DESC - + @@ -2469,7 +2469,7 @@ ORDER BY GUID DESC - + @@ -2550,7 +2550,7 @@ ORDER BY GUID DESC - + @@ -2564,7 +2564,7 @@ ORDER BY GUID DESC - + @@ -2573,7 +2573,7 @@ ORDER BY GUID DESC - + @@ -2603,7 +2603,7 @@ ORDER BY GUID DESC - + @@ -2628,7 +2628,7 @@ ORDER BY GUID DESC - + @@ -2667,7 +2667,7 @@ ORDER BY GUID DESC - + @@ -2699,7 +2699,7 @@ ORDER BY GUID DESC - + @@ -2771,7 +2771,7 @@ ORDER BY GUID DESC - + @@ -2810,7 +2810,7 @@ ORDER BY GUID DESC - + @@ -2824,7 +2824,7 @@ ORDER BY GUID DESC - + @@ -2870,7 +2870,7 @@ ORDER BY GUID DESC - + @@ -2930,7 +2930,7 @@ ORDER BY GUID DESC - + @@ -2962,7 +2962,7 @@ ORDER BY GUID DESC - + @@ -3000,7 +3000,7 @@ ORDER BY GUID DESC - + @@ -3022,6 +3022,18 @@ ORDER BY GUID DESC + + + + + + + + + + + + @@ -3131,21 +3143,21 @@ ORDER BY GUID DESC - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index 3503d4b..f6bbbdf 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,39 +4,40 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 431 @@ -48,7 +49,7 @@ - + 543 @@ -60,7 +61,7 @@ - + 397 @@ -72,7 +73,7 @@ - + 605 @@ -88,7 +89,7 @@ - + 959 @@ -100,7 +101,7 @@ - + 1193 @@ -116,7 +117,7 @@ - + 871 @@ -128,7 +129,7 @@ - + 94 @@ -148,7 +149,7 @@ - + 129 @@ -164,7 +165,7 @@ - + 183 @@ -176,7 +177,7 @@ - + 88 @@ -196,7 +197,7 @@ - + 117 @@ -216,7 +217,7 @@ - + 765 @@ -232,7 +233,7 @@ - + 409 @@ -252,7 +253,7 @@ - + 38 diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index a8a9d0e..708154b 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -250,7 +250,6 @@ Partial Class frmAdministration Me.btnNamenkonvention = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() - Me.ListBoxDokart = New System.Windows.Forms.ListBox() Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -317,7 +316,6 @@ Partial Class frmAdministration Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton39 = New System.Windows.Forms.ToolStripButton() - Me.ListBox3 = New System.Windows.Forms.ListBox() Me.USER_GUIDTextBox = New System.Windows.Forms.TextBox() Me.PRENAMETextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox1 = New System.Windows.Forms.TextBox() @@ -390,6 +388,14 @@ Partial Class frmAdministration Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter() 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() BEZEICHNUNGLabel = New System.Windows.Forms.Label() EINGANGSART_IDLabel = New System.Windows.Forms.Label() @@ -513,6 +519,10 @@ Partial Class frmAdministration CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_CONFIGURATIONBindingSource, 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() ' 'GUIDLabel @@ -895,6 +905,7 @@ Partial Class frmAdministration 'XtraTabPage1 ' resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") + Me.XtraTabPage1.Controls.Add(Me.GridControl1) Me.XtraTabPage1.Controls.Add(Label9) Me.XtraTabPage1.Controls.Add(SEQUENCELabel3) Me.XtraTabPage1.Controls.Add(Me.SEQUENCENumericUpDown) @@ -912,7 +923,6 @@ Partial Class frmAdministration Me.XtraTabPage1.Controls.Add(Me.btnNamenkonvention) Me.XtraTabPage1.Controls.Add(Me.Button1) Me.XtraTabPage1.Controls.Add(Me.NAMENKONVENTIONTextBox) - Me.XtraTabPage1.Controls.Add(Me.ListBoxDokart) Me.XtraTabPage1.Controls.Add(Me.TBDD_DOKUMENTARTBindingNavigator) Me.XtraTabPage1.Controls.Add(GUIDLabel) Me.XtraTabPage1.Controls.Add(Me.DOKART_GUIDTextBox) @@ -2005,15 +2015,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.NAMENKONVENTIONTextBox, "NAMENKONVENTIONTextBox") Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" ' - 'ListBoxDokart - ' - Me.ListBoxDokart.DataSource = Me.TBDD_DOKUMENTARTBindingSource - Me.ListBoxDokart.DisplayMember = "BEZEICHNUNG" - Me.ListBoxDokart.FormattingEnabled = True - resources.ApplyResources(Me.ListBoxDokart, "ListBoxDokart") - Me.ListBoxDokart.Name = "ListBoxDokart" - Me.ListBoxDokart.ValueMember = "GUID" - ' 'TBDD_DOKUMENTARTBindingNavigator ' Me.TBDD_DOKUMENTARTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem @@ -2192,13 +2193,13 @@ Partial Class frmAdministration 'XtraTabPage2 ' resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") + Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Controls.Add(SHORTNAMELabel) Me.XtraTabPage2.Controls.Add(Me.SHORTNAMETextBox) Me.XtraTabPage2.Controls.Add(LANGUAGELabel) Me.XtraTabPage2.Controls.Add(Me.LANGUAGEComboBox) Me.XtraTabPage2.Controls.Add(Me.lblsaveUSer) Me.XtraTabPage2.Controls.Add(Me.XtraTabControl3) - Me.XtraTabPage2.Controls.Add(Me.ListBox3) Me.XtraTabPage2.Controls.Add(GUIDLabel2) Me.XtraTabPage2.Controls.Add(Me.USER_GUIDTextBox) Me.XtraTabPage2.Controls.Add(PRENAMELabel) @@ -2499,15 +2500,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.ToolStripButton39, "ToolStripButton39") Me.ToolStripButton39.Name = "ToolStripButton39" ' - 'ListBox3 - ' - resources.ApplyResources(Me.ListBox3, "ListBox3") - Me.ListBox3.DataSource = Me.TBDD_USERBindingSource - Me.ListBox3.DisplayMember = "USERNAME" - Me.ListBox3.FormattingEnabled = True - Me.ListBox3.Name = "ListBox3" - Me.ListBox3.ValueMember = "GUID" - ' 'USER_GUIDTextBox ' Me.USER_GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True)) @@ -2988,6 +2980,86 @@ Partial Class frmAdministration ' 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 ' resources.ApplyResources(Me, "$this") @@ -3066,6 +3138,10 @@ Partial Class frmAdministration CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBGI_CONFIGURATIONBindingSource, 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.PerformLayout() @@ -3092,7 +3168,6 @@ Partial Class frmAdministration Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBDD_DOKUMENTARTBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton Friend WithEvents NAMENKONVENTIONTextBox As System.Windows.Forms.TextBox - Friend WithEvents ListBoxDokart As System.Windows.Forms.ListBox Friend WithEvents DOKART_GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents BEZEICHNUNGTextBox As System.Windows.Forms.TextBox Friend WithEvents KURZNAMETextBox As System.Windows.Forms.TextBox @@ -3278,7 +3353,6 @@ Partial Class frmAdministration Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox Friend WithEvents lblsavePostProcess As System.Windows.Forms.Label Friend WithEvents ToolStripButton31 As System.Windows.Forms.ToolStripButton - Friend WithEvents ListBox3 As System.Windows.Forms.ListBox Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage7 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage8 As DevExpress.XtraTab.XtraTabPage @@ -3364,4 +3438,12 @@ Partial Class frmAdministration Friend WithEvents pnlObjekttype_Config As System.Windows.Forms.Panel Friend WithEvents SHORTNAMETextBox As System.Windows.Forms.TextBox Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx index 34b152a..ea44df3 100644 --- a/Global_Indexer/frmAdministration.resx +++ b/Global_Indexer/frmAdministration.resx @@ -1053,7 +1053,7 @@ Segoe UI, 8.25pt, style=Italic - 97, 262 + 200, 158 61, 13 @@ -1086,7 +1086,7 @@ Segoe UI, 8.25pt, style=Italic - 210, 262 + 88, 158 70, 13 @@ -1119,7 +1119,7 @@ Segoe UI, 8.25pt, style=Italic - 372, 262 + 362, 158 73, 13 @@ -1152,7 +1152,7 @@ Segoe UI, 8.25pt, style=Italic - 569, 262 + 559, 158 82, 13 @@ -2322,7 +2322,7 @@ XtraTabPage1 - 1 + 2 False @@ -2382,7 +2382,7 @@ XtraTabPage1 - 0 + 1 False @@ -2412,7 +2412,7 @@ XtraTabPage2 - 2 + 3 False @@ -2442,13 +2442,13 @@ XtraTabPage2 - 0 + 1 17, 17 - 0, 631 + 0, 592 @@ -2502,6 +2502,45 @@ 134, 17 + + 3, 29 + + + Cyan + + + Fuchsia + + + Dokumentart + + + True + + + 0 + + + 277 + + + 254, 256 + + + 93 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + + 0 + False @@ -2527,7 +2566,7 @@ XtraTabPage1 - 2 + 3 False @@ -2557,7 +2596,7 @@ XtraTabPage1 - 3 + 4 212, 340 @@ -2578,7 +2617,7 @@ XtraTabPage1 - 4 + 5 True @@ -2608,7 +2647,7 @@ XtraTabPage1 - 5 + 6 Top, Bottom, Left, Right @@ -3115,6 +3154,9 @@ der Datei Neu hinzufügen + + 17, 95 + Segoe UI, 9pt, style=Bold, Italic @@ -3277,7 +3319,7 @@ der Datei 0, 0 - 974, 25 + 957, 25 3 @@ -3322,7 +3364,7 @@ der Datei 28 - 974, 257 + 974, 218 manuelle Indexe @@ -3340,14 +3382,1870 @@ der Datei 0 - 980, 285 + 980, 246 86 + + 325, 134 + True + + VARIANTComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 1 + + + lblsavePostProcess + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 2 + + + ComboBox2 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 3 + + + Function2Label + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 4 + + + Function1Label + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 5 + + + Text3Label + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 6 + + + Text2Label + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 7 + + + Text1Label + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 8 + + + CHANGED_WHENTextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 10 + + + CHANGED_WHOTextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 12 + + + ADDED_WHENTextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 14 + + + ADDED_WHOTextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 16 + + + SEQUENCETextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 18 + + + TEXT3TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 19 + + + TEXT2TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 20 + + + TEXT1TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 21 + + + FUNCTION2TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 22 + + + FUNCTION1TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 23 + + + TYPEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 25 + + + COMMENTTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 27 + + + GUIDTextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 30 + + + TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage6 + + + 31 + + + 974, 257 + + + Nachbearbeitungsfunktionen manueller Index + + + XtraTabPage6 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl2 + + + 1 + + + 1248, 134 + + + Vertical + + + Vertical + + + True + + + btnAddWindowsVariable + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 0 + + + lblWindowParameter + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 1 + + + lbFileparameter + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 2 + + + ListBox6 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 3 + + + lblValue + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 4 + + + INDEXNAME_AutoIndexCMB + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 5 + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 6 + + + lblsaveAutoIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 7 + + + btnSQLViewAuto + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 8 + + + SQL_ACTIVECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 9 + + + GUIDAUTO_INDEXTextbox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 11 + + + VALUETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 13 + + + COMMENTTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 15 + + + ACTIVECheckBox1 + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 16 + + + ADDED_WHOTextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 18 + + + ADDED_WHENTextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 20 + + + CHANGED_WHOTextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 22 + + + CHANGED_WHENTextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 24 + + + BindingNavigator2 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 25 + + + INDEXNAME_AutoIndexTXT + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 26 + + + 974, 257 + + + automatische/feste Indexe + + + XtraTabPage4 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl2 + + + 2 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage9 + + + 0 + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage9 + + + 1 + + + Label8 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage9 + + + 2 + + + ListBoxDokartzuordnung + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage9 + + + 3 + + + 974, 257 + + + Zuordnung Dokumentenart-Gruppe + + + XtraTabPage9 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl2 + + + 3 + + + FOLDER_FOR_INDEXTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 0 + + + Label25 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 1 + + + btncrFolder_delete + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 2 + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 3 + + + Label17 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 4 + + + Segoe UI, 9pt, style=Bold + + + 3, 3 + + + 820, 228 + + + 81 + + + Create Folder for Index + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage10 + + + 0 + + + 974, 218 + + + Create Folder for Index + + + XtraTabPage10 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl2 + + + 4 + + + XtraTabControl2 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + + 7 + + + 1192, 17 + + + False + + + 707, 46 + + + 266, 21 + + + 85 + + + ComboBox1 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 8 + + + MiddleLeft + + + 172, 475 + + + 71, 23 + + + 84 + + + Add + + + MiddleRight + + + btnadd + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 9 + + + 1025, 56 + + + 3, 475 + + + 163, 21 + + + 82 + + + cmbWHModule + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 10 + + + True + + + 3, 457 + + + 110, 13 + + + 81 + + + Hinzufügen zu Modul: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 11 + + + True + + + 3, 315 + + + 132, 13 + + + 80 + + + Zugeordnet zu Modul(en): + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 12 + + + 494, 56 + + + 3, 340 + + + 203, 108 + + + 79 + + + ListBox2 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 13 + + + True + + + Segoe UI, 9.75pt, style=Bold + + + 932, 263 + + + 240, 17 + + + 78 + + + Dokumentart erfolgreich gespeichert! + + + False + + + lblSaveDokart + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 14 + + + False + + + 936, 217 + + + 38, 23 + + + 29 + + + btnNamenkonvention + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 15 + + + False + + + 861, 134 + + + 31, 23 + + + 28 + + + ... + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 16 + + + False + + + Segoe UI, 9.75pt + + + 266, 216 + + + 586, 25 + + + 27 + + + NAMENKONVENTIONTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 17 + + + 921, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + True + + + 23, 22 + + + Neu hinzufügen + + + 130, 22 + + + von {0} Dokumentarten + + + Die Gesamtanzahl der Elemente. + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Erste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + True + + + 23, 22 + + + Vorherige verschieben + + + 6, 25 + + + Position + + + False + + + 50, 23 + + + 0 + + + Aktuelle Position + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Nächste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 23, 22 + + + Letzte verschieben + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 23, 22 + + + Daten speichern + + + Global-Indexer Dokarten + + + Alle Dokarten + + + 150, 25 + + + Magenta + + + 95, 22 + + + Aktualisieren + + + Magenta + + + 74, 22 + + + Kopieren + + + 0, 0 + + + 1255, 25 + + + 2 + + + BindingNavigator1 + + + TBDD_DOKUMENTARTBindingNavigator + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 18 + + + Segoe UI, 9pt, style=Italic + + + 266, 46 + + + 51, 23 + + + 1 + + + DOKART_GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 20 + + + False + + + 414, 47 + + + 287, 21 + + + 3 + + + BEZEICHNUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 22 + + + False + + + 979, 46 + + + 94, 21 + + + 7 + + + KURZNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 25 + + + False + + + 266, 136 + + + 585, 21 + + + 9 + + + ZIEL_PFADTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 27 + + + False + + + 266, 176 + + + 586, 21 + + + 11 + + + BESCHREIBUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 29 + + + False + + + 333, 45 + + + 63, 24 + + + 13 + + + Aktiv + + + AKTIVCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 30 + + + Segoe UI, 9pt, style=Italic + + + 268, 262 + + + 156, 23 + + + 17 + + + ERSTELLTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 33 + + + Segoe UI, 9pt, style=Italic + + + 430, 262 + + + 156, 23 + + + 19 + + + ERSTELLTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 35 + + + Segoe UI, 9pt, style=Italic + + + 592, 262 + + + 164, 23 + + + 21 + + + GEANDERTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 37 + + + Segoe UI, 9pt, style=Italic + + + 762, 262 + + + 164, 23 + + + 23 + + + GEAENDERTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 39 + + + False + + + 414, 94 + + + 438, 21 + + + 25 + + + OBJEKTTYPComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 40 + + + 3, 4, 3, 4 + + + 1255, 564 + + + Dokumentarten + + + XtraTabPage1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 0 + + + 1261, 592 + + + 1 + + + 481, 95 + + + True + + + GridControl2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage2 + + + 0 + + + SHORTNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 2 + + + LANGUAGEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 4 + + + lblsaveUSer + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 5 + + + XtraTabControl3 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage2 + + + 6 + + + USER_GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 8 + + + PRENAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 10 + + + NAMETextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 12 + + + USERNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 14 + + + EMAILTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 16 + + + LOGGED_INCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 17 + + + LOGGED_WHERETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 19 + + + LOG_IN_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 21 + + + LOG_OUT_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 23 + + + GI_ADMINCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 24 + + + ADDED_WHOTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 26 + + + ADDED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 28 + + + CHANGED_WHOTextBoxUser + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 30 + + + CHANGED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 32 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 33 + + + 3, 4, 3, 4 + + + 1255, 564 + + + User-/Gruppenverwaltung + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 1 + + + Button4 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage5 + + + 0 + + + Button3 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage5 + + + 1 + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage5 + + + 2 + + + 1255, 603 + + + Andere Einstellungen + + + XtraTabPage5 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + + + 134, 17 + 511, 173 @@ -3381,6 +5279,9 @@ der Datei 1 + + 511, 173 + True @@ -3441,6 +5342,9 @@ der Datei 3 + + 1187, 173 + True @@ -4103,33 +6007,6 @@ der Datei 31 - - 974, 257 - - - Nachbearbeitungsfunktionen manueller Index - - - XtraTabPage6 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 1 - - - Vertical - - - Vertical - - - True - 591, 78 @@ -4253,6 +6130,9 @@ der Datei 3 + + 17, 173 + True @@ -4844,24 +6724,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 26 - - 974, 257 - - - automatische/feste Indexe - - - XtraTabPage4 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 2 - Segoe UI, 9pt @@ -4895,6 +6757,81 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 0 + + lblnewDokartZuordnung + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 0 + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 1 + + + cmbGroup2Dokart + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 2 + + + btnAddDokartGroupRelation + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 3 + + + Segoe UI, 9pt + + + 275, 28 + + + 235, 118 + + + 14 + + + Neue Gruppenzuordnung: + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage9 + + + 1 + True @@ -4982,6 +6919,9 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 2 + + 266, 212 + Segoe UI, 9pt @@ -5015,33 +6955,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 3 - - Segoe UI, 9pt - - - 275, 28 - - - 235, 118 - - - 14 - - - Neue Gruppenzuordnung: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage9 - - - 1 - True @@ -5093,24 +7006,9 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 3 - - 974, 257 - - - Zuordnung Dokumentenart-Gruppe - - - XtraTabPage9 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 3 - + + 506, 251 + Segoe UI, 9.75pt @@ -5186,6 +7084,114 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 2 + + cmbCrFolderDate + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 0 + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 1 + + + btnaddcrFolderParameter + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 2 + + + txtcrFoldermanuell + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 3 + + + Label19 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 4 + + + Label18 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 5 + + + cmbCrFolderIndex + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 6 + + + 12, 92 + + + 530, 130 + + + 8 + + + Neuer Unterordner: + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 3 + Segoe UI, 9pt @@ -5393,30 +7399,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6 - - 12, 92 - - - 530, 130 - - - 8 - - - Neuer Unterordner: - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 3 - True @@ -5444,872 +7426,15 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 4 - - Segoe UI, 9pt, style=Bold - - - 3, 3 - - - 820, 228 - - - 81 - - - Create Folder for Index - - - GroupBox4 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage10 - - - 0 - - - 974, 257 - - - Create Folder for Index - - - XtraTabPage10 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 4 - - - XtraTabControl2 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPage1 - - - 6 - 1192, 17 - - False - - - 707, 46 - - - 266, 21 - - - 85 - - - ComboBox1 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 7 - - - MiddleLeft - - - 172, 475 - - - 71, 23 - - - 84 - - - Add - - - MiddleRight - - - btnadd - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 8 - 1025, 56 - - 3, 475 - - - 163, 21 - - - 82 - - - cmbWHModule - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 9 - - - True - - - 3, 457 - - - 110, 13 - - - 81 - - - Hinzufügen zu Modul: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 10 - - - True - - - 3, 315 - - - 132, 13 - - - 80 - - - Zugeordnet zu Modul(en): - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 11 - 494, 56 - - 3, 340 - - - 203, 108 - - - 79 - - - ListBox2 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 12 - - - True - - - Segoe UI, 9.75pt, style=Bold - - - 932, 263 - - - 240, 17 - - - 78 - - - Dokumentart erfolgreich gespeichert! - - - False - - - lblSaveDokart - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 13 - - - False - - - 936, 217 - - - 38, 23 - - - 29 - - - btnNamenkonvention - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 14 - - - False - - - 861, 134 - - - 31, 23 - - - 28 - - - ... - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 15 - - - False - - - Segoe UI, 9.75pt - - - 266, 216 - - - 586, 25 - - - 27 - - - NAMENKONVENTIONTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 16 - - - 3, 28 - - - 240, 251 - - - 26 - - - ListBoxDokart - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 17 - - - 921, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 130, 22 - - - von {0} Dokumentarten - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - Global-Indexer Dokarten - - - Alle Dokarten - - - 150, 25 - - - Magenta - - - 95, 22 - - - Aktualisieren - - - Magenta - - - 74, 22 - - - Kopieren - - - 0, 0 - - - 1255, 25 - - - 2 - - - BindingNavigator1 - - - TBDD_DOKUMENTARTBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 18 - - - Segoe UI, 9pt, style=Italic - - - 266, 46 - - - 51, 23 - - - 1 - - - DOKART_GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 20 - - - False - - - 414, 47 - - - 287, 21 - - - 3 - - - BEZEICHNUNGTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 22 - - - False - - - 979, 46 - - - 94, 21 - - - 7 - - - KURZNAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 25 - - - False - - - 266, 136 - - - 585, 21 - - - 9 - - - ZIEL_PFADTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 27 - - - False - - - 266, 176 - - - 586, 21 - - - 11 - - - BESCHREIBUNGTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 29 - - - False - - - 333, 45 - - - 63, 24 - - - 13 - - - Aktiv - - - AKTIVCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 30 - - - Segoe UI, 9pt, style=Italic - - - 268, 262 - - - 156, 23 - - - 17 - - - ERSTELLTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 33 - - - Segoe UI, 9pt, style=Italic - - - 430, 262 - - - 156, 23 - - - 19 - - - ERSTELLTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 35 - - - Segoe UI, 9pt, style=Italic - - - 592, 262 - - - 164, 23 - - - 21 - - - GEANDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 37 - - - Segoe UI, 9pt, style=Italic - - - 762, 262 - - - 164, 23 - - - 23 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 39 - - - False - - - 414, 94 - - - 438, 21 - - - 25 - - - OBJEKTTYPComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 40 - - - 3, 4, 3, 4 - - - 1255, 603 - - - Dokumentarten - - - XtraTabPage1 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 0 - - - 1261, 631 - - - 1 - - - True - - - 635, 95 - 562, 93 @@ -6329,8 +7454,11 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 1 + 2 + + 635, 95 + de-DE @@ -6356,7 +7484,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 3 + 4 True @@ -6389,7 +7517,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 4 + 5 Top, Bottom, Left, Right @@ -6404,7 +7532,220 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei Tahoma, 8.25pt, style=Bold - 14, 289 + 14, 282 + + + btnDeleteGroupRelation + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage7 + + + 0 + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage7 + + + 1 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage7 + + + 2 + + + ListBoxUserzuordnung + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage7 + + + 3 + + + 1039, 268 + + + Gruppenzuordnung User + + + XtraTabPage7 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl3 + + + 0 + + + 1045, 280 + + + 32 + + + 682, 134 + + + ListBox4 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 0 + + + lblsaveTBDD_USER_GROUPS + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 1 + + + GUIDTextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 3 + + + NAMETextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 5 + + + ADDED_WHOTextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 7 + + + ADDED_WHENTextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 9 + + + CHANGED_WHOTextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 11 + + + CHANGED_WHENTextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 13 + + + TBDD_USER_GROUPSBindingNavigator + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage8 + + + 14 + + + 1039, 252 + + + Gruppenverwaltung + + + XtraTabPage8 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl3 + + + 1 + + + XtraTabControl3 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage2 + + + 6 Segoe UI, 9pt @@ -6439,6 +7780,81 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 0 + + lblnewUserZuordnung + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + cmbGroup2User + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + btnAddGroupRelation + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + Segoe UI, 9pt + + + 284, 33 + + + 230, 118 + + + 10 + + + Neue Gruppenzuordnung: + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage7 + + + 1 + True @@ -6556,33 +7972,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 3 - - Segoe UI, 9pt - - - 284, 33 - - - 230, 118 - - - 10 - - - Neue Gruppenzuordnung: - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage7 - - - 1 - True @@ -6634,30 +8023,9 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 3 - - 1039, 284 - - - Gruppenzuordnung User - - - XtraTabPage7 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl3 - - - 0 - - - 1045, 312 - - - 32 - + + 755, 212 + 8, 32 @@ -7068,60 +8436,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 14 - - 1039, 284 - - - Gruppenverwaltung - - - XtraTabPage8 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl3 - - - 1 - - - XtraTabControl3 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPage2 - - - 5 - - - Top, Bottom, Left - - - 778, 51 - - - 281, 147 - - - 31 - - - ListBox3 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 6 - Segoe UI, 8.25pt, style=Italic @@ -7706,27 +9020,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 33 - - 3, 4, 3, 4 - - - 1255, 603 - - - User-/Gruppenverwaltung - - - XtraTabPage2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 1 - MiddleLeft @@ -7787,6 +9080,285 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 1 + + pnlObjekttype_Config + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + lblsavezuordnungIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + btnidxemail_delete + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + btnidxemail_Save + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 4 + + + btnidxemail_add + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 5 + + + ListBoxObjekttypen + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 6 + + + Segoe UI, 9.75pt, style=Italic + + + 3, 3 + + + 1056, 356 + + + 0 + + + Indexzuordnung für die Email-Indexierung: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage5 + + + 2 + + + IDX_CHECK_ATTACHMENTComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 1 + + + CHANGED_WHENTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 2 + + + CHANGED_WHOTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 5 + + + ADDED_WHENTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 7 + + + ADDED_WHOTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 9 + + + GUIDTextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 11 + + + IDX_EMAIL_DATE_INComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 12 + + + OBJECTTYPETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 15 + + + IDX_EMAIL_SUBJECTComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 16 + + + IDX_EMAIL_IDComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 19 + + + IDX_EMAIL_TOComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 20 + + + IDX_EMAIL_FROMComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlObjekttype_Config + + + 23 + + + False + + + 219, 44 + + + 573, 300 + + + 82 + + + pnlObjekttype_Config + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + 17, 134 @@ -7814,6 +9386,9 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 1 + + 17, 134 + Segoe UI, 9.75pt, style=Italic @@ -8081,30 +9656,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 23 - - False - - - 219, 44 - - - 573, 300 - - - 82 - - - pnlObjekttype_Config - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - True @@ -8291,63 +9842,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6 - - Segoe UI, 9.75pt, style=Italic - - - 3, 3 - - - 1056, 356 - - - 0 - - - Indexzuordnung für die Email-Indexierung: - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 2 - - - 1255, 603 - - - Andere Einstellungen - - - XtraTabPage5 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 2 - - - XtraTabControl1 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 0 - 1019, 95 @@ -8402,6 +9896,72 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 770, 251 + + Top, Left, Right + + + 778, 35 + + + Cyan + + + Fuchsia + + + Username + + + True + + + 0 + + + 106 + + + Name + + + True + + + 1 + + + 100 + + + EMail + + + True + + + 2 + + + 105 + + + 333, 241 + + + 87 + + + GridControl2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage2 + + + 0 + True @@ -8412,7 +9972,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 7, 17 - 1261, 653 + 1261, 614 Segoe UI, 9.75pt @@ -9143,6 +10703,42 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + GridView1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colBEZEICHNUNG + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridView2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colUSERNAME + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colNAME + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colEMAIL + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmAdministration diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index 82f142d..1a2a956 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -56,7 +56,7 @@ Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName) Next Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen") End Try End Sub @@ -175,6 +175,7 @@ lblSaveDokart.Visible = False If DOKART_GUIDTextBox.Text <> String.Empty Then CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text + Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) End If End Sub @@ -258,17 +259,6 @@ MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ") End Try End Sub - Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxDokart.SelectedIndexChanged - If ListBoxDokart.SelectedIndex <> -1 Then - If Not ListBoxDokart.SelectedValue Is Nothing Then - Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue) - Load_TabData() - End If - End If - - - End Sub - Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown If DOKART_GUIDTextBox.Text <> "" Then Load_Dokart("Global-Indexer Dokarten") @@ -782,7 +772,7 @@ Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged Select Case XtraTabControl3.SelectedTabPageIndex Case 0 - Load_UserRelation(ListBox3.SelectedValue) + Load_UserRelation(USER_GUIDTextBox.Text) Case 1 Load_UserGroups() End Select @@ -823,6 +813,8 @@ Private Sub TBDD_USERBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.CurrentChanged If USER_GUIDTextBox.Text <> "" Then + 'Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue) + Load_TabData() Load_UserRelation(USER_GUIDTextBox.Text) End If diff --git a/Global_Indexer/frmConfig_Basic.resx b/Global_Indexer/frmConfig_Basic.resx index f7cf3bd..7959145 100644 --- a/Global_Indexer/frmConfig_Basic.resx +++ b/Global_Indexer/frmConfig_Basic.resx @@ -529,7 +529,7 @@ True - 197, 221 + 10, 243 147, 13 diff --git a/Global_Indexer/frmConfig_Basic.vb b/Global_Indexer/frmConfig_Basic.vb index 72d484a..cd36ed9 100644 --- a/Global_Indexer/frmConfig_Basic.vb +++ b/Global_Indexer/frmConfig_Basic.vb @@ -44,7 +44,7 @@ Public Class frmConfig_Basic If USER_LANGUAGE = "de-DE" Then result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Else - result = MessageBox.Show("Connection was created successfull!" & vbNewLine & "Do You wnat to save this connection now in the application?", "Success:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + result = MessageBox.Show("Connection was created successfully!" & vbNewLine & "Do You want to save this connection now in the application?", "Success:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) End If If result = MsgBoxResult.Yes Then @@ -155,12 +155,22 @@ Public Class frmConfig_Basic Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex Case 1 + If ERROR_STATE = "NO DB-CONNECTION" Then + MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation) + Me.TabControl1.SelectedIndex = 0 + Exit Sub + End If If USER_LANGUAGE = "de-DE" Then cmbLanguage.SelectedIndex = 0 Else cmbLanguage.SelectedIndex = 1 End If Case 2 + If ERROR_STATE = "NO DB-CONNECTION" Then + MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation) + Me.TabControl1.SelectedIndex = 0 + Exit Sub + End If reload = True Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString) If Not folderwatch Is Nothing Then @@ -240,10 +250,10 @@ Public Class frmConfig_Basic System.IO.Directory.CreateDirectory(mypath) End If Catch ex As Exception - ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False) + ClassLogger.Add(" >> Unexpected error inm Erstellen des Folderwatchordners: " & mypath, False) ClassLogger.Add(" >> " & ex.Message, False) If USER_LANGUAGE = "de-DE" Then - MsgBox("Fehler beim Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected error inm Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Else MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End If @@ -352,33 +362,45 @@ Public Class frmConfig_Basic End Sub Sub Load_Basics() - If Not MyConnectionString = String.Empty Then - Dim csb As New SqlClient.SqlConnectionStringBuilder - csb.ConnectionString = MyConnectionString + Try + If Not MyConnectionString = String.Empty Then + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = MyConnectionString + Dim constr = MyConnectionString + Try + If Not constr.Contains("Trusted_Connection") Then + Try + constr = constr.Replace(csb.Password, "XXXXX") + Catch ex As Exception + chkbxUserAut.Checked = False + End Try + Else + chkbxUserAut.Checked = True + End If + Catch ex As Exception + End Try + - Dim constr = MyConnectionString - If Not constr.Contains("Trusted_Connection") Then - constr = constr.Replace(csb.Password, "XXXXX") - Else - chkbxUserAut.Checked = True + Me.txtActualConnection.Text = constr End If + Me.txtuniversalViewer.Text = UniversalViewer_Path + chkLogErrorsOnly.Checked = LogErrorsOnly + txtuniversalViewer.Enabled = True + btnaddUniversalViewer.Enabled = True - Me.txtActualConnection.Text = constr - End If - Me.txtuniversalViewer.Text = UniversalViewer_Path - chkLogErrorsOnly.Checked = LogErrorsOnly - txtuniversalViewer.Enabled = True - btnaddUniversalViewer.Enabled = True - - If ERROR_STATE = "FAILED DBCONNECTION" Then - Me.TabControl1.SelectedIndex = 0 - ElseIf ERROR_STATE = "NO DB-CONNECTION" Then - Me.TabControl1.SelectedIndex = 0 - txtuniversalViewer.Enabled = False - btnaddUniversalViewer.Enabled = False - ElseIf ERROR_STATE = "NO UV" Then - Me.TabControl1.SelectedIndex = 1 - End If + If ERROR_STATE = "FAILED DBCONNECTION" Then + Me.TabControl1.SelectedIndex = 0 + ElseIf ERROR_STATE = "NO DB-CONNECTION" Then + Me.TabControl1.SelectedIndex = 0 + txtuniversalViewer.Enabled = False + btnaddUniversalViewer.Enabled = False + ElseIf ERROR_STATE = "NO UV" Then + Me.TabControl1.SelectedIndex = 1 + End If + Catch ex As Exception + MsgBox("Unexpected Error in Load_Basics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click Process.Start(ClassLogger.DateiSpeicherort) @@ -456,7 +478,6 @@ Public Class frmConfig_Basic USER_LANGUAGE = lang If ClassDatabase.Execute_non_Query(update, True) = True Then - SetLanguage() If USER_LANGUAGE = "de-DE" Then MsgBox("Die Sprache wurde erfolgreich geändert!", MsgBoxStyle.Information) Else diff --git a/Global_Indexer/frmConnections.vb b/Global_Indexer/frmConnections.vb index 0ca129b..995c9f2 100644 --- a/Global_Indexer/frmConnections.vb +++ b/Global_Indexer/frmConnections.vb @@ -151,7 +151,7 @@ Public Class frmConnections My.Settings.Save() Catch ex As Exception - MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") + MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Unexpected error in Verbindungsaufbau Oracle:") End Try Case Else @@ -163,7 +163,7 @@ Public Class frmConnections Catch ex As Exception Dim template As String = ex.Message Clipboard.SetDataObject(template) - MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical) + MsgBox("Unexpected error inm Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical) End Try Cursor = Cursors.Default End Sub @@ -214,7 +214,7 @@ Public Class frmConnections Dim template As String = ex.Message Clipboard.SetDataObject(template) - MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + MsgBox("Unexpected error inm Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub diff --git a/Global_Indexer/frmHotKey_Add.vb b/Global_Indexer/frmHotKey_Add.vb index 00ee3f8..8c824e0 100644 --- a/Global_Indexer/frmHotKey_Add.vb +++ b/Global_Indexer/frmHotKey_Add.vb @@ -12,7 +12,7 @@ Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName) Next Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen") End Try End Sub @@ -56,14 +56,14 @@ chklbUser.Items.Add(row.Item("USERNAME")) Next Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Users:") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Users:") End Try End Sub Sub Load_Profiles() Try Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE) Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Profiles:") + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profiles:") End Try End Sub Sub List_FormTitles(Tabindex As Integer) @@ -442,7 +442,7 @@ SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) If IsNothing(userid) Then - MsgBox("Unerwarteter Fehler beim Holen der User-ID!", MsgBoxStyle.Exclamation) + MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation) Exit Sub End If SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index fc6ec96..8d73747 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -266,8 +266,8 @@ Public Class frmIndex End If Next Catch ex As Exception - MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_checkValue:") - ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message) + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_checkValue:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message) Return False End Try End Function @@ -298,8 +298,8 @@ Public Class frmIndex ' End If ' Catch ex As Exception - ' MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") - ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) + ' MsgBox("Unvorhergesehener Unexpected error in Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen sql:") + ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) ' ClassLogger.Add(" - SQL: " & vsql_statement, False) ' ClassLogger.Add(" - Connection: " & vconnectionString, False) ' Return 99 @@ -330,8 +330,8 @@ Public Class frmIndex ' cmd.Dispose() ' cnn.Close() ' Catch ex As Exception - ' MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") - ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) + ' MsgBox("Unvorhergesehener Unexpected error in Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen sql:") + ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) ' ClassLogger.Add(" - SQL: " & vsql_statement, False) ' ClassLogger.Add(" - Connection: " & vconnectionString, False) ' Return 99 @@ -363,7 +363,7 @@ Public Class frmIndex 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!") End If - Return "" + Return Nothing End If End If Case Else @@ -376,20 +376,20 @@ Public Class frmIndex 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!") End If - Return "" + Return Nothing End If End Select Else showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") - Return "" + Return Nothing End If Exit For End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei GetManIndex_Value - Fehler: " & vbNewLine & ex.Message) - MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetManIndex_Value:") - Return "" + ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message) + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetManIndex_Value:") + Return Nothing End Try End Function Function GetAutoIndex_Value(indexname As String) @@ -414,8 +414,8 @@ Public Class frmIndex End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) - MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetAutoIndex_Value:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetAutoIndex_Value:") Return "" End Try End Function @@ -446,8 +446,8 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Fehler bei Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_AutomatischerIndex_SQL:") + ClassLogger.Add(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_AutomatischerIndex_SQL:") Return "" End Try End Function @@ -519,7 +519,7 @@ Public Class frmIndex g.Dispose() End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:") End Try Next @@ -561,8 +561,8 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:") End Try End Sub Private Sub AddAutoSuggest_Textbox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Optional Vorgabe As String = "") @@ -657,8 +657,8 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei AddAutoSuggest_Textbox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddAutoSuggest_Textbox:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddAutoSuggest_Textbox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddAutoSuggest_Textbox:") End Try End Sub Private Sub Renew_ComboboxResults(INDEX_GUID As Integer, SearchString As String, Resultvalue As String) @@ -725,7 +725,7 @@ Public Class frmIndex g.Dispose() End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:") End Try Next @@ -761,8 +761,8 @@ Public Class frmIndex Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei Renew_ComboboxResults:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:") End Try End Sub '#End Region @@ -836,7 +836,7 @@ Public Class frmIndex Catch ex As Exception ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler bei CheckWrite_IndexeMan:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:") Return False End Try @@ -880,8 +880,8 @@ Public Class frmIndex End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_Postprocessing:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:") End Try End Sub ' 'Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable) @@ -905,8 +905,8 @@ Public Class frmIndex ' ' Next ' ' Return result ' ' Catch ex As Exception - ' ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) - ' ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_Nachbearbeitung_Wert:") + ' ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + ' ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:") ' ' Return result ' ' End Try @@ -935,7 +935,7 @@ Public Class frmIndex CURR_DOKART_OBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP") CURR_WORKFILE_EXTENSION = extension Zielordner = DT.Rows(0).Item("ZIEL_PFAD") - + '#### ' Regulären Ausdruck zum Auslesen der Indexe definieren Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -1054,13 +1054,13 @@ Public Class frmIndex Loop End If Catch ex As Exception - ClassLogger.Add(" - Fehler bei Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Umbenennnen der Datei:") + ClassLogger.Add(" - Unexpected error in Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Umbenennnen der Datei:") err = True End Try Case Else ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) - MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:") + 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 Next CURRENT_NEWFILENAME = NewFileString & extension @@ -1075,7 +1075,7 @@ Public Class frmIndex ClassLogger.Add("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", True) MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical) End Try - + End If folder_Created = True End If @@ -1087,9 +1087,9 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message) File.Delete(CURRENT_WORKFILE) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Unexpected error in Name_Generieren:") Return False End Try @@ -1100,7 +1100,7 @@ Public Class frmIndex 'Manuelle Indexe Indexieren Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN If DTMan.Rows.Count > 0 Then - + Dim Count As Integer = 0 For Each row As DataRow In DTMan.Rows Dim idxvalue = row.Item("Indexwert") @@ -1184,7 +1184,7 @@ Public Class frmIndex Catch ex As Exception - ClassLogger.Add("Unvorhergesehener Fehler bei Write_Indizes - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add("Unvorhergesehener Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message) MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return False End Try @@ -1261,14 +1261,27 @@ Public Class frmIndex Dim emailTo As String ' Email Absender und Empfänger If headers Is Nothing Then - emailFrom = msg.DisplayTo.Replace("'", "") - emailTo = msg.InternetAccountName.Replace("'", "") + If msg.DisplayTo Is Nothing Then + ClassLogger.Add(" >> DisplayTo in email is nothing - default will be set", False) + emailTo = "NO RECIPIENT" + Else + emailTo = msg.DisplayTo.Replace("'", "") + End If + If msg.InternetAccountName Is Nothing Then + ClassLogger.Add(" >> InternetAccountName in email is nothing - default will be set", False) + emailFrom = "" + Else + emailFrom = msg.InternetAccountName.Replace("'", "") + End If Else emailFrom = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList) emailTo = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList) End If - + If IsNothing(emailFrom) Or IsNothing(emailTo) Then + 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) + Return False + End If If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False) 'FROM @@ -1289,9 +1302,16 @@ Public Class frmIndex End If ' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject) - If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & msg.Subject, False) - indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject) - CURRENT_MESSAGESUBJECT = msg.Subject + Dim subj As String = msg.Subject + If IsNothing(subj) Or subj = "" Then + ClassLogger.Add(" >> msg subject is empty...DEFAULT will be set", False) + subj = "No subject" + MsgBox("Attention: Email was send without a subject - Default value 'No subject' will be used!", MsgBoxStyle.Exclamation) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & subj, False) + + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, subj) + CURRENT_MESSAGESUBJECT = subj If indexierung_erfolgreich = False Then MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical) Return False @@ -1416,8 +1436,8 @@ Public Class frmIndex End If Return False Catch ex As Exception - ClassLogger.Add(" - Fehler bei Move_Rename - Fehler: " & vbNewLine & ex.Message) - ClassLogger.Add(" - Fehler bei Move_Rename - Insert_String: " & Insert_String) + ClassLogger.Add(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String) Return True End Try @@ -1434,8 +1454,8 @@ Public Class frmIndex CloseUniversalViewer() My.Settings.Save() Catch ex As Exception - ClassLogger.Add(" - Fehler bei Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Schliessen des Formulares:") + ClassLogger.Add(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:") End Try End Sub @@ -1460,9 +1480,9 @@ Public Class frmIndex File.Delete(CURRENT_HTML_DOC) End If Catch ex As Exception - ClassLogger.Add(" - Fehler bei Delete HTML-Doc - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Unexpected error in Delete HTML-Doc - Fehler: " & vbNewLine & ex.Message) End Try - + End If 'If Not IsNothing(DocView) And viewer_string <> "" Then @@ -1517,8 +1537,8 @@ Public Class frmIndex chkMultiIndexer.Visible = False End If Catch ex As Exception - ClassLogger.Add(" - Fehler bei Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Öffnen des Formulares:") + ClassLogger.Add(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:") End Try End Sub Sub Load_String() @@ -1531,8 +1551,8 @@ Public Class frmIndex 'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString 'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString Catch ex As Exception - ClassLogger.Add(" - Fehler beim Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) - MsgBox("Fehler beim Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + ClassLogger.Add(" - Unexpected error inm Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) + MsgBox("Unexpected error inm Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub @@ -1559,7 +1579,9 @@ Public Class frmIndex End Sub Sub Refresh_Dokart() Try - DT_DOKART = ClassDatabase.Return_Datatable("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('" & Environment.UserName & "') ORDER BY SEQUENCE") + Dim sql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName) + If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL DoctypeList: " & sql) + DT_DOKART = ClassDatabase.Return_Datatable(sql) cmbDokumentart.DataSource = DT_DOKART cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName cmbDokumentart.DisplayMember = DT_DOKART.Columns("DOCTYPE").ColumnName @@ -1567,8 +1589,8 @@ Public Class frmIndex cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems Me.cmbDokumentart.SelectedIndex = -1 Catch ex As Exception - ClassLogger.Add(" - Fehler beim Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Dokumentarten:") + ClassLogger.Add(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:") End Try End Sub Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged @@ -1587,13 +1609,15 @@ Public Class frmIndex End Sub ' _ Private Sub Refresh_IndexeMan(dokartid As Integer) + Dim sql Try - DT_INDEXEMAN = ClassDatabase.Return_Datatable("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) pnlIndex.Visible = True LoadIndexe_Man() Catch ex As System.Exception - ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_IndexeMan:") + ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & Sql) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:") End Try End Sub ' _ @@ -1612,7 +1636,7 @@ Public Class frmIndex Return Nothing End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Check_HistoryValues:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Check_HistoryValues:") End Try End Function @@ -1680,8 +1704,8 @@ Public Class frmIndex Next SendKeys.Send("{TAB}") Catch ex As Exception - ClassLogger.Add(" - Fehler bei LoadIndexe_Man - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei LoadIndexe_Man:") + ClassLogger.Add(" - Unexpected error in LoadIndexe_Man - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in LoadIndexe_Man:") End Try End Sub @@ -1718,12 +1742,13 @@ Public Class frmIndex Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) 'den Platzhalter im SQL-String durch den Wert ersetzen - Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO") - If manIndexwert <> "" Then + Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO") + + If Not IsNothing(manIndexwert) Then SqlString = SqlString.Replace(element.Value, manIndexwert) If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False) Else - ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False) + ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False) Return False End If Next @@ -1786,8 +1811,8 @@ Public Class frmIndex Return True End If Catch ex As System.Exception - ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom") + ClassLogger.Add(" - Unexpected error in FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FillIndexe_Autom") Return False End Try @@ -1862,7 +1887,12 @@ Public Class frmIndex My.Computer.FileSystem.DeleteFile(tempFilename) End If - Me.txtBetreff.Text = msg_email.Subject + If msg_email.Subject = "" Then + Me.txtBetreff.Text = "!! No subject in email !!" + Else + Me.txtBetreff.Text = msg_email.Subject + End If + 'Try Dim wFile As System.IO.FileStream Dim byteData() As Byte @@ -1959,7 +1989,7 @@ Public Class frmIndex If DropType = "@DROPFROMFSYSTEM@" Then If chkdelete_origin.Checked = True Then 'Die temporäre Datei löschen - DeleteFile + DeleteFile() End If ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then 'Die temporäre Datei löschen @@ -1986,7 +2016,7 @@ Public Class frmIndex End If Else - MsgBox("Unerwarteter Fehler bei Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical) + MsgBox("Unerwarteter Unexpected error in Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical) Return False End If Else @@ -2127,8 +2157,8 @@ Public Class frmIndex Catch ex As Exception MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message) - ClassLogger.Add(" - Fehler bei Insert-History - SQL: " & Insert_String) + ClassLogger.Add(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Unexpected error in Insert-History - SQL: " & Insert_String) err = True End Try Else @@ -2252,7 +2282,7 @@ Public Class frmIndex If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPatter nach V-Element: '" & folderindex & "'", False) Case Else ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) - MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:") + 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 Next @@ -2281,7 +2311,7 @@ Public Class frmIndex MsgBox("Attention: Root Folder '" & fullpath & "' could not be created." & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return False End Try - + End If 'Die aktuelle Datei soll gleichzeitig verschoben werden diff --git a/Global_Indexer/frmIndexFileList.Designer.vb b/Global_Indexer/frmIndexFileList.Designer.vb index d327767..d77ea78 100644 --- a/Global_Indexer/frmIndexFileList.Designer.vb +++ b/Global_Indexer/frmIndexFileList.Designer.vb @@ -34,6 +34,7 @@ Partial Class frmIndexFileList Me.TBGI_FILES_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.Button2 = New System.Windows.Forms.Button() + Me.btnCancel = New System.Windows.Forms.Button() Me.Panel1.SuspendLayout() CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -63,12 +64,16 @@ Partial Class frmIndexFileList resources.ApplyResources(Me.CheckedListBoxControl1, "CheckedListBoxControl1") Me.CheckedListBoxControl1.Appearance.Font = CType(resources.GetObject("CheckedListBoxControl1.Appearance.Font"), System.Drawing.Font) Me.CheckedListBoxControl1.Appearance.Options.UseFont = True + Me.CheckedListBoxControl1.CheckOnClick = True Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1" + Me.CheckedListBoxControl1.SelectionMode = System.Windows.Forms.SelectionMode.None + Me.CheckedListBoxControl1.ShowFocusRect = False ' 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" + Me.Button1.TabStop = False Me.Button1.UseVisualStyleBackColor = True ' 'TBGI_FILES_USERBindingSource @@ -111,13 +116,23 @@ Partial Class frmIndexFileList ' resources.ApplyResources(Me.Button2, "Button2") Me.Button2.Name = "Button2" + Me.Button2.TabStop = False Me.Button2.UseVisualStyleBackColor = True ' + 'btnCancel + ' + Me.btnCancel.Image = Global.Global_Indexer.My.Resources.Resources.cancel + resources.ApplyResources(Me.btnCancel, "btnCancel") + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.TabStop = False + Me.btnCancel.UseVisualStyleBackColor = True + ' 'frmIndexFileList ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ControlBox = False + Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.CheckedListBoxControl1) @@ -145,4 +160,5 @@ Partial Class frmIndexFileList Friend WithEvents CheckedListBoxControl1 As DevExpress.XtraEditors.CheckedListBoxControl Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents btnCancel As System.Windows.Forms.Button End Class diff --git a/Global_Indexer/frmIndexFileList.resx b/Global_Indexer/frmIndexFileList.resx index eed216f..3131e64 100644 --- a/Global_Indexer/frmIndexFileList.resx +++ b/Global_Indexer/frmIndexFileList.resx @@ -170,7 +170,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde $this - 4 + 5 Bottom, Right @@ -206,7 +206,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde $this - 3 + 4 Top, Bottom, Left, Right @@ -221,7 +221,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde 630, 176 - 4 + 0 CheckedListBoxControl1 @@ -233,7 +233,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde $this - 2 + 3 6, 232 @@ -242,7 +242,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde 115, 23 - 5 + 1 Alle auswählen @@ -257,7 +257,7 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde $this - 1 + 2 134, 17 @@ -293,6 +293,36 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde $this + 1 + + + MiddleLeft + + + 399, 232 + + + 86, 36 + + + 7 + + + Abbruch + + + MiddleRight + + + btnCancel + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + 0 diff --git a/Global_Indexer/frmIndexFileList.vb b/Global_Indexer/frmIndexFileList.vb index e499ed1..fe6b99f 100644 --- a/Global_Indexer/frmIndexFileList.vb +++ b/Global_Indexer/frmIndexFileList.vb @@ -5,13 +5,12 @@ Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen. Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName) - - - If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then + If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName - End If + + End If Catch ex As Exception MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical) @@ -54,5 +53,11 @@ Private Sub frmIndexFileList_Shown(sender As Object, e As EventArgs) Handles Me.Shown Me.BringToFront() + CheckedListBoxControl1.Focus() + End Sub + + Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) + Me.Close() End Sub End Class \ No newline at end of file diff --git a/Global_Indexer/frmLicense.vb b/Global_Indexer/frmLicense.vb index 473cc90..0e37beb 100644 --- a/Global_Indexer/frmLicense.vb +++ b/Global_Indexer/frmLicense.vb @@ -32,7 +32,7 @@ Public Class frmLicense 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:") End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei New Licenses:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in New Licenses:") End Try End Sub Sub Refresh_Licence(Neu As Boolean) @@ -75,7 +75,7 @@ Public Class frmLicense End If End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Licensemanager:") End Try End Sub @@ -86,7 +86,7 @@ Public Class frmLicense Me.txtPW.Visible = True Me.btnPW_check.Visible = True Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Formular Load:") End Try End Sub End Class \ No newline at end of file diff --git a/Global_Indexer/frmNamenkonvention.vb b/Global_Indexer/frmNamenkonvention.vb index e9c44e5..6d7b526 100644 --- a/Global_Indexer/frmNamenkonvention.vb +++ b/Global_Indexer/frmNamenkonvention.vb @@ -39,7 +39,7 @@ Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, frmAdministration._aktDokart_Id) txtnamenKonv.Text = frmAdministration._Namenkonvention Catch ex As Exception - MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected error inm Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub diff --git a/Global_Indexer/frmSQLConfigAutoIndex.vb b/Global_Indexer/frmSQLConfigAutoIndex.vb index 688d58a..5f4092c 100644 --- a/Global_Indexer/frmSQLConfigAutoIndex.vb +++ b/Global_Indexer/frmSQLConfigAutoIndex.vb @@ -111,8 +111,8 @@ Public Class SQLConfigAutoIndex ' End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:") End Try End Sub diff --git a/Global_Indexer/frmSQLSuggestion.vb b/Global_Indexer/frmSQLSuggestion.vb index a307dc5..d17ca38 100644 --- a/Global_Indexer/frmSQLSuggestion.vb +++ b/Global_Indexer/frmSQLSuggestion.vb @@ -72,8 +72,8 @@ Public Class frmSQLSuggestion End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:") + ClassLogger.Add(" - Unvorhergesehener Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:") End Try End Sub @@ -92,7 +92,7 @@ Public Class frmSQLSuggestion End If lblSave.Visible = False Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Open Form:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:") End Try End Sub diff --git a/Global_Indexer/frmSQL_Admin.vb b/Global_Indexer/frmSQL_Admin.vb index 0679295..4833158 100644 --- a/Global_Indexer/frmSQL_Admin.vb +++ b/Global_Indexer/frmSQL_Admin.vb @@ -27,7 +27,7 @@ Public Class frmSQL_Admin MsgBox("Der SQL-Befehl wurde erfolgreich ausgeführt!", MsgBoxStyle.Information, "Erfolgsmeldung:") connection.Close() Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Datenbank-Connect:") End Try Cursor = Cursors.Default End If @@ -57,7 +57,7 @@ Public Class frmSQL_Admin End With Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei open-File:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in open-File:") End Try End Sub diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index 768c03f..fc41092 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -147,6 +147,17 @@ Public Class frmStart End Sub Private Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop + DragDropForm(e) + End Sub + Sub DragDropForm(e As DragEventArgs) + Dim frmCollection = System.Windows.Forms.Application.OpenForms + If frmCollection.OfType(Of frmIndexFileList).Any Then + MsgBox("Please index the active file/mail first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!") + ' TimerCheckDroppedFiles.Start() + Exit Sub + End If + 'Erstmal alles löschen + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") If ClassDragDrop.Drop_File(e) = True Then TimerCheckDroppedFiles.Start() End If @@ -696,9 +707,7 @@ Public Class frmStart Check_Dropped_Files() End Sub Private Sub LabelControl1_DragDrop(sender As Object, e As DragEventArgs) Handles LabelControl1.DragDrop, btnChoosefiles.DragDrop - If ClassDragDrop.Drop_File(e) = True Then - TimerCheckDroppedFiles.Start() - End If + DragDropForm(e) End Sub Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter, btnChoosefiles.DragEnter diff --git a/Global_Indexer/frmUserKonfig_AddUsers.designer.vb b/Global_Indexer/frmUserKonfig_AddUsers.designer.vb index e42def3..4ac2089 100644 --- a/Global_Indexer/frmUserKonfig_AddUsers.designer.vb +++ b/Global_Indexer/frmUserKonfig_AddUsers.designer.vb @@ -28,7 +28,6 @@ Partial Class frmUserKonfig_AddUsers Me.lbGroups = New System.Windows.Forms.ListBox() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() - Me.clbUsers = New System.Windows.Forms.CheckedListBox() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() @@ -36,12 +35,25 @@ Partial Class frmUserKonfig_AddUsers Me.btnCancel = New System.Windows.Forms.Button() Me.btnAddUsers = New System.Windows.Forms.Button() 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() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.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.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainer1 @@ -56,7 +68,8 @@ Partial Class frmUserKonfig_AddUsers ' 'SplitContainer1.Panel2 ' - Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers) + resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2") + Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUsers) Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel) Me.SplitContainer1.Panel2.Controls.Add(Me.btnAddUsers) @@ -79,12 +92,6 @@ Partial Class frmUserKonfig_AddUsers resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") Me.ToolStripLabel1.Name = "ToolStripLabel1" ' - 'clbUsers - ' - resources.ApplyResources(Me.clbUsers, "clbUsers") - Me.clbUsers.FormattingEnabled = True - Me.clbUsers.Name = "clbUsers" - ' 'ToolStrip2 ' Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden @@ -122,6 +129,77 @@ Partial Class frmUserKonfig_AddUsers 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 + ' + resources.ApplyResources(Me.GridControlUsers, "GridControlUsers") + Me.GridControlUsers.DataSource = Me.TBAD_UsersBindingSource + Me.GridControlUsers.MainView = Me.GridViewUsers + Me.GridControlUsers.Name = "GridControlUsers" + Me.GridControlUsers.ShowOnlyPredefinedDetails = True + Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers}) + ' + 'GridViewUsers + ' + Me.GridViewUsers.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewUsers.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUsers.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewUsers.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colUsername, Me.colPrename, Me.colSurname, Me.colEmail}) + Me.GridViewUsers.GridControl = Me.GridControlUsers + Me.GridViewUsers.Name = "GridViewUsers" + Me.GridViewUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsers.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUsers.OptionsView.ColumnAutoWidth = False + Me.GridViewUsers.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUsers.OptionsView.ShowAutoFilterRow = True + Me.GridViewUsers.OptionsView.ShowGroupPanel = False + ' + 'colSelect + ' + resources.ApplyResources(Me.colSelect, "colSelect") + Me.colSelect.FieldName = "Select" + Me.colSelect.Name = "colSelect" + ' + 'colUsername + ' + Me.colUsername.FieldName = "Username" + Me.colUsername.Name = "colUsername" + Me.colUsername.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.colUsername, "colUsername") + ' + 'colPrename + ' + Me.colPrename.FieldName = "Prename" + Me.colPrename.Name = "colPrename" + Me.colPrename.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.colPrename, "colPrename") + ' + 'colSurname + ' + Me.colSurname.FieldName = "Surname" + Me.colSurname.Name = "colSurname" + Me.colSurname.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.colSurname, "colSurname") + ' + 'colEmail + ' + Me.colEmail.FieldName = "Email" + Me.colEmail.Name = "colEmail" + Me.colEmail.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.colEmail, "colEmail") + ' 'frmUserKonfig_AddUsers ' resources.ApplyResources(Me, "$this") @@ -138,6 +216,10 @@ Partial Class frmUserKonfig_AddUsers Me.ToolStrip1.PerformLayout() Me.ToolStrip2.ResumeLayout(False) 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) End Sub @@ -150,7 +232,15 @@ Partial Class frmUserKonfig_AddUsers Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip Friend WithEvents tbSelectEverything As System.Windows.Forms.ToolStripButton Friend WithEvents tbSelectNone As System.Windows.Forms.ToolStripButton - Friend WithEvents clbUsers As System.Windows.Forms.CheckedListBox Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController + Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPrename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEmail As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/Global_Indexer/frmUserKonfig_AddUsers.resx b/Global_Indexer/frmUserKonfig_AddUsers.resx index 3f331e8..aa5cd6e 100644 --- a/Global_Indexer/frmUserKonfig_AddUsers.resx +++ b/Global_Indexer/frmUserKonfig_AddUsers.resx @@ -198,28 +198,76 @@ 0 - - Top + + True - - 0, 25 + + Top, Bottom, Left, Right - - 408, 378 + + 494, 17 + + + 384, 17 + + + 3, 25 - - 6 + + Cyan - - clbUsers + + Fuchsia - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Auswahl - + + True + + + 0 + + + True + + + 1 + + + True + + + 2 + + + True + + + 3 + + + True + + + 4 + + + 393, 394 + + + 87 + + + GridControlUsers + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + SplitContainer1.Panel2 - + 0 @@ -851,6 +899,54 @@ DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + MyDataset + + + Global_Indexer.MyDataset, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBAD_UsersBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridViewUsers + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSelect + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colUsername + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colPrename + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSurname + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colEmail + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmUserKonfig_AddUsers diff --git a/Global_Indexer/frmUserKonfig_AddUsers.vb b/Global_Indexer/frmUserKonfig_AddUsers.vb index c937d08..abe13d3 100644 --- a/Global_Indexer/frmUserKonfig_AddUsers.vb +++ b/Global_Indexer/frmUserKonfig_AddUsers.vb @@ -69,13 +69,6 @@ Public Class frmUserKonfig_AddUsers For Each group In groups lbGroups.Items.Add(group) Next - - 'Dim groups As List(Of String) = GetActiveDirectoryGroups() - - 'For Each group In groups - ' lbGroups.Items.Add(group) - 'Next - Catch ex As Exception MsgBox("Error in Load Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -171,17 +164,31 @@ Public Class frmUserKonfig_AddUsers End Function Function GetActiveDirectoryGroups() As List(Of String) Me.Cursor = Cursors.WaitCursor - Dim groups As List(Of String) = New List(Of String) - Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) - Dim group As GroupPrincipal = New GroupPrincipal(ctx) - Dim srch As PrincipalSearcher = New PrincipalSearcher(group) - For Each g In srch.FindAll() - If GetUsersForGroup(g.ToString()).Count <> 0 Then - groups.Add(g.ToString) - End If - Next - - Return groups + Try + Dim groups As List(Of String) = New List(Of String) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = New GroupPrincipal(ctx) + Dim srch As PrincipalSearcher = New PrincipalSearcher(group) + For Each g In srch.FindAll() + If GetUsersForGroup(g.ToString()).Count <> 0 Then + If Not g.ToString.StartsWith("WinRMR") And Not g.ToString.StartsWith("Priv") And Not g.ToString.StartsWith("Gäst") And Not g.ToString.StartsWith("Druck") And Not g.ToString.StartsWith("Sicherungs") And Not g.ToString.StartsWith("Replikations") And Not g.ToString.StartsWith("Netzwerkskon") _ + And Not g.ToString.StartsWith("Reporting") And Not g.ToString.StartsWith("Leistungs") And Not g.ToString.StartsWith("Distributed COM") And Not g.ToString.StartsWith("IIS_") And Not g.ToString.StartsWith("Kryptografie") And Not g.ToString.StartsWith("Ereignis") And Not g.ToString.StartsWith("Zertifikat") _ + And Not g.ToString.StartsWith("RDS-") And Not g.ToString.StartsWith("Hyper-V") And Not g.ToString.StartsWith("Zugriffssteuerungs") And Not g.ToString.StartsWith("Remoteverwaltungs") And Not g.ToString.StartsWith("Domänencomput") And Not g.ToString.StartsWith("Domänen-Gäste") _ + And Not g.ToString.StartsWith("Richtlinien-Ersteller") And Not g.ToString.StartsWith("RAS- und IAS-Server") And Not g.ToString.StartsWith("Server-Operatore") And Not g.ToString.StartsWith("Konten-Oper") And Not g.ToString.StartsWith("Prä-Windows") _ + And Not g.ToString.StartsWith("SQLAcce") And Not g.ToString.StartsWith("Einstellungen eingehender") And Not g.ToString.StartsWith("Windows-Auth") And Not g.ToString.StartsWith("Terminalserver-Liz") And Not g.ToString.StartsWith("Zulässige") And Not g.ToString.StartsWith("Abgelehnte") And Not g.ToString.StartsWith("Schreibgeschützte Domänen") _ + And Not g.ToString.StartsWith("Klonbare") And Not g.ToString.StartsWith("Protected User") And Not g.ToString.StartsWith("Dns") And Not g.ToString.StartsWith("DHCP") And Not g.ToString.StartsWith("IIS_IUSR") And Not g.ToString.StartsWith("Richtlinien-Ersteller") _ + And Not g.ToString.StartsWith("Abgelehnte RODC-Kenn") Then + groups.Add(g.ToString) + End If + End If + Next + Me.Cursor = Cursors.Default + Return groups + Catch ex As Exception + MsgBox("Error in GetActiveDirectoryGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Me.Cursor = Cursors.Default + Return Nothing + End Try End Function Public Function GetGroupUsers(ByVal strGroupName As String) @@ -244,16 +251,16 @@ Public Class frmUserKonfig_AddUsers Function GetUsersForGroup(g As String) As List(Of UserPrincipal) Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal) - 'Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) - 'Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g) - 'Dim u = group.GetMembers(True) + Dim u = group.GetMembers(True) - 'For Each user In u - ' If user.GetType().Name = "UserPrincipal" Then - ' users.Add(user) - ' End If - 'Next + For Each user In u + If user.GetType().Name = "UserPrincipal" Then + users.Add(user) + End If + Next Return users End Function @@ -261,20 +268,29 @@ Public Class frmUserKonfig_AddUsers Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged Me.Cursor = Cursors.WaitCursor Dim group As String = lbGroups.SelectedItem - Dim users As List(Of String) = GetGroupUsers(group) - - clbUsers.Items.Clear() - If users Is Nothing Then - Me.Cursor = Cursors.Default - Exit Sub - End If - + Dim users As List(Of UserPrincipal) = GetUsersForGroup(group) + MyDataset.TBAD_Users.Clear() For Each user In users - If user.EndsWith("/") Or user.EndsWith("\") Then - user = user.Replace("/", "") - user = user.Replace("\", "") - End If - clbUsers.Items.Add(user) + Dim newUserRow As MyDataset.TBAD_UsersRow + newUserRow = MyDataset.TBAD_Users.NewTBAD_UsersRow + Try + Dim userldap As UserPrincipal = user + Dim PRENAME As String = userldap.GivenName + Dim NAME As String = userldap.Surname + Dim USERNAME As String = userldap.SamAccountName + Try + newUserRow.Username = userldap.SamAccountName + Catch ex As Exception + newUserRow.Username = user.ToString + End Try + Dim email As String = userldap.EmailAddress + newUserRow.Prename = PRENAME + newUserRow.Surname = NAME + newUserRow.Email = email + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine) + End Try + MyDataset.TBAD_Users.Rows.Add(newUserRow) Next Me.Cursor = Cursors.Default @@ -282,30 +298,23 @@ Public Class frmUserKonfig_AddUsers Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click Try - Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems Dim usersAdded As Integer = 0 - If items.Count = 0 Then - MsgBox("Keine Benutzer ausgewählt") - Exit Sub - End If + For Each row As DataRow In MyDataset.TBAD_Users.Rows + If row.Item(0) = CBool(True) Then + Dim USERNAME As String = row.Item(1) - For Each item In items - Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) - Dim usr As UserPrincipal = UserPrincipal.FindByIdentity(ctx, IdentityType.Name, item.ToString) - If Not IsNothing(usr) Then - 'Dim user As String = item.ToString - 'Dim PRENAME As String = GetProperty_LDAP(user, "givenName") - 'Dim NAME As String = GetProperty_LDAP(user, "sn") - 'Dim email As String = GetProperty_LDAP(user, "mail") - 'Dim USERNAME As String = GetProperty_LDAP(user, "samaccountname") - Dim PRENAME As String = usr.GivenName - Dim NAME As String = usr.Surname - Dim USERNAME As String = usr.SamAccountName - Dim email As String = usr.EmailAddress + Dim PRENAME As String = row.Item(2) + Dim NAME As String = row.Item(3) + Dim email As String + Try + email = row.Item(4) + Catch ex As Exception + email = "" + End Try Dim SQL If Not UserExists(USERNAME) Then - SQL = String.Format("INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('{0}', '{1}', '{2}','{3}',1,'{4}')", PRENAME, NAME, USERNAME, email, Environment.UserName) + SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')" If ClassDatabase.Execute_non_Query(SQL) = True Then usersAdded = usersAdded + 1 End If @@ -315,14 +324,9 @@ Public Class frmUserKonfig_AddUsers usersAdded = usersAdded + 1 End If End If - Else - MsgBox("Für den User '" & item.ToString & "' konnte kein Userprincipal aus der LDAP erstellt werden!", MsgBoxStyle.Information) End If - - Next - If usersAdded = 1 Then MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information) Else @@ -354,48 +358,36 @@ Public Class frmUserKonfig_AddUsers End Sub Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click - For i = 0 To clbUsers.Items.Count - 1 - clbUsers.SetItemChecked(i, True) + For Each Row As DataRow In MyDataset.TBAD_Users.Rows + Row.Item(0) = True Next End Sub Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click - For i = 0 To clbUsers.Items.Count - 1 - clbUsers.SetItemChecked(i, False) + For Each Row As DataRow In MyDataset.TBAD_Users.Rows + Row.Item(0) = False Next End Sub - 'Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged - ' Me.Cursor = Cursors.WaitCursor - ' Dim user As String = clbUsers.SelectedItem - ' Dim usrname = GetProperty_LDAP(user, "samaccountname") - ' If Not IsNothing(usrname) Then - ' MsgBox(usrname) - ' End If + + + 'Private Sub clbUsers_MouseClick(sender As Object, e As MouseEventArgs) + ' Try + ' ToolTipController1.HideHint() + ' Dim userstring As String = clbUsers.SelectedItem.ToString + ' Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + ' Dim usr As UserPrincipal = UserPrincipal.FindByIdentity(ctx, IdentityType.Name, userstring) + ' If Not IsNothing(usr) Then + ' Dim PRENAME As String = usr.GivenName + ' Dim NAME As String = usr.Surname + ' Dim USERNAME As String = usr.SamAccountName + ' Dim email As String = usr.EmailAddress + ' ToolTipController1.ShowHint("SamAccountName: " & USERNAME & vbNewLine & "GivenName: " & PRENAME & vbNewLine & "Surname: " & NAME & vbNewLine & "EmailAddress: " & email, "Preview LDAP-Parameter:", DevExpress.Utils.ToolTipLocation.RightCenter) + ' End If + ' ctx.Dispose() + ' Catch ex As Exception + ' MsgBox("Error in getting Userinfo LDAP:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ' End Try - ' Dim email = GetProperty_LDAP(user, "mail") - ' If Not IsNothing(email) Then - ' MsgBox(email) - ' End If 'End Sub - - Private Sub clbUsers_MouseClick(sender As Object, e As MouseEventArgs) Handles clbUsers.MouseClick - Try - ToolTipController1.HideHint() - Dim userstring As String = clbUsers.SelectedItem.ToString - Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) - Dim usr As UserPrincipal = UserPrincipal.FindByIdentity(ctx, IdentityType.Name, userstring) - If Not IsNothing(usr) Then - Dim PRENAME As String = usr.GivenName - Dim NAME As String = usr.Surname - Dim USERNAME As String = usr.SamAccountName - Dim email As String = usr.EmailAddress - ToolTipController1.ShowHint("SamAccountName: " & USERNAME & vbNewLine & "GivenName: " & PRENAME & vbNewLine & "Surname: " & NAME & vbNewLine & "EmailAddress: " & email, "Preview LDAP-Parameter:", DevExpress.Utils.ToolTipLocation.RightCenter) - End If - ctx.Dispose() - Catch ex As Exception - MsgBox("Error in getting Userinfo LDAP:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub End Class \ No newline at end of file diff --git a/SetupWix/Product.wxs b/SetupWix/Product.wxs index 349d085..098a384 100644 --- a/SetupWix/Product.wxs +++ b/SetupWix/Product.wxs @@ -119,13 +119,13 @@ - + - + - + @@ -201,6 +201,8 @@ + +