From c8c650922bb773fbef873cb97899b938439d667a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 4 Mar 2020 12:24:43 +0100 Subject: [PATCH] use Logging Module EVERYWHERE, fix some MarvMan bugs --- Global_Indexer/ClassControls.vb | 9 +- Global_Indexer/ClassDatabase.vb | 56 +- Global_Indexer/ClassEmail.vb | 11 +- Global_Indexer/ClassFileDrop.vb | 12 +- Global_Indexer/ClassFilehandle.vb | 17 +- Global_Indexer/ClassFolderWatcher.vb | 34 +- Global_Indexer/ClassFormFunctions.vb | 5 +- Global_Indexer/ClassHelper.vb | 11 +- Global_Indexer/ClassHotkey_Windream.vb | 68 +- Global_Indexer/ClassInit.vb | 43 +- Global_Indexer/ClassLayout.vb | 5 +- Global_Indexer/ClassPostprocessing.vb | 28 +- Global_Indexer/ClassWindream.vb | 301 ++-- Global_Indexer/frmAdministration.Designer.vb | 27 - Global_Indexer/frmAdministration.resx | 1420 +++++++++--------- Global_Indexer/frmAdministration.vb | 54 +- Global_Indexer/frmConfig_Basic.vb | 17 +- Global_Indexer/frmHotKey_Add.vb | 2 +- Global_Indexer/frmIndex.vb | 280 ++-- Global_Indexer/frmSQLConfigAutoIndex.vb | 5 +- Global_Indexer/frmSQLSuggestion.vb | 4 +- Global_Indexer/frmStart.vb | 104 +- 22 files changed, 1307 insertions(+), 1206 deletions(-) diff --git a/Global_Indexer/ClassControls.vb b/Global_Indexer/ClassControls.vb index 4a89b42..d202b26 100644 --- a/Global_Indexer/ClassControls.vb +++ b/Global_Indexer/ClassControls.vb @@ -48,7 +48,8 @@ Public Class ClassControls Return chk Catch ex As Exception - ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True) + LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message) + LOGGER.Error(ex.message) Return Nothing End Try End Function @@ -88,7 +89,8 @@ Public Class ClassControls Return oControl Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:") Return Nothing End Try @@ -265,7 +267,8 @@ Public Class ClassControls Next End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:") End Try End Sub diff --git a/Global_Indexer/ClassDatabase.vb b/Global_Indexer/ClassDatabase.vb index ac484ef..8b823d3 100644 --- a/Global_Indexer/ClassDatabase.vb +++ b/Global_Indexer/ClassDatabase.vb @@ -17,7 +17,8 @@ Public Class ClassDatabase SQLconnect.Close() Return True Catch ex As Exception - ClassLogger.Add("Unexpected error in Database-Init: " & ex.Message, True) + LOGGER.Info("Unexpected error in Database-Init: " & ex.Message) + LOGGER.Error(ex.Message) Return False End Try End Function @@ -47,11 +48,11 @@ Public Class ClassDatabase ' Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD")) ' connectionString = conn.ConnectionString Case Else - LOGGER.Info(" - ConnectionType nicht integriert", False) + LOGGER.Info(" - ConnectionType nicht integriert") MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") End Select Else - LOGGER.Info(" No entry for Connection-ID: " & id.ToString, True) + LOGGER.Info(" No entry for Connection-ID: " & id.ToString) End If Catch ex As Exception @@ -94,8 +95,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) End If Return False @@ -103,8 +104,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) Return Nothing End Try End Function @@ -133,8 +134,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) End If Return False @@ -142,8 +143,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) Return Nothing End Try End Function @@ -171,8 +172,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) End If Return False @@ -180,8 +181,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) Return False End Try @@ -211,8 +212,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) End If Return False @@ -220,8 +221,8 @@ Public Class ClassDatabase If userInput = True Then MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) End If - ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Unexpected error in Execute_Scalar: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) Return Nothing End Try End Function @@ -240,8 +241,9 @@ Public Class ClassDatabase SQLconnect.Close() Return result Catch ex As Exception - ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True) - ClassLogger.Add("#SQL: " & cmdscalar, False) + LOGGER.Info("Unexpected error in OracleExecute_Scalar: " & ex.Message) + LOGGER.Error(ex.Message) + LOGGER.Info("#SQL: " & cmdscalar) Return Nothing End Try End Function @@ -262,8 +264,8 @@ 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("Unexpected error in OracleExecute_non_Query: " & ex.Message, True) - ClassLogger.Add("#SQL: " & ExecuteCMD, False) + LOGGER.Info("Unexpected error in OracleExecute_non_Query: " & ex.Message) + LOGGER.Info("#SQL: " & ExecuteCMD) Return False End Try @@ -287,8 +289,8 @@ 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("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True) - ClassLogger.Add("#SQL: " & Select_anweisung, False) + LOGGER.Info("Unexpected error in Oracle_Return_Datatable: " & ex.Message) + LOGGER.Info("#SQL: " & Select_anweisung) Return Nothing End Try End Function @@ -299,8 +301,8 @@ Public Class ClassDatabase If FatalErrors.Contains(ex.Number) Then DatabaseConnectionTimeout = True - ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True) - ClassLogger.Add("#SQL: " & sql_command, False) + LOGGER.Info("Network timeout error in Return_Datatable: " & ex.Message) + LOGGER.Info("#SQL: " & sql_command) Return True Else diff --git a/Global_Indexer/ClassEmail.vb b/Global_Indexer/ClassEmail.vb index ed16dd0..5036b8e 100644 --- a/Global_Indexer/ClassEmail.vb +++ b/Global_Indexer/ClassEmail.vb @@ -14,9 +14,9 @@ Public Class ClassEmail 'Für jeden Empfänger eine Neue Mail erzeugen For Each _mailempfaenger As String In empfaenger ' Neue Nachricht erzeugen: - Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _ - "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" & _ - "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _ + Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, + "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" & + "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & My.Computer.Clock.LocalTime.ToLongTimeString & "") If test = False Then If Log = True Then @@ -61,11 +61,12 @@ Public Class ClassEmail MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:") End If End If - 'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False) + 'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!") Next Return True Catch ex As Exception - ClassLogger.Add("### Fehler im Mailversand: " & ex.Message) + LOGGER.Info("### Fehler im Mailversand: " & ex.Message) + LOGGER.Error(ex.message) Return False End Try End Function diff --git a/Global_Indexer/ClassFileDrop.vb b/Global_Indexer/ClassFileDrop.vb index b65ad24..ff84d63 100644 --- a/Global_Indexer/ClassFileDrop.vb +++ b/Global_Indexer/ClassFileDrop.vb @@ -4,7 +4,7 @@ Public Class ClassFileDrop Public Shared files_dropped As String() Public Shared Function Drop_File(e As DragEventArgs) Try - ClassLogger.Add(">> Drop_File", False) + LOGGER.Info(">> Drop_File") files_dropped = Nothing If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim MyFiles() As String @@ -13,7 +13,7 @@ Public Class ClassFileDrop MyFiles = e.Data.GetData(DataFormats.FileDrop) ' Loop through the array and add the files to the list. For i = 0 To MyFiles.Length - 1 - ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False) + LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i)) ReDim Preserve files_dropped(i) files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i) ' ListBox1.Items.Add(MyFiles(i)) @@ -72,10 +72,10 @@ Public Class ClassFileDrop If (finTemp.Exists = True) Then ReDim Preserve files_dropped(0) files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile - If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) + LOGGER.Info(">> Drop an Attachment - File: " & strOutFile) Return True Else - ClassLogger.Add(">> Attachment File from Outlook could not be created", False) + LOGGER.Info(">> Attachment File from Outlook could not be created") End If End If End If @@ -87,7 +87,7 @@ Public Class ClassFileDrop 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) + LOGGER.Info(">> Drop of msg") 'supports a drop of a Outlook message Dim myobj As Object For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count @@ -110,7 +110,7 @@ Public Class ClassFileDrop strFile = strFile.Replace("!", "") strFile = strFile.Replace("%", "") strFile = strFile.Replace("$", "") - ClassLogger.Add(">> Drop of msg - File:" & strFile, False) + LOGGER.Info(">> Drop of msg - File:" & strFile) Try myobj.SaveAs(strFile) Catch ex As Exception diff --git a/Global_Indexer/ClassFilehandle.vb b/Global_Indexer/ClassFilehandle.vb index 5efe4c5..504de2b 100644 --- a/Global_Indexer/ClassFilehandle.vb +++ b/Global_Indexer/ClassFilehandle.vb @@ -59,7 +59,7 @@ Public Class ClassFilehandle If Not msg.InternetMessageId Is Nothing Then CURRENT_MESSAGEID = msg.InternetMessageId Else - If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False) + LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!") Dim sGUID As String sGUID = System.Guid.NewGuid.ToString() CURRENT_MESSAGEID = sGUID @@ -67,7 +67,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 @@ -83,7 +83,7 @@ Public Class ClassFilehandle Dim _msg As New Msg.Message(msgname) Dim i1 As Integer = 1 - If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False) + LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count) For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments If erfolgreich = False Then Exit For @@ -103,7 +103,7 @@ Public Class ClassFilehandle attachment.Save(tempfile) 'Datei in Array zum Templöschen speichern TEMP_FILES.Add(tempfile) - If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) + LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile) 'nun der Insert des Anhanges erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) i1 += 1 @@ -143,7 +143,7 @@ Public Class ClassFilehandle ' Ist ein Fehler aufgetreten, so wird nach außen hin generell ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl ' auch andere Ursachen, etwa Rechteprobleme, möglich sind). - If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False) + LOGGER.Info(">> FileInUse Message: " & ex.Message) IsFileInUse = True Finally ' Die eventuell geöffnete Datei schließen @@ -176,7 +176,8 @@ Public Class ClassFilehandle End If Return _NewFileString & extension Catch ex As Exception - ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message) + LOGGER.Info(" - Error in versioning file - error: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:") Return "" End Try @@ -189,7 +190,7 @@ Public Class ClassFilehandle ''' Ersatzzeichen für alle unzulässigen Zeichen ''' im Dateinamen Public Shared Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String - If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename before CleanFilename: '" & sFilename & "'", False) + LOGGER.Info(" >> Filename before CleanFilename: '" & sFilename & "'") If sFilename.Contains(".\") Then sFilename = sFilename.Replace(".\", "\") End If @@ -204,7 +205,7 @@ Public Class ClassFilehandle sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline) 'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars())) Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar)) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename after CleanFilename: '" & sFilename & "'", False) + LOGGER.Info(" >> Filename after CleanFilename: '" & sFilename & "'") Return sFilename End Function End Class diff --git a/Global_Indexer/ClassFolderWatcher.vb b/Global_Indexer/ClassFolderWatcher.vb index 3cb1644..68f22d5 100644 --- a/Global_Indexer/ClassFolderWatcher.vb +++ b/Global_Indexer/ClassFolderWatcher.vb @@ -13,7 +13,7 @@ Public Class ClassFolderWatcher FW_started = False 'FolderWatch neu instanzieren FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatch neu instanziert", False) + LOGGER.Info(" >> FolderWatch neu instanziert") FolderWatcher.IncludeSubdirectories = False FolderWatcher.EnableRaisingEvents = True AddHandler FolderWatcher.Created, AddressOf OnCreated @@ -23,7 +23,8 @@ Public Class ClassFolderWatcher CONFIG.Save() End If Catch ex As Exception - ClassLogger.Add($"Error in Restart_FolderWatch: {ex.Message}", False) + LOGGER.Info($"Error in Restart_FolderWatch: {ex.Message}") + LOGGER.Error(ex.Message) End Try End Function Public Shared Function Restart_FolderWatchSCAN() @@ -33,7 +34,7 @@ Public Class ClassFolderWatcher FolderWatcher_SCAN.EnableRaisingEvents = False 'FolderWatch neu instanzieren FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatchScan neu instanziert", False) + LOGGER.Info(" >> FolderWatchScan neu instanziert") FolderWatcher_SCAN.IncludeSubdirectories = False FolderWatcher_SCAN.EnableRaisingEvents = True AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated @@ -42,7 +43,8 @@ Public Class ClassFolderWatcher CONFIG.Save() End If Catch ex As Exception - ClassLogger.Add($"Error in Restart_FolderWatchSCAN: {ex.Message}", False) + LOGGER.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}") + LOGGER.Error(ex.Message) End Try End Function Public Shared Function StartStop_FolderWatch() @@ -53,7 +55,7 @@ Public Class ClassFolderWatcher End If If FolderWatcher Is Nothing Then FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatch Gestartet", False) + LOGGER.Info(" >> FolderWatch Gestartet") FolderWatcher.IncludeSubdirectories = False FolderWatcher.EnableRaisingEvents = True AddHandler FolderWatcher.Created, AddressOf OnCreated @@ -67,7 +69,7 @@ Public Class ClassFolderWatcher ' Dim watcher As New FileSystemWatcher() ' watcher.Path = CURRENT_FOLDERWATCH FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatch Gestartet", False) + LOGGER.Info(" >> FolderWatch Gestartet") FolderWatcher.IncludeSubdirectories = False FolderWatcher.EnableRaisingEvents = True AddHandler FolderWatcher.Created, AddressOf OnCreated @@ -80,7 +82,7 @@ Public Class ClassFolderWatcher 'Gestartet also Stoppen FolderWatcher.EnableRaisingEvents = False FW_started = False - ClassLogger.Add(" >> FolderWatch gestoppt", False) + LOGGER.Info(" >> FolderWatch gestoppt") 'SaveConfigValue("FW_started", "False") CONFIG.Config.FolderWatchStarted = False CONFIG.Save() @@ -88,7 +90,7 @@ Public Class ClassFolderWatcher End If 'If watcher.EnableRaisingEvents = False Then ' watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") - ' ClassLogger.Add(" - vFolderWatch.Gestartet", False) + ' LOGGER.Info(" - vFolderWatch.Gestartet") ' watcher.IncludeSubdirectories = False ' watcher.EnableRaisingEvents = True ' AddHandler watcher.Created, AddressOf OnCreated @@ -121,7 +123,7 @@ Public Class ClassFolderWatcher End If If FolderWatcher_SCAN Is Nothing Then FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatch Scan Gestartet", False) + LOGGER.Info(" >> FolderWatch Scan Gestartet") FolderWatcher_SCAN.IncludeSubdirectories = False FolderWatcher_SCAN.EnableRaisingEvents = True AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated @@ -133,7 +135,7 @@ Public Class ClassFolderWatcher ' Dim watcher As New FileSystemWatcher() ' watcher.Path = CURRENT_FOLDERWATCH FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*") - ClassLogger.Add(" >> FolderWatch Scan Gestartet", False) + LOGGER.Info(" >> FolderWatch Scan Gestartet") FolderWatcher_SCAN.IncludeSubdirectories = False FolderWatcher_SCAN.EnableRaisingEvents = True AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated @@ -143,13 +145,13 @@ Public Class ClassFolderWatcher Else 'Gestartet also Stoppen FolderWatcher_SCAN.EnableRaisingEvents = False - ClassLogger.Add(" >> FolderWatch Scan gestoppt", False) + LOGGER.Info(" >> FolderWatch Scan gestoppt") 'SaveConfigValue("FWSCAN_started", "False") CONFIG.Config.FolderWatchScanStarted = False CONFIG.Save() Return 0 End If - + Catch ex As Exception MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return 99 @@ -160,7 +162,7 @@ Public Class ClassFolderWatcher 'Gestartet also Stoppen FolderWatcher.EnableRaisingEvents = False FW_started = False - ClassLogger.Add(" >> FolderWatch gestoppt", False) + LOGGER.Info(" >> FolderWatch gestoppt") 'SaveConfigValue("FW_started", "False") CONFIG.Config.FolderWatchStarted = True CONFIG.Save() @@ -171,7 +173,7 @@ Public Class ClassFolderWatcher End Function Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs) If ClassDatabase.DatabaseConnectionTimeout = True Then - ClassLogger.Add(">> File handling aborted because of database timeout error!", False) + LOGGER.Info(">> File handling aborted because of database timeout error!") Exit Sub End If @@ -190,11 +192,11 @@ Public Class ClassFolderWatcher handleType = "|FW_SIMPLEINDEXER|" End If 'Die Datei übergeben - If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False) + LOGGER.Info(">> OnCreated-File:" & e.FullPath) If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then ClassFilehandle.Decide_FileHandle(e.FullPath, handleType) Else - ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False) + LOGGER.Info(">> Folderwatcher: File already exists:" & e.FullPath) End If Catch ex As Exception diff --git a/Global_Indexer/ClassFormFunctions.vb b/Global_Indexer/ClassFormFunctions.vb index a7c2aca..ff2e1b8 100644 --- a/Global_Indexer/ClassFormFunctions.vb +++ b/Global_Indexer/ClassFormFunctions.vb @@ -47,13 +47,14 @@ Public Class ClassFormFunctions 'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no; Case Else - ClassLogger.Add(" - ConnectionType not integrated", False) + LOGGER.Info(" - ConnectionType not integrated") MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:") End Select End If Catch ex As Exception - ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message) + LOGGER.Error(ex.message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:") End Try diff --git a/Global_Indexer/ClassHelper.vb b/Global_Indexer/ClassHelper.vb index 78414d9..b23d7d8 100644 --- a/Global_Indexer/ClassHelper.vb +++ b/Global_Indexer/ClassHelper.vb @@ -10,10 +10,11 @@ Public Class ClassHelper Dim utf8Encoding As New System.Text.UTF8Encoding(True) Dim encodedString() As Byte encodedString = utf8Encoding.GetBytes(str) - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)), False) + LOGGER.Info(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString))) Return utf8Encoding.GetString(encodedString) Catch ex As Exception - ClassLogger.Add("Unexpected error in encode_utf8: " & ex.Message) + LOGGER.Info("Unexpected error in encode_utf8: " & ex.Message) + LOGGER.Error(ex.message) Return Nothing End Try @@ -26,7 +27,8 @@ Public Class ClassHelper ' return byte data Return bytes Catch ex As Exception - ClassLogger.Add("Unexpected error in StringAsUtf8Bytes: " & ex.Message) + LOGGER.Info("Unexpected error in StringAsUtf8Bytes: " & ex.Message) + LOGGER.Error(ex.message) Return Nothing End Try @@ -37,7 +39,8 @@ Public Class ClassHelper Dim matches As MatchCollection = Regex.Matches(str, pattern) Return matches.Count Catch ex As Exception - ClassLogger.Add("Unexpected error in CheckSpecialSigns: " & ex.Message) + LOGGER.Info("Unexpected error in CheckSpecialSigns: " & ex.Message) + LOGGER.Error(ex.message) Return 0 End Try End Function diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb index c98b679..a6bdf01 100644 --- a/Global_Indexer/ClassHotkey_Windream.vb +++ b/Global_Indexer/ClassHotkey_Windream.vb @@ -23,7 +23,7 @@ Public Class ClassHotkey_Windream Dim enumerator1 As New ClassWindowAPI 'Jedes Formularwindow durchlaufen For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() - If LogErrorsOnly = False Then ClassLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False) + LOGGER.Info(" ... top-window Name: " & top.MainWindowTitle) If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then Control_Sequence = 0 For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) @@ -33,7 +33,7 @@ Public Class ClassHotkey_Windream If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then Return True Else - If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.", False) + LOGGER.Info(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.") Return False End If End If @@ -45,7 +45,7 @@ Public Class ClassHotkey_Windream Next top Catch ex As Exception MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False) + LOGGER.Info(">> Error in IsRelevantWindow:" & ex.Message) Return False End Try End Function @@ -60,7 +60,7 @@ Public Class ClassHotkey_Windream For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) If vControl.MainWindowTitle <> "" Then If Control_Sequence = myControlID Then - If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle, False) + LOGGER.Info(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle) Return vControl.MainWindowTitle.ToString End If End If @@ -71,7 +71,7 @@ Public Class ClassHotkey_Windream Next top Catch ex As Exception MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(">> Error in Get_windowContent:" & ex.Message, False) + LOGGER.Info(">> Error in Get_windowContent:" & ex.Message) Return Nothing End Try End Function @@ -92,7 +92,7 @@ Public Class ClassHotkey_Windream End Sub Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer) Try - If LogErrorsOnly = False Then ClassLogger.Add(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'", False) + LOGGER.Info(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'") Dim DTWD As DataTable Dim Objecttype As String Dim windowname As String @@ -103,15 +103,15 @@ Public Class ClassHotkey_Windream Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID DTWD = ClassDatabase.Return_Datatable(_sql) If DTWD.Rows.Count = 0 Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...KEINE USER_PROFILES hinterlegt", False) + LOGGER.Info(" ...KEINE USER_PROFILES hinterlegt") Return "Uncexpected Error in Hotkey - Check Log for Hotkey" End If If DTWD.Rows.Count > 1 Then - ClassLogger.Add("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!", True) + LOGGER.Info("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!") Return "Uncexpected Error in Hotkey - Check Log for Hotkey" End If If DTWD.Rows(0).Item(0) = "" Then - If LogErrorsOnly = False Then ClassLogger.Add(">> KEINE Windream-Suche hinterlegt!", False) + LOGGER.Info(">> KEINE Windream-Suche hinterlegt!") Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey" End If Dim BaseSearch = DTWD.Rows(0).Item(0) @@ -119,7 +119,7 @@ Public Class ClassHotkey_Windream HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID") Dim windream_temp_search As String = "" If IO.File.Exists(BaseSearch) = False Then - ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True) + LOGGER.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!") If USER_LANGUAGE = "de-DE" Then MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) @@ -148,9 +148,9 @@ Public Class ClassHotkey_Windream Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True) If WDUnicode = True Then EncodingFormat = Encoding.GetEncoding(1252) '1252 - If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False) + LOGGER.Info(" ...Unicode is used (Encoding.GetEncoding(1252))") Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False) + LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))") EncodingFormat = Encoding.GetEncoding(65001) End If @@ -160,16 +160,16 @@ Public Class ClassHotkey_Windream For Each row As DataRow In DT_HOOKS.Rows RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE")) If RelevantWindow = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Not the relevant window", False) + LOGGER.Info(" ...Not the relevant window") Return "Not the Relevant window......" End If Next End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False) + LOGGER.Info(" ...ReadAlltext: " & BaseSearch) fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode - If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False) + LOGGER.Info(" ...fileContents geladen") fileContents = fileContents.Replace("Í", "Ö") 'Das Array für die PAtterns anpassen _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID @@ -212,7 +212,7 @@ Public Class ClassHotkey_Windream End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'", False) + LOGGER.Info(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'") Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString) If Not IsNothing(foundresult) Then 'Die Nachbearbeitungsschritte laden @@ -225,15 +225,15 @@ Public Class ClassHotkey_Windream End If If Not IsNothing(foundresult) Then If foundresult.ToString = "<" Or foundresult.ToString = ">" Then - ClassLogger.Add(">> Hot Key received an irregular value.", False) + LOGGER.Info(">> Hot Key received an irregular value.") Return "Hotkey konnte nur einen irregulären Wert auswerten." End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False) + LOGGER.Info(" ...fileContents.length: " & fileContents.Length) + LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'") fileContents = fileContents.Replace(row.Item(2).ToString, foundresult) - If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False) + LOGGER.Info(" ...fileContents.length: " & fileContents.Length) Else - ClassLogger.Add(">> Hot Key could not read any value.", False) + LOGGER.Info(">> Hot Key could not read any value.") Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?" End If End If @@ -246,7 +246,7 @@ Public Class ClassHotkey_Windream Try 'Die File schreiben My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) - If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False) + LOGGER.Info(" ...wrote Text to windream_temp_search: " & windream_temp_search) ' XML-Datei öffnen und laden Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) Dim Reader As New System.Xml.XmlTextReader(Stream) @@ -257,9 +257,10 @@ Public Class ClassHotkey_Windream xml.Load(Reader) Reader.Close() xml.Save(windream_temp_search) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False) + LOGGER.Info(" ...Xml Generiert: " & windream_temp_search) Catch ex As Exception - ClassLogger.Add("TempFile could not be created: " & ex.Message, True) + LOGGER.Info("TempFile could not be created: " & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:") End Try @@ -281,14 +282,14 @@ Public Class ClassHotkey_Windream Dim rctMain As RECT GetWindowRect(p.MainWindowHandle, rctMain) If LogErrorsOnly = False Then - ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False) - ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False) - ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False) - ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False) + LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString) + LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString) + LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString) + LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString) End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:") - ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True) + LOGGER.Info("Unexpected error while executing search: " & ex.Message) Return "Unexpected error while executing search" End Try Dim psList() As Process @@ -312,17 +313,20 @@ Public Class ClassHotkey_Windream Next p Catch ex As Exception - ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True) + LOGGER.Info("Unexpected error while Setting foreground: " & ex.Message) + LOGGER.Error(ex.Message) End Try Return "" Catch ex As Exception - ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True) + LOGGER.Info("Unexpected error in Create Search: " & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return "Unexpected error in Create Search" End Try Catch ex As Exception - ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True) + LOGGER.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message) + LOGGER.Error(ex.message) MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" End Try diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb index 5061af3..5177331 100644 --- a/Global_Indexer/ClassInit.vb +++ b/Global_Indexer/ClassInit.vb @@ -10,10 +10,9 @@ Public Class ClassInit Public Sub InitLogger() ClassLogger.Init("", Environment.UserName) - ClassLogger.Add(">> Programmstart: " & Now, False) - ClassLogger.Add(">> Username: " & Environment.UserName, False) LOGCONFIG = New LogConfig(LogConfig.PathType.AppData) LOGGER = LOGCONFIG.GetLogger("Globix") + LOGGER.Info("Programmstart: " & Now) LOGGER.Info("Username: {0}", Environment.UserName) End Sub @@ -100,21 +99,21 @@ Public Class ClassInit folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath) If folderwatchPath = String.Empty Then - ClassLogger.Add("Init_Folderwatch: folderwatchPath is empty", True) + LOGGER.Info("Init_Folderwatch: folderwatchPath is empty") FW_started = False 'SaveConfigValue("FW_started", "False") CONFIG.Config.FolderWatchStarted = False CONFIG.Save() - + End If If Not IO.Directory.Exists(folderwatchPath) Then - ClassLogger.Add("Init_Folderwatch: folderwatchPath does not exists or is invalid path", True) + LOGGER.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path") FW_started = False 'SaveConfigValue("FW_started", "False") CONFIG.Config.FolderWatchStarted = False CONFIG.Save() - + End If CURRENT_FOLDERWATCH = folderwatchPath @@ -124,7 +123,7 @@ Public Class ClassInit ClassFolderWatcher.StartStop_FolderWatch() Catch ex As Exception MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatch: {ex.Message}", MsgBoxStyle.Critical) - ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True) + LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}") START_INCOMPLETE = True End Try @@ -135,14 +134,14 @@ Public Class ClassInit folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath) If folderwatchScanPath = String.Empty Then - ClassLogger.Add("Init_Folderwatch: folderwatchScanPath is empty", True) + LOGGER.Info("Init_Folderwatch: folderwatchScanPath is empty") CONFIG.Config.FolderWatchStarted = False CONFIG.Save() Exit Sub End If If Not IO.Directory.Exists(folderwatchScanPath) Then - ClassLogger.Add("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path", True) + LOGGER.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path") CONFIG.Config.FolderWatchStarted = False CONFIG.Save() Exit Sub @@ -155,7 +154,7 @@ Public Class ClassInit ClassFolderWatcher.StartStop_FolderWatchSCAN() Catch ex As Exception MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatchScan: {ex.Message}", MsgBoxStyle.Critical) - ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True) + LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}") START_INCOMPLETE = True End Try @@ -180,7 +179,7 @@ Public Class ClassInit ' End If ' Else - ' ClassLogger.Add("Init_Folderwatch: folderwatch path is nothing!", True) + ' LOGGER.Info("Init_Folderwatch: folderwatch path is nothing!") ' End If ' If Not folderwatch_SCAN Is Nothing Then ' CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN @@ -189,10 +188,10 @@ Public Class ClassInit ' ClassFolderWatcher.StartStop_FolderWatchSCAN() ' End If ' Else - ' ClassLogger.Add("Init_Folderwatch: folderwatch_SCAN path is nothing!", True) + ' LOGGER.Info("Init_Folderwatch: folderwatch_SCAN path is nothing!") ' End If 'Catch ex As Exception - ' ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True) + ' LOGGER.Info("Unexpected Error in Init_Folderwatch: " & ex.Message) ' START_INCOMPLETE = True 'End Try End Sub @@ -200,13 +199,14 @@ Public Class ClassInit Try Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" sql = sql.Replace("@user", Environment.UserName) - ' ClassLogger.Add(">> Username: " & Environment.UserName, False) + ' LOGGER.Info(">> Username: " & Environment.UserName) USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) Try Dim USERID = CInt(USER_ID) Catch ex As Exception - ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True) + LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)") + LOGGER.Error(ex.Message) 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") 'Me.Close() START_INCOMPLETE = True @@ -228,7 +228,7 @@ Public Class ClassInit sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) If DT_CHECKUSER_MODULE.Rows.Count = 0 Then - ClassLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True) + LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0") START_INCOMPLETE = True ERROR_STATE = "NO USER" MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) @@ -237,7 +237,7 @@ Public Class ClassInit If DT_CHECKUSER_MODULE.Rows.Count = 1 Then USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS") If USER_IN_MODULE = False Then - ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) + LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!") START_INCOMPLETE = True Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!") @@ -265,17 +265,17 @@ Public Class ClassInit ClassDatabase.Execute_non_Query(sql) sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')" Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False) + LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString) UserLoggedin = CInt(anzahl) UserLoggedin += 1 If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False) + LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!") If USER_IS_ADMIN = False Then 'Anmeldung wieder herausnehmen sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'" ClassDatabase.Execute_non_Query(sql, True) - ClassLogger.Add(" - Wieder abgemeldet", False) + LOGGER.Info(" - Wieder abgemeldet") START_INCOMPLETE = True End If End If @@ -286,7 +286,8 @@ Public Class ClassInit Catch ex As Exception - ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) + LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message) + LOGGER.Error(ex.message) MsgBox(ex.Message, MsgBoxStyle.Critical) START_INCOMPLETE = True End Try diff --git a/Global_Indexer/ClassLayout.vb b/Global_Indexer/ClassLayout.vb index cf5db58..0277711 100644 --- a/Global_Indexer/ClassLayout.vb +++ b/Global_Indexer/ClassLayout.vb @@ -76,11 +76,12 @@ Public Class ClassWindowLocation End If Next If result = False Then - ClassLogger.Add(">> Saved layout is not fitting to Resolution. Default is loaded.", True) + LOGGER.Info(">> Saved layout is not fitting to Resolution. Default is loaded.") End If Return result Catch ex As Exception - ClassLogger.Add("Error in IsVisibleOnAnyScreen: " & ex.Message, True) + LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message) + LOGGER.Error(ex.message) Return False End Try End Function diff --git a/Global_Indexer/ClassPostprocessing.vb b/Global_Indexer/ClassPostprocessing.vb index 7fb0ca8..0115853 100644 --- a/Global_Indexer/ClassPostprocessing.vb +++ b/Global_Indexer/ClassPostprocessing.vb @@ -16,7 +16,7 @@ Public Class ClassPostprocessing Select Case oType Case VBSPLIT - If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False) + LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT") Dim oSeparator As String = oDataRow.Item("TEXT1") Dim oSplitIndex As Integer = 0 @@ -31,15 +31,15 @@ Public Class ClassPostprocessing Dim oFindString = oDataRow.Item("TEXT1") Dim oReplaceString = oDataRow.Item("TEXT2") - If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'", False) + LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE") + LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'") For Each oIndexValue In oIndexValues Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString) oResult.Add(oReplaceResult) Next Case REGEXPRESSION - If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False) + LOGGER.Info(" ...Nachbearbeitung mit RegEx") Dim oRegexList As New List(Of Regex) Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase) @@ -50,7 +50,7 @@ Public Class ClassPostprocessing Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList) oResult.Add(oProcessedString) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & oProcessedString, False) + LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString) Next End Select @@ -58,7 +58,7 @@ Public Class ClassPostprocessing Next Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:") - ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message) End Try Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray) @@ -68,41 +68,41 @@ Public Class ClassPostprocessing ' For Each row As DataRow In Datatable.Rows ' Select Case row.Item("TYPE").ToString.ToUpper ' Case "VBSPLIT" - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False) + ' LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT") ' Dim strSplit() As String ' strSplit = result.Split(row.Item("TEXT1")) ' For i As Integer = 0 To strSplit.Length - 1 ' If i = CInt(row.Item("TEXT2")) Then - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False) + ' LOGGER.Info(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i)) ' result = strSplit(i).ToString ' End If ' Next ' Case "VBREPLACE" ' If LogErrorsOnly = False Then - ' ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False) - ' ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False) + ' LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE") + ' LOGGER.Info(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'") ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) ' End If ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) ' Case "REG. EXPRESSION" - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False) + ' LOGGER.Info(" ...Nachbearbeitung mit RegEx") ' Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) ' Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase) ' RegexList.Add(Regex) ' ' ' Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList) ' If Not IsNothing(resultRegex) Then - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False) + ' LOGGER.Info(" ...Ergebnis des RegEx: " & resultRegex.ToString) ' result = resultRegex.ToString ' Else - ' ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True) + ' LOGGER.Info("Postprocessing RegEx konnte kein Ergebnis auswerten!") ' End If ' End Select ' Next ' Return result 'Catch ex As Exception - ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + ' LOGGER.Info(" - 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 3524005..52a7671 100644 --- a/Global_Indexer/ClassWindream.vb +++ b/Global_Indexer/ClassWindream.vb @@ -196,12 +196,13 @@ Public Class ClassWindream Try ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen oSession = CreateObject("Windream.WMSession", GetCurrentServer) - If LogErrorsOnly = False Then ClassLogger.Add(" ...windream-Server: '" & GetCurrentServer() & "'", False) + LOGGER.Info(" ...windream-Server: '" & GetCurrentServer() & "'") ' Connection-Objekt instanziieren oConnect = CreateObject("Windream.WMConnect") 'MsgBox("windrem init 'ed") Catch ex As Exception - ClassLogger.Add("Windream konnte nicht initiiert werden: " & ex.Message, True) + LOGGER.Info("Windream konnte nicht initiiert werden: " & ex.Message) + LOGGER.Error(ex.Message) Return False End Try @@ -230,7 +231,7 @@ Public Class ClassWindream End If 'If My.Settings.vDetailLog Then - ' ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False) + ' LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'") 'End If ' AUSGABE VON SYSTEMINFORMATIONEN @@ -264,7 +265,7 @@ Public Class ClassWindream Catch ex As Exception If Err.Number = -2147220985 Then - MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ + 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, "Unexpected error inm Login an windream") @@ -563,17 +564,17 @@ Public Class ClassWindream Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename) If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then My.Computer.FileSystem.CreateDirectory(Zielverzeichnis) - ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False) + LOGGER.Info(" - Zielverzeichnis neu erzeugt!") End If Const STREAM_BinaryObject = "BinaryObject" - If LogErrorsOnly = False Then ClassLogger.Add(" ...Stream_File wurde gestartet", False) + LOGGER.Info(" ...Stream_File wurde gestartet") Dim windreamFilename As String = "" ' Objekt für Datei und Zielverzeichnis anlegen Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False) + LOGGER.Info(" ...Quelldatei gelesen") '"Version-KZ entfernen newfilename = newfilename.Replace("\\", "\") windreamFilename = newfilename.Substring(2) @@ -583,7 +584,7 @@ Public Class ClassWindream End If If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert", False) + LOGGER.Info(" ...targetPath existiert") ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist Dim dvr As New DriveInfo(vWLaufwerk & ":") Dim freeSpace = dvr.TotalFreeSpace @@ -601,7 +602,7 @@ Public Class ClassWindream Return -10 End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei kopieren von '" & filenameQuelle & "' nach '" & newfilename & "'.", False) + LOGGER.Info(" ...Datei kopieren von '" & filenameQuelle & "' nach '" & newfilename & "'.") Dim Connect Dim Session Dim WMObject @@ -609,15 +610,15 @@ Public Class ClassWindream Dim aWMStream Dim wmbrwsr Dim dmsServer As String - If LogErrorsOnly = False Then ClassLogger.Add(" ...Connect definieren: CreateObject('Windream.WMConnect')", False) + LOGGER.Info(" ...Connect definieren: CreateObject('Windream.WMConnect')") Connect = CreateObject("Windream.WMConnect") aFileIO = New WMOTOOLLib.WMFileIO 'If My.Settings.DLL_WMOTOOL = "" Then ' aFileIO = New WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) + ' LOGGER.Info(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO") 'Else ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) + ' LOGGER.Info(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'") 'End If wmbrwsr = CreateObject("WMOBrws.ServerBrowser") @@ -635,10 +636,10 @@ Public Class ClassWindream Connect.LoginSession(Session) Dim LoggedIn = Session.aLoggedin If LoggedIn Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) + LOGGER.Info(" ...Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer) 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") Else - ClassLogger.Add(" >> Login on dms-Server failed", False) + LOGGER.Info(" >> Login on dms-Server failed") ' MsgBox("Login failed. ") End If oSession = Session @@ -649,26 +650,26 @@ Public Class ClassWindream '================================================================== ' check if files exist '================================================================== - If LogErrorsOnly = False Then ClassLogger.Add(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename, False) + LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename) Dim wdFilexists As Boolean - If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) + LOGGER.Info(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...") wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0) Err.Clear() If wdFilexists = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) + LOGGER.Info(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden") '================================================================== ' create an object '================================================================== WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject If Err.Number > 0 Then - ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + LOGGER.Info(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) End If ' MsgBox("Created file: " + windreamFilename) Else ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen - If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + LOGGER.Info(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN") If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then ''########## Dim msg = String.Format("Eine Datei mit identischem Namen " & vbNewLine & "'{0}'" & vbNewLine & "existiert bereits!" & vbNewLine & "Wollen Sie die bestehende Datei ersetzen?", newfilename) @@ -689,12 +690,12 @@ Public Class ClassWindream End If WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject If Err.Number > 0 Then - ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + LOGGER.Info(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False) + LOGGER.Info(" ...WMObject zugewiesen") End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename, False) + LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename) If WMObject IsNot Nothing Then newfilename = vWLaufwerk & ":" & windreamFilename ' lock object for file system access (to change the file itself) @@ -702,8 +703,8 @@ Public Class ClassWindream ' set fileIO the local source file aFileIO.bstrOriginalFileName = filenameQuelle If Err.Number > 0 Then - ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") - ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) + LOGGER.Info(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'") WMObject.Unlock() Delete_WDFile(windreamFilename) @@ -713,17 +714,17 @@ 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(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...oWMStream erzeugt", False) + LOGGER.Info(" ...oWMStream erzeugt") ' give fileIO helper object the windream stream aFileIO.aWMStream = aWMStream If Err.Number > 0 Then - ClassLogger.Add(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False @@ -732,17 +733,17 @@ Public Class ClassWindream ' let fileIO object import the original file into windream aFileIO.ImportOriginal(True) If Err.Number > 0 Then - ClassLogger.Add(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False ' MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...Inhalt der Datei konnte übertragen werden", False) + LOGGER.Info(" ...Inhalt der Datei konnte übertragen werden") ' close the windream file stream aWMStream.Close() If Err.Number > 0 Then - ClassLogger.Add(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False @@ -751,17 +752,17 @@ Public Class ClassWindream ' save new windream object WMObject.save() If Err.Number > 0 Then - ClassLogger.Add(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei konnte gespeichert werden", False) + LOGGER.Info(" ...Datei konnte gespeichert werden") ' unlock the windream object WMObject.unlock() If Err.Number > 0 Then - ClassLogger.Add(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + LOGGER.Info(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") WMObject.Unlock() Delete_WDFile(windreamFilename) Return False @@ -770,7 +771,7 @@ Public Class ClassWindream 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist Dim info2 As New FileInfo(newfilename) Dim length1 As Long = info2.Length - If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False) + LOGGER.Info(" ...Length der Zieldatei: " & length1.ToString) If length > 0 And Err.Number = 0 Then Dim p As String If windreamFilename.StartsWith("\") Then @@ -783,26 +784,26 @@ Public Class ClassWindream p = "\" & windreamFilename End If CURRENT_NEWFILENAME = vWLaufwerk & ":" & p - ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!", False) + LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!") aktWMObject = WMObject Return True Else Delete_WDFile(windreamFilename) Console.WriteLine(Err.Number.ToString) - ClassLogger.Add(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht") + LOGGER.Info(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht") Return False End If Else - ClassLogger.Add(" Could not create a WMObject for file:'" & windreamFilename) + LOGGER.Info(" Could not create a WMObject for file:'" & windreamFilename) If Not Err() Is Nothing Then If Not Err.Description Is Nothing Then - ClassLogger.Add(Err.Description) + LOGGER.Info(Err.Description) End If End If Return False End If Else - If LogErrorsOnly = False Then ClassLogger.Add("...targetPath existiert NICHT", False) + LOGGER.Info("...targetPath existiert NICHT") Return False End If @@ -816,16 +817,17 @@ Public Class ClassWindream Try WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument Catch ex As Exception - ClassLogger.Add(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing", False) + LOGGER.Info(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing") + LOGGER.Error(ex.Message) Return False End Try - If LogErrorsOnly = False Then ClassLogger.Add(" >> Deleting started - Object created", False) + LOGGER.Info(" >> Deleting started - Object created") WMObject.Delete() Return True Catch ex As Exception MsgBox("Unexpected Error in Delete_WDFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add("Unexpected Error in Delete_WDFile: " & ex.Message, False) + LOGGER.Info("Unexpected Error in Delete_WDFile: " & ex.Message) Return False End Try End Function @@ -839,43 +841,43 @@ 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) + LOGGER.Info(" ...DateiIndexieren wurde aufgerufen") WD_File = WD_File.Substring(2) Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject 'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString) ' den Dokumenttyp schreiben - If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False) + LOGGER.Info(" ## Indexieren wird gestartet ##") ' ein windream-Objekt der Datei anlegen WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) Try - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wird gesperrt", False) + LOGGER.Info(" ...Datei wird gesperrt") ' die Datei sperren WMObject.lock() Catch ex As Exception - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist bereits gesperrt", False) + LOGGER.Info(" ...Datei ist bereits gesperrt") ' nichts tun (Datei ist bereits gesperrt) End Try If IsNothing(WMObject) Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Windream Object ist nothing, Indexierung wird abgebrochen", False) + LOGGER.Info(" ...Windream Object ist nothing, Indexierung wird abgebrochen") Return False End If If IsNothing(WMObject.aObjectType) Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen", False) + LOGGER.Info(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen") Return False End If - If LogErrorsOnly = False Then ClassLogger.Add($" ...Objekttyp wird gesetzt: " & _WDObjekttyp, False) + LOGGER.Info($" ...Objekttyp wird gesetzt: " & _WDObjekttyp) ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde If WMObject.aObjectType.aName = "Standard" Then ' ihr den entsprechenden Dokumenttyp zuweisen WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp - If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wurde gesetzt", False) + LOGGER.Info(" ...Objekttyp wurde gesetzt") Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) + LOGGER.Info(" ...Objekttyp war bereits gesetzt") End If Try @@ -891,42 +893,42 @@ Public Class ClassWindream Catch ex As Exception ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt End Try - If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wurde gespeichert / Unlock wurde durchgeführt", False) + LOGGER.Info(" ...Datei wurde gespeichert / Unlock wurde durchgeführt") ' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben - If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp: " & _WDObjekttyp, False) + LOGGER.Info(" ...Objekttyp: " & _WDObjekttyp) ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden Dim indexe As String = "" - If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexname: '" & _Indexname & "'", False) + LOGGER.Info(" ...Indexname: '" & _Indexname & "'") Dim werte = New ArrayList If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Es handelt sich um ein Vektor-Feld", False) + LOGGER.Info(" ...Es handelt sich um ein Vektor-Feld") 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt - If LogErrorsOnly = False Then ClassLogger.Add(" ...Wert vor Überprüfung: " & _Value, False) + LOGGER.Info(" ...Wert vor Überprüfung: " & _Value) _Value = CheckIndexValue(_Value) 'Ausstieg da Fehler in der Überprüfung If _Value Is Nothing Then Return False End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) + LOGGER.Info(" ...Value für Indexierung: " & _Value) werte.Add(_Value) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Werte zu Array hinzugefügt!", False) + LOGGER.Info(" ...Werte zu Array hinzugefügt!") Else 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt - If LogErrorsOnly = False Then ClassLogger.Add(" ...Value vor Überprüfung: " & _Value, False) + LOGGER.Info(" ...Value vor Überprüfung: " & _Value) _Value = CheckIndexValue(_Value) 'Ausstieg da Fehler in der Überprüfung If _Value Is Nothing Then Return False End If - If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) + LOGGER.Info(" ...Value für Indexierung: " & _Value) werte.Add(_Value) End If @@ -940,8 +942,9 @@ Public Class ClassWindream Return RunIndexing(WMObject, arrIndex, arrValue) Catch ex As Exception - ClassLogger.Add("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.") - ClassLogger.Add("Fehler: " & ex.Message) + LOGGER.Info("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.") + LOGGER.Error(ex.Message) + LOGGER.Info("Fehler: " & ex.Message) ' Me.TreeNodeInfos.Add(temp) Return False End Try @@ -955,16 +958,16 @@ Public Class ClassWindream Dim i As Integer = 0 Dim indexname As String If aValues.Length = 1 And aValues(0) = "" Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexwert ist leer/Nothing - Keine Nachindexierung", False) + LOGGER.Info(" ...Indexwert ist leer/Nothing - Keine Nachindexierung") End If ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde If oDocument.aObjectType.aName <> _WDObjekttyp Then ' ihr den entsprechenden Dokumenttyp zuweisen oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp - If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False) + LOGGER.Info(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.") Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) + LOGGER.Info(" ...Objekttyp war bereits gesetzt") End If Try @@ -979,8 +982,8 @@ Public Class ClassWindream For Each aName As String In Indizes indexname = aName If LogErrorsOnly = False Then - ClassLogger.Add(" ", False) - ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False) + LOGGER.Info(" ") + LOGGER.Info(" >> Indexierung von Index '" & indexname & "'") End If ' das entsprechende Attribut aus windream auslesen Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) @@ -1006,45 +1009,45 @@ Public Class ClassWindream Select Case (vType) 'Case WMObjectVariableValueTypeUndefined Case WMObjectVariableValueTypeString - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString") convertValue = CStr(value) Case WMObjectVariableValueTypeInteger - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeInteger") value = value.ToString.Replace(" ", "") If IsNumeric(value) = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False) + LOGGER.Info(" ...Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!") End If value = value.ToString.Replace(" ", "") convertValue = CInt(value) _int = True Case WMObjectVariableValueTypeFloat - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat") value = value.ToString.Replace(" ", "") convertValue = CDbl(value) Case WMObjectVariableValueTypeFixedPoint - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint") value = value.ToString.Replace(" ", "") convertValue = CDbl(value) _dbl = True Case WMObjectVariableValueTypeBoolean - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean") convertValue = CBool(value) _bool = True Case WMObjectVariableValueTypeDate - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate") _date = True 'Dim _date As Date = value convertValue = value Case WMObjectVariableValueTypeTimeStamp - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp") convertValue = value Case WMObjectVariableValueTypeCurrency - If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) + LOGGER.Info(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency") 'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value)) convertValue = aValueWrapper Case WMObjectVariableValueTypeTime - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime") 'If ((value)) Then ' convertValue = CDate(value) 'Else @@ -1053,57 +1056,57 @@ Public Class ClassWindream 'Dim _date As Date = value convertValue = convertValue '*_date.ToShortTimeString Case WMObjectVariableValueTypeFloat - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat") convertValue = CStr(value) Case WMObjectVariableValueTypeVariant - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant") convertValue = CStr(value) Case WMObjectVariableValueTypeFulltext - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False) + LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext") convertValue = CStr(value) Case 4097 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch") 'Vektor alphanumerisch convertValue = CStr(value) Case 4098 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4098 Vektor Numerisch") 'Vektor Numerisch convertValue = CStr(value) Case 4099 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl") 'Vektor Kommazahl convertValue = CStr(value) Case 4101 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date") 'Vektor Kommazahl convertValue = CStr(value) Case 4103 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4103 Vektor DateTime") 'Vektor DateTime convertValue = CStr(value) Case 4107 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False) + LOGGER.Info(" ...Typ des windream-Indexes: 4107 Integer 64bit") convertValue = CStr(value) Case 36865 vektor = True - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False) + LOGGER.Info(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch") 'Vektor Kommazahl convertValue = CStr(value) Case Else - If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False) - If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType) + LOGGER.Info(" ...Typ des windream-Indexes konnte nicht bestimmt werden!") + LOGGER.Info(" ...Versuch des Auslesens (vType): " & vType) 'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else") convertValue = "" End Select If vektor = False Then If convertValue.ToString Is Nothing = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Konvertierter Wert: '" & convertValue.ToString & "'", False) + LOGGER.Info(" ...Konvertierter Wert: '" & convertValue.ToString & "'") End If End If '############################################################################################ @@ -1111,7 +1114,7 @@ Public Class ClassWindream '############################################################################################ If vektor = False Then If convertValue.ToString Is Nothing = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False) + LOGGER.Info(" ...Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")") If _int = True Then convertValue = convertValue.ToString.Replace(" ", "") oDocument.SetVariableValue(aName, CInt(convertValue)) @@ -1129,15 +1132,15 @@ Public Class ClassWindream oDocument.Save() If LogErrorsOnly = False Then - ClassLogger.Add(" ...Index '" & aName & "' wurde geschrieben", False) - ClassLogger.Add("", False) + LOGGER.Info(" ...Index '" & aName & "' wurde geschrieben") + LOGGER.Info("") End If Else - ClassLogger.Add(" >> Kein Indexwert vorhanden", False) + LOGGER.Info(" >> Kein Indexwert vorhanden") End If Else 'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST - If LogErrorsOnly = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False) + LOGGER.Info(" >> VEKTORFELD: Vorbereiten des Arrays") Dim myArray() @@ -1149,7 +1152,7 @@ Public Class ClassWindream Dim Anzahl As Integer = aValues.Length 'Vektorfeld wird mit EINEM Wert gefüllt If Anzahl = 1 Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit EINEM Wert gefüllt ", False) + LOGGER.Info(" >> Vektorfeld wird mit EINEM Wert gefüllt ") ReDim myArray(0) Select Case vType Case 36865 @@ -1181,12 +1184,12 @@ Public Class ClassWindream End Select 'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen - If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: " & myArray(0).ToString, False) + LOGGER.Info(" >> Konvertierter Wert: " & myArray(0).ToString) Dim VektorArray() 'Immer anfügen - If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Existing Vektorvalues", False) + LOGGER.Info(" >> Check Existing Vektorvalues") Dim indicies As New List(Of Object) @@ -1212,14 +1215,14 @@ Public Class ClassWindream 'Jetzt die Nachindexierung für Vektor-Felder oDocument.SetVariableValue(aName, myArray) 'myArray) - If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich", False) + LOGGER.Info(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich") 'Die Änderungen festsschreiben/speichern oDocument.Save() End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit MEHREREN Werten gefüllt ", False) + LOGGER.Info(" >> Vektorfeld wird mit MEHREREN Werten gefüllt ") ' das ausgewählte Profil in _selectedProfile laden @@ -1229,10 +1232,10 @@ Public Class ClassWindream 'Die Datatable durchlaufen und Werte für den Index in Array schreiben For Each obj In myArray myArray(i1) = CStr(obj) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert (" & i1 & ") aus Datatable: '" & myArray(i1).ToString & "'", False) + LOGGER.Info(" >> Wert (" & i1 & ") aus Datatable: '" & myArray(i1).ToString & "'") i1 = i1 + 1 Next - If LogErrorsOnly = False Then ClassLogger.Add(" >> Array wurde erfolgreich erzeugt", False) + LOGGER.Info(" >> Array wurde erfolgreich erzeugt") Dim VektorArray() @@ -1269,28 +1272,29 @@ Public Class ClassWindream 'Die Größe des Arrays festlegen myArray(i1) = CStr(myArray(0)) End Select - If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert (" & i1 & ") : '" & myArray(i1).ToString & "'", False) + LOGGER.Info(" >> Konvertierter Wert (" & i1 & ") : '" & myArray(i1).ToString & "'") i1 += 1 Next 'Jetzt die Nachindexierung für Vektor-Felder Try oDocument.SetVariableValue(aName, myArray) Catch ex As Exception - ClassLogger.Add("RunIndexing -Unexpected error in indexing Vectorfield: " & ex.Message, True) + LOGGER.Info("RunIndexing -Unexpected error in indexing Vectorfield: " & ex.Message) + LOGGER.Error(ex.Message) oDocument.Save() oDocument.unlock() Return False End Try - If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False) + LOGGER.Info(" >> 'SetVariableValue' für VEKTOR erfolgreich") ' oDocument.LockRights() 'Die Änderungen festsschreiben/speichern oDocument.Save() - If LogErrorsOnly = False Then ClassLogger.Add(">> Indexierung erfolgreich beendet (Save ...", False) + LOGGER.Info(">> Indexierung erfolgreich beendet (Save ...") Else - ClassLogger.Add(" - Achtung: VektorArray Is NOTHING", False) + LOGGER.Info(" - Achtung: VektorArray Is NOTHING") oDocument.Save() Return True End If @@ -1303,18 +1307,19 @@ Public Class ClassWindream Next oDocument.unlock() If LogErrorsOnly = False Then - ClassLogger.Add(">> ...und Unlock durchgeführt)", False) - ClassLogger.Add("", False) + LOGGER.Info(">> ...und Unlock durchgeführt)") + LOGGER.Info("") End If Return True Else - ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False) + LOGGER.Info(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!") 'oDocument.unlock() Return False End If End If Catch ex As Exception - ClassLogger.Add("ClassNiWindream.RunIndexing: " & ex.Message) + LOGGER.Info("ClassNiWindream.RunIndexing: " & ex.Message) + LOGGER.Error(ex.Message) oDocument.Save() oDocument.unlock() Return False @@ -1331,7 +1336,7 @@ Public Class ClassWindream 'Nochmals prüfen ob wirklich Array If wertWD.GetType.ToString.Contains("System.Object") Then 'Keine Duplikatprüfung also einfach neues Array füllen - If LogErrorsOnly = False Then ClassLogger.Add(" >> Duplikatprüfung soll durchgeführt werden.", False) + LOGGER.Info(" >> Duplikatprüfung soll durchgeführt werden.") 'Duplikat Prüfung an, also nur anhängen wenn Wert <> For Each WDValue As Object In wertWD If WDValue Is Nothing = False Then @@ -1352,14 +1357,14 @@ Public Class ClassWindream ValueArray(Anzahl) = NewValue.ToString Anzahl += 1 Else - ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten", False) + LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten") End If End If Next End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld ist noch leer....", False) + LOGGER.Info(" >> Vektorfeld ist noch leer....") 'Den/die Neuen Wert(e) anfügen For Each NewValue As Object In NIIndexe If NewValue Is Nothing = False Then @@ -1372,7 +1377,7 @@ Public Class ClassWindream ValueArray(Anzahl) = NewValue.ToString Anzahl += 1 Else - ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten", False) + LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten") End If Else 'Dererste Wert, also hinzufügen 'Das Array anpassen @@ -1389,7 +1394,8 @@ Public Class ClassWindream Return ValueArray Catch ex As Exception - ClassLogger.Add("Unexpected Error in ClassWindream.Return_VektorArray: " & ex.Message, True) + LOGGER.Info("Unexpected Error in ClassWindream.Return_VektorArray: " & ex.Message) + LOGGER.Error(ex.Message) End Try @@ -1423,7 +1429,7 @@ Public Class ClassWindream ''' Liefert True wenn das Indexieren erfolgreich war, sonst False ''' Public Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) As Boolean - If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False) + LOGGER.Info(" - In Indexierungsvorgang für: " & filenameZiel) Try Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject") 'MsgBox("Indexiere: " & vbNewLine & filenameZiel) @@ -1434,7 +1440,7 @@ Public Class ClassWindream index Is Nothing Or index = "" Or Not ExistIndexInObjekttyp(_WDObjekttyp, index) Then - If LogErrorsOnly = False Then ClassLogger.Add("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.", False) + LOGGER.Info("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.") Return False End If @@ -1449,7 +1455,7 @@ Public Class ClassWindream fileExists = False Exit Do Else - If LogErrorsOnly = False Then ClassLogger.Add(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime, True) + LOGGER.Info(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime) End If an = an + 1 Loop @@ -1468,8 +1474,8 @@ Public Class ClassWindream ' ein windream-Objekt der Datei anlegen WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) If LogErrorsOnly = False Then - ClassLogger.Add(" - windream-Objekt der Datei erzeugt", False) - ClassLogger.Add(" - Ziel: W:\" & filenameZiel, False) + LOGGER.Info(" - windream-Objekt der Datei erzeugt") + LOGGER.Info(" - Ziel: W:\" & filenameZiel) End If 'Me.singleInfoNode.Add("Ziel: " & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel) @@ -1509,9 +1515,9 @@ Public Class ClassWindream ' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt If TypDesIndexes < WMObjectVariableValueTypeVector Then - If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False) + LOGGER.Info(" - Bei dem Zielindex handelt es sich um einen Einzelindex.") Else - If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False) + LOGGER.Info(" Bei dem Zielindex handelt es sich um ein Vektorfeld.") ' ein Backup der Indexwerte anlegen Dim temp As Object = werte ' und die eigendliche Variable zurücksetzen @@ -1519,17 +1525,18 @@ Public Class ClassWindream ' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein ' Array in einen Einzelindex zu speichern werte = temp - If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False) + LOGGER.Info(" - Array geleert und erneuert!") End If Catch ex As Exception - ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False) + LOGGER.Info("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.") + LOGGER.Error(ex.Message) Return False End Try 'Try ' den Typ des Zielindexes - If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False) + LOGGER.Info(" - Typ des Indexes: " & TypDesIndexes.ToString) Select Case (TypDesIndexes) Case WMObjectVariableValueTypeUndefined ' zu klären !!!! 'convertValue = vbEmpty @@ -1538,7 +1545,7 @@ Public Class ClassWindream 'If werte.ToString.StartsWith("0") Then ' Dim wert As String = CStr(CInt(werte.ToString)) ' convertValue = wert - ' ClassLogger.Add(" - Führende Nullen wurden entfernt", False) + ' LOGGER.Info(" - Führende Nullen wurden entfernt") 'Else ' Dim wert As String = CStr(CInt(werte.ToString)) ' convertValue = wert @@ -1618,7 +1625,7 @@ Public Class ClassWindream Case Else ' wenn es sich um einen TypVektorIndex handelt If TypDesIndexes >= 4096 And TypDesIndexes < 8192 Then - If LogErrorsOnly = False Then ClassLogger.Add("- Es handelt sich um einen Vektorindex", False) + LOGGER.Info("- Es handelt sich um einen Vektorindex") 'Dim temp_arr As New ArrayList Dim arrayIndex = 0 @@ -1633,7 +1640,7 @@ Public Class ClassWindream Select Case (TypDesIndexes - WMObjectVariableValueTypeVector) 'VektorIndex vom Typ String 64' Case 1 - If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 1", False) + LOGGER.Info("- VektorIndex vom Typ String 1") For Each wert As Object In werte 'Führende Nullen Entfernen @@ -1641,7 +1648,7 @@ Public Class ClassWindream Dim werteString As String = CStr(CInt(wert.ToString)) wert = werteString temp_arr(arrayIndex) = CStr(wert) - ClassLogger.Add("- Führende Nullen wurden entfernt", False) + LOGGER.Info("- Führende Nullen wurden entfernt") Else temp_arr(arrayIndex) = CStr(wert) @@ -1649,30 +1656,30 @@ Public Class ClassWindream arrayIndex = arrayIndex + 1 - If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + LOGGER.Info("- Wert " & CStr(wert) & " konvertiert") Next Case WMObjectVariableValueTypeUndefined ' convertValue = "" Case WMObjectVariableValueTypeString - If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 2", False) + LOGGER.Info("- VektorIndex vom Typ String 2") For Each wert As Object In werte 'Führende Nullen Entfernen If werte.ToString.StartsWith("0") Then wert = CInt(wert) temp_arr(arrayIndex) = CStr(wert) - ClassLogger.Add("- Führende Nullen wurden entfernt", False) + LOGGER.Info("- Führende Nullen wurden entfernt") Else temp_arr(arrayIndex) = CStr(wert) End If arrayIndex = arrayIndex + 1 - If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + LOGGER.Info("- Wert " & CStr(wert) & " konvertiert") Next Case WMObjectVariableValueTypeInteger - If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ Integer", False) + LOGGER.Info("- VektorIndex vom Typ Integer") For Each wert As Object In werte temp_arr(arrayIndex) = CInt(wert) arrayIndex = arrayIndex + 1 @@ -1735,7 +1742,7 @@ Public Class ClassWindream werte = temp_arr - If LogErrorsOnly = False Then ClassLogger.Add("- Werte erfolgreich konvertiert", False) + LOGGER.Info("- Werte erfolgreich konvertiert") Else ' convertValue = vbEmpty End If @@ -1744,7 +1751,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("Unexpected error in Auswerten/Konvertieren des Typs!", ex.Message) + ' LOGGER.Info("Unexpected error in Auswerten/Konvertieren des Typs!", ex.Message) ' ' die Indexierungsinformationen für den TreeView-Log zurückgeben ' Return False 'End Try @@ -1758,21 +1765,21 @@ Public Class ClassWindream ' den konvertierten Indexwert dem entsprechenden Index zuweisen WMObject.SetVariableValue(index, werte) If LogErrorsOnly = False Then - ClassLogger.Add(" - den konvertierten Indexwert dem entsprechenden Index zuweisen", False) - ClassLogger.Add(" - Indexname: " & index.ToString, False) - ClassLogger.Add(" - Indexwert: " & werte.ToString, False) + LOGGER.Info(" - den konvertierten Indexwert dem entsprechenden Index zuweisen") + LOGGER.Info(" - Indexname: " & index.ToString) + LOGGER.Info(" - Indexwert: " & werte.ToString) End If 'End If ' die Indexinformationen des Dokuments speichern WMObject.Save() - If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False) + LOGGER.Info(" - die Indexinformationen des Dokuments speichern") ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, ' wenn eine Datei nicht gesperrt ist Try ' die Sperrung des Dokuments aufheben WMObject.unlock() - If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False) + LOGGER.Info(" - die Sperrung des Dokuments aufheben") Catch ex As Exception ' nichts tun (Datei war nicht gesperrt) @@ -1782,12 +1789,13 @@ Public Class ClassWindream Return True Else ' die Indexierungsinformationen für den TreeView-Log zurückgeben - ClassLogger.Add(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.", False) + LOGGER.Info(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.") End If Catch ex As Exception - ClassLogger.Add(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.") - ClassLogger.Add(ex.Message) + LOGGER.Info(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.") + LOGGER.Error(ex.Message) + LOGGER.Info(ex.Message) End Try Return True @@ -1886,7 +1894,8 @@ Public Class ClassWindream Return input Catch ex As Exception - ClassLogger.Add("Fehler in CheckIndexValue: " & ex.Message) + LOGGER.Info("Fehler in CheckIndexValue: " & ex.Message) + LOGGER.Error(ex.message) Return Nothing End Try diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index e7c3f3d..b7ccc99 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -141,7 +141,6 @@ Partial Class frmAdministration Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox() Me.ListBox5 = New System.Windows.Forms.ListBox() Me.btnSQLView = New System.Windows.Forms.Button() - Me.lblSaveIndexMan = New System.Windows.Forms.Label() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() @@ -172,7 +171,6 @@ Partial Class frmAdministration Me.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage() Me.VARIANTComboBox = New System.Windows.Forms.ComboBox() Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.lblsavePostProcess = New System.Windows.Forms.Label() Me.ComboBox2 = New System.Windows.Forms.ComboBox() Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.Function2Label = New System.Windows.Forms.Label() @@ -216,7 +214,6 @@ Partial Class frmAdministration Me.lblValue = New System.Windows.Forms.Label() Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox() Me.Label6 = New System.Windows.Forms.Label() - Me.lblsaveAutoIndex = New System.Windows.Forms.Label() Me.btnSQLViewAuto = New System.Windows.Forms.Button() Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox() @@ -950,7 +947,6 @@ Partial Class frmAdministration Me.XtraTabPageManualIndex.Controls.Add(Me.OPTIONALCheckBox) Me.XtraTabPageManualIndex.Controls.Add(Me.ListBox5) Me.XtraTabPageManualIndex.Controls.Add(Me.btnSQLView) - Me.XtraTabPageManualIndex.Controls.Add(Me.lblSaveIndexMan) Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHENLabel) Me.XtraTabPageManualIndex.Controls.Add(Me.CHANGED_WHENTextBox) Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHOLabel) @@ -1037,12 +1033,6 @@ Partial Class frmAdministration Me.btnSQLView.Name = "btnSQLView" Me.btnSQLView.UseVisualStyleBackColor = True ' - 'lblSaveIndexMan - ' - resources.ApplyResources(Me.lblSaveIndexMan, "lblSaveIndexMan") - Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow - Me.lblSaveIndexMan.Name = "lblSaveIndexMan" - ' 'CHANGED_WHENLabel ' resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") @@ -1276,7 +1266,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.XtraTabPageManualIndexFunctions, "XtraTabPageManualIndexFunctions") Me.XtraTabPageManualIndexFunctions.Controls.Add(VARIANTLabel) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.VARIANTComboBox) - Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.lblsavePostProcess) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ComboBox2) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Function2Label) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Function1Label) @@ -1326,12 +1315,6 @@ Partial Class frmAdministration Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING" Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset ' - 'lblsavePostProcess - ' - resources.ApplyResources(Me.lblsavePostProcess, "lblsavePostProcess") - Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow - Me.lblsavePostProcess.Name = "lblsavePostProcess" - ' 'ComboBox2 ' Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True)) @@ -1605,7 +1588,6 @@ Partial Class frmAdministration Me.XtraTabPageAutoIndex.Controls.Add(Me.lblValue) Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexCMB) Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6) - Me.XtraTabPageAutoIndex.Controls.Add(Me.lblsaveAutoIndex) Me.XtraTabPageAutoIndex.Controls.Add(Me.btnSQLViewAuto) Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox) Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4) @@ -1677,12 +1659,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.Label6, "Label6") Me.Label6.Name = "Label6" ' - 'lblsaveAutoIndex - ' - resources.ApplyResources(Me.lblsaveAutoIndex, "lblsaveAutoIndex") - Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow - Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex" - ' 'btnSQLViewAuto ' resources.ApplyResources(Me.btnSQLViewAuto, "btnSQLViewAuto") @@ -2923,7 +2899,6 @@ Partial Class frmAdministration Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents lblSaveIndexMan As System.Windows.Forms.Label Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter Friend WithEvents btnSQLView As System.Windows.Forms.Button @@ -2971,7 +2946,6 @@ Partial Class frmAdministration Friend WithEvents CHANGED_WHENTextBox3 As System.Windows.Forms.TextBox Friend WithEvents SQL_ACTIVECheckBox As System.Windows.Forms.CheckBox Friend WithEvents btnSQLViewAuto As System.Windows.Forms.Button - Friend WithEvents lblsaveAutoIndex As System.Windows.Forms.Label Friend WithEvents XtraTabPageManualIndexFunctions As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents ToolStripButton24 As System.Windows.Forms.ToolStripButton @@ -3009,7 +2983,6 @@ Partial Class frmAdministration Friend WithEvents TBWHDD_INDEX_MANBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWHDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter 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 VWGI_USER_GROUPS_RELATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWGI_USER_GROUPS_RELATIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWGI_USER_GROUPS_RELATIONTableAdapter diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx index 1cae2d2..09b6801 100644 --- a/Global_Indexer/frmAdministration.resx +++ b/Global_Indexer/frmAdministration.resx @@ -1105,18 +1105,6 @@ 7 - - lblSaveIndexMan - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageManualIndex - - - 8 - CHANGED_WHENLabel @@ -1127,7 +1115,7 @@ XtraTabPageManualIndex - 9 + 8 CHANGED_WHENTextBox @@ -1139,7 +1127,7 @@ XtraTabPageManualIndex - 10 + 9 CHANGED_WHOLabel @@ -1151,7 +1139,7 @@ XtraTabPageManualIndex - 11 + 10 CHANGED_WHOTextBox @@ -1163,7 +1151,7 @@ XtraTabPageManualIndex - 12 + 11 ADDED_WHENLabel @@ -1175,7 +1163,7 @@ XtraTabPageManualIndex - 13 + 12 ADDED_WHENTextBox @@ -1187,7 +1175,7 @@ XtraTabPageManualIndex - 14 + 13 ADDED_WHOLabel @@ -1199,7 +1187,7 @@ XtraTabPageManualIndex - 15 + 14 ADDED_WHOTextBox @@ -1211,7 +1199,7 @@ XtraTabPageManualIndex - 16 + 15 ACTIVECheckBox @@ -1223,7 +1211,7 @@ XtraTabPageManualIndex - 17 + 16 SEQUENCELabel @@ -1235,7 +1223,7 @@ XtraTabPageManualIndex - 18 + 17 SEQUENCETextBox @@ -1247,7 +1235,7 @@ XtraTabPageManualIndex - 19 + 18 DEFAULT_VALUELabel @@ -1259,7 +1247,7 @@ XtraTabPageManualIndex - 20 + 19 DEFAULT_VALUETextBox @@ -1271,7 +1259,7 @@ XtraTabPageManualIndex - 21 + 20 SUGGESTIONCheckBox @@ -1283,7 +1271,7 @@ XtraTabPageManualIndex - 22 + 21 DATATYPELabel @@ -1295,7 +1283,7 @@ XtraTabPageManualIndex - 23 + 22 DATATYPEComboBox @@ -1307,7 +1295,7 @@ XtraTabPageManualIndex - 24 + 23 COMMENTLabel @@ -1319,7 +1307,7 @@ XtraTabPageManualIndex - 25 + 24 COMMENTTextBox @@ -1331,7 +1319,7 @@ XtraTabPageManualIndex - 26 + 25 WD_INDEXComboBox @@ -1343,7 +1331,7 @@ XtraTabPageManualIndex - 27 + 26 NAMELabel @@ -1355,7 +1343,7 @@ XtraTabPageManualIndex - 28 + 27 NAMETextBox @@ -1367,7 +1355,7 @@ XtraTabPageManualIndex - 29 + 28 TBDD_INDEX_MANBindingNav @@ -1379,7 +1367,7 @@ XtraTabPageManualIndex - 30 + 29 GUIDLabel1 @@ -1391,7 +1379,7 @@ XtraTabPageManualIndex - 31 + 30 GUIDTextBox1 @@ -1403,7 +1391,7 @@ XtraTabPageManualIndex - 32 + 31 1109, 277 @@ -1489,18 +1477,6 @@ 1 - - lblsavePostProcess - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageManualIndexFunctions - - - 2 - ComboBox2 @@ -1511,7 +1487,7 @@ XtraTabPageManualIndexFunctions - 3 + 2 Function2Label @@ -1523,7 +1499,7 @@ XtraTabPageManualIndexFunctions - 4 + 3 Function1Label @@ -1535,7 +1511,7 @@ XtraTabPageManualIndexFunctions - 5 + 4 Text3Label @@ -1547,7 +1523,7 @@ XtraTabPageManualIndexFunctions - 6 + 5 Text2Label @@ -1559,7 +1535,7 @@ XtraTabPageManualIndexFunctions - 7 + 6 Text1Label @@ -1571,7 +1547,7 @@ XtraTabPageManualIndexFunctions - 8 + 7 CHANGED_WHENLabel4 @@ -1583,7 +1559,7 @@ XtraTabPageManualIndexFunctions - 9 + 8 CHANGED_WHENTextBox4 @@ -1595,7 +1571,7 @@ XtraTabPageManualIndexFunctions - 10 + 9 CHANGED_WHOLabel4 @@ -1607,7 +1583,7 @@ XtraTabPageManualIndexFunctions - 11 + 10 CHANGED_WHOTextBox4 @@ -1619,7 +1595,7 @@ XtraTabPageManualIndexFunctions - 12 + 11 ADDED_WHENLabel4 @@ -1631,7 +1607,7 @@ XtraTabPageManualIndexFunctions - 13 + 12 ADDED_WHENTextBox4 @@ -1643,7 +1619,7 @@ XtraTabPageManualIndexFunctions - 14 + 13 ADDED_WHOLabel4 @@ -1655,7 +1631,7 @@ XtraTabPageManualIndexFunctions - 15 + 14 ADDED_WHOTextBox4 @@ -1667,7 +1643,7 @@ XtraTabPageManualIndexFunctions - 16 + 15 SEQUENCELabel1 @@ -1679,7 +1655,7 @@ XtraTabPageManualIndexFunctions - 17 + 16 SEQUENCETextBox1 @@ -1691,7 +1667,7 @@ XtraTabPageManualIndexFunctions - 18 + 17 TEXT3TextBox @@ -1703,7 +1679,7 @@ XtraTabPageManualIndexFunctions - 19 + 18 TEXT2TextBox @@ -1715,7 +1691,7 @@ XtraTabPageManualIndexFunctions - 20 + 19 TEXT1TextBox @@ -1727,7 +1703,7 @@ XtraTabPageManualIndexFunctions - 21 + 20 FUNCTION2TextBox @@ -1739,7 +1715,7 @@ XtraTabPageManualIndexFunctions - 22 + 21 FUNCTION1TextBox @@ -1751,7 +1727,7 @@ XtraTabPageManualIndexFunctions - 23 + 22 TYPELabel @@ -1763,7 +1739,7 @@ XtraTabPageManualIndexFunctions - 24 + 23 TYPEComboBox @@ -1775,7 +1751,7 @@ XtraTabPageManualIndexFunctions - 25 + 24 COMMENTLabel2 @@ -1787,7 +1763,7 @@ XtraTabPageManualIndexFunctions - 26 + 25 COMMENTTextBox2 @@ -1799,7 +1775,7 @@ XtraTabPageManualIndexFunctions - 27 + 26 IDXMAN_IDLabel @@ -1811,7 +1787,7 @@ XtraTabPageManualIndexFunctions - 28 + 27 GUIDLabel5 @@ -1823,7 +1799,7 @@ XtraTabPageManualIndexFunctions - 29 + 28 GUIDTextBox4 @@ -1835,7 +1811,7 @@ XtraTabPageManualIndexFunctions - 30 + 29 TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator @@ -1847,7 +1823,7 @@ XtraTabPageManualIndexFunctions - 31 + 30 1109, 277 @@ -1984,18 +1960,6 @@ 6 - - lblsaveAutoIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageAutoIndex - - - 7 - btnSQLViewAuto @@ -2006,7 +1970,7 @@ XtraTabPageAutoIndex - 8 + 7 SQL_ACTIVECheckBox @@ -2018,7 +1982,7 @@ XtraTabPageAutoIndex - 9 + 8 GUIDLabel4 @@ -2030,7 +1994,7 @@ XtraTabPageAutoIndex - 10 + 9 GUIDAUTO_INDEXTextbox @@ -2042,7 +2006,7 @@ XtraTabPageAutoIndex - 11 + 10 INDEXNAMELabel @@ -2054,7 +2018,7 @@ XtraTabPageAutoIndex - 12 + 11 VALUETextBox @@ -2066,7 +2030,7 @@ XtraTabPageAutoIndex - 13 + 12 COMMENTLabel1 @@ -2078,7 +2042,7 @@ XtraTabPageAutoIndex - 14 + 13 COMMENTTextBox1 @@ -2090,7 +2054,7 @@ XtraTabPageAutoIndex - 15 + 14 ACTIVECheckBox1 @@ -2102,7 +2066,7 @@ XtraTabPageAutoIndex - 16 + 15 ADDED_WHOLabel3 @@ -2114,7 +2078,7 @@ XtraTabPageAutoIndex - 17 + 16 ADDED_WHOTextBox3 @@ -2126,7 +2090,7 @@ XtraTabPageAutoIndex - 18 + 17 ADDED_WHENLabel3 @@ -2138,7 +2102,7 @@ XtraTabPageAutoIndex - 19 + 18 ADDED_WHENTextBox3 @@ -2150,7 +2114,7 @@ XtraTabPageAutoIndex - 20 + 19 CHANGED_WHOLabel3 @@ -2162,7 +2126,7 @@ XtraTabPageAutoIndex - 21 + 20 CHANGED_WHOTextBox3 @@ -2174,7 +2138,7 @@ XtraTabPageAutoIndex - 22 + 21 CHANGED_WHENLabel3 @@ -2186,7 +2150,7 @@ XtraTabPageAutoIndex - 23 + 22 CHANGED_WHENTextBox3 @@ -2198,7 +2162,7 @@ XtraTabPageAutoIndex - 24 + 23 BindingNavigator2 @@ -2210,7 +2174,7 @@ XtraTabPageAutoIndex - 25 + 24 INDEXNAME_AutoIndexTXT @@ -2222,7 +2186,7 @@ XtraTabPageAutoIndex - 26 + 25 1109, 277 @@ -2275,235 +2239,65 @@ 519, 290 - - 17, 290 + + False - - 44, 22 + + False + + + False + + + False + + + False + + + False + + + BindingNavigator3 - - von {0} + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Die Gesamtanzahl der Elemente. + + XtraTabPageProfileRegex - - - 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= - + + 0 - - True + + TextBox1 - - 23, 22 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Erste verschieben + + XtraTabPageProfileRegex - - - 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 - + + 1 - - True + + Label27 - - 23, 22 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Vorherige verschieben + + XtraTabPageProfileRegex - - 6, 25 + + 2 - - Position + + Label28 - - False - - - Segoe UI, 9pt - - - 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 - - - 0, 0 - - - 1109, 25 - - - 36 - - - BindingNavigator3 - - - BindingNavigator3 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageProfileRegex - - - 0 - - - 129, 93 - - - 471, 21 - - - 34 - - - TextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageProfileRegex - - - 1 - - - True - - - NoControl - - - 16, 98 - - - 86, 13 - - - 33 - - - Dateiname Test: - - - Label27 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageProfileRegex - - - 2 - - - False - - - True - - - NoControl - - - 16, 43 - - - 22, 13 - - - 19 - - - ID: - - - Label28 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 XtraTabPageProfileRegex @@ -2511,21 +2305,6 @@ 3 - - NoControl - - - 606, 93 - - - 92, 23 - - - 32 - - - Test RegEx - Button2 @@ -2538,15 +2317,6 @@ 4 - - 369, 147 - - - 121, 21 - - - 31 - TextBox2 @@ -2559,27 +2329,6 @@ 5 - - False - - - True - - - NoControl - - - 256, 150 - - - 85, 13 - - - 30 - - - Geändert wann: - Label29 @@ -2592,15 +2341,6 @@ 6 - - 129, 40 - - - 65, 21 - - - 20 - TextBox3 @@ -2613,15 +2353,6 @@ 7 - - 369, 120 - - - 121, 21 - - - 29 - TextBox4 @@ -2634,27 +2365,6 @@ 8 - - False - - - True - - - NoControl - - - 16, 73 - - - 103, 13 - - - 21 - - - Regular Expression: - Label30 @@ -2667,27 +2377,6 @@ 9 - - False - - - True - - - NoControl - - - 256, 123 - - - 77, 13 - - - 28 - - - Geändert wer: - Label31 @@ -2700,18 +2389,6 @@ 10 - - Consolas, 8.25pt - - - 129, 67 - - - 569, 20 - - - 22 - TextBox5 @@ -2724,15 +2401,6 @@ 11 - - 129, 147 - - - 121, 21 - - - 27 - TextBox6 @@ -2745,27 +2413,6 @@ 12 - - False - - - True - - - NoControl - - - 16, 150 - - - 69, 13 - - - 26 - - - Ersellt wann: - Label33 @@ -2778,27 +2425,6 @@ 13 - - False - - - True - - - NoControl - - - 16, 123 - - - 65, 13 - - - 24 - - - Erstellt wer: - Label34 @@ -2811,15 +2437,6 @@ 14 - - 129, 120 - - - 121, 21 - - - 25 - TextBox7 @@ -3979,39 +3596,6 @@ der Datei 7 - - True - - - Segoe UI, 9.75pt, style=Bold - - - 504, 181 - - - 192, 17 - - - 79 - - - Index erfolgreich gespeichert! - - - False - - - lblSaveIndexMan - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageManualIndex - - - 8 - False @@ -4043,7 +3627,7 @@ der Datei XtraTabPageManualIndex - 9 + 8 Segoe UI, 9pt, style=Italic @@ -4067,7 +3651,7 @@ der Datei XtraTabPageManualIndex - 10 + 9 False @@ -4100,7 +3684,7 @@ der Datei XtraTabPageManualIndex - 11 + 10 Segoe UI, 9pt, style=Italic @@ -4124,7 +3708,7 @@ der Datei XtraTabPageManualIndex - 12 + 11 False @@ -4157,7 +3741,7 @@ der Datei XtraTabPageManualIndex - 13 + 12 Segoe UI, 9pt, style=Italic @@ -4181,7 +3765,7 @@ der Datei XtraTabPageManualIndex - 14 + 13 False @@ -4214,7 +3798,7 @@ der Datei XtraTabPageManualIndex - 15 + 14 Segoe UI, 9pt, style=Italic @@ -4238,7 +3822,7 @@ der Datei XtraTabPageManualIndex - 16 + 15 False @@ -4265,7 +3849,7 @@ der Datei XtraTabPageManualIndex - 17 + 16 False @@ -4295,7 +3879,7 @@ der Datei XtraTabPageManualIndex - 18 + 17 False @@ -4319,7 +3903,7 @@ der Datei XtraTabPageManualIndex - 19 + 18 False @@ -4349,7 +3933,7 @@ der Datei XtraTabPageManualIndex - 20 + 19 False @@ -4373,7 +3957,7 @@ der Datei XtraTabPageManualIndex - 21 + 20 False @@ -4400,7 +3984,7 @@ der Datei XtraTabPageManualIndex - 22 + 21 False @@ -4430,7 +4014,7 @@ der Datei XtraTabPageManualIndex - 23 + 22 False @@ -4466,7 +4050,7 @@ der Datei XtraTabPageManualIndex - 24 + 23 False @@ -4496,7 +4080,7 @@ der Datei XtraTabPageManualIndex - 25 + 24 False @@ -4520,7 +4104,7 @@ der Datei XtraTabPageManualIndex - 26 + 25 False @@ -4544,7 +4128,7 @@ der Datei XtraTabPageManualIndex - 27 + 26 False @@ -4574,7 +4158,7 @@ der Datei XtraTabPageManualIndex - 28 + 27 False @@ -4598,7 +4182,7 @@ der Datei XtraTabPageManualIndex - 29 + 28 275, 56 @@ -4804,7 +4388,7 @@ der Datei XtraTabPageManualIndex - 30 + 29 False @@ -4837,7 +4421,7 @@ der Datei XtraTabPageManualIndex - 31 + 30 Segoe UI, 9pt, style=Italic @@ -4861,7 +4445,7 @@ der Datei XtraTabPageManualIndex - 32 + 31 False @@ -4929,39 +4513,6 @@ der Datei 511, 173 - - True - - - Segoe UI, 9.75pt, style=Bold - - - 384, 191 - - - 213, 17 - - - 80 - - - Funktion erfolgreich gespeichert! - - - False - - - lblsavePostProcess - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageManualIndexFunctions - - - 2 - 1187, 173 @@ -4987,7 +4538,7 @@ der Datei XtraTabPageManualIndexFunctions - 3 + 2 1187, 173 @@ -5017,7 +4568,7 @@ der Datei XtraTabPageManualIndexFunctions - 4 + 3 True @@ -5044,7 +4595,7 @@ der Datei XtraTabPageManualIndexFunctions - 5 + 4 True @@ -5071,7 +4622,7 @@ der Datei XtraTabPageManualIndexFunctions - 6 + 5 True @@ -5098,7 +4649,7 @@ der Datei XtraTabPageManualIndexFunctions - 7 + 6 True @@ -5125,7 +4676,7 @@ der Datei XtraTabPageManualIndexFunctions - 8 + 7 False @@ -5158,7 +4709,7 @@ der Datei XtraTabPageManualIndexFunctions - 9 + 8 Segoe UI, 9pt, style=Italic @@ -5182,7 +4733,7 @@ der Datei XtraTabPageManualIndexFunctions - 10 + 9 False @@ -5215,7 +4766,7 @@ der Datei XtraTabPageManualIndexFunctions - 11 + 10 Segoe UI, 9pt, style=Italic @@ -5239,7 +4790,7 @@ der Datei XtraTabPageManualIndexFunctions - 12 + 11 False @@ -5272,7 +4823,7 @@ der Datei XtraTabPageManualIndexFunctions - 13 + 12 Segoe UI, 9pt, style=Italic @@ -5296,7 +4847,7 @@ der Datei XtraTabPageManualIndexFunctions - 14 + 13 False @@ -5329,7 +4880,7 @@ der Datei XtraTabPageManualIndexFunctions - 15 + 14 Segoe UI, 9pt, style=Italic @@ -5353,7 +4904,7 @@ der Datei XtraTabPageManualIndexFunctions - 16 + 15 False @@ -5383,7 +4934,7 @@ der Datei XtraTabPageManualIndexFunctions - 17 + 16 False @@ -5407,7 +4958,7 @@ der Datei XtraTabPageManualIndexFunctions - 18 + 17 False @@ -5431,7 +4982,7 @@ der Datei XtraTabPageManualIndexFunctions - 19 + 18 False @@ -5455,7 +5006,7 @@ der Datei XtraTabPageManualIndexFunctions - 20 + 19 False @@ -5479,7 +5030,7 @@ der Datei XtraTabPageManualIndexFunctions - 21 + 20 False @@ -5503,7 +5054,7 @@ der Datei XtraTabPageManualIndexFunctions - 22 + 21 False @@ -5527,7 +5078,7 @@ der Datei XtraTabPageManualIndexFunctions - 23 + 22 False @@ -5557,7 +5108,7 @@ der Datei XtraTabPageManualIndexFunctions - 24 + 23 False @@ -5590,7 +5141,7 @@ der Datei XtraTabPageManualIndexFunctions - 25 + 24 False @@ -5620,7 +5171,7 @@ der Datei XtraTabPageManualIndexFunctions - 26 + 25 False @@ -5644,7 +5195,7 @@ der Datei XtraTabPageManualIndexFunctions - 27 + 26 False @@ -5674,7 +5225,7 @@ der Datei XtraTabPageManualIndexFunctions - 28 + 27 False @@ -5707,7 +5258,7 @@ der Datei XtraTabPageManualIndexFunctions - 29 + 28 Segoe UI, 9pt, style=Italic @@ -5731,7 +5282,7 @@ der Datei XtraTabPageManualIndexFunctions - 30 + 29 325, 134 @@ -5937,7 +5488,7 @@ der Datei XtraTabPageManualIndexFunctions - 31 + 30 591, 78 @@ -6147,39 +5698,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6 - - True - - - Segoe UI, 9.75pt, style=Bold - - - 531, 192 - - - 192, 17 - - - 82 - - - Index erfolgreich gespeichert! - - - False - - - lblsaveAutoIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPageAutoIndex - - - 7 - False @@ -6214,7 +5732,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 8 + 7 False @@ -6241,7 +5759,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 9 + 8 False @@ -6274,7 +5792,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 10 + 9 Segoe UI, 9pt, style=Italic @@ -6298,7 +5816,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 11 + 10 False @@ -6328,7 +5846,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 12 + 11 False @@ -6352,7 +5870,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 13 + 12 False @@ -6382,7 +5900,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 14 + 13 False @@ -6406,7 +5924,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 15 + 14 102, 78 @@ -6430,7 +5948,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 16 + 15 False @@ -6463,7 +5981,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 17 + 16 Segoe UI, 9pt, style=Italic @@ -6487,7 +6005,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 18 + 17 False @@ -6520,7 +6038,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 19 + 18 Segoe UI, 9pt, style=Italic @@ -6544,7 +6062,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 20 + 19 False @@ -6577,7 +6095,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 21 + 20 Segoe UI, 9pt, style=Italic @@ -6601,7 +6119,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 22 + 21 False @@ -6634,7 +6152,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 23 + 22 Segoe UI, 9pt, style=Italic @@ -6658,7 +6176,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 24 + 23 1248, 134 @@ -6867,7 +6385,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 25 + 24 False @@ -6891,7 +6409,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPageAutoIndex - 26 + 25 Label10 @@ -7442,6 +6960,566 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 5 + + 519, 290 + + + 17, 290 + + + 44, 22 + + + von {0} + + + Die Gesamtanzahl der Elemente. + + + + 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 + + + Segoe UI, 9pt + + + 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 + + + 0, 0 + + + 1109, 25 + + + 36 + + + BindingNavigator3 + + + BindingNavigator3 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 0 + + + 129, 93 + + + 471, 21 + + + 34 + + + TextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 1 + + + True + + + NoControl + + + 16, 98 + + + 86, 13 + + + 33 + + + Dateiname Test: + + + Label27 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 2 + + + False + + + True + + + NoControl + + + 16, 43 + + + 22, 13 + + + 19 + + + ID: + + + Label28 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 3 + + + NoControl + + + 606, 93 + + + 92, 23 + + + 32 + + + Test RegEx + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 4 + + + 369, 147 + + + 121, 21 + + + 31 + + + TextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 5 + + + False + + + True + + + NoControl + + + 256, 150 + + + 85, 13 + + + 30 + + + Geändert wann: + + + Label29 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 6 + + + 129, 40 + + + 65, 21 + + + 20 + + + TextBox3 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 7 + + + 369, 120 + + + 121, 21 + + + 29 + + + TextBox4 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 8 + + + False + + + True + + + NoControl + + + 16, 73 + + + 103, 13 + + + 21 + + + Regular Expression: + + + Label30 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 9 + + + False + + + True + + + NoControl + + + 256, 123 + + + 77, 13 + + + 28 + + + Geändert wer: + + + Label31 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 10 + + + Consolas, 8.25pt + + + 129, 67 + + + 569, 20 + + + 22 + + + TextBox5 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 11 + + + 129, 147 + + + 121, 21 + + + 27 + + + TextBox6 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 12 + + + False + + + True + + + NoControl + + + 16, 150 + + + 69, 13 + + + 26 + + + Ersellt wann: + + + Label33 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 13 + + + False + + + True + + + NoControl + + + 16, 123 + + + 65, 13 + + + 24 + + + Erstellt wer: + + + Label34 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 14 + + + 129, 120 + + + 121, 21 + + + 25 + + + TextBox7 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPageProfileRegex + + + 15 + Default diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index 31c32e7..b79a886 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -13,6 +13,14 @@ Public Class frmAdministration Save_Dokumentart() End Sub + Private Sub SetStatus(Text As String) + txtStatus.Caption = Text & " - " & Now.ToShortTimeString + End Sub + + Private Sub ClearStatus() + txtStatus.Caption = String.Empty + End Sub + Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString @@ -294,21 +302,20 @@ Public Class frmAdministration WM_CHECKED_CHANGE() End Sub - Private Sub Load_INDEXMAN(DA_ID As Integer) + Private Sub Load_INDEXMAN(ProfileId As Integer) Try - Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID) + Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, ProfileId) If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then enableControls(XtraTabPageManualIndex) End If - lblSaveIndexMan.Visible = False + ClearStatus() Catch ex As System.Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") End Try - End Sub - Private Sub Load_INDEXE_AUTO(DA_ID As Integer) + Private Sub Load_INDEXE_AUTO(ProfileId As Integer) Try - Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID) + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, ProfileId) If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then enableControls(XtraTabPageAutoIndex) End If @@ -316,16 +323,15 @@ Public Class frmAdministration Catch ex As System.Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ") End Try - End Sub - Private Sub Load_PostProcessing(DA_ID As Integer) + Private Sub Load_PostProcessing(ProfileId As Integer) Try - Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID) - Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID) + Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, ProfileId) + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, ProfileId) If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then enableControls(XtraTabPageManualIndexFunctions) End If - lblsavePostProcess.Visible = False + ClearStatus() Catch ex As System.Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ") End Try @@ -336,8 +342,8 @@ Public Class frmAdministration Sub CheckIndexAutoWD() If WINDREAM_DIRECTCheckBox.Checked = True Then INDEXNAME_AutoIndexTXT.Visible = False - load_WDIndices2AutoIndizes() INDEXNAME_AutoIndexCMB.Visible = True + load_WDIndices2AutoIndizes() Else INDEXNAME_AutoIndexTXT.Visible = True INDEXNAME_AutoIndexCMB.Visible = False @@ -369,9 +375,9 @@ Public Class frmAdministration CHANGED_WHOTextBox.Text = Environment.UserName Me.TBDD_INDEX_MANBindingSource.EndEdit() TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN) - lblSaveIndexMan.Visible = True + SetStatus("Index erfolgreich gespeichert!") Else - lblSaveIndexMan.Visible = False + ClearStatus() End If IsInsert = False Catch ex As Exception @@ -385,9 +391,7 @@ Public Class frmAdministration CHANGED_WHOTextBox3.Text = Environment.UserName Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM) - lblsaveAutoIndex.Visible = True - Else - lblsaveAutoIndex.Visible = False + SetStatus("Index erfolgreich gespeichert!") End If IsInsert = False Catch ex As Exception @@ -395,10 +399,6 @@ Public Class frmAdministration End Try End Sub - Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged - lblSaveIndexMan.Visible = False - End Sub - Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged If frmloaded = True Then If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then @@ -494,7 +494,7 @@ Public Class frmAdministration Next Catch ex As Exception MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message, False) + LOGGER.Info(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message) End Try End Sub @@ -607,7 +607,7 @@ Public Class frmAdministration Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged CheckIndexAutoWD() - lblsaveAutoIndex.Visible = False + ClearStatus() End Sub Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged @@ -770,9 +770,9 @@ Public Class frmAdministration CHANGED_WHOTextBox4.Text = Environment.UserName TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit() Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING) - lblsavePostProcess.Visible = True + SetStatus("Funktion erfolgreich gespeichert!") Else - lblsavePostProcess.Visible = False + ClearStatus() End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ") @@ -797,7 +797,6 @@ Public Class frmAdministration End Sub Sub LoadGlobix_Doctypes() - Dim str = "Global-Indexer Dokarten" Load_Dokart() End Sub @@ -1032,7 +1031,8 @@ Public Class frmAdministration If result = MsgBoxResult.Yes Then Try - Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1" + Dim oGlobixId = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'", MyConnectionString) + Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oGlobixId If ClassDatabase.Execute_non_Query(copy, True) Then If USER_LANGUAGE = "de-DE" Then diff --git a/Global_Indexer/frmConfig_Basic.vb b/Global_Indexer/frmConfig_Basic.vb index 477043b..b724a89 100644 --- a/Global_Indexer/frmConfig_Basic.vb +++ b/Global_Indexer/frmConfig_Basic.vb @@ -66,12 +66,12 @@ Public Class frmConfig_Basic Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" sql = sql.Replace("@user", Environment.UserName) - ClassLogger.Add(">> Username: " & Environment.UserName, False) + LOGGER.Info(">> Username: " & Environment.UserName) USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) If IsDBNull(USER_ID) Then MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation) - ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True) + LOGGER.Info("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)") End If @@ -123,7 +123,7 @@ Public Class frmConfig_Basic Cursor = Cursors.Default End Sub - _ + Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub @@ -144,7 +144,7 @@ Public Class frmConfig_Basic End If 'chkdelete_origin.Checked = CURR_DELETE_ORIGIN Case 2 - If ERROR_STATE = "NO DB-CONNECTION" Then + If ERROR_STATE = "NO DB-CONNECTION" Then MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation) Me.TabControl1.SelectedIndex = 0 Exit Sub @@ -242,7 +242,7 @@ Public Class frmConfig_Basic CONFIG.Save() CURRENT_FOLDERWATCH = "" End If - + Exit Sub End If Try @@ -250,8 +250,9 @@ Public Class frmConfig_Basic System.IO.Directory.CreateDirectory(mypath) End If Catch ex As Exception - ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False) - ClassLogger.Add(" >> " & ex.Message, False) + LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath) + LOGGER.Error(ex.Message) + LOGGER.Info(" >> " & ex.Message) If USER_LANGUAGE = "de-DE" Then MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Else @@ -356,7 +357,7 @@ Public Class frmConfig_Basic CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked CONFIG.Save() 'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked) - ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False) + LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked) LogErrorsOnly = chkLogErrorsOnly.Checked End If End Sub diff --git a/Global_Indexer/frmHotKey_Add.vb b/Global_Indexer/frmHotKey_Add.vb index bac3bff..d4e5351 100644 --- a/Global_Indexer/frmHotKey_Add.vb +++ b/Global_Indexer/frmHotKey_Add.vb @@ -307,7 +307,7 @@ If ClassDatabase.Execute_non_Query(del, True) = True Then del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID If ClassDatabase.Execute_non_Query(del, True) = True Then - ClassLogger.Add(">> Hotkey-Profil: " & ID & " wurde gelöscht!", False) + LOGGER.Info(">> Hotkey-Profil: " & ID & " wurde gelöscht!") Load_Profiles() Load_UserForProfiles() MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 8fa8930..a5a1c35 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -123,7 +123,7 @@ Public Class frmIndex Next Catch ex As Exception 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) + LOGGER.Info(" - Unvorhergesehener Unexpected error in Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message) Return False End Try End Function @@ -136,20 +136,20 @@ Public Class frmIndex For Each DR In DT.Rows If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then If DR.Item("Indexiert") = True Then - If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index: " & indexname, False) + LOGGER.Info(" >>Manueller Index: " & indexname) Select Case RequestFor Case "FILE" If DR.Item("Indexwert_File").ToString <> String.Empty Then - If LogErrorsOnly = False Then ClassLogger.Add(" >>Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString, False) - If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False) + LOGGER.Info(" >>Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString) + LOGGER.Info(" >>Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File")) Return DR.Item("Indexwert_File") Else If DR.Item("Indexwert").ToString <> String.Empty Then - If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) + LOGGER.Info(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert")) Return DR.Item("Indexwert") Else If opt = False Then - ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False) + LOGGER.Info(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") Return Nothing Else @@ -160,12 +160,12 @@ Public Class frmIndex End If Case Else If DR.Item("Indexwert").ToString <> String.Empty Then - If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) + LOGGER.Info(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert")) Return DR.Item("Indexwert") Else 'Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True) If opt = False Then - ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False) + LOGGER.Info(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") Return Nothing Else @@ -181,7 +181,8 @@ Public Class frmIndex End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetManIndex_Value:") Return Nothing End Try @@ -219,7 +220,8 @@ Public Class frmIndex End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetAutoIndex_Value:") Return "" End Try @@ -240,7 +242,7 @@ Public Class frmIndex End If If LogErrorsOnly = False Then - ClassLogger.Add(" >>SQL-ConnectionString: " & oConnectionString.Substring(0, oConnectionString.LastIndexOf("=")), False) + LOGGER.Info(" >>SQL-ConnectionString: " & oConnectionString.Substring(0, oConnectionString.LastIndexOf("="))) End If If oErgebnis Is Nothing Then @@ -252,7 +254,8 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_AutomatischerIndex_SQL:") Return "" End Try @@ -263,7 +266,7 @@ Public Class frmIndex Function CheckWrite_IndexeMan(dokartid As Integer) '#### Zuerst manuelle Werte indexieren #### Try - If LogErrorsOnly = False Then ClassLogger.Add(" >> In CheckWrite_IndexeMan", False) + LOGGER.Info(" >> In CheckWrite_IndexeMan") Dim result As Boolean = False For Each oControl As Control In Me.pnlIndex.Controls ' MsgBox(ctrl.Name) @@ -281,7 +284,7 @@ Public Class frmIndex End If Else If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then - ClassLogger.Add(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False) + LOGGER.Info(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden") MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:") box.Focus() Return False @@ -361,14 +364,15 @@ Public Class frmIndex Continue For End If If oControl.Name.StartsWith("lbl") = False And result = False Then - ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True) + LOGGER.Info("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer") Return False End If Next Return True Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:") Return False End Try @@ -411,7 +415,8 @@ Public Class frmIndex End If Next Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:") End Try End Sub @@ -421,12 +426,12 @@ Public Class frmIndex ' ' For Each row As DataRow In DTNB.Rows ' ' Select Case row.Item("TYP").ToString.ToUpper ' ' Case "VBSPLIT" - ' ' ClassLogger.Add(" - Nachbearbeitung mit VBSPLIT", False) + ' ' LOGGER.Info(" - Nachbearbeitung mit VBSPLIT") ' ' Dim strSplit() As String ' ' strSplit = result.Split(row.Item("TEXT1").ToString) ' ' For i As Integer = 0 To strSplit.Length - 1 ' ' If i = CInt(row.Item("TEXT2")) Then - ' ' ClassLogger.Add(" - Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False) + ' ' LOGGER.Info(" - Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i)) ' ' result = strSplit(i).ToString ' ' End If ' ' Next @@ -436,7 +441,7 @@ Public Class frmIndex ' ' Next ' ' Return result ' ' Catch ex As Exception - ' ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + ' ' LOGGER.Info(" - 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 @@ -479,14 +484,14 @@ Public Class frmIndex Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(oNamenkonvention) '#### If oMatchelements.Count = 0 Then - ClassLogger.Add(" >> No RegularExpression Fileds on Nameconvention!", False) + LOGGER.Info(" >> No RegularExpression Fileds on Nameconvention!") End If ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen For Each oElement As System.Text.RegularExpressions.Match In oMatchelements Select Case oElement.Value.Substring(2, 1).ToUpper 'Manueller Indexwert Case "M" - If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False) + LOGGER.Info(" >>Manueller Index wird geprüft...") Dim Indexname = oElement.Value.Substring(3, oElement.Value.Length - 4) Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & Indexname & "')", MyConnectionString, True) Dim value As String = GetManIndex_Value(Indexname, "FILE", optional_index) @@ -525,7 +530,7 @@ Public Class frmIndex ' End If Else - ClassLogger.Add(" >> Der Indexvalue für Index '" & Indexname & "' ist String.Empty", False) + LOGGER.Info(" >> Der Indexvalue für Index '" & Indexname & "' ist String.Empty") err = True End If @@ -608,12 +613,13 @@ Public Class frmIndex Loop End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error in Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(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: " & oElement.Value.ToUpper) + LOGGER.Info(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oElement.Value.ToUpper) MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oElement.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:") End Select Next @@ -646,7 +652,8 @@ Public Class frmIndex 'Try to create the directory. Directory.CreateDirectory(path) Catch ex As Exception - ClassLogger.Add("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", True) + LOGGER.Info("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")") + LOGGER.Error(ex.Message) MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical) End Try @@ -661,7 +668,8 @@ Public Class frmIndex End If Catch ex As Exception - ClassLogger.Add(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Unexpected error in Name_Generieren:") Return False End Try @@ -704,7 +712,7 @@ Public Class frmIndex End If End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False) + LOGGER.Info(" >> Manueller Indexvalue: " & idxvalue.ToString) Count += 1 ' den Typ des Zielindexes auslesen @@ -725,12 +733,12 @@ Public Class frmIndex End If Else If LogErrorsOnly = False Then - ClassLogger.Add(" >> No Indexing: indexname: " & indexname, False) - ClassLogger.Add(" >> No Indexing: is optional? " & optional_Index.ToString, False) + LOGGER.Info(" >> No Indexing: indexname: " & indexname) + LOGGER.Info(" >> No Indexing: is optional? " & optional_Index.ToString) End If End If Else - ClassLogger.Add(" >> Indexvalue is empty or field is not indexed - Indexname: " & indexname, False) + LOGGER.Info(" >> Indexvalue is empty or field is not indexed - Indexname: " & indexname) End If Next @@ -745,8 +753,8 @@ Public Class frmIndex Dim indexname = row.Item("INDEXNAME").ToString If indexiert = True And Indexvalue <> "" Then If Indexvalue <> "EMPTY_OI" Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Auto Indexname: " & indexname.ToString, False) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & Indexvalue.ToString, False) + LOGGER.Info(" >> Auto Indexname: " & indexname.ToString) + LOGGER.Info(" >> Indexvalue: " & Indexvalue.ToString) Count += 1 ' den Typ des Zielindexes auslesen @@ -785,7 +793,8 @@ Public Class frmIndex Catch ex As Exception - ClassLogger.Add("Unvorhergesehener Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info("Unvorhergesehener Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return False End Try @@ -793,7 +802,7 @@ Public Class frmIndex End Function Private Function WriteIndex2File(indexname As String, indexvalue As String) Try - If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & indexvalue.ToString, False) + LOGGER.Info(" >> Indexvalue: " & indexvalue.ToString) Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue) Catch ex As Exception MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -810,13 +819,13 @@ Public Class frmIndex Dim msgDisplayTo = msg.DisplayTo Dim msgInternetAccountName = msg.InternetAccountName If LogErrorsOnly = False Then - ClassLogger.Add("", False) - ClassLogger.Add(" >> msgInternetAccountName: " & msgInternetAccountName, False) - ClassLogger.Add(" >> SenderName: " & msg.SenderName, False) - ClassLogger.Add(" >> SenderEmailAddress: " & msg.SenderEmailAddress, False) - ClassLogger.Add(" >> ReceivedByName: " & msg.ReceivedByName, False) - ClassLogger.Add(" >> ReceivedByEmailAddress: " & msg.ReceivedByEmailAddress, False) - ClassLogger.Add("", False) + LOGGER.Info("") + LOGGER.Info(" >> msgInternetAccountName: " & msgInternetAccountName) + LOGGER.Info(" >> SenderName: " & msg.SenderName) + LOGGER.Info(" >> SenderEmailAddress: " & msg.SenderEmailAddress) + LOGGER.Info(" >> ReceivedByName: " & msg.ReceivedByName) + LOGGER.Info(" >> ReceivedByEmailAddress: " & msg.ReceivedByEmailAddress) + LOGGER.Info("") End If _step = "2" @@ -852,7 +861,7 @@ Public Class frmIndex Next Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") If IsNothing(DT) Then - ClassLogger.Add(" >> SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "' RESULTED in NOTHING") + LOGGER.Info(" >> SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "' RESULTED in NOTHING") Return False End If If DT.Rows.Count = 1 Then @@ -871,7 +880,7 @@ Public Class frmIndex End If Else If messageIDPattern = String.Empty Then - ClassLogger.Add("A messageID could not be read!", True) + LOGGER.Info("A messageID could not be read!") Else If Not IsNothing(headers) Then CURRENT_MESSAGEID = ClassEmailHeaderExtractor.extractFromHeader(headers, messageIDPattern) @@ -879,7 +888,7 @@ Public Class frmIndex CURRENT_MESSAGEID = "" End If Else - ClassLogger.Add("A messageID could not be read - messageheader nothing/messagIDpattern value!", True) + LOGGER.Info("A messageID could not be read - messageheader nothing/messagIDpattern value!") End If End If @@ -912,7 +921,7 @@ Public Class frmIndex _step = "4.2" If IsNothing(msgDisplayTo) Then _step = "4.3" - ClassLogger.Add(" >> DisplayTo in email is nothing - default will be set", False) + LOGGER.Info(" >> DisplayTo in email is nothing - default will be set") emailTo = "NO RECIPIENT" Else _step = "4.4" @@ -920,7 +929,7 @@ Public Class frmIndex End If If IsNothing(msgInternetAccountName) Then _step = "4.5" - ClassLogger.Add(" >> InternetAccountName in email is nothing - default will be set", False) + LOGGER.Info(" >> InternetAccountName in email is nothing - default will be set") emailFrom = "" Else _step = "4.6" @@ -928,7 +937,7 @@ Public Class frmIndex End If Else _step = "5" - If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo and From Extraction via messageheader.", False) + LOGGER.Info(" >> emailTo and From Extraction via messageheader.") emailFrom = ClassEmailHeaderExtractor.extractFromHeader(headers, fromPattern) 'FromRegexList) emailTo = ClassEmailHeaderExtractor.extractFromHeader(headers, toPattern) ' extractToAddress(headers, ToRegexList) @@ -936,16 +945,16 @@ Public Class frmIndex 'Handler für leere emailTo-Adresse If IsNothing(emailTo) Then _step = "5.1" - If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo couldn't be extracted from messageheader...", False) + LOGGER.Info(" >> emailTo couldn't be extracted from messageheader...") If (headers.Contains("exc") Or headers.Contains("exchange")) Then _step = "5.2" - If LogErrorsOnly = False Then ClassLogger.Add(" >> ...try with LDAP-option", False) + LOGGER.Info(" >> ...try with LDAP-option") Dim _email = GetUserEmailfromLDAP(msgDisplayTo) _step = "5.3" If _email <> "" Then emailTo = _email Else - ClassLogger.Add(">> email-adress couldn't be read from LDAP with name '" & msgDisplayTo & "'", False) + LOGGER.Info(">> email-adress couldn't be read from LDAP with name '" & msgDisplayTo & "'") MsgBox("Could't get 'emailto' from messageHeader and later on with LDAP-Option." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation) Return False End If @@ -961,7 +970,7 @@ Public Class frmIndex emailTo = CURR_MISSING_MANUAL_VALUE Else _step = "5.4.3" - If LogErrorsOnly = False Then ClassLogger.Add(" >> no exchange patterns found in headers!", False) + LOGGER.Info(" >> no exchange patterns found in headers!") MsgBox("Could't get 'emailto' from messageHeader and exhange-Patterns weren't found." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation) Return False End If @@ -977,7 +986,7 @@ Public Class frmIndex emailFrom = emailFrom.Replace(">", "") Else _step = "6.1.x" - ClassLogger.Add(" >> emailFrom is Nothing?!") + LOGGER.Info(" >> emailFrom is Nothing?!") End If If Not IsNothing(emailTo) Then @@ -1001,20 +1010,20 @@ Public Class frmIndex Next Else _step = "6.3" - ClassLogger.Add(" >> emailTo is Nothing?!") + LOGGER.Info(" >> emailTo is Nothing?!") End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Headers-Content: ", True) - If LogErrorsOnly = False Then ClassLogger.Add(headers.ToString, False) + LOGGER.Info(" >> Headers-Content: ") + LOGGER.Info(headers.ToString) End If 'Handler für leere emailFrom-Adresse If IsNothing(emailFrom) Then _step = "7" - ClassLogger.Add(" >> emailFrom couldn't be extracted from messageheader...", False) + LOGGER.Info(" >> emailFrom couldn't be extracted from messageheader...") If Not IsNothing(msg.SenderEmailAddress) Then If msg.SenderEmailAddress <> String.Empty Then _step = "7.1" - ClassLogger.Add(" >> emailFrom via msg.SenderEmailAddress will be used instead!", False) + LOGGER.Info(" >> emailFrom via msg.SenderEmailAddress will be used instead!") emailFrom = msg.SenderEmailAddress.ToString.Replace("'", "") End If End If @@ -1034,8 +1043,8 @@ Public Class frmIndex End If End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False) - If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False) + LOGGER.Info(" >> emailFrom: " & emailFrom) + LOGGER.Info(" >> emailTo: " & emailTo) 'FROM If Not IsNothing(emailFrom) Then indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, emailFrom) @@ -1044,7 +1053,7 @@ Public Class frmIndex Return False End If Else - ClassLogger.Add(" >> emailFrom is still Nothing?!") + LOGGER.Info(" >> emailFrom is still Nothing?!") _step = "7.4" End If 'TO @@ -1055,14 +1064,14 @@ Public Class frmIndex Return False End If Else - ClassLogger.Add(" >> emailTo is still Nothing?!") + LOGGER.Info(" >> emailTo is still Nothing?!") _step = "7.5" End If ' Dim subj As String = ClassFormFunctions.CleanInput(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) + LOGGER.Info(" >> msg subject is empty...DEFAULT will be set") subj = "No subject" MsgBox("Attention: Email was send without a subject - Default value 'No subject' will be used!", MsgBoxStyle.Exclamation) Else @@ -1072,16 +1081,16 @@ Public Class frmIndex End If End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Now all email-items will be indexed!", False) + LOGGER.Info(" >> Now all email-items will be indexed!") - If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & subj, False) + LOGGER.Info(" >> subj: " & subj) 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 End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> MessageDeliveryTime: " & msg.MessageDeliveryTime, False) + LOGGER.Info(" >> MessageDeliveryTime: " & msg.MessageDeliveryTime) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, msg.MessageDeliveryTime) CURRENT_MESSAGEDATE = msg.MessageDeliveryTime If indexierung_erfolgreich = False Then @@ -1096,8 +1105,8 @@ Public Class frmIndex End If Catch ex As Exception MsgBox("Error in SetEmailIndices:" & vbNewLine & ex.Message & vbNewLine & "Please check the configuration Email-Indexing!", MsgBoxStyle.Critical) - ClassLogger.Add("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message) - ClassLogger.Add("Stack-Trace: " & ex.StackTrace, True) + LOGGER.Info("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message) + LOGGER.Info("Stack-Trace: " & ex.StackTrace) Return False End Try @@ -1128,7 +1137,8 @@ Public Class frmIndex result = search.FindOne() If result IsNot Nothing Then userEmail = result.Properties("mail").ToString Catch ex As Exception - ClassLogger.Add(">> Unexpected Error in GetUserEmail from LDAP: " & ex.Message, False) + LOGGER.Info(">> Unexpected Error in GetUserEmail from LDAP: " & ex.Message) + LOGGER.Error(ex.Message) End Try End Using @@ -1236,8 +1246,9 @@ Public Class frmIndex End If Return False Catch ex As Exception - ClassLogger.Add(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message) - ClassLogger.Add(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String) + LOGGER.Info(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) + LOGGER.Info(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String) Return True End Try @@ -1258,7 +1269,8 @@ Public Class frmIndex ClassWindowLocation.SaveFormLocationSize(Me) My.Settings.Save() Catch ex As Exception - ClassLogger.Add(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:") End Try @@ -1291,14 +1303,14 @@ Public Class frmIndex ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then Select Case DropType Case "|FW_MSGONLY|" - If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False) + LOGGER.Info(" >> .msg-file from folderwatch") If USER_LANGUAGE <> "de-DE" Then Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch" Else Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:" End If Case "|OUTLOOK_MESSAGE|" - If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file through dragdrop", False) + LOGGER.Info(" >> .msg-file through dragdrop") If USER_LANGUAGE <> "de-DE" Then Me.Text = "Indexing of msg-File (without Attachments)" Else @@ -1354,7 +1366,8 @@ Public Class frmIndex chkMultiIndexer.Visible = False End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:") End Try End Sub @@ -1368,7 +1381,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(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Unexpected error in Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub @@ -1394,14 +1408,15 @@ Public Class frmIndex For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE) If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then - ClassLogger.Add($"There is a match on REGEX_DOCTYPE: {oRoW.Item("DOCTYPE")}") + LOGGER.Info($"There is a match on REGEX_DOCTYPE: {oRoW.Item("DOCTYPE")}") cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE")) Exit For End If Next End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) End Try Me.TopMost = True Me.BringToFront() @@ -1410,7 +1425,7 @@ Public Class frmIndex Sub Refresh_Dokart() Try 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, False) + LOGGER.Info(" >> SQL DoctypeList: " & sql) DT_DOKART = ClassDatabase.Return_Datatable(sql) cmbDokumentart.DataSource = DT_DOKART cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName @@ -1419,7 +1434,8 @@ Public Class frmIndex cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems cmbDokumentart.SelectedIndex = -1 Catch ex As Exception - ClassLogger.Add(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:") End Try End Sub @@ -1449,7 +1465,7 @@ Public Class frmIndex pnlIndex.Visible = True LoadIndexe_Man() Catch ex As System.Exception - ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql) + LOGGER.Info(" - 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 @@ -1482,7 +1498,7 @@ Public Class frmIndex If DT_INDEXEMAN.Rows.Count = 0 Then ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") - ClassLogger.Add(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") + LOGGER.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") End If For Each DR As DataRow In DT_INDEXEMAN.Rows Dim type = DR.Item("DATATYPE") @@ -1599,7 +1615,8 @@ Public Class frmIndex oResult = UserShortName End Select Catch ex As Exception - ClassLogger.Add("Error in ReplacePlaceholders: " & ex.Message) + LOGGER.Info("Error in ReplacePlaceholders: " & ex.Message) + LOGGER.Error(ex.Message) oResult = Nothing End Try @@ -1626,7 +1643,7 @@ Public Class frmIndex ' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen For Each oAutoIndexRow As DataRow In oDatatable - If LogErrorsOnly = False Then ClassLogger.Add("Working on AutomaticIndex: " & oAutoIndexRow.Item("INDEXNAME") & "...", False) + LOGGER.Info("Working on AutomaticIndex: " & oAutoIndexRow.Item("INDEXNAME") & "...") Dim oSqlResult As String = ClassHelper.NotNull(oAutoIndexRow.Item("SQL_RESULT"), "") Dim oSqlActive As Boolean = ClassHelper.NotNull(oAutoIndexRow.Item("SQL_ACTIVE"), False) Dim oSqlConnectionId As Integer = ClassHelper.NotNull(oAutoIndexRow.Item("CONNECTION_ID"), -1) @@ -1683,7 +1700,7 @@ Public Class frmIndex End If Next If oSqlResult <> String.Empty Then - If LogErrorsOnly = False Then ClassLogger.Add(" oSqlResult afrer first Replace: " & oSqlResult, False) + LOGGER.Info(" oSqlResult afrer first Replace: " & oSqlResult) End If ' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl, @@ -1692,7 +1709,7 @@ Public Class frmIndex ' 2. Schritt: Vektorfelder ersetzen Dim oVectorMatches As MatchCollection = oRegex.Matches(oSqlResult) If oVectorMatches.Count > 0 Then - If LogErrorsOnly = False Then ClassLogger.Add(" There are " & oVectorMatches.Count & " matches for vectors!", False) + LOGGER.Info(" There are " & oVectorMatches.Count & " matches for vectors!") Dim oIsFirstMatch = True For Each oVectorMatch As Match In oVectorMatches @@ -1720,7 +1737,7 @@ Public Class frmIndex Next Else Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider) - If LogErrorsOnly = False Then ClassLogger.Add("Got a simple SQLResult: " & oResult.ToString, False) + LOGGER.Info("Got a simple SQLResult: " & oResult.ToString) oAutoIndexRow.Item("Indexiert") = True oAutoIndexRow.Item("Indexwert") = oResult @@ -1751,7 +1768,7 @@ Public Class frmIndex ' For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows ' Dim optionalIndex As Boolean ' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME") - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False) + ' LOGGER.Info(" >> Build Automatischer Index '" & indexname & "'") ' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then ' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren ' Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -1765,12 +1782,12 @@ Public Class frmIndex ' For Each element As System.Text.RegularExpressions.Match In elemente ' ' MsgBox(element.Value.ToUpper) - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False) + ' LOGGER.Info(" >> Element: '" & element.Value & "'") ' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden) ' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then ' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) ' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) + ' LOGGER.Info(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'") ' optionalIndex = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & elementOhneSonderzeichen & "')", MyConnectionString, True) ' If elementOhneSonderzeichen.StartsWith("$") Then 'windowsParameter ' Dim result = "" @@ -1802,14 +1819,14 @@ Public Class frmIndex ' End Select ' Catch ex As Exception ' result = "XXX" - ' ClassLogger.Add(" - Unexpected error in FillIndexe_Autom - WindowsFilePatterns - Fehler: " & vbNewLine & ex.Message) + ' LOGGER.Info(" - Unexpected error in FillIndexe_Autom - WindowsFilePatterns - Fehler: " & vbNewLine & ex.Message) ' MsgBox("Unexpected error in Replacement WindowsFilePatterns: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Routine will continue - Please check logfile", MsgBoxStyle.Exclamation, ) ' End Try ' If result <> "" Then - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> file-related parameter found: '" & elementOhneSonderzeichen & "' - Result: '" & result & "'", False) + ' LOGGER.Info(" >> file-related parameter found: '" & elementOhneSonderzeichen & "' - Result: '" & result & "'") ' SqlString = SqlString.Replace(element.Value, result) ' Else - ' ClassLogger.Add(">> Attention: file-related parameter '" & elementOhneSonderzeichen & "' returned an empty string!", False) + ' LOGGER.Info(">> Attention: file-related parameter '" & elementOhneSonderzeichen & "' returned an empty string!") ' End If ' Else 'ganz normaler manueller Index ' 'den Platzhalter im SQL-String durch den Wert ersetzen @@ -1817,17 +1834,17 @@ Public Class frmIndex ' If Not IsNothing(manIndexwert) Then ' SqlString = SqlString.Replace(element.Value, manIndexwert) ' Else - ' ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False) + ' LOGGER.Info(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom") ' ' Return False ' End If ' End If ' Next - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Replaced and complete SQL-result: " & SqlString, False) - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False) + ' LOGGER.Info(" >> Replaced and complete SQL-result: " & SqlString) + ' LOGGER.Info(" >> Ausführen SQL....") ' Dim automatischerValue As String = "" ' automatischerValue = GetAutomaticIndexSQLValue(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER")) - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis SQL: '" & automatischerValue & "'", False) + ' LOGGER.Info(" >> Ergebnis SQL: '" & automatischerValue & "'") ' If automatischerValue <> String.Empty Then ' DR_AUTOINDEX.Item("Indexiert") = True ' DR_AUTOINDEX.Item("Indexwert") = automatischerValue @@ -1837,8 +1854,8 @@ Public Class frmIndex ' DR_AUTOINDEX.Item("Indexwert") = "EMPTY_OI" ' ' Return True ' Else - ' ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False) - ' ClassLogger.Add(" - SqlString: " & SqlString, False) + ' LOGGER.Info(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom") + ' LOGGER.Info(" - SqlString: " & SqlString) ' ' Return False ' End If @@ -1849,7 +1866,7 @@ Public Class frmIndex ' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE") ' 'Indexierung mit WindowsVariable ' If DEFAULTVALUE.StartsWith("$") Then - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False) + ' LOGGER.Info(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'") ' Select Case DEFAULTVALUE.ToUpper ' Case "$filename_ext".ToUpper ' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE) @@ -1875,9 +1892,9 @@ Public Class frmIndex ' DEFAULTVALUE = USER_SHORT_NAME ' End Select - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False) + ' LOGGER.Info(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'") ' Else - ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False) + ' LOGGER.Info(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'") ' End If ' 'Den Wert in der Zwischentabelle speichern ' DR_AUTOINDEX.Item("Indexiert") = True @@ -1892,7 +1909,7 @@ Public Class frmIndex ' Return True ' End If 'Catch ex As System.Exception - ' ClassLogger.Add(" - Unexpected error in FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message) + ' LOGGER.Info(" - Unexpected error in FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message) ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FillIndexe_Autom") ' Return False 'End Try @@ -1936,25 +1953,25 @@ Public Class frmIndex Private Function WORK_FILE() Try Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Manuelle Indexe geladen", False) + LOGGER.Info(" >> Manuelle Indexe geladen") If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then '##### Manuelle Indexe indexiert ##### - If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False) + LOGGER.Info(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...") If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...FillIndexe_Autom durchlaufen", False) + LOGGER.Info(" ...FillIndexe_Autom durchlaufen") 'Den Zielnamen zusammenbauen If Name_Generieren() = True Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False) + LOGGER.Info(" ...Name_Generieren durchlaufen") 'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren DocumentViewer1.Done() - If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False) + LOGGER.Info(" ...Viewer geschlossen") 'Die Datei verschieben If Move_File2_Target() = True Then - If LogErrorsOnly = False Then ClassLogger.Add(" ...Move_File2_Target durchlaufen", False) + LOGGER.Info(" ...Move_File2_Target durchlaufen") 'Die Originaldatei löschen If DropType = "|DROPFROMFSYSTEM|" Then If CURR_DELETE_ORIGIN = True Then @@ -1979,7 +1996,7 @@ Public Class frmIndex End If CURRENT_LASTDOKART = cmbDokumentart.Text - ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.", False) + LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.") Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID ClassDatabase.Execute_non_Query(oDEL, True) Return True @@ -2020,7 +2037,7 @@ Public Class frmIndex Try If CURR_DELETE_ORIGIN = False Then If CURRENT_DROPTYPE <> "FW_SIMPLEINDEXER" Then - If LogErrorsOnly = False Then ClassLogger.Add(">> DeleteFile - CURR_DELETE_ORIGIN = False", False) + LOGGER.Info(">> DeleteFile - CURR_DELETE_ORIGIN = False") Exit Sub End If @@ -2166,8 +2183,8 @@ Public Class frmIndex Catch ex As Exception MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message) - ClassLogger.Add(" - Unexpected error in Insert-History - SQL: " & Insert_String) + LOGGER.Info(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in Insert-History - SQL: " & Insert_String) err = True End Try Else @@ -2210,16 +2227,16 @@ Public Class frmIndex '#### ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen For Each element As Match In elemente - If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False) + LOGGER.Info(" >> Elementname in FolderString: '" & element.ToString & "'") Select Case element.Value.Substring(2, 1).ToUpper 'Manueller Indexwert Case "M" Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False) + LOGGER.Info(" >> Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.") Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE", optional_index) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False) + LOGGER.Info(" >> Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'") If Not ManIndex_Value = String.Empty Then If IsDate(ManIndex_Value) Then ManIndex_Value = CDate(ManIndex_Value).ToString("yyyyMMdd") @@ -2227,32 +2244,32 @@ Public Class frmIndex ManIndex_Value = ClassFilehandle.CleanFilename(ManIndex_Value, "") myDynamicFolder = myDynamicFolder.Replace(element.ToString, ManIndex_Value) - If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & myDynamicFolder & "'", False) + LOGGER.Info(" >> FolderPattern: '" & myDynamicFolder & "'") Else If optional_index = True Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Optionaler Indexwert ist NICHT gefüllt", False) + LOGGER.Info(" >> Optionaler Indexwert ist NICHT gefüllt") Else - ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) + LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!") Return True End If End If Case "A" Dim AutoIndexname = element.Value.Substring(3, element.Value.Length - 4) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch den Auto-Indexwert aus '" & AutoIndexname & "' auszulesen.", False) + LOGGER.Info(" >> Versuch den Auto-Indexwert aus '" & AutoIndexname & "' auszulesen.") Dim AutoIndex_Value As String = GetAutoIndex_Value(AutoIndexname) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False) + LOGGER.Info(" >> Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'") If Not AutoIndex_Value = String.Empty Then AutoIndex_Value = ClassFilehandle.CleanFilename(AutoIndex_Value, "") If AutoIndex_Value = "EMPTY_OI" Then myDynamicFolder = myDynamicFolder.Replace(element.ToString, "") Else myDynamicFolder = myDynamicFolder.Replace(element.ToString, AutoIndex_Value) - If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & myDynamicFolder & "'", False) + LOGGER.Info(" >> FolderPattern: '" & myDynamicFolder & "'") End If Else - ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) + LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!") End If Case "V" Dim oElementTemp As String @@ -2279,9 +2296,9 @@ Public Class frmIndex oElementTemp = My.Computer.Clock.LocalTime.Year & "-" & _Month End Select myDynamicFolder = myDynamicFolder.Replace(element.ToString, oElementTemp) - If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPatter nach V-Element: '" & myDynamicFolder & "'", False) + LOGGER.Info(" >> FolderPatter nach V-Element: '" & myDynamicFolder & "'") Case Else - ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) + LOGGER.Info(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) If USER_LANGUAGE = "de-DE" Then 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:") @@ -2293,13 +2310,13 @@ Public Class frmIndex - If LogErrorsOnly = False Then ClassLogger.Add(" >> Den Root-Folder zusammenfügen>> ", False) + LOGGER.Info(" >> Den Root-Folder zusammenfügen>> ") Dim oNewFullpath As String = ORootFolder & "\" & myDynamicFolder & "\" oNewFullpath = oNewFullpath.Replace("\\", "\") oNewFullpath = Path.Combine(ORootFolder, myDynamicFolder) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Fullpath (mit evtl. Sonderzeichen (SZ)) '" & oNewFullpath & "'", False) + LOGGER.Info(" >> Fullpath (mit evtl. Sonderzeichen (SZ)) '" & oNewFullpath & "'") Dim invalidPathChars() As Char = Path.GetInvalidPathChars() For Each sonderChar As Char In invalidPathChars 'Sonderzeichen ausser Whitespace entfernen @@ -2309,13 +2326,14 @@ Public Class frmIndex End If End If Next sonderChar - If LogErrorsOnly = False Then ClassLogger.Add(" >> Fullpath (ohne SZ) '" & oNewFullpath & "'", False) + LOGGER.Info(" >> Fullpath (ohne SZ) '" & oNewFullpath & "'") If Directory.Exists(oNewFullpath) = False Then Try Directory.CreateDirectory(oNewFullpath) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Folder '" & oNewFullpath & "' wurde angelegt", False) + LOGGER.Info(" >> Folder '" & oNewFullpath & "' wurde angelegt") Catch ex As Exception - ClassLogger.Add(" >> Error in CreateFolderforIndex-Method - Root Folder '" & oNewFullpath & "' could not be created. " & ex.Message, True) + LOGGER.Info(" >> Error in CreateFolderforIndex-Method - Root Folder '" & oNewFullpath & "' could not be created. " & ex.Message) + LOGGER.Error(ex.Message) MsgBox("Attention: Root Folder '" & oNewFullpath & "' could not be created." & vbNewLine & ex.Message, MsgBoxStyle.Critical) Return False End Try @@ -2327,7 +2345,7 @@ Public Class frmIndex Return True Catch ex As Exception MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - ClassLogger.Add(" >> Fehler in CrFolderForIndex: " & ex.Message, True) + LOGGER.Info(" >> Fehler in CrFolderForIndex: " & ex.Message) Return False End Try End Function diff --git a/Global_Indexer/frmSQLConfigAutoIndex.vb b/Global_Indexer/frmSQLConfigAutoIndex.vb index e65b410..39fdb92 100644 --- a/Global_Indexer/frmSQLConfigAutoIndex.vb +++ b/Global_Indexer/frmSQLConfigAutoIndex.vb @@ -46,7 +46,7 @@ Public Class SQLConfigAutoIndex MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information) End If End If - CURRENT_SQLRESULT = sql_command + CURRENT_SQLRESULT = sql_command DTSQL_RESULT = dt frmSQL_Result.ShowDialog() End If @@ -115,7 +115,8 @@ Public Class SQLConfigAutoIndex ' End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(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 ee1622f..be355d1 100644 --- a/Global_Indexer/frmSQLSuggestion.vb +++ b/Global_Indexer/frmSQLSuggestion.vb @@ -89,7 +89,8 @@ Public Class frmSQLSuggestion End If Catch ex As Exception - ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message) + LOGGER.Error(ex.message) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:") End Try End Sub @@ -111,7 +112,6 @@ Public Class frmSQLSuggestion Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:") End Try - End Sub Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index 5d318ff..91fd094 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -30,7 +30,7 @@ Public Class frmStart ' End If ' Catch ex As Exception - ' ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False) + ' LOGGER.Info(">> Icon file could not be read: " & ex.Message) ' End Try ' 'Me.i() @@ -42,7 +42,7 @@ Public Class frmStart Private Const mSnapOffset As Integer = 35 Private Const WM_WINDOWPOSCHANGING As Integer = &H46 - _ + Public Structure WINDOWPOS Public hwnd As IntPtr Public hwndInsertAfter As IntPtr @@ -75,7 +75,7 @@ Public Class frmStart Try ' Marshal the LPARAM value which is a WINDOWPOS struct Dim NewPosition As New WINDOWPOS - NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure( _ + NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure( LParam, GetType(WINDOWPOS)), WINDOWPOS) If NewPosition.y = 0 OrElse NewPosition.x = 0 Then @@ -83,36 +83,36 @@ Public Class frmStart End If ' Adjust the client size for borders and caption bar - Dim ClientRect As Rectangle = _ + Dim ClientRect As Rectangle = clientForm.RectangleToScreen(clientForm.ClientRectangle) - ClientRect.Width += _ + ClientRect.Width += SystemInformation.FrameBorderSize.Width - widthAdjustment - ClientRect.Height += (SystemInformation.FrameBorderSize.Height + _ + ClientRect.Height += (SystemInformation.FrameBorderSize.Height + SystemInformation.CaptionHeight) ' Now get the screen working area (without taskbar) - Dim WorkingRect As Rectangle = _ + Dim WorkingRect As Rectangle = Screen.GetWorkingArea(clientForm.ClientRectangle) ' Left border - If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso _ + If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso NewPosition.x <= WorkingRect.X + mSnapOffset Then NewPosition.x = WorkingRect.X End If ' Get screen bounds and taskbar height ' (when taskbar is horizontal) - Dim ScreenRect As Rectangle = _ + Dim ScreenRect As Rectangle = Screen.GetBounds(Screen.PrimaryScreen.Bounds) - Dim TaskbarHeight As Integer = _ + Dim TaskbarHeight As Integer = ScreenRect.Height - WorkingRect.Height ' Top border (check if taskbar is on top ' or bottom via WorkingRect.Y) - If NewPosition.y >= -mSnapOffset AndAlso _ - (WorkingRect.Y > 0 AndAlso NewPosition.y <= _ - (TaskbarHeight + mSnapOffset)) OrElse _ - (WorkingRect.Y <= 0 AndAlso NewPosition.y <= _ + If NewPosition.y >= -mSnapOffset AndAlso + (WorkingRect.Y > 0 AndAlso NewPosition.y <= + (TaskbarHeight + mSnapOffset)) OrElse + (WorkingRect.Y <= 0 AndAlso NewPosition.y <= (mSnapOffset)) Then If TaskbarHeight > 0 Then NewPosition.y = WorkingRect.Y ' Horizontal Taskbar @@ -122,25 +122,25 @@ Public Class frmStart End If ' Right border - If NewPosition.x + ClientRect.Width <= _ - WorkingRect.Right + mSnapOffset AndAlso _ - NewPosition.x + ClientRect.Width >= _ + If NewPosition.x + ClientRect.Width <= + WorkingRect.Right + mSnapOffset AndAlso + NewPosition.x + ClientRect.Width >= WorkingRect.Right - mSnapOffset Then - NewPosition.x = WorkingRect.Right - (ClientRect.Width + _ + NewPosition.x = WorkingRect.Right - (ClientRect.Width + SystemInformation.FrameBorderSize.Width) End If ' Bottom border - If NewPosition.y + ClientRect.Height <= _ - WorkingRect.Bottom + mSnapOffset AndAlso _ - NewPosition.y + ClientRect.Height >= _ + If NewPosition.y + ClientRect.Height <= + WorkingRect.Bottom + mSnapOffset AndAlso + NewPosition.y + ClientRect.Height >= WorkingRect.Bottom - mSnapOffset Then - NewPosition.y = WorkingRect.Bottom - (ClientRect.Height + _ + NewPosition.y = WorkingRect.Bottom - (ClientRect.Height + SystemInformation.FrameBorderSize.Height) End If ' Marshal it back - Runtime.InteropServices.Marshal.StructureToPtr(NewPosition, _ + Runtime.InteropServices.Marshal.StructureToPtr(NewPosition, LParam, True) Catch ex As ArgumentException End Try @@ -166,7 +166,7 @@ Public Class frmStart Dim CapTxt As String = ClassHotkey_Windream.GetCaption() CURRENT_FOCUSES_WINDOWNAME = CapTxt If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub - If LogErrorsOnly = False Then ClassLogger.Add(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'", False) + LOGGER.Info(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'") Me.Cursor = Cursors.WaitCursor Me.NotifyIcon1.Visible = True @@ -243,7 +243,7 @@ Public Class frmStart Dim i As Integer For Each Str As Object In ClassFileDrop.files_dropped If Not Str Is Nothing Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False) + LOGGER.Info(">> Check Drop-File: " & Str.ToString) Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1) Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1) If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then @@ -271,7 +271,7 @@ Public Class frmStart CURRENT_FILENAME = Filerow.Item("FILENAME2WORK") CURRENT_WORKFILE_GUID = Filerow.Item(0) CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK") - If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False) + LOGGER.Info(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE) If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then Open_IndexDialog() End If @@ -303,7 +303,7 @@ Public Class frmStart If My.Settings.AppTerminate = False Then Try - ClassLogger.Add("", False) + LOGGER.Info("") If START_INCOMPLETE = False Then Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" ClassDatabase.Execute_non_Query(Sql, True) @@ -359,7 +359,7 @@ Public Class frmStart 'Lizenz abgellaufen, überprüfen ob User Admin ist If LICENSE_COUNT < UserLoggedin Then If USER_IS_ADMIN = True Then - ClassLogger.Add(">> User is Admin - Timer will be started", False) + LOGGER.Info(">> User is Admin - Timer will be started") If USER_LANGUAGE = "de-DE" Then MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information) Else @@ -374,7 +374,7 @@ Public Class frmStart End If If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then If USER_IS_ADMIN = True Then - ClassLogger.Add(">> User is Admin - Timer will be started", False) + LOGGER.Info(">> User is Admin - Timer will be started") If USER_LANGUAGE = "de-DE" Then MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information) Else @@ -424,12 +424,12 @@ Public Class frmStart Try If CONFIG.Config.FolderWatchScanStarted = True Then - If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH, False) + LOGGER.Info(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH) Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH) ' Process the list of files found in the directory. Dim fileName As String For Each fileName In fileEntries - If LogErrorsOnly = False Then ClassLogger.Add(">> Scanfolder after startup: Checking file:" & fileName, False) + LOGGER.Info(">> Scanfolder after startup: Checking file:" & fileName) For Each row As DataRow In DTEXCLUDE_FILES.Rows Dim content As String = row.Item(0).ToString.ToLower If fileName.ToLower.Contains(content) Then @@ -443,29 +443,30 @@ Public Class frmStart handleType = "|FW_SIMPLEINDEXER|" End If 'Die Datei übergeben - If LogErrorsOnly = False Then ClassLogger.Add(">> Adding file from Scanfolder after startup:" & fileName, False) + LOGGER.Info(">> Adding file from Scanfolder after startup:" & fileName) If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then ClassFilehandle.Decide_FileHandle(fileName, handleType) Else - ClassLogger.Add(">> Scanfolder Startup: File already exists:" & fileName, False) + LOGGER.Info(">> Scanfolder Startup: File already exists:" & fileName) End If Next fileName Else - If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN not started", False) + LOGGER.Info(">> FWSCAN not started") End If Catch ex As Exception - ClassLogger.Add(">> Error while starting folderwatch scan: " & ex.Message, False) + LOGGER.Info(">> Error while starting folderwatch scan: " & ex.Message) + LOGGER.Error(ex.Message) End Try Try If FW_started = True Then - If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH, False) + LOGGER.Info(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH) Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH) ' Process the list of files found in the directory. Dim fileName As String For Each fileName In fileEntries - If LogErrorsOnly = False Then ClassLogger.Add(">> Folderwach after startup: Checking file:" & fileName, False) + LOGGER.Info(">> Folderwach after startup: Checking file:" & fileName) For Each row As DataRow In DTEXCLUDE_FILES.Rows Dim content As String = row.Item(0).ToString.ToLower If fileName.ToLower.Contains(content) Then @@ -479,19 +480,20 @@ Public Class frmStart handleType = "|FW_SIMPLEINDEXER|" End If 'Die Datei übergeben - If LogErrorsOnly = False Then ClassLogger.Add(">> Adding file from Folderwatch after startup:" & fileName, False) + LOGGER.Info(">> Adding file from Folderwatch after startup:" & fileName) If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then ClassFilehandle.Decide_FileHandle(fileName, handleType) Else - ClassLogger.Add(">> Folderwatch Startup: File already exists:" & fileName, False) + LOGGER.Info(">> Folderwatch Startup: File already exists:" & fileName) End If Next fileName Else - If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started not started", False) + LOGGER.Info(">> FW_started not started") End If Catch ex As Exception - ClassLogger.Add(">> Error while starting folderwatch: " & ex.Message, False) + LOGGER.Info(">> Error while starting folderwatch: " & ex.Message) + LOGGER.Error(ex.Message) End Try If TimerFolderWatch.Enabled = False Then @@ -520,7 +522,7 @@ Public Class frmStart Try Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True) If DT.Rows.Count > 0 Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False) + LOGGER.Info(" >> " & DT.Rows.Count & " Hotkey-Profile") Dim i As Integer = 0 For Each row As DataRow In DT.Rows i += 1 @@ -539,21 +541,21 @@ Public Class frmStart Select Case row.Item("HOTKEY1") Case "Strg" - If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False) + LOGGER.Info(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID")) Case "Shift" - If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False) + LOGGER.Info(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID")) Case "Alt" - If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False) + LOGGER.Info(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID")) Case "win" - If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False) + LOGGER.Info(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID")) End Select Next Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False) + LOGGER.Info(" >> Keine Hotkeys!") End If Catch ex As Exception MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -656,7 +658,7 @@ Public Class frmStart Exit For End If Dim FileForWork As String = row.Item(1) - If LogErrorsOnly = False Then ClassLogger.Add(">> In Timer Folderwatch - File: " & FileForWork, False) + LOGGER.Info(">> In Timer Folderwatch - File: " & FileForWork) Dim fileInUse As Boolean = ClassFilehandle.IsFileInUse(FileForWork) Dim fileexists As Boolean = System.IO.File.Exists(FileForWork) If fileInUse = False Then @@ -666,12 +668,12 @@ Public Class frmStart CURRENT_WORKFILE_GUID = row.Item("GUID") Open_IndexDialog() Else - ClassLogger.Add(">> File not existing - Row will be deleted!", False) + LOGGER.Info(">> File not existing - Row will be deleted!") Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID) ClassDatabase.Execute_non_Query(del) End If Else - ClassLogger.Add(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!", False) + LOGGER.Info(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!") End If Next @@ -777,7 +779,7 @@ Public Class frmStart ClassFileDrop.files_dropped = Nothing For Each fName In openFileDialog1.FileNames ReDim Preserve ClassFileDrop.files_dropped(i) - ClassLogger.Add(">> Chosen File: " & fName, False) + LOGGER.Info(">> Chosen File: " & fName) ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName i += 1 Next