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

use Logging Module EVERYWHERE, fix some MarvMan bugs

Browse Source
This commit is contained in:
Jonathan Jenne 2020-03-04 12:24:43 +01:00
parent 13b36db5fb
commit c8c650922b
22 changed files with 1279 additions and 1178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Global_Indexer/ClassControls.vb
View File

@ -48,7 +48,8 @@ Public Class ClassControls
Return chk Return chk
Catch ex As Exception 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 Return Nothing
End Try End Try
End Function End Function
@ -88,7 +89,8 @@ Public Class ClassControls
Return oControl Return oControl
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
Return Nothing Return Nothing
End Try End Try
@ -265,7 +267,8 @@ Public Class ClassControls
Next Next
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
End Try End Try
End Sub End Sub

56
Global_Indexer/ClassDatabase.vb
View File

@ -17,7 +17,8 @@ Public Class ClassDatabase
SQLconnect.Close() SQLconnect.Close()
Return True Return True
Catch ex As Exception 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 Return False
End Try End Try
End Function 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")) ' 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 ' connectionString = conn.ConnectionString
Case Else Case Else
LOGGER.Info(" - ConnectionType nicht integriert", False) LOGGER.Info(" - ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select End Select
Else Else
LOGGER.Info(" No entry for Connection-ID: " & id.ToString, True) LOGGER.Info(" No entry for Connection-ID: " & id.ToString)
End If End If
Catch ex As Exception Catch ex As Exception
@ -94,8 +95,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
End If End If
Return False Return False
@ -103,8 +104,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -133,8 +134,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
End If End If
Return False Return False
@ -142,8 +143,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -171,8 +172,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
End If End If
Return False Return False
@ -180,8 +181,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
Return False Return False
End Try End Try
@ -211,8 +212,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
End If End If
Return False Return False
@ -220,8 +221,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical) MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True) LOGGER.Info("Unexpected error in Execute_Scalar: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -240,8 +241,9 @@ Public Class ClassDatabase
SQLconnect.Close() SQLconnect.Close()
Return result Return result
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True) LOGGER.Info("Unexpected error in OracleExecute_Scalar: " & ex.Message)
ClassLogger.Add("#SQL: " & cmdscalar, False) LOGGER.Error(ex.Message)
LOGGER.Info("#SQL: " & cmdscalar)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -262,8 +264,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in OracleExecute_non_Query: " & ex.Message, True) LOGGER.Info("Unexpected error in OracleExecute_non_Query: " & ex.Message)
ClassLogger.Add("#SQL: " & ExecuteCMD, False) LOGGER.Info("#SQL: " & ExecuteCMD)
Return False Return False
End Try End Try
@ -287,8 +289,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True) LOGGER.Info("Unexpected error in Oracle_Return_Datatable: " & ex.Message)
ClassLogger.Add("#SQL: " & Select_anweisung, False) LOGGER.Info("#SQL: " & Select_anweisung)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -299,8 +301,8 @@ Public Class ClassDatabase
If FatalErrors.Contains(ex.Number) Then If FatalErrors.Contains(ex.Number) Then
DatabaseConnectionTimeout = True DatabaseConnectionTimeout = True
ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True) LOGGER.Info("Network timeout error in Return_Datatable: " & ex.Message)
ClassLogger.Add("#SQL: " & sql_command, False) LOGGER.Info("#SQL: " & sql_command)
Return True Return True
Else Else

11
Global_Indexer/ClassEmail.vb
View File

@ -14,9 +14,9 @@ Public Class ClassEmail
'Für jeden Empfänger eine Neue Mail erzeugen 'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger For Each _mailempfaenger As String In empfaenger
' Neue Nachricht erzeugen: ' Neue Nachricht erzeugen:
Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _ Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName,
"<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _ "<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" &
"<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _ "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " &
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>") My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
If test = False Then If test = False Then
If Log = True Then If Log = True Then
@ -61,11 +61,12 @@ Public Class ClassEmail
MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:") MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:")
End If End If
End If End If
'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False) 'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!")
Next Next
Return True Return True
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("### Fehler im Mailversand: " & ex.Message) LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
LOGGER.Error(ex.message)
Return False Return False
End Try End Try
End Function End Function

12
Global_Indexer/ClassFileDrop.vb
View File

@ -4,7 +4,7 @@ Public Class ClassFileDrop
Public Shared files_dropped As String() Public Shared files_dropped As String()
Public Shared Function Drop_File(e As DragEventArgs) Public Shared Function Drop_File(e As DragEventArgs)
Try Try
ClassLogger.Add(">> Drop_File", False) LOGGER.Info(">> Drop_File")
files_dropped = Nothing files_dropped = Nothing
If e.Data.GetDataPresent(DataFormats.FileDrop) Then If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String Dim MyFiles() As String
@ -13,7 +13,7 @@ Public Class ClassFileDrop
MyFiles = e.Data.GetData(DataFormats.FileDrop) MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list. ' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1 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) ReDim Preserve files_dropped(i)
files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i) files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i)) ' ListBox1.Items.Add(MyFiles(i))
@ -72,10 +72,10 @@ Public Class ClassFileDrop
If (finTemp.Exists = True) Then If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0) ReDim Preserve files_dropped(0)
files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
Return True Return True
Else 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 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") 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 End Try
ClassLogger.Add(">> Drop of msg", False) LOGGER.Info(">> Drop of msg")
'supports a drop of a Outlook message 'supports a drop of a Outlook message
Dim myobj As Object Dim myobj As Object
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count 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("%", "") 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 Try
myobj.SaveAs(strFile) myobj.SaveAs(strFile)
Catch ex As Exception Catch ex As Exception

17
Global_Indexer/ClassFilehandle.vb
View File

@ -59,7 +59,7 @@ Public Class ClassFilehandle
If Not msg.InternetMessageId Is Nothing Then If Not msg.InternetMessageId Is Nothing Then
CURRENT_MESSAGEID = msg.InternetMessageId CURRENT_MESSAGEID = msg.InternetMessageId
Else 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 Dim sGUID As String
sGUID = System.Guid.NewGuid.ToString() sGUID = System.Guid.NewGuid.ToString()
CURRENT_MESSAGEID = sGUID CURRENT_MESSAGEID = sGUID
@ -67,7 +67,7 @@ Public Class ClassFilehandle
'Nur die MSGDatei ablegen 'Nur die MSGDatei ablegen
Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg") Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
If File.Exists(tempfile) Then If File.Exists(tempfile) Then
File.Delete(tempfile) File.Delete(tempfile)
End If End If
@ -83,7 +83,7 @@ Public Class ClassFilehandle
Dim _msg As New Msg.Message(msgname) Dim _msg As New Msg.Message(msgname)
Dim i1 As Integer = 1 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 For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
If erfolgreich = False Then If erfolgreich = False Then
Exit For Exit For
@ -103,7 +103,7 @@ Public Class ClassFilehandle
attachment.Save(tempfile) attachment.Save(tempfile)
'Datei in Array zum Templöschen speichern 'Datei in Array zum Templöschen speichern
TEMP_FILES.Add(tempfile) TEMP_FILES.Add(tempfile)
If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
'nun der Insert des Anhanges 'nun der Insert des Anhanges
erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
i1 += 1 i1 += 1
@ -143,7 +143,7 @@ Public Class ClassFilehandle
' Ist ein Fehler aufgetreten, so wird nach außen hin generell ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
' davon ausgegangen, dass die Datei in Benutzung ist (obwohl ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
' auch andere Ursachen, etwa Rechteprobleme, möglich sind). ' 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 IsFileInUse = True
Finally Finally
' Die eventuell geöffnete Datei schließen ' Die eventuell geöffnete Datei schließen
@ -176,7 +176,8 @@ Public Class ClassFilehandle
End If End If
Return _NewFileString & extension Return _NewFileString & extension
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
Return "" Return ""
End Try End Try
@ -189,7 +190,7 @@ Public Class ClassFilehandle
''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen
''' im Dateinamen</param> ''' im Dateinamen</param>
Public Shared Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String 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 If sFilename.Contains(".\") Then
sFilename = sFilename.Replace(".\", "\") sFilename = sFilename.Replace(".\", "\")
End If End If
@ -204,7 +205,7 @@ Public Class ClassFilehandle
sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline) 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 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)) 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 Return sFilename
End Function End Function
End Class End Class

34
Global_Indexer/ClassFolderWatcher.vb
View File

@ -13,7 +13,7 @@ Public Class ClassFolderWatcher
FW_started = False FW_started = False
'FolderWatch neu instanzieren 'FolderWatch neu instanzieren
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch neu instanziert", False) LOGGER.Info(" >> FolderWatch neu instanziert")
FolderWatcher.IncludeSubdirectories = False FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated AddHandler FolderWatcher.Created, AddressOf OnCreated
@ -23,7 +23,8 @@ Public Class ClassFolderWatcher
CONFIG.Save() CONFIG.Save()
End If End If
Catch ex As Exception 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 Try
End Function End Function
Public Shared Function Restart_FolderWatchSCAN() Public Shared Function Restart_FolderWatchSCAN()
@ -33,7 +34,7 @@ Public Class ClassFolderWatcher
FolderWatcher_SCAN.EnableRaisingEvents = False FolderWatcher_SCAN.EnableRaisingEvents = False
'FolderWatch neu instanzieren 'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*") 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.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@ -42,7 +43,8 @@ Public Class ClassFolderWatcher
CONFIG.Save() CONFIG.Save()
End If End If
Catch ex As Exception 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 Try
End Function End Function
Public Shared Function StartStop_FolderWatch() Public Shared Function StartStop_FolderWatch()
@ -53,7 +55,7 @@ Public Class ClassFolderWatcher
End If End If
If FolderWatcher Is Nothing Then If FolderWatcher Is Nothing Then
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Gestartet", False) LOGGER.Info(" >> FolderWatch Gestartet")
FolderWatcher.IncludeSubdirectories = False FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated AddHandler FolderWatcher.Created, AddressOf OnCreated
@ -67,7 +69,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher() ' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH ' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Gestartet", False) LOGGER.Info(" >> FolderWatch Gestartet")
FolderWatcher.IncludeSubdirectories = False FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated AddHandler FolderWatcher.Created, AddressOf OnCreated
@ -80,7 +82,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen 'Gestartet also Stoppen
FolderWatcher.EnableRaisingEvents = False FolderWatcher.EnableRaisingEvents = False
FW_started = False FW_started = False
ClassLogger.Add(" >> FolderWatch gestoppt", False) LOGGER.Info(" >> FolderWatch gestoppt")
'SaveConfigValue("FW_started", "False") 'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False CONFIG.Config.FolderWatchStarted = False
CONFIG.Save() CONFIG.Save()
@ -88,7 +90,7 @@ Public Class ClassFolderWatcher
End If End If
'If watcher.EnableRaisingEvents = False Then 'If watcher.EnableRaisingEvents = False Then
' watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") ' watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
' ClassLogger.Add(" - vFolderWatch.Gestartet", False) ' LOGGER.Info(" - vFolderWatch.Gestartet")
' watcher.IncludeSubdirectories = False ' watcher.IncludeSubdirectories = False
' watcher.EnableRaisingEvents = True ' watcher.EnableRaisingEvents = True
' AddHandler watcher.Created, AddressOf OnCreated ' AddHandler watcher.Created, AddressOf OnCreated
@ -121,7 +123,7 @@ Public Class ClassFolderWatcher
End If End If
If FolderWatcher_SCAN Is Nothing Then If FolderWatcher_SCAN Is Nothing Then
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_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.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@ -133,7 +135,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher() ' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH ' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_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.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@ -143,13 +145,13 @@ Public Class ClassFolderWatcher
Else Else
'Gestartet also Stoppen 'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False FolderWatcher_SCAN.EnableRaisingEvents = False
ClassLogger.Add(" >> FolderWatch Scan gestoppt", False) LOGGER.Info(" >> FolderWatch Scan gestoppt")
'SaveConfigValue("FWSCAN_started", "False") 'SaveConfigValue("FWSCAN_started", "False")
CONFIG.Config.FolderWatchScanStarted = False CONFIG.Config.FolderWatchScanStarted = False
CONFIG.Save() CONFIG.Save()
Return 0 Return 0
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 99 Return 99
@ -160,7 +162,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen 'Gestartet also Stoppen
FolderWatcher.EnableRaisingEvents = False FolderWatcher.EnableRaisingEvents = False
FW_started = False FW_started = False
ClassLogger.Add(" >> FolderWatch gestoppt", False) LOGGER.Info(" >> FolderWatch gestoppt")
'SaveConfigValue("FW_started", "False") 'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = True CONFIG.Config.FolderWatchStarted = True
CONFIG.Save() CONFIG.Save()
@ -171,7 +173,7 @@ Public Class ClassFolderWatcher
End Function End Function
Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs) Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
If ClassDatabase.DatabaseConnectionTimeout = True Then 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 Exit Sub
End If End If
@ -190,11 +192,11 @@ Public Class ClassFolderWatcher
handleType = "|FW_SIMPLEINDEXER|" handleType = "|FW_SIMPLEINDEXER|"
End If End If
'Die Datei übergeben 'Die Datei übergeben
If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False) LOGGER.Info(">> OnCreated-File:" & e.FullPath)
If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then
ClassFilehandle.Decide_FileHandle(e.FullPath, handleType) ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
Else Else
ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False) LOGGER.Info(">> Folderwatcher: File already exists:" & e.FullPath)
End If End If
Catch ex As Exception Catch ex As Exception

5
Global_Indexer/ClassFormFunctions.vb
View File

@ -47,13 +47,14 @@ Public Class ClassFormFunctions
'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no; 'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;
Case Else Case Else
ClassLogger.Add(" - ConnectionType not integrated", False) LOGGER.Info(" - ConnectionType not integrated")
MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:") MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
End Select End Select
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try End Try

11
Global_Indexer/ClassHelper.vb
View File

@ -10,10 +10,11 @@ Public Class ClassHelper
Dim utf8Encoding As New System.Text.UTF8Encoding(True) Dim utf8Encoding As New System.Text.UTF8Encoding(True)
Dim encodedString() As Byte Dim encodedString() As Byte
encodedString = utf8Encoding.GetBytes(str) 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) Return utf8Encoding.GetString(encodedString)
Catch ex As Exception 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 Return Nothing
End Try End Try
@ -26,7 +27,8 @@ Public Class ClassHelper
' return byte data ' return byte data
Return bytes Return bytes
Catch ex As Exception 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 Return Nothing
End Try End Try
@ -37,7 +39,8 @@ Public Class ClassHelper
Dim matches As MatchCollection = Regex.Matches(str, pattern) Dim matches As MatchCollection = Regex.Matches(str, pattern)
Return matches.Count Return matches.Count
Catch ex As Exception 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 Return 0
End Try End Try
End Function End Function

68
Global_Indexer/ClassHotkey_Windream.vb
View File

@ -23,7 +23,7 @@ Public Class ClassHotkey_Windream
Dim enumerator1 As New ClassWindowAPI Dim enumerator1 As New ClassWindowAPI
'Jedes Formularwindow durchlaufen 'Jedes Formularwindow durchlaufen
For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() 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 If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
Control_Sequence = 0 Control_Sequence = 0
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) 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 If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then
Return True Return True
Else 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 Return False
End If End If
End If End If
@ -45,7 +45,7 @@ Public Class ClassHotkey_Windream
Next top Next top
Catch ex As Exception Catch ex As Exception
MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Return False
End Try End Try
End Function End Function
@ -60,7 +60,7 @@ Public Class ClassHotkey_Windream
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
If vControl.MainWindowTitle <> "" Then If vControl.MainWindowTitle <> "" Then
If Control_Sequence = myControlID 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 Return vControl.MainWindowTitle.ToString
End If End If
End If End If
@ -71,7 +71,7 @@ Public Class ClassHotkey_Windream
Next top Next top
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Return Nothing
End Try End Try
End Function End Function
@ -92,7 +92,7 @@ Public Class ClassHotkey_Windream
End Sub End Sub
Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer) Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer)
Try 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 DTWD As DataTable
Dim Objecttype As String Dim Objecttype As String
Dim windowname 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 Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID
DTWD = ClassDatabase.Return_Datatable(_sql) DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 0 Then 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" Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
End If End If
If DTWD.Rows.Count > 1 Then 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" Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
End If End If
If DTWD.Rows(0).Item(0) = "" Then 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" Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey"
End If End If
Dim BaseSearch = DTWD.Rows(0).Item(0) Dim BaseSearch = DTWD.Rows(0).Item(0)
@ -119,7 +119,7 @@ Public Class ClassHotkey_Windream
HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID") HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID")
Dim windream_temp_search As String = "" Dim windream_temp_search As String = ""
If IO.File.Exists(BaseSearch) = False Then 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 If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) 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) Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True)
If WDUnicode = True Then If WDUnicode = True Then
EncodingFormat = Encoding.GetEncoding(1252) '1252 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 Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False) LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))")
EncodingFormat = Encoding.GetEncoding(65001) EncodingFormat = Encoding.GetEncoding(65001)
End If End If
@ -160,16 +160,16 @@ Public Class ClassHotkey_Windream
For Each row As DataRow In DT_HOOKS.Rows For Each row As DataRow In DT_HOOKS.Rows
RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE")) RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE"))
If RelevantWindow = False Then 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......" Return "Not the Relevant window......"
End If End If
Next Next
End If 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 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("Í", "Ö") fileContents = fileContents.Replace("Í", "Ö")
'Das Array für die PAtterns anpassen 'Das Array für die PAtterns anpassen
_sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID
@ -212,7 +212,7 @@ Public Class ClassHotkey_Windream
End If End If
Else 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) Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString)
If Not IsNothing(foundresult) Then If Not IsNothing(foundresult) Then
'Die Nachbearbeitungsschritte laden 'Die Nachbearbeitungsschritte laden
@ -225,15 +225,15 @@ Public Class ClassHotkey_Windream
End If End If
If Not IsNothing(foundresult) Then If Not IsNothing(foundresult) Then
If foundresult.ToString = "<" Or foundresult.ToString = ">" 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." Return "Hotkey konnte nur einen irregulären Wert auswerten."
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False) LOGGER.Info(" ...fileContents.length: " & fileContents.Length)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False) LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'")
fileContents = fileContents.Replace(row.Item(2).ToString, 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 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?" Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?"
End If End If
End If End If
@ -246,7 +246,7 @@ Public Class ClassHotkey_Windream
Try Try
'Die File schreiben 'Die File schreiben
My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) 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 ' XML-Datei öffnen und laden
Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
Dim Reader As New System.Xml.XmlTextReader(Stream) Dim Reader As New System.Xml.XmlTextReader(Stream)
@ -257,9 +257,10 @@ Public Class ClassHotkey_Windream
xml.Load(Reader) xml.Load(Reader)
Reader.Close() Reader.Close()
xml.Save(windream_temp_search) 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 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:")
End Try End Try
@ -281,14 +282,14 @@ Public Class ClassHotkey_Windream
Dim rctMain As RECT Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain) GetWindowRect(p.MainWindowHandle, rctMain)
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False) LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString)
ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False) LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString)
ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False) LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString)
ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False) LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:") 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" Return "Unexpected error while executing search"
End Try End Try
Dim psList() As Process Dim psList() As Process
@ -312,17 +313,20 @@ Public Class ClassHotkey_Windream
Next p Next p
Catch ex As Exception 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 End Try
Return "" Return ""
Catch ex As Exception 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) MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unexpected error in Create Search" Return "Unexpected error in Create Search"
End Try End Try
Catch ex As Exception 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) MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
End Try End Try

43
Global_Indexer/ClassInit.vb
View File

@ -10,10 +10,9 @@ Public Class ClassInit
Public Sub InitLogger() Public Sub InitLogger()
ClassLogger.Init("", Environment.UserName) ClassLogger.Init("", Environment.UserName)
ClassLogger.Add(">> Programmstart: " & Now, False)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData) LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
LOGGER = LOGCONFIG.GetLogger("Globix") LOGGER = LOGCONFIG.GetLogger("Globix")
LOGGER.Info("Programmstart: " & Now)
LOGGER.Info("Username: {0}", Environment.UserName) LOGGER.Info("Username: {0}", Environment.UserName)
End Sub End Sub
@ -100,21 +99,21 @@ Public Class ClassInit
folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath) folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)
If folderwatchPath = String.Empty Then If folderwatchPath = String.Empty Then
ClassLogger.Add("Init_Folderwatch: folderwatchPath is empty", True) LOGGER.Info("Init_Folderwatch: folderwatchPath is empty")
FW_started = False FW_started = False
'SaveConfigValue("FW_started", "False") 'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False CONFIG.Config.FolderWatchStarted = False
CONFIG.Save() CONFIG.Save()
End If End If
If Not IO.Directory.Exists(folderwatchPath) Then 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 FW_started = False
'SaveConfigValue("FW_started", "False") 'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False CONFIG.Config.FolderWatchStarted = False
CONFIG.Save() CONFIG.Save()
End If End If
CURRENT_FOLDERWATCH = folderwatchPath CURRENT_FOLDERWATCH = folderwatchPath
@ -124,7 +123,7 @@ Public Class ClassInit
ClassFolderWatcher.StartStop_FolderWatch() ClassFolderWatcher.StartStop_FolderWatch()
Catch ex As Exception Catch ex As Exception
MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatch: {ex.Message}", MsgBoxStyle.Critical) 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 START_INCOMPLETE = True
End Try End Try
@ -135,14 +134,14 @@ Public Class ClassInit
folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath) folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath)
If folderwatchScanPath = String.Empty Then 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.Config.FolderWatchStarted = False
CONFIG.Save() CONFIG.Save()
Exit Sub Exit Sub
End If End If
If Not IO.Directory.Exists(folderwatchScanPath) Then 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.Config.FolderWatchStarted = False
CONFIG.Save() CONFIG.Save()
Exit Sub Exit Sub
@ -155,7 +154,7 @@ Public Class ClassInit
ClassFolderWatcher.StartStop_FolderWatchSCAN() ClassFolderWatcher.StartStop_FolderWatchSCAN()
Catch ex As Exception Catch ex As Exception
MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatchScan: {ex.Message}", MsgBoxStyle.Critical) 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 START_INCOMPLETE = True
End Try End Try
@ -180,7 +179,7 @@ Public Class ClassInit
' End If ' End If
' Else ' Else
' ClassLogger.Add("Init_Folderwatch: folderwatch path is nothing!", True) ' LOGGER.Info("Init_Folderwatch: folderwatch path is nothing!")
' End If ' End If
' If Not folderwatch_SCAN Is Nothing Then ' If Not folderwatch_SCAN Is Nothing Then
' CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN ' CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
@ -189,10 +188,10 @@ Public Class ClassInit
' ClassFolderWatcher.StartStop_FolderWatchSCAN() ' ClassFolderWatcher.StartStop_FolderWatchSCAN()
' End If ' End If
' Else ' Else
' ClassLogger.Add("Init_Folderwatch: folderwatch_SCAN path is nothing!", True) ' LOGGER.Info("Init_Folderwatch: folderwatch_SCAN path is nothing!")
' End If ' End If
'Catch ex As Exception '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 ' START_INCOMPLETE = True
'End Try 'End Try
End Sub End Sub
@ -200,13 +199,14 @@ Public Class ClassInit
Try Try
Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName) 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) USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
Try Try
Dim USERID = CInt(USER_ID) Dim USERID = CInt(USER_ID)
Catch ex As Exception 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:") 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close() 'Me.Close()
START_INCOMPLETE = True 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) 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) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then 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 START_INCOMPLETE = True
ERROR_STATE = "NO USER" ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) 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 If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS") USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
If USER_IN_MODULE = False Then 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 START_INCOMPLETE = True
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!") 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) ClassDatabase.Execute_non_Query(sql)
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')" 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) 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 = CInt(anzahl)
UserLoggedin += 1 UserLoggedin += 1
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then 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:") 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 If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql, True)
ClassLogger.Add(" - Wieder abgemeldet", False) LOGGER.Info(" - Wieder abgemeldet")
START_INCOMPLETE = True START_INCOMPLETE = True
End If End If
End If End If
@ -286,7 +286,8 @@ Public Class ClassInit
Catch ex As Exception 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) MsgBox(ex.Message, MsgBoxStyle.Critical)
START_INCOMPLETE = True START_INCOMPLETE = True
End Try End Try

5
Global_Indexer/ClassLayout.vb
View File

@ -76,11 +76,12 @@ Public Class ClassWindowLocation
End If End If
Next Next
If result = False Then 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 End If
Return result Return result
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function

28
Global_Indexer/ClassPostprocessing.vb
View File

@ -16,7 +16,7 @@ Public Class ClassPostprocessing
Select Case oType Select Case oType
Case VBSPLIT 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 oSeparator As String = oDataRow.Item("TEXT1")
Dim oSplitIndex As Integer = 0 Dim oSplitIndex As Integer = 0
@ -31,15 +31,15 @@ Public Class ClassPostprocessing
Dim oFindString = oDataRow.Item("TEXT1") Dim oFindString = oDataRow.Item("TEXT1")
Dim oReplaceString = oDataRow.Item("TEXT2") Dim oReplaceString = oDataRow.Item("TEXT2")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False) LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'", False) LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
For Each oIndexValue In oIndexValues For Each oIndexValue In oIndexValues
Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString) Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
oResult.Add(oReplaceResult) oResult.Add(oReplaceResult)
Next Next
Case REGEXPRESSION 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 oRegexList As New List(Of Regex)
Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase) Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
@ -50,7 +50,7 @@ Public Class ClassPostprocessing
Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList) Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
oResult.Add(oProcessedString) oResult.Add(oProcessedString)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & oProcessedString, False) LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString)
Next Next
End Select End Select
@ -58,7 +58,7 @@ Public Class ClassPostprocessing
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:") 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 End Try
Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray) Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
@ -68,41 +68,41 @@ Public Class ClassPostprocessing
' For Each row As DataRow In Datatable.Rows ' For Each row As DataRow In Datatable.Rows
' Select Case row.Item("TYPE").ToString.ToUpper ' Select Case row.Item("TYPE").ToString.ToUpper
' Case "VBSPLIT" ' Case "VBSPLIT"
' If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False) ' LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
' Dim strSplit() As String ' Dim strSplit() As String
' strSplit = result.Split(row.Item("TEXT1")) ' strSplit = result.Split(row.Item("TEXT1"))
' For i As Integer = 0 To strSplit.Length - 1 ' For i As Integer = 0 To strSplit.Length - 1
' If i = CInt(row.Item("TEXT2")) Then ' 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 ' result = strSplit(i).ToString
' End If ' End If
' Next ' Next
' Case "VBREPLACE" ' Case "VBREPLACE"
' If LogErrorsOnly = False Then ' If LogErrorsOnly = False Then
' ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False) ' LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
' ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False) ' LOGGER.Info(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'")
' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
' End If ' End If
' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
' Case "REG. EXPRESSION" ' 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 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) ' Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
' RegexList.Add(Regex) ' RegexList.Add(Regex)
' ' ' '
' Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList) ' Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
' If Not IsNothing(resultRegex) Then ' 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 ' result = resultRegex.ToString
' Else ' Else
' ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True) ' LOGGER.Info("Postprocessing RegEx konnte kein Ergebnis auswerten!")
' End If ' End If
' End Select ' End Select
' Next ' Next
' Return result ' Return result
'Catch ex As Exception '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:") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
' Return result ' Return result
'End Try 'End Try

301
Global_Indexer/ClassWindream.vb
View File

@ -196,12 +196,13 @@ Public Class ClassWindream
Try Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
oSession = CreateObject("Windream.WMSession", GetCurrentServer) oSession = CreateObject("Windream.WMSession", GetCurrentServer)
If LogErrorsOnly = False Then ClassLogger.Add(" ...windream-Server: '" & GetCurrentServer() & "'", False) LOGGER.Info(" ...windream-Server: '" & GetCurrentServer() & "'")
' Connection-Objekt instanziieren ' Connection-Objekt instanziieren
oConnect = CreateObject("Windream.WMConnect") oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed") 'MsgBox("windrem init 'ed")
Catch ex As Exception 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 Return False
End Try End Try
@ -230,7 +231,7 @@ Public Class ClassWindream
End If End If
'If My.Settings.vDetailLog Then 'If My.Settings.vDetailLog Then
' ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False) ' LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'")
'End If 'End If
' AUSGABE VON SYSTEMINFORMATIONEN ' AUSGABE VON SYSTEMINFORMATIONEN
@ -264,7 +265,7 @@ Public Class ClassWindream
Catch ex As Exception Catch ex As Exception
If Err.Number = -2147220985 Then 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") "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
Else Else
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Login an windream") 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) Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename)
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then
My.Computer.FileSystem.CreateDirectory(Zielverzeichnis) My.Computer.FileSystem.CreateDirectory(Zielverzeichnis)
ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False) LOGGER.Info(" - Zielverzeichnis neu erzeugt!")
End If End If
Const STREAM_BinaryObject = "BinaryObject" 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 = "" Dim windreamFilename As String = ""
' Objekt für Datei und Zielverzeichnis anlegen ' Objekt für Datei und Zielverzeichnis anlegen
Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False) LOGGER.Info(" ...Quelldatei gelesen")
'"Version-KZ entfernen '"Version-KZ entfernen
newfilename = newfilename.Replace("\\", "\") newfilename = newfilename.Replace("\\", "\")
windreamFilename = newfilename.Substring(2) windreamFilename = newfilename.Substring(2)
@ -583,7 +584,7 @@ Public Class ClassWindream
End If End If
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then 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 ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
Dim dvr As New DriveInfo(vWLaufwerk & ":") Dim dvr As New DriveInfo(vWLaufwerk & ":")
Dim freeSpace = dvr.TotalFreeSpace Dim freeSpace = dvr.TotalFreeSpace
@ -601,7 +602,7 @@ Public Class ClassWindream
Return -10 Return -10
End If 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 Connect
Dim Session Dim Session
Dim WMObject Dim WMObject
@ -609,15 +610,15 @@ Public Class ClassWindream
Dim aWMStream Dim aWMStream
Dim wmbrwsr Dim wmbrwsr
Dim dmsServer As String 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") Connect = CreateObject("Windream.WMConnect")
aFileIO = New WMOTOOLLib.WMFileIO aFileIO = New WMOTOOLLib.WMFileIO
'If My.Settings.DLL_WMOTOOL = "" Then 'If My.Settings.DLL_WMOTOOL = "" Then
' aFileIO = New WMOTOOLLib.WMFileIO ' 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 'Else
' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO ' 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 'End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser") wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
@ -635,10 +636,10 @@ Public Class ClassWindream
Connect.LoginSession(Session) Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin Dim LoggedIn = Session.aLoggedin
If LoggedIn Then 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 + "'") 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else Else
ClassLogger.Add(" >> Login on dms-Server failed", False) LOGGER.Info(" >> Login on dms-Server failed")
' MsgBox("Login failed. ") ' MsgBox("Login failed. ")
End If End If
oSession = Session oSession = Session
@ -649,26 +650,26 @@ Public Class ClassWindream
'================================================================== '==================================================================
' check if files exist ' 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 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) wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0)
Err.Clear() Err.Clear()
If wdFilexists = False Then If wdFilexists = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) LOGGER.Info(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden")
'================================================================== '==================================================================
' create an object ' create an object
'================================================================== '==================================================================
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then 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) 'MsgBox(Err.Description)
End If End If
' MsgBox("Created file: " + windreamFilename) ' MsgBox("Created file: " + windreamFilename)
Else Else
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) LOGGER.Info(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN")
If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then 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) 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 End If
WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") LOGGER.Info(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False) LOGGER.Info(" ...WMObject zugewiesen")
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename, False) LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename)
If WMObject IsNot Nothing Then If WMObject IsNot Nothing Then
newfilename = vWLaufwerk & ":" & windreamFilename newfilename = vWLaufwerk & ":" & windreamFilename
' lock object for file system access (to change the file itself) ' lock object for file system access (to change the file itself)
@ -702,8 +703,8 @@ Public Class ClassWindream
' set fileIO the local source file ' set fileIO the local source file
aFileIO.bstrOriginalFileName = filenameQuelle aFileIO.bstrOriginalFileName = filenameQuelle
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" 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(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
@ -713,17 +714,17 @@ Public Class ClassWindream
' open the windream object's file stream for writing ' open the windream object's file stream for writing
aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
If Err.Number > 0 Then 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() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...oWMStream erzeugt", False) LOGGER.Info(" ...oWMStream erzeugt")
' give fileIO helper object the windream stream ' give fileIO helper object the windream stream
aFileIO.aWMStream = aWMStream aFileIO.aWMStream = aWMStream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
@ -732,17 +733,17 @@ Public Class ClassWindream
' let fileIO object import the original file into windream ' let fileIO object import the original file into windream
aFileIO.ImportOriginal(True) aFileIO.ImportOriginal(True)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If 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 ' close the windream file stream
aWMStream.Close() aWMStream.Close()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
@ -751,17 +752,17 @@ Public Class ClassWindream
' save new windream object ' save new windream object
WMObject.save() WMObject.save()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei konnte gespeichert werden", False) LOGGER.Info(" ...Datei konnte gespeichert werden")
' unlock the windream object ' unlock the windream object
WMObject.unlock() WMObject.unlock()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") LOGGER.Info(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock() WMObject.Unlock()
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Return False Return False
@ -770,7 +771,7 @@ Public Class ClassWindream
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
Dim info2 As New FileInfo(newfilename) Dim info2 As New FileInfo(newfilename)
Dim length1 As Long = info2.Length Dim length1 As Long = info2.Length
If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False) LOGGER.Info(" ...Length der Zieldatei: " & length1.ToString)
If length > 0 And Err.Number = 0 Then If length > 0 And Err.Number = 0 Then
Dim p As String Dim p As String
If windreamFilename.StartsWith("\") Then If windreamFilename.StartsWith("\") Then
@ -783,26 +784,26 @@ Public Class ClassWindream
p = "\" & windreamFilename p = "\" & windreamFilename
End If End If
CURRENT_NEWFILENAME = vWLaufwerk & ":" & p CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!", False) LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!")
aktWMObject = WMObject aktWMObject = WMObject
Return True Return True
Else Else
Delete_WDFile(windreamFilename) Delete_WDFile(windreamFilename)
Console.WriteLine(Err.Number.ToString) 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 Return False
End If End If
Else 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() Is Nothing Then
If Not Err.Description Is Nothing Then If Not Err.Description Is Nothing Then
ClassLogger.Add(Err.Description) LOGGER.Info(Err.Description)
End If End If
End If End If
Return False Return False
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add("...targetPath existiert NICHT", False) LOGGER.Info("...targetPath existiert NICHT")
Return False Return False
End If End If
@ -816,16 +817,17 @@ Public Class ClassWindream
Try Try
WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
Catch ex As Exception 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 Return False
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Deleting started - Object created", False) LOGGER.Info(" >> Deleting started - Object created")
WMObject.Delete() WMObject.Delete()
Return True Return True
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Delete_WDFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Return False
End Try End Try
End Function 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) Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" ...DateiIndexieren wurde aufgerufen", False) LOGGER.Info(" ...DateiIndexieren wurde aufgerufen")
WD_File = WD_File.Substring(2) WD_File = WD_File.Substring(2)
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString) 'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString)
' den Dokumenttyp schreiben ' den Dokumenttyp schreiben
If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False) LOGGER.Info(" ## Indexieren wird gestartet ##")
' ein windream-Objekt der Datei anlegen ' ein windream-Objekt der Datei anlegen
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wird gesperrt", False) LOGGER.Info(" ...Datei wird gesperrt")
' die Datei sperren ' die Datei sperren
WMObject.lock() WMObject.lock()
Catch ex As Exception 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) ' nichts tun (Datei ist bereits gesperrt)
End Try End Try
If IsNothing(WMObject) Then 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 Return False
End If End If
If IsNothing(WMObject.aObjectType) Then 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 Return False
End If 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 ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen ' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wurde gesetzt", False) LOGGER.Info(" ...Objekttyp wurde gesetzt")
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) LOGGER.Info(" ...Objekttyp war bereits gesetzt")
End If End If
Try Try
@ -891,42 +893,42 @@ Public Class ClassWindream
Catch ex As Exception Catch ex As Exception
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
End Try 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 ' 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 ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden
Dim indexe As String = "" Dim indexe As String = ""
If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexname: '" & _Indexname & "'", False) LOGGER.Info(" ...Indexname: '" & _Indexname & "'")
Dim werte = New ArrayList Dim werte = New ArrayList
If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then 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 '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) _Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung 'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then If _Value Is Nothing Then
Return False Return False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) LOGGER.Info(" ...Value für Indexierung: " & _Value)
werte.Add(_Value) werte.Add(_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Werte zu Array hinzugefügt!", False) LOGGER.Info(" ...Werte zu Array hinzugefügt!")
Else Else
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt '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) _Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung 'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then If _Value Is Nothing Then
Return False Return False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) LOGGER.Info(" ...Value für Indexierung: " & _Value)
werte.Add(_Value) werte.Add(_Value)
End If End If
@ -940,8 +942,9 @@ Public Class ClassWindream
Return RunIndexing(WMObject, arrIndex, arrValue) Return RunIndexing(WMObject, arrIndex, arrValue)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.") LOGGER.Info("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.")
ClassLogger.Add("Fehler: " & ex.Message) LOGGER.Error(ex.Message)
LOGGER.Info("Fehler: " & ex.Message)
' Me.TreeNodeInfos.Add(temp) ' Me.TreeNodeInfos.Add(temp)
Return False Return False
End Try End Try
@ -955,16 +958,16 @@ Public Class ClassWindream
Dim i As Integer = 0 Dim i As Integer = 0
Dim indexname As String Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then 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 End If
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If oDocument.aObjectType.aName <> _WDObjekttyp Then If oDocument.aObjectType.aName <> _WDObjekttyp Then
' ihr den entsprechenden Dokumenttyp zuweisen ' ihr den entsprechenden Dokumenttyp zuweisen
oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp ' 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 Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) LOGGER.Info(" ...Objekttyp war bereits gesetzt")
End If End If
Try Try
@ -979,8 +982,8 @@ Public Class ClassWindream
For Each aName As String In Indizes For Each aName As String In Indizes
indexname = aName indexname = aName
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" ", False) LOGGER.Info(" ")
ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False) LOGGER.Info(" >> Indexierung von Index '" & indexname & "'")
End If End If
' das entsprechende Attribut aus windream auslesen ' das entsprechende Attribut aus windream auslesen
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
@ -1006,45 +1009,45 @@ Public Class ClassWindream
Select Case (vType) Select Case (vType)
'Case WMObjectVariableValueTypeUndefined 'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString Case WMObjectVariableValueTypeString
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger 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(" ", "") value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then 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 End If
value = value.ToString.Replace(" ", "") value = value.ToString.Replace(" ", "")
convertValue = CInt(value) convertValue = CInt(value)
_int = True _int = True
Case WMObjectVariableValueTypeFloat 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(" ", "") value = value.ToString.Replace(" ", "")
convertValue = CDbl(value) convertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint 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(" ", "") value = value.ToString.Replace(" ", "")
convertValue = CDbl(value) convertValue = CDbl(value)
_dbl = True _dbl = True
Case WMObjectVariableValueTypeBoolean Case WMObjectVariableValueTypeBoolean
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
convertValue = CBool(value) convertValue = CBool(value)
_bool = True _bool = True
Case WMObjectVariableValueTypeDate Case WMObjectVariableValueTypeDate
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate")
_date = True _date = True
'Dim _date As Date = value 'Dim _date As Date = value
convertValue = value convertValue = value
Case WMObjectVariableValueTypeTimeStamp Case WMObjectVariableValueTypeTimeStamp
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
convertValue = value convertValue = value
Case WMObjectVariableValueTypeCurrency 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 '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)) Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime Case WMObjectVariableValueTypeTime
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime")
'If ((value)) Then 'If ((value)) Then
' convertValue = CDate(value) ' convertValue = CDate(value)
'Else 'Else
@ -1053,57 +1056,57 @@ Public Class ClassWindream
'Dim _date As Date = value 'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat Case WMObjectVariableValueTypeFloat
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant Case WMObjectVariableValueTypeVariant
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext Case WMObjectVariableValueTypeFulltext
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False) LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
convertValue = CStr(value) convertValue = CStr(value)
Case 4097 Case 4097
vektor = True 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 'Vektor alphanumerisch
convertValue = CStr(value) convertValue = CStr(value)
Case 4098 Case 4098
vektor = True 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 'Vektor Numerisch
convertValue = CStr(value) convertValue = CStr(value)
Case 4099 Case 4099
vektor = True 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 'Vektor Kommazahl
convertValue = CStr(value) convertValue = CStr(value)
Case 4101 Case 4101
vektor = True 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 'Vektor Kommazahl
convertValue = CStr(value) convertValue = CStr(value)
Case 4103 Case 4103
vektor = True 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 'Vektor DateTime
convertValue = CStr(value) convertValue = CStr(value)
Case 4107 Case 4107
vektor = True 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) convertValue = CStr(value)
Case 36865 Case 36865
vektor = True 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 'Vektor Kommazahl
convertValue = CStr(value) convertValue = CStr(value)
Case Else Case Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False) LOGGER.Info(" ...Typ des windream-Indexes konnte nicht bestimmt werden!")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType) LOGGER.Info(" ...Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else") 'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = "" convertValue = ""
End Select End Select
If vektor = False Then If vektor = False Then
If convertValue.ToString Is Nothing = 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
End If End If
'############################################################################################ '############################################################################################
@ -1111,7 +1114,7 @@ Public Class ClassWindream
'############################################################################################ '############################################################################################
If vektor = False Then If vektor = False Then
If convertValue.ToString Is Nothing = 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 If _int = True Then
convertValue = convertValue.ToString.Replace(" ", "") convertValue = convertValue.ToString.Replace(" ", "")
oDocument.SetVariableValue(aName, CInt(convertValue)) oDocument.SetVariableValue(aName, CInt(convertValue))
@ -1129,15 +1132,15 @@ Public Class ClassWindream
oDocument.Save() oDocument.Save()
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" ...Index '" & aName & "' wurde geschrieben", False) LOGGER.Info(" ...Index '" & aName & "' wurde geschrieben")
ClassLogger.Add("", False) LOGGER.Info("")
End If End If
Else Else
ClassLogger.Add(" >> Kein Indexwert vorhanden", False) LOGGER.Info(" >> Kein Indexwert vorhanden")
End If End If
Else Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST '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() Dim myArray()
@ -1149,7 +1152,7 @@ Public Class ClassWindream
Dim Anzahl As Integer = aValues.Length Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt 'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 1 Then 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) ReDim myArray(0)
Select Case vType Select Case vType
Case 36865 Case 36865
@ -1181,12 +1184,12 @@ Public Class ClassWindream
End Select End Select
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen '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() Dim VektorArray()
'Immer anfügen '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) Dim indicies As New List(Of Object)
@ -1212,14 +1215,14 @@ Public Class ClassWindream
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
'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 'Die Änderungen festsschreiben/speichern
oDocument.Save() oDocument.Save()
End If End If
Else 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 ' 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 'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each obj In myArray For Each obj In myArray
myArray(i1) = CStr(obj) 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 i1 = i1 + 1
Next Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Array wurde erfolgreich erzeugt", False) LOGGER.Info(" >> Array wurde erfolgreich erzeugt")
Dim VektorArray() Dim VektorArray()
@ -1269,28 +1272,29 @@ Public Class ClassWindream
'Die Größe des Arrays festlegen 'Die Größe des Arrays festlegen
myArray(i1) = CStr(myArray(0)) myArray(i1) = CStr(myArray(0))
End Select 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 i1 += 1
Next Next
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
Try Try
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
Catch ex As Exception 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.Save()
oDocument.unlock() oDocument.unlock()
Return False Return False
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False) LOGGER.Info(" >> 'SetVariableValue' für VEKTOR erfolgreich")
' oDocument.LockRights() ' oDocument.LockRights()
'Die Änderungen festsschreiben/speichern 'Die Änderungen festsschreiben/speichern
oDocument.Save() oDocument.Save()
If LogErrorsOnly = False Then ClassLogger.Add(">> Indexierung erfolgreich beendet (Save ...", False) LOGGER.Info(">> Indexierung erfolgreich beendet (Save ...")
Else Else
ClassLogger.Add(" - Achtung: VektorArray Is NOTHING", False) LOGGER.Info(" - Achtung: VektorArray Is NOTHING")
oDocument.Save() oDocument.Save()
Return True Return True
End If End If
@ -1303,18 +1307,19 @@ Public Class ClassWindream
Next Next
oDocument.unlock() oDocument.unlock()
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(">> ...und Unlock durchgeführt)", False) LOGGER.Info(">> ...und Unlock durchgeführt)")
ClassLogger.Add("", False) LOGGER.Info("")
End If End If
Return True Return True
Else 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() 'oDocument.unlock()
Return False Return False
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("ClassNiWindream.RunIndexing: " & ex.Message) LOGGER.Info("ClassNiWindream.RunIndexing: " & ex.Message)
LOGGER.Error(ex.Message)
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
Return False Return False
@ -1331,7 +1336,7 @@ Public Class ClassWindream
'Nochmals prüfen ob wirklich Array 'Nochmals prüfen ob wirklich Array
If wertWD.GetType.ToString.Contains("System.Object") Then If wertWD.GetType.ToString.Contains("System.Object") Then
'Keine Duplikatprüfung also einfach neues Array füllen '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 <> 'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then If WDValue Is Nothing = False Then
@ -1352,14 +1357,14 @@ Public Class ClassWindream
ValueArray(Anzahl) = NewValue.ToString ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1 Anzahl += 1
Else Else
ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten", False) LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If End If
End If End If
Next Next
End If End If
Else 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 'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If NewValue Is Nothing = False Then
@ -1372,7 +1377,7 @@ Public Class ClassWindream
ValueArray(Anzahl) = NewValue.ToString ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1 Anzahl += 1
Else Else
ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten", False) LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If End If
Else 'Dererste Wert, also hinzufügen Else 'Dererste Wert, also hinzufügen
'Das Array anpassen 'Das Array anpassen
@ -1389,7 +1394,8 @@ Public Class ClassWindream
Return ValueArray Return ValueArray
Catch ex As Exception 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 End Try
@ -1423,7 +1429,7 @@ Public Class ClassWindream
''' <returns>Liefert True wenn das Indexieren erfolgreich war, sonst False</returns> ''' <returns>Liefert True wenn das Indexieren erfolgreich war, sonst False</returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) As Boolean 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 Try
Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject") Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject")
'MsgBox("Indexiere: " & vbNewLine & filenameZiel) 'MsgBox("Indexiere: " & vbNewLine & filenameZiel)
@ -1434,7 +1440,7 @@ Public Class ClassWindream
index Is Nothing Or index Is Nothing Or
index = "" Or index = "" Or
Not ExistIndexInObjekttyp(_WDObjekttyp, index) Then 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 Return False
End If End If
@ -1449,7 +1455,7 @@ Public Class ClassWindream
fileExists = False fileExists = False
Exit Do Exit Do
Else 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 End If
an = an + 1 an = an + 1
Loop Loop
@ -1468,8 +1474,8 @@ Public Class ClassWindream
' ein windream-Objekt der Datei anlegen ' ein windream-Objekt der Datei anlegen
WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" - windream-Objekt der Datei erzeugt", False) LOGGER.Info(" - windream-Objekt der Datei erzeugt")
ClassLogger.Add(" - Ziel: W:\" & filenameZiel, False) LOGGER.Info(" - Ziel: W:\" & filenameZiel)
End If End If
'Me.singleInfoNode.Add("Ziel: " & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel) '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 ' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt
If TypDesIndexes < WMObjectVariableValueTypeVector Then 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 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 ' ein Backup der Indexwerte anlegen
Dim temp As Object = werte Dim temp As Object = werte
' und die eigendliche Variable zurücksetzen ' 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 ' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein
' Array in einen Einzelindex zu speichern ' Array in einen Einzelindex zu speichern
werte = temp werte = temp
If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False) LOGGER.Info(" - Array geleert und erneuert!")
End If End If
Catch ex As Exception 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 Return False
End Try End Try
'Try 'Try
' den Typ des Zielindexes ' 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) Select Case (TypDesIndexes)
Case WMObjectVariableValueTypeUndefined ' zu klären !!!! Case WMObjectVariableValueTypeUndefined ' zu klären !!!!
'convertValue = vbEmpty 'convertValue = vbEmpty
@ -1538,7 +1545,7 @@ Public Class ClassWindream
'If werte.ToString.StartsWith("0") Then 'If werte.ToString.StartsWith("0") Then
' Dim wert As String = CStr(CInt(werte.ToString)) ' Dim wert As String = CStr(CInt(werte.ToString))
' convertValue = wert ' convertValue = wert
' ClassLogger.Add(" - Führende Nullen wurden entfernt", False) ' LOGGER.Info(" - Führende Nullen wurden entfernt")
'Else 'Else
' Dim wert As String = CStr(CInt(werte.ToString)) ' Dim wert As String = CStr(CInt(werte.ToString))
' convertValue = wert ' convertValue = wert
@ -1618,7 +1625,7 @@ Public Class ClassWindream
Case Else Case Else
' wenn es sich um einen TypVektorIndex handelt ' wenn es sich um einen TypVektorIndex handelt
If TypDesIndexes >= 4096 And TypDesIndexes < 8192 Then 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 temp_arr As New ArrayList
Dim arrayIndex = 0 Dim arrayIndex = 0
@ -1633,7 +1640,7 @@ Public Class ClassWindream
Select Case (TypDesIndexes - WMObjectVariableValueTypeVector) Select Case (TypDesIndexes - WMObjectVariableValueTypeVector)
'VektorIndex vom Typ String 64' 'VektorIndex vom Typ String 64'
Case 1 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 For Each wert As Object In werte
'Führende Nullen Entfernen 'Führende Nullen Entfernen
@ -1641,7 +1648,7 @@ Public Class ClassWindream
Dim werteString As String = CStr(CInt(wert.ToString)) Dim werteString As String = CStr(CInt(wert.ToString))
wert = werteString wert = werteString
temp_arr(arrayIndex) = CStr(wert) temp_arr(arrayIndex) = CStr(wert)
ClassLogger.Add("- Führende Nullen wurden entfernt", False) LOGGER.Info("- Führende Nullen wurden entfernt")
Else Else
temp_arr(arrayIndex) = CStr(wert) temp_arr(arrayIndex) = CStr(wert)
@ -1649,30 +1656,30 @@ Public Class ClassWindream
arrayIndex = arrayIndex + 1 arrayIndex = arrayIndex + 1
If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) LOGGER.Info("- Wert " & CStr(wert) & " konvertiert")
Next Next
Case WMObjectVariableValueTypeUndefined Case WMObjectVariableValueTypeUndefined
' convertValue = "" ' convertValue = ""
Case WMObjectVariableValueTypeString 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 For Each wert As Object In werte
'Führende Nullen Entfernen 'Führende Nullen Entfernen
If werte.ToString.StartsWith("0") Then If werte.ToString.StartsWith("0") Then
wert = CInt(wert) wert = CInt(wert)
temp_arr(arrayIndex) = CStr(wert) temp_arr(arrayIndex) = CStr(wert)
ClassLogger.Add("- Führende Nullen wurden entfernt", False) LOGGER.Info("- Führende Nullen wurden entfernt")
Else Else
temp_arr(arrayIndex) = CStr(wert) temp_arr(arrayIndex) = CStr(wert)
End If End If
arrayIndex = arrayIndex + 1 arrayIndex = arrayIndex + 1
If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) LOGGER.Info("- Wert " & CStr(wert) & " konvertiert")
Next Next
Case WMObjectVariableValueTypeInteger 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 For Each wert As Object In werte
temp_arr(arrayIndex) = CInt(wert) temp_arr(arrayIndex) = CInt(wert)
arrayIndex = arrayIndex + 1 arrayIndex = arrayIndex + 1
@ -1735,7 +1742,7 @@ Public Class ClassWindream
werte = temp_arr werte = temp_arr
If LogErrorsOnly = False Then ClassLogger.Add("- Werte erfolgreich konvertiert", False) LOGGER.Info("- Werte erfolgreich konvertiert")
Else Else
' convertValue = vbEmpty ' convertValue = vbEmpty
End If End If
@ -1744,7 +1751,7 @@ Public Class ClassWindream
'Catch ex As Exception 'Catch ex As Exception
' ' einen Hinweis über einen aufgetretenen Fehler an das Array für den TreeView-Log anhängen ' ' 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 ' ' die Indexierungsinformationen für den TreeView-Log zurückgeben
' Return False ' Return False
'End Try 'End Try
@ -1758,21 +1765,21 @@ Public Class ClassWindream
' den konvertierten Indexwert dem entsprechenden Index zuweisen ' den konvertierten Indexwert dem entsprechenden Index zuweisen
WMObject.SetVariableValue(index, werte) WMObject.SetVariableValue(index, werte)
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" - den konvertierten Indexwert dem entsprechenden Index zuweisen", False) LOGGER.Info(" - den konvertierten Indexwert dem entsprechenden Index zuweisen")
ClassLogger.Add(" - Indexname: " & index.ToString, False) LOGGER.Info(" - Indexname: " & index.ToString)
ClassLogger.Add(" - Indexwert: " & werte.ToString, False) LOGGER.Info(" - Indexwert: " & werte.ToString)
End If End If
'End If 'End If
' die Indexinformationen des Dokuments speichern ' die Indexinformationen des Dokuments speichern
WMObject.Save() 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, ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen,
' wenn eine Datei nicht gesperrt ist ' wenn eine Datei nicht gesperrt ist
Try Try
' die Sperrung des Dokuments aufheben ' die Sperrung des Dokuments aufheben
WMObject.unlock() 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 Catch ex As Exception
' nichts tun (Datei war nicht gesperrt) ' nichts tun (Datei war nicht gesperrt)
@ -1782,12 +1789,13 @@ Public Class ClassWindream
Return True Return True
Else Else
' die Indexierungsinformationen für den TreeView-Log zurückgeben ' 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 End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.") LOGGER.Info(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.")
ClassLogger.Add(ex.Message) LOGGER.Error(ex.Message)
LOGGER.Info(ex.Message)
End Try End Try
Return True Return True
@ -1886,7 +1894,8 @@ Public Class ClassWindream
Return input Return input
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Fehler in CheckIndexValue: " & ex.Message) LOGGER.Info("Fehler in CheckIndexValue: " & ex.Message)
LOGGER.Error(ex.message)
Return Nothing Return Nothing
End Try End Try

27
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -141,7 +141,6 @@ Partial Class frmAdministration
Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox() Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox()
Me.ListBox5 = New System.Windows.Forms.ListBox() Me.ListBox5 = New System.Windows.Forms.ListBox()
Me.btnSQLView = New System.Windows.Forms.Button() Me.btnSQLView = New System.Windows.Forms.Button()
Me.lblSaveIndexMan = New System.Windows.Forms.Label()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = 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.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage()
Me.VARIANTComboBox = New System.Windows.Forms.ComboBox() Me.VARIANTComboBox = New System.Windows.Forms.ComboBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Function2Label = New System.Windows.Forms.Label() Me.Function2Label = New System.Windows.Forms.Label()
@ -216,7 +214,6 @@ Partial Class frmAdministration
Me.lblValue = New System.Windows.Forms.Label() Me.lblValue = New System.Windows.Forms.Label()
Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox() Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.lblsaveAutoIndex = New System.Windows.Forms.Label()
Me.btnSQLViewAuto = New System.Windows.Forms.Button() Me.btnSQLViewAuto = New System.Windows.Forms.Button()
Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox() 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.OPTIONALCheckBox)
Me.XtraTabPageManualIndex.Controls.Add(Me.ListBox5) Me.XtraTabPageManualIndex.Controls.Add(Me.ListBox5)
Me.XtraTabPageManualIndex.Controls.Add(Me.btnSQLView) Me.XtraTabPageManualIndex.Controls.Add(Me.btnSQLView)
Me.XtraTabPageManualIndex.Controls.Add(Me.lblSaveIndexMan)
Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHENLabel) Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPageManualIndex.Controls.Add(Me.CHANGED_WHENTextBox) Me.XtraTabPageManualIndex.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHOLabel) Me.XtraTabPageManualIndex.Controls.Add(CHANGED_WHOLabel)
@ -1037,12 +1033,6 @@ Partial Class frmAdministration
Me.btnSQLView.Name = "btnSQLView" Me.btnSQLView.Name = "btnSQLView"
Me.btnSQLView.UseVisualStyleBackColor = True Me.btnSQLView.UseVisualStyleBackColor = True
' '
'lblSaveIndexMan
'
resources.ApplyResources(Me.lblSaveIndexMan, "lblSaveIndexMan")
Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow
Me.lblSaveIndexMan.Name = "lblSaveIndexMan"
'
'CHANGED_WHENLabel 'CHANGED_WHENLabel
' '
resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
@ -1276,7 +1266,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.XtraTabPageManualIndexFunctions, "XtraTabPageManualIndexFunctions") resources.ApplyResources(Me.XtraTabPageManualIndexFunctions, "XtraTabPageManualIndexFunctions")
Me.XtraTabPageManualIndexFunctions.Controls.Add(VARIANTLabel) Me.XtraTabPageManualIndexFunctions.Controls.Add(VARIANTLabel)
Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.VARIANTComboBox) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.VARIANTComboBox)
Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.lblsavePostProcess)
Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ComboBox2) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ComboBox2)
Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Function2Label) Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Function2Label)
Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.Function1Label) 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.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset 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 'ComboBox2
' '
Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True)) 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.lblValue)
Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexCMB) Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexCMB)
Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6) Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6)
Me.XtraTabPageAutoIndex.Controls.Add(Me.lblsaveAutoIndex)
Me.XtraTabPageAutoIndex.Controls.Add(Me.btnSQLViewAuto) Me.XtraTabPageAutoIndex.Controls.Add(Me.btnSQLViewAuto)
Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox) Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox)
Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4) Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4)
@ -1677,12 +1659,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.Label6, "Label6") resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
' '
'lblsaveAutoIndex
'
resources.ApplyResources(Me.lblsaveAutoIndex, "lblsaveAutoIndex")
Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow
Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex"
'
'btnSQLViewAuto 'btnSQLViewAuto
' '
resources.ApplyResources(Me.btnSQLViewAuto, "btnSQLViewAuto") resources.ApplyResources(Me.btnSQLViewAuto, "btnSQLViewAuto")
@ -2923,7 +2899,6 @@ Partial Class frmAdministration
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton
Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox 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_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents btnSQLView As System.Windows.Forms.Button 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 CHANGED_WHENTextBox3 As System.Windows.Forms.TextBox
Friend WithEvents SQL_ACTIVECheckBox As System.Windows.Forms.CheckBox Friend WithEvents SQL_ACTIVECheckBox As System.Windows.Forms.CheckBox
Friend WithEvents btnSQLViewAuto As System.Windows.Forms.Button 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 XtraTabPageManualIndexFunctions As DevExpress.XtraTab.XtraTabPage
Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripButton24 As System.Windows.Forms.ToolStripButton 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_MANBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBWHDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter Friend WithEvents TBWHDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox 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 ToolStripButton31 As System.Windows.Forms.ToolStripButton
Friend WithEvents VWGI_USER_GROUPS_RELATIONBindingSource As System.Windows.Forms.BindingSource 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 Friend WithEvents VWGI_USER_GROUPS_RELATIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWGI_USER_GROUPS_RELATIONTableAdapter

1364
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

54
Global_Indexer/frmAdministration.vb
View File

@ -13,6 +13,14 @@ Public Class frmAdministration
Save_Dokumentart() Save_Dokumentart()
End Sub 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 Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
@ -294,21 +302,20 @@ Public Class frmAdministration
WM_CHECKED_CHANGE() WM_CHECKED_CHANGE()
End Sub End Sub
Private Sub Load_INDEXMAN(DA_ID As Integer) Private Sub Load_INDEXMAN(ProfileId As Integer)
Try 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 If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
enableControls(XtraTabPageManualIndex) enableControls(XtraTabPageManualIndex)
End If End If
lblSaveIndexMan.Visible = False ClearStatus()
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
End Try End Try
End Sub End Sub
Private Sub Load_INDEXE_AUTO(DA_ID As Integer) Private Sub Load_INDEXE_AUTO(ProfileId As Integer)
Try 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 If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
enableControls(XtraTabPageAutoIndex) enableControls(XtraTabPageAutoIndex)
End If End If
@ -316,16 +323,15 @@ Public Class frmAdministration
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
End Try End Try
End Sub End Sub
Private Sub Load_PostProcessing(DA_ID As Integer) Private Sub Load_PostProcessing(ProfileId As Integer)
Try Try
Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, 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, DA_ID) Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, ProfileId)
If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
enableControls(XtraTabPageManualIndexFunctions) enableControls(XtraTabPageManualIndexFunctions)
End If End If
lblsavePostProcess.Visible = False ClearStatus()
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
End Try End Try
@ -336,8 +342,8 @@ Public Class frmAdministration
Sub CheckIndexAutoWD() Sub CheckIndexAutoWD()
If WINDREAM_DIRECTCheckBox.Checked = True Then If WINDREAM_DIRECTCheckBox.Checked = True Then
INDEXNAME_AutoIndexTXT.Visible = False INDEXNAME_AutoIndexTXT.Visible = False
load_WDIndices2AutoIndizes()
INDEXNAME_AutoIndexCMB.Visible = True INDEXNAME_AutoIndexCMB.Visible = True
load_WDIndices2AutoIndizes()
Else Else
INDEXNAME_AutoIndexTXT.Visible = True INDEXNAME_AutoIndexTXT.Visible = True
INDEXNAME_AutoIndexCMB.Visible = False INDEXNAME_AutoIndexCMB.Visible = False
@ -369,9 +375,9 @@ Public Class frmAdministration
CHANGED_WHOTextBox.Text = Environment.UserName CHANGED_WHOTextBox.Text = Environment.UserName
Me.TBDD_INDEX_MANBindingSource.EndEdit() Me.TBDD_INDEX_MANBindingSource.EndEdit()
TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN) TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
lblSaveIndexMan.Visible = True SetStatus("Index erfolgreich gespeichert!")
Else Else
lblSaveIndexMan.Visible = False ClearStatus()
End If End If
IsInsert = False IsInsert = False
Catch ex As Exception Catch ex As Exception
@ -385,9 +391,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox3.Text = Environment.UserName CHANGED_WHOTextBox3.Text = Environment.UserName
Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM) TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
lblsaveAutoIndex.Visible = True SetStatus("Index erfolgreich gespeichert!")
Else
lblsaveAutoIndex.Visible = False
End If End If
IsInsert = False IsInsert = False
Catch ex As Exception Catch ex As Exception
@ -395,10 +399,6 @@ Public Class frmAdministration
End Try End Try
End Sub 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 Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
If frmloaded = True Then If frmloaded = True Then
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
@ -494,7 +494,7 @@ Public Class frmAdministration
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Try
End Sub 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 Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged
CheckIndexAutoWD() CheckIndexAutoWD()
lblsaveAutoIndex.Visible = False ClearStatus()
End Sub End Sub
Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged 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 CHANGED_WHOTextBox4.Text = Environment.UserName
TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit() TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING) Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
lblsavePostProcess.Visible = True SetStatus("Funktion erfolgreich gespeichert!")
Else Else
lblsavePostProcess.Visible = False ClearStatus()
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
@ -797,7 +797,6 @@ Public Class frmAdministration
End Sub End Sub
Sub LoadGlobix_Doctypes() Sub LoadGlobix_Doctypes()
Dim str = "Global-Indexer Dokarten"
Load_Dokart() Load_Dokart()
End Sub End Sub
@ -1032,7 +1031,8 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try 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 ClassDatabase.Execute_non_Query(copy, True) Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then

17
Global_Indexer/frmConfig_Basic.vb
View File

@ -66,12 +66,12 @@ Public Class frmConfig_Basic
Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName) 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) USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(USER_ID) Then 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) 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 End If
@ -123,7 +123,7 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
<STAThread()> _ <STAThread()>
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub End Sub
@ -144,7 +144,7 @@ Public Class frmConfig_Basic
End If End If
'chkdelete_origin.Checked = CURR_DELETE_ORIGIN 'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
Case 2 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) MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation)
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Exit Sub Exit Sub
@ -242,7 +242,7 @@ Public Class frmConfig_Basic
CONFIG.Save() CONFIG.Save()
CURRENT_FOLDERWATCH = "" CURRENT_FOLDERWATCH = ""
End If End If
Exit Sub Exit Sub
End If End If
Try Try
@ -250,8 +250,9 @@ Public Class frmConfig_Basic
System.IO.Directory.CreateDirectory(mypath) System.IO.Directory.CreateDirectory(mypath)
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False) LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath)
ClassLogger.Add(" >> " & ex.Message, False) LOGGER.Error(ex.Message)
LOGGER.Info(" >> " & ex.Message)
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else Else
@ -356,7 +357,7 @@ Public Class frmConfig_Basic
CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked
CONFIG.Save() CONFIG.Save()
'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked) 'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False) LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
LogErrorsOnly = chkLogErrorsOnly.Checked LogErrorsOnly = chkLogErrorsOnly.Checked
End If End If
End Sub End Sub

2
Global_Indexer/frmHotKey_Add.vb
View File

@ -307,7 +307,7 @@
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
ClassLogger.Add(">> Hotkey-Profil: " & ID & " wurde gelöscht!", False) LOGGER.Info(">> Hotkey-Profil: " & ID & " wurde gelöscht!")
Load_Profiles() Load_Profiles()
Load_UserForProfiles() Load_UserForProfiles()
MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")

280
Global_Indexer/frmIndex.vb
View File

@ -123,7 +123,7 @@ Public Class frmIndex
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_checkValue:") 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 Return False
End Try End Try
End Function End Function
@ -136,20 +136,20 @@ Public Class frmIndex
For Each DR In DT.Rows For Each DR In DT.Rows
If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then
If DR.Item("Indexiert") = True 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 Select Case RequestFor
Case "FILE" Case "FILE"
If DR.Item("Indexwert_File").ToString <> String.Empty Then 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) LOGGER.Info(" >>Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString)
If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False) LOGGER.Info(" >>Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"))
Return DR.Item("Indexwert_File") Return DR.Item("Indexwert_File")
Else Else
If DR.Item("Indexwert").ToString <> String.Empty Then If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) LOGGER.Info(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"))
Return DR.Item("Indexwert") Return DR.Item("Indexwert")
Else Else
If opt = False Then 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!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return Nothing Return Nothing
Else Else
@ -160,12 +160,12 @@ Public Class frmIndex
End If End If
Case Else Case Else
If DR.Item("Indexwert").ToString <> String.Empty Then If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) LOGGER.Info(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"))
Return DR.Item("Indexwert") Return DR.Item("Indexwert")
Else Else
'Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True) 'Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If opt = False Then If 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!") showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return Nothing Return Nothing
Else Else
@ -181,7 +181,8 @@ Public Class frmIndex
End If End If
Next Next
Catch ex As Exception 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:") MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetManIndex_Value:")
Return Nothing Return Nothing
End Try End Try
@ -219,7 +220,8 @@ Public Class frmIndex
End If End If
Next Next
Catch ex As Exception 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:") MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetAutoIndex_Value:")
Return "" Return ""
End Try End Try
@ -240,7 +242,7 @@ Public Class frmIndex
End If End If
If LogErrorsOnly = False Then 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 End If
If oErgebnis Is Nothing Then If oErgebnis Is Nothing Then
@ -252,7 +254,8 @@ Public Class frmIndex
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_AutomatischerIndex_SQL:")
Return "" Return ""
End Try End Try
@ -263,7 +266,7 @@ Public Class frmIndex
Function CheckWrite_IndexeMan(dokartid As Integer) Function CheckWrite_IndexeMan(dokartid As Integer)
'#### Zuerst manuelle Werte indexieren #### '#### Zuerst manuelle Werte indexieren ####
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> In CheckWrite_IndexeMan", False) LOGGER.Info(" >> In CheckWrite_IndexeMan")
Dim result As Boolean = False Dim result As Boolean = False
For Each oControl As Control In Me.pnlIndex.Controls For Each oControl As Control In Me.pnlIndex.Controls
' MsgBox(ctrl.Name) ' MsgBox(ctrl.Name)
@ -281,7 +284,7 @@ Public Class frmIndex
End If End If
Else Else
If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then 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:") MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
box.Focus() box.Focus()
Return False Return False
@ -361,14 +364,15 @@ Public Class frmIndex
Continue For Continue For
End If End If
If oControl.Name.StartsWith("lbl") = False And result = False Then 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 Return False
End If End If
Next Next
Return True Return True
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
Return False Return False
End Try End Try
@ -411,7 +415,8 @@ Public Class frmIndex
End If End If
Next Next
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
End Try End Try
End Sub End Sub
@ -421,12 +426,12 @@ Public Class frmIndex
' ' For Each row As DataRow In DTNB.Rows ' ' For Each row As DataRow In DTNB.Rows
' ' Select Case row.Item("TYP").ToString.ToUpper ' ' Select Case row.Item("TYP").ToString.ToUpper
' ' Case "VBSPLIT" ' ' Case "VBSPLIT"
' ' ClassLogger.Add(" - Nachbearbeitung mit VBSPLIT", False) ' ' LOGGER.Info(" - Nachbearbeitung mit VBSPLIT")
' ' Dim strSplit() As String ' ' Dim strSplit() As String
' ' strSplit = result.Split(row.Item("TEXT1").ToString) ' ' strSplit = result.Split(row.Item("TEXT1").ToString)
' ' For i As Integer = 0 To strSplit.Length - 1 ' ' For i As Integer = 0 To strSplit.Length - 1
' ' If i = CInt(row.Item("TEXT2")) Then ' ' 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 ' ' result = strSplit(i).ToString
' ' End If ' ' End If
' ' Next ' ' Next
@ -436,7 +441,7 @@ Public Class frmIndex
' ' Next ' ' Next
' ' Return result ' ' Return result
' ' Catch ex As Exception ' ' 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:") ' ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
' ' Return result ' ' Return result
' ' End Try ' ' End Try
@ -479,14 +484,14 @@ Public Class frmIndex
Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(oNamenkonvention) Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(oNamenkonvention)
'#### '####
If oMatchelements.Count = 0 Then If oMatchelements.Count = 0 Then
ClassLogger.Add(" >> No RegularExpression Fileds on Nameconvention!", False) LOGGER.Info(" >> No RegularExpression Fileds on Nameconvention!")
End If End If
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each oElement As System.Text.RegularExpressions.Match In oMatchelements For Each oElement As System.Text.RegularExpressions.Match In oMatchelements
Select Case oElement.Value.Substring(2, 1).ToUpper Select Case oElement.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False) LOGGER.Info(" >>Manueller Index wird geprüft...")
Dim Indexname = oElement.Value.Substring(3, oElement.Value.Length - 4) 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 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) Dim value As String = GetManIndex_Value(Indexname, "FILE", optional_index)
@ -525,7 +530,7 @@ Public Class frmIndex
' End If ' End If
Else 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 err = True
End If End If
@ -608,12 +613,13 @@ Public Class frmIndex
Loop Loop
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Umbenennnen der Datei:")
err = True err = True
End Try End Try
Case Else 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:") 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 End Select
Next Next
@ -646,7 +652,8 @@ Public Class frmIndex
'Try to create the directory. 'Try to create the directory.
Directory.CreateDirectory(path) Directory.CreateDirectory(path)
Catch ex As Exception 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) MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical)
End Try End Try
@ -661,7 +668,8 @@ Public Class frmIndex
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Unexpected error in Name_Generieren:")
Return False Return False
End Try End Try
@ -704,7 +712,7 @@ Public Class frmIndex
End If End If
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False) LOGGER.Info(" >> Manueller Indexvalue: " & idxvalue.ToString)
Count += 1 Count += 1
' den Typ des Zielindexes auslesen ' den Typ des Zielindexes auslesen
@ -725,12 +733,12 @@ Public Class frmIndex
End If End If
Else Else
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add(" >> No Indexing: indexname: " & indexname, False) LOGGER.Info(" >> No Indexing: indexname: " & indexname)
ClassLogger.Add(" >> No Indexing: is optional? " & optional_Index.ToString, False) LOGGER.Info(" >> No Indexing: is optional? " & optional_Index.ToString)
End If End If
End If End If
Else 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 End If
Next Next
@ -745,8 +753,8 @@ Public Class frmIndex
Dim indexname = row.Item("INDEXNAME").ToString Dim indexname = row.Item("INDEXNAME").ToString
If indexiert = True And Indexvalue <> "" Then If indexiert = True And Indexvalue <> "" Then
If Indexvalue <> "EMPTY_OI" Then If Indexvalue <> "EMPTY_OI" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Auto Indexname: " & indexname.ToString, False) LOGGER.Info(" >> Auto Indexname: " & indexname.ToString)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & Indexvalue.ToString, False) LOGGER.Info(" >> Indexvalue: " & Indexvalue.ToString)
Count += 1 Count += 1
' den Typ des Zielindexes auslesen ' den Typ des Zielindexes auslesen
@ -785,7 +793,8 @@ Public Class frmIndex
Catch ex As Exception 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) MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
@ -793,7 +802,7 @@ Public Class frmIndex
End Function End Function
Private Function WriteIndex2File(indexname As String, indexvalue As String) Private Function WriteIndex2File(indexname As String, indexvalue As String)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & indexvalue.ToString, False) LOGGER.Info(" >> Indexvalue: " & indexvalue.ToString)
Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue) Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -810,13 +819,13 @@ Public Class frmIndex
Dim msgDisplayTo = msg.DisplayTo Dim msgDisplayTo = msg.DisplayTo
Dim msgInternetAccountName = msg.InternetAccountName Dim msgInternetAccountName = msg.InternetAccountName
If LogErrorsOnly = False Then If LogErrorsOnly = False Then
ClassLogger.Add("", False) LOGGER.Info("")
ClassLogger.Add(" >> msgInternetAccountName: " & msgInternetAccountName, False) LOGGER.Info(" >> msgInternetAccountName: " & msgInternetAccountName)
ClassLogger.Add(" >> SenderName: " & msg.SenderName, False) LOGGER.Info(" >> SenderName: " & msg.SenderName)
ClassLogger.Add(" >> SenderEmailAddress: " & msg.SenderEmailAddress, False) LOGGER.Info(" >> SenderEmailAddress: " & msg.SenderEmailAddress)
ClassLogger.Add(" >> ReceivedByName: " & msg.ReceivedByName, False) LOGGER.Info(" >> ReceivedByName: " & msg.ReceivedByName)
ClassLogger.Add(" >> ReceivedByEmailAddress: " & msg.ReceivedByEmailAddress, False) LOGGER.Info(" >> ReceivedByEmailAddress: " & msg.ReceivedByEmailAddress)
ClassLogger.Add("", False) LOGGER.Info("")
End If End If
_step = "2" _step = "2"
@ -852,7 +861,7 @@ Public Class frmIndex
Next Next
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
If IsNothing(DT) Then 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 Return False
End If End If
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
@ -871,7 +880,7 @@ Public Class frmIndex
End If End If
Else Else
If messageIDPattern = String.Empty Then If messageIDPattern = String.Empty Then
ClassLogger.Add("A messageID could not be read!", True) LOGGER.Info("A messageID could not be read!")
Else Else
If Not IsNothing(headers) Then If Not IsNothing(headers) Then
CURRENT_MESSAGEID = ClassEmailHeaderExtractor.extractFromHeader(headers, messageIDPattern) CURRENT_MESSAGEID = ClassEmailHeaderExtractor.extractFromHeader(headers, messageIDPattern)
@ -879,7 +888,7 @@ Public Class frmIndex
CURRENT_MESSAGEID = "" CURRENT_MESSAGEID = ""
End If End If
Else 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
End If End If
@ -912,7 +921,7 @@ Public Class frmIndex
_step = "4.2" _step = "4.2"
If IsNothing(msgDisplayTo) Then If IsNothing(msgDisplayTo) Then
_step = "4.3" _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" emailTo = "NO RECIPIENT"
Else Else
_step = "4.4" _step = "4.4"
@ -920,7 +929,7 @@ Public Class frmIndex
End If End If
If IsNothing(msgInternetAccountName) Then If IsNothing(msgInternetAccountName) Then
_step = "4.5" _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 = "" emailFrom = ""
Else Else
_step = "4.6" _step = "4.6"
@ -928,7 +937,7 @@ Public Class frmIndex
End If End If
Else Else
_step = "5" _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) emailFrom = ClassEmailHeaderExtractor.extractFromHeader(headers, fromPattern) 'FromRegexList)
emailTo = ClassEmailHeaderExtractor.extractFromHeader(headers, toPattern) ' extractToAddress(headers, ToRegexList) emailTo = ClassEmailHeaderExtractor.extractFromHeader(headers, toPattern) ' extractToAddress(headers, ToRegexList)
@ -936,16 +945,16 @@ Public Class frmIndex
'Handler für leere emailTo-Adresse 'Handler für leere emailTo-Adresse
If IsNothing(emailTo) Then If IsNothing(emailTo) Then
_step = "5.1" _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 If (headers.Contains("exc") Or headers.Contains("exchange")) Then
_step = "5.2" _step = "5.2"
If LogErrorsOnly = False Then ClassLogger.Add(" >> ...try with LDAP-option", False) LOGGER.Info(" >> ...try with LDAP-option")
Dim _email = GetUserEmailfromLDAP(msgDisplayTo) Dim _email = GetUserEmailfromLDAP(msgDisplayTo)
_step = "5.3" _step = "5.3"
If _email <> "" Then If _email <> "" Then
emailTo = _email emailTo = _email
Else 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) 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 Return False
End If End If
@ -961,7 +970,7 @@ Public Class frmIndex
emailTo = CURR_MISSING_MANUAL_VALUE emailTo = CURR_MISSING_MANUAL_VALUE
Else Else
_step = "5.4.3" _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) 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 Return False
End If End If
@ -977,7 +986,7 @@ Public Class frmIndex
emailFrom = emailFrom.Replace(">", "") emailFrom = emailFrom.Replace(">", "")
Else Else
_step = "6.1.x" _step = "6.1.x"
ClassLogger.Add(" >> emailFrom is Nothing?!") LOGGER.Info(" >> emailFrom is Nothing?!")
End If End If
If Not IsNothing(emailTo) Then If Not IsNothing(emailTo) Then
@ -1001,20 +1010,20 @@ Public Class frmIndex
Next Next
Else Else
_step = "6.3" _step = "6.3"
ClassLogger.Add(" >> emailTo is Nothing?!") LOGGER.Info(" >> emailTo is Nothing?!")
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Headers-Content: ", True) LOGGER.Info(" >> Headers-Content: ")
If LogErrorsOnly = False Then ClassLogger.Add(headers.ToString, False) LOGGER.Info(headers.ToString)
End If End If
'Handler für leere emailFrom-Adresse 'Handler für leere emailFrom-Adresse
If IsNothing(emailFrom) Then If IsNothing(emailFrom) Then
_step = "7" _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 Not IsNothing(msg.SenderEmailAddress) Then
If msg.SenderEmailAddress <> String.Empty Then If msg.SenderEmailAddress <> String.Empty Then
_step = "7.1" _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("'", "") emailFrom = msg.SenderEmailAddress.ToString.Replace("'", "")
End If End If
End If End If
@ -1034,8 +1043,8 @@ Public Class frmIndex
End If End If
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False) LOGGER.Info(" >> emailFrom: " & emailFrom)
If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False) LOGGER.Info(" >> emailTo: " & emailTo)
'FROM 'FROM
If Not IsNothing(emailFrom) Then If Not IsNothing(emailFrom) Then
indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, emailFrom) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, emailFrom)
@ -1044,7 +1053,7 @@ Public Class frmIndex
Return False Return False
End If End If
Else Else
ClassLogger.Add(" >> emailFrom is still Nothing?!") LOGGER.Info(" >> emailFrom is still Nothing?!")
_step = "7.4" _step = "7.4"
End If End If
'TO 'TO
@ -1055,14 +1064,14 @@ Public Class frmIndex
Return False Return False
End If End If
Else Else
ClassLogger.Add(" >> emailTo is still Nothing?!") LOGGER.Info(" >> emailTo is still Nothing?!")
_step = "7.5" _step = "7.5"
End If End If
' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject) ' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject)
Dim subj As String = msg.Subject Dim subj As String = msg.Subject
If IsNothing(subj) Or subj = "" Then 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" subj = "No subject"
MsgBox("Attention: Email was send without a subject - Default value 'No subject' will be used!", MsgBoxStyle.Exclamation) MsgBox("Attention: Email was send without a subject - Default value 'No subject' will be used!", MsgBoxStyle.Exclamation)
Else Else
@ -1072,16 +1081,16 @@ Public Class frmIndex
End If End If
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) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, subj)
CURRENT_MESSAGESUBJECT = subj CURRENT_MESSAGESUBJECT = subj
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices [Subject] - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices [Subject] - See log", MsgBoxStyle.Critical)
Return False Return False
End If 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) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, msg.MessageDeliveryTime)
CURRENT_MESSAGEDATE = msg.MessageDeliveryTime CURRENT_MESSAGEDATE = msg.MessageDeliveryTime
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
@ -1096,8 +1105,8 @@ Public Class frmIndex
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in SetEmailIndices:" & vbNewLine & ex.Message & vbNewLine & "Please check the configuration Email-Indexing!", MsgBoxStyle.Critical) 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) LOGGER.Info("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message)
ClassLogger.Add("Stack-Trace: " & ex.StackTrace, True) LOGGER.Info("Stack-Trace: " & ex.StackTrace)
Return False Return False
End Try End Try
@ -1128,7 +1137,8 @@ Public Class frmIndex
result = search.FindOne() result = search.FindOne()
If result IsNot Nothing Then userEmail = result.Properties("mail").ToString If result IsNot Nothing Then userEmail = result.Properties("mail").ToString
Catch ex As Exception 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 Try
End Using End Using
@ -1236,8 +1246,9 @@ Public Class frmIndex
End If End If
Return False Return False
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message)
ClassLogger.Add(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String) LOGGER.Error(ex.Message)
LOGGER.Info(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String)
Return True Return True
End Try End Try
@ -1258,7 +1269,8 @@ Public Class frmIndex
ClassWindowLocation.SaveFormLocationSize(Me) ClassWindowLocation.SaveFormLocationSize(Me)
My.Settings.Save() My.Settings.Save()
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
End Try End Try
@ -1291,14 +1303,14 @@ Public Class frmIndex
ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
Select Case DropType Select Case DropType
Case "|FW_MSGONLY|" Case "|FW_MSGONLY|"
If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False) LOGGER.Info(" >> .msg-file from folderwatch")
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch" Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch"
Else Else
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:" Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
End If End If
Case "|OUTLOOK_MESSAGE|" 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 If USER_LANGUAGE <> "de-DE" Then
Me.Text = "Indexing of msg-File (without Attachments)" Me.Text = "Indexing of msg-File (without Attachments)"
Else Else
@ -1354,7 +1366,8 @@ Public Class frmIndex
chkMultiIndexer.Visible = False chkMultiIndexer.Visible = False
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:")
End Try End Try
End Sub End Sub
@ -1368,7 +1381,8 @@ Public Class frmIndex
'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString 'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString 'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
Catch ex As Exception 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) MsgBox("Unexpected error in Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
End Sub End Sub
@ -1394,14 +1408,15 @@ Public Class frmIndex
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE) Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then 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")) cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
Exit For Exit For
End If End If
Next Next
End If End If
Catch ex As Exception 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 End Try
Me.TopMost = True Me.TopMost = True
Me.BringToFront() Me.BringToFront()
@ -1410,7 +1425,7 @@ Public Class frmIndex
Sub Refresh_Dokart() Sub Refresh_Dokart()
Try Try
Dim sql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName) 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) DT_DOKART = ClassDatabase.Return_Datatable(sql)
cmbDokumentart.DataSource = DT_DOKART cmbDokumentart.DataSource = DT_DOKART
cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName
@ -1419,7 +1434,8 @@ Public Class frmIndex
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
cmbDokumentart.SelectedIndex = -1 cmbDokumentart.SelectedIndex = -1
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:")
End Try End Try
End Sub End Sub
@ -1449,7 +1465,7 @@ Public Class frmIndex
pnlIndex.Visible = True pnlIndex.Visible = True
LoadIndexe_Man() LoadIndexe_Man()
Catch ex As System.Exception Catch ex As System.Exception
ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql) LOGGER.Info(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:")
End Try End Try
End Sub End Sub
@ -1482,7 +1498,7 @@ Public Class frmIndex
If DT_INDEXEMAN.Rows.Count = 0 Then If DT_INDEXEMAN.Rows.Count = 0 Then
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") 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 End If
For Each DR As DataRow In DT_INDEXEMAN.Rows For Each DR As DataRow In DT_INDEXEMAN.Rows
Dim type = DR.Item("DATATYPE") Dim type = DR.Item("DATATYPE")
@ -1599,7 +1615,8 @@ Public Class frmIndex
oResult = UserShortName oResult = UserShortName
End Select End Select
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error in ReplacePlaceholders: " & ex.Message) LOGGER.Info("Error in ReplacePlaceholders: " & ex.Message)
LOGGER.Error(ex.Message)
oResult = Nothing oResult = Nothing
End Try End Try
@ -1626,7 +1643,7 @@ Public Class frmIndex
' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen ' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen
For Each oAutoIndexRow As DataRow In oDatatable 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 oSqlResult As String = ClassHelper.NotNull(oAutoIndexRow.Item("SQL_RESULT"), "")
Dim oSqlActive As Boolean = ClassHelper.NotNull(oAutoIndexRow.Item("SQL_ACTIVE"), False) Dim oSqlActive As Boolean = ClassHelper.NotNull(oAutoIndexRow.Item("SQL_ACTIVE"), False)
Dim oSqlConnectionId As Integer = ClassHelper.NotNull(oAutoIndexRow.Item("CONNECTION_ID"), -1) Dim oSqlConnectionId As Integer = ClassHelper.NotNull(oAutoIndexRow.Item("CONNECTION_ID"), -1)
@ -1683,7 +1700,7 @@ Public Class frmIndex
End If End If
Next Next
If oSqlResult <> String.Empty Then 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 End If
' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl, ' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl,
@ -1692,7 +1709,7 @@ Public Class frmIndex
' 2. Schritt: Vektorfelder ersetzen ' 2. Schritt: Vektorfelder ersetzen
Dim oVectorMatches As MatchCollection = oRegex.Matches(oSqlResult) Dim oVectorMatches As MatchCollection = oRegex.Matches(oSqlResult)
If oVectorMatches.Count > 0 Then 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 Dim oIsFirstMatch = True
For Each oVectorMatch As Match In oVectorMatches For Each oVectorMatch As Match In oVectorMatches
@ -1720,7 +1737,7 @@ Public Class frmIndex
Next Next
Else Else
Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider) 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("Indexiert") = True
oAutoIndexRow.Item("Indexwert") = oResult oAutoIndexRow.Item("Indexwert") = oResult
@ -1751,7 +1768,7 @@ Public Class frmIndex
' For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows ' For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows
' Dim optionalIndex As Boolean ' Dim optionalIndex As Boolean
' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME") ' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False) ' LOGGER.Info(" >> Build Automatischer Index '" & indexname & "'")
' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then ' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren ' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
' Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" ' 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 ' For Each element As System.Text.RegularExpressions.Match In elemente
' ' MsgBox(element.Value.ToUpper) ' ' MsgBox(element.Value.ToUpper)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False) ' LOGGER.Info(" >> Element: '" & element.Value & "'")
' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden) ' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then ' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) ' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) ' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) ' 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) ' 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 ' If elementOhneSonderzeichen.StartsWith("$") Then 'windowsParameter
' Dim result = "" ' Dim result = ""
@ -1802,14 +1819,14 @@ Public Class frmIndex
' End Select ' End Select
' Catch ex As Exception ' Catch ex As Exception
' result = "XXX" ' 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, ) ' MsgBox("Unexpected error in Replacement WindowsFilePatterns: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Routine will continue - Please check logfile", MsgBoxStyle.Exclamation, )
' End Try ' End Try
' If result <> "" Then ' 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) ' SqlString = SqlString.Replace(element.Value, result)
' Else ' 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 ' End If
' Else 'ganz normaler manueller Index ' Else 'ganz normaler manueller Index
' 'den Platzhalter im SQL-String durch den Wert ersetzen ' 'den Platzhalter im SQL-String durch den Wert ersetzen
@ -1817,17 +1834,17 @@ Public Class frmIndex
' If Not IsNothing(manIndexwert) Then ' If Not IsNothing(manIndexwert) Then
' SqlString = SqlString.Replace(element.Value, manIndexwert) ' SqlString = SqlString.Replace(element.Value, manIndexwert)
' Else ' Else
' ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False) ' LOGGER.Info(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom")
' ' Return False ' ' Return False
' End If ' End If
' End If ' End If
' Next ' Next
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Replaced and complete SQL-result: " & SqlString, False) ' LOGGER.Info(" >> Replaced and complete SQL-result: " & SqlString)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False) ' LOGGER.Info(" >> Ausführen SQL....")
' Dim automatischerValue As String = "" ' Dim automatischerValue As String = ""
' automatischerValue = GetAutomaticIndexSQLValue(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER")) ' 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 ' If automatischerValue <> String.Empty Then
' DR_AUTOINDEX.Item("Indexiert") = True ' DR_AUTOINDEX.Item("Indexiert") = True
' DR_AUTOINDEX.Item("Indexwert") = automatischerValue ' DR_AUTOINDEX.Item("Indexwert") = automatischerValue
@ -1837,8 +1854,8 @@ Public Class frmIndex
' DR_AUTOINDEX.Item("Indexwert") = "EMPTY_OI" ' DR_AUTOINDEX.Item("Indexwert") = "EMPTY_OI"
' ' Return True ' ' Return True
' Else ' Else
' ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False) ' LOGGER.Info(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom")
' ClassLogger.Add(" - SqlString: " & SqlString, False) ' LOGGER.Info(" - SqlString: " & SqlString)
' ' Return False ' ' Return False
' End If ' End If
@ -1849,7 +1866,7 @@ Public Class frmIndex
' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE") ' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
' 'Indexierung mit WindowsVariable ' 'Indexierung mit WindowsVariable
' If DEFAULTVALUE.StartsWith("$") Then ' 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 ' Select Case DEFAULTVALUE.ToUpper
' Case "$filename_ext".ToUpper ' Case "$filename_ext".ToUpper
' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE) ' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
@ -1875,9 +1892,9 @@ Public Class frmIndex
' DEFAULTVALUE = USER_SHORT_NAME ' DEFAULTVALUE = USER_SHORT_NAME
' End Select ' End Select
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False) ' LOGGER.Info(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'")
' Else ' Else
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False) ' LOGGER.Info(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'")
' End If ' End If
' 'Den Wert in der Zwischentabelle speichern ' 'Den Wert in der Zwischentabelle speichern
' DR_AUTOINDEX.Item("Indexiert") = True ' DR_AUTOINDEX.Item("Indexiert") = True
@ -1892,7 +1909,7 @@ Public Class frmIndex
' Return True ' Return True
' End If ' End If
'Catch ex As System.Exception '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") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FillIndexe_Autom")
' Return False ' Return False
'End Try 'End Try
@ -1936,25 +1953,25 @@ Public Class frmIndex
Private Function WORK_FILE() Private Function WORK_FILE()
Try Try
Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID) 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 If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue
If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then
'##### Manuelle Indexe indexiert ##### '##### 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 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 'Den Zielnamen zusammenbauen
If Name_Generieren() = True Then 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 'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren
DocumentViewer1.Done() DocumentViewer1.Done()
If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False) LOGGER.Info(" ...Viewer geschlossen")
'Die Datei verschieben 'Die Datei verschieben
If Move_File2_Target() = True Then 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 'Die Originaldatei löschen
If DropType = "|DROPFROMFSYSTEM|" Then If DropType = "|DROPFROMFSYSTEM|" Then
If CURR_DELETE_ORIGIN = True Then If CURR_DELETE_ORIGIN = True Then
@ -1979,7 +1996,7 @@ Public Class frmIndex
End If End If
CURRENT_LASTDOKART = cmbDokumentart.Text 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 Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID
ClassDatabase.Execute_non_Query(oDEL, True) ClassDatabase.Execute_non_Query(oDEL, True)
Return True Return True
@ -2020,7 +2037,7 @@ Public Class frmIndex
Try Try
If CURR_DELETE_ORIGIN = False Then If CURR_DELETE_ORIGIN = False Then
If CURRENT_DROPTYPE <> "FW_SIMPLEINDEXER" 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 Exit Sub
End If End If
@ -2166,8 +2183,8 @@ Public Class frmIndex
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - 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 - SQL: " & Insert_String)
err = True err = True
End Try End Try
Else Else
@ -2210,16 +2227,16 @@ Public Class frmIndex
'#### '####
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each element As Match In elemente 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 Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True) 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) 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 Not ManIndex_Value = String.Empty Then
If IsDate(ManIndex_Value) Then If IsDate(ManIndex_Value) Then
ManIndex_Value = CDate(ManIndex_Value).ToString("yyyyMMdd") ManIndex_Value = CDate(ManIndex_Value).ToString("yyyyMMdd")
@ -2227,32 +2244,32 @@ Public Class frmIndex
ManIndex_Value = ClassFilehandle.CleanFilename(ManIndex_Value, "") ManIndex_Value = ClassFilehandle.CleanFilename(ManIndex_Value, "")
myDynamicFolder = myDynamicFolder.Replace(element.ToString, ManIndex_Value) myDynamicFolder = myDynamicFolder.Replace(element.ToString, ManIndex_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & myDynamicFolder & "'", False) LOGGER.Info(" >> FolderPattern: '" & myDynamicFolder & "'")
Else Else
If optional_index = True Then 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 Else
ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
Return True Return True
End If End If
End If End If
Case "A" Case "A"
Dim AutoIndexname = element.Value.Substring(3, element.Value.Length - 4) 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) 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 If Not AutoIndex_Value = String.Empty Then
AutoIndex_Value = ClassFilehandle.CleanFilename(AutoIndex_Value, "") AutoIndex_Value = ClassFilehandle.CleanFilename(AutoIndex_Value, "")
If AutoIndex_Value = "EMPTY_OI" Then If AutoIndex_Value = "EMPTY_OI" Then
myDynamicFolder = myDynamicFolder.Replace(element.ToString, "") myDynamicFolder = myDynamicFolder.Replace(element.ToString, "")
Else Else
myDynamicFolder = myDynamicFolder.Replace(element.ToString, AutoIndex_Value) myDynamicFolder = myDynamicFolder.Replace(element.ToString, AutoIndex_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPattern: '" & myDynamicFolder & "'", False) LOGGER.Info(" >> FolderPattern: '" & myDynamicFolder & "'")
End If End If
Else Else
ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
End If End If
Case "V" Case "V"
Dim oElementTemp As String Dim oElementTemp As String
@ -2279,9 +2296,9 @@ Public Class frmIndex
oElementTemp = My.Computer.Clock.LocalTime.Year & "-" & _Month oElementTemp = My.Computer.Clock.LocalTime.Year & "-" & _Month
End Select End Select
myDynamicFolder = myDynamicFolder.Replace(element.ToString, oElementTemp) 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 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 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:") 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 & "\" Dim oNewFullpath As String = ORootFolder & "\" & myDynamicFolder & "\"
oNewFullpath = oNewFullpath.Replace("\\", "\") oNewFullpath = oNewFullpath.Replace("\\", "\")
oNewFullpath = Path.Combine(ORootFolder, myDynamicFolder) 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() Dim invalidPathChars() As Char = Path.GetInvalidPathChars()
For Each sonderChar As Char In invalidPathChars For Each sonderChar As Char In invalidPathChars
'Sonderzeichen ausser Whitespace entfernen 'Sonderzeichen ausser Whitespace entfernen
@ -2309,13 +2326,14 @@ Public Class frmIndex
End If End If
End If End If
Next sonderChar 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 If Directory.Exists(oNewFullpath) = False Then
Try Try
Directory.CreateDirectory(oNewFullpath) Directory.CreateDirectory(oNewFullpath)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Folder '" & oNewFullpath & "' wurde angelegt", False) LOGGER.Info(" >> Folder '" & oNewFullpath & "' wurde angelegt")
Catch ex As Exception 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) MsgBox("Attention: Root Folder '" & oNewFullpath & "' could not be created." & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
@ -2327,7 +2345,7 @@ Public Class frmIndex
Return True Return True
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Return False
End Try End Try
End Function End Function

5
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@ -46,7 +46,7 @@ Public Class SQLConfigAutoIndex
MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information) MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information)
End If End If
End If End If
CURRENT_SQLRESULT = sql_command CURRENT_SQLRESULT = sql_command
DTSQL_RESULT = dt DTSQL_RESULT = dt
frmSQL_Result.ShowDialog() frmSQL_Result.ShowDialog()
End If End If
@ -115,7 +115,8 @@ Public Class SQLConfigAutoIndex
' End If ' End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try End Try
End Sub End Sub

4
Global_Indexer/frmSQLSuggestion.vb
View File

@ -89,7 +89,8 @@ Public Class frmSQLSuggestion
End If End If
Catch ex As Exception 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:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try End Try
End Sub End Sub
@ -111,7 +112,6 @@ Public Class frmSQLSuggestion
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
End Try End Try
End Sub End Sub
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)

104
Global_Indexer/frmStart.vb
View File

@ -30,7 +30,7 @@ Public Class frmStart
' End If ' End If
' Catch ex As Exception ' 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 ' End Try
' 'Me.i() ' 'Me.i()
@ -42,7 +42,7 @@ Public Class frmStart
Private Const mSnapOffset As Integer = 35 Private Const mSnapOffset As Integer = 35
Private Const WM_WINDOWPOSCHANGING As Integer = &H46 Private Const WM_WINDOWPOSCHANGING As Integer = &H46
<StructLayout(LayoutKind.Sequential)> _ <StructLayout(LayoutKind.Sequential)>
Public Structure WINDOWPOS Public Structure WINDOWPOS
Public hwnd As IntPtr Public hwnd As IntPtr
Public hwndInsertAfter As IntPtr Public hwndInsertAfter As IntPtr
@ -75,7 +75,7 @@ Public Class frmStart
Try Try
' Marshal the LPARAM value which is a WINDOWPOS struct ' Marshal the LPARAM value which is a WINDOWPOS struct
Dim NewPosition As New WINDOWPOS Dim NewPosition As New WINDOWPOS
NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure( _ NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure(
LParam, GetType(WINDOWPOS)), WINDOWPOS) LParam, GetType(WINDOWPOS)), WINDOWPOS)
If NewPosition.y = 0 OrElse NewPosition.x = 0 Then If NewPosition.y = 0 OrElse NewPosition.x = 0 Then
@ -83,36 +83,36 @@ Public Class frmStart
End If End If
' Adjust the client size for borders and caption bar ' Adjust the client size for borders and caption bar
Dim ClientRect As Rectangle = _ Dim ClientRect As Rectangle =
clientForm.RectangleToScreen(clientForm.ClientRectangle) clientForm.RectangleToScreen(clientForm.ClientRectangle)
ClientRect.Width += _ ClientRect.Width +=
SystemInformation.FrameBorderSize.Width - widthAdjustment SystemInformation.FrameBorderSize.Width - widthAdjustment
ClientRect.Height += (SystemInformation.FrameBorderSize.Height + _ ClientRect.Height += (SystemInformation.FrameBorderSize.Height +
SystemInformation.CaptionHeight) SystemInformation.CaptionHeight)
' Now get the screen working area (without taskbar) ' Now get the screen working area (without taskbar)
Dim WorkingRect As Rectangle = _ Dim WorkingRect As Rectangle =
Screen.GetWorkingArea(clientForm.ClientRectangle) Screen.GetWorkingArea(clientForm.ClientRectangle)
' Left border ' 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 + mSnapOffset Then
NewPosition.x = WorkingRect.X NewPosition.x = WorkingRect.X
End If End If
' Get screen bounds and taskbar height ' Get screen bounds and taskbar height
' (when taskbar is horizontal) ' (when taskbar is horizontal)
Dim ScreenRect As Rectangle = _ Dim ScreenRect As Rectangle =
Screen.GetBounds(Screen.PrimaryScreen.Bounds) Screen.GetBounds(Screen.PrimaryScreen.Bounds)
Dim TaskbarHeight As Integer = _ Dim TaskbarHeight As Integer =
ScreenRect.Height - WorkingRect.Height ScreenRect.Height - WorkingRect.Height
' Top border (check if taskbar is on top ' Top border (check if taskbar is on top
' or bottom via WorkingRect.Y) ' or bottom via WorkingRect.Y)
If NewPosition.y >= -mSnapOffset AndAlso _ If NewPosition.y >= -mSnapOffset AndAlso
(WorkingRect.Y > 0 AndAlso NewPosition.y <= _ (WorkingRect.Y > 0 AndAlso NewPosition.y <=
(TaskbarHeight + mSnapOffset)) OrElse _ (TaskbarHeight + mSnapOffset)) OrElse
(WorkingRect.Y <= 0 AndAlso NewPosition.y <= _ (WorkingRect.Y <= 0 AndAlso NewPosition.y <=
(mSnapOffset)) Then (mSnapOffset)) Then
If TaskbarHeight > 0 Then If TaskbarHeight > 0 Then
NewPosition.y = WorkingRect.Y ' Horizontal Taskbar NewPosition.y = WorkingRect.Y ' Horizontal Taskbar
@ -122,25 +122,25 @@ Public Class frmStart
End If End If
' Right border ' Right border
If NewPosition.x + ClientRect.Width <= _ If NewPosition.x + ClientRect.Width <=
WorkingRect.Right + mSnapOffset AndAlso _ WorkingRect.Right + mSnapOffset AndAlso
NewPosition.x + ClientRect.Width >= _ NewPosition.x + ClientRect.Width >=
WorkingRect.Right - mSnapOffset Then WorkingRect.Right - mSnapOffset Then
NewPosition.x = WorkingRect.Right - (ClientRect.Width + _ NewPosition.x = WorkingRect.Right - (ClientRect.Width +
SystemInformation.FrameBorderSize.Width) SystemInformation.FrameBorderSize.Width)
End If End If
' Bottom border ' Bottom border
If NewPosition.y + ClientRect.Height <= _ If NewPosition.y + ClientRect.Height <=
WorkingRect.Bottom + mSnapOffset AndAlso _ WorkingRect.Bottom + mSnapOffset AndAlso
NewPosition.y + ClientRect.Height >= _ NewPosition.y + ClientRect.Height >=
WorkingRect.Bottom - mSnapOffset Then WorkingRect.Bottom - mSnapOffset Then
NewPosition.y = WorkingRect.Bottom - (ClientRect.Height + _ NewPosition.y = WorkingRect.Bottom - (ClientRect.Height +
SystemInformation.FrameBorderSize.Height) SystemInformation.FrameBorderSize.Height)
End If End If
' Marshal it back ' Marshal it back
Runtime.InteropServices.Marshal.StructureToPtr(NewPosition, _ Runtime.InteropServices.Marshal.StructureToPtr(NewPosition,
LParam, True) LParam, True)
Catch ex As ArgumentException Catch ex As ArgumentException
End Try End Try
@ -166,7 +166,7 @@ Public Class frmStart
Dim CapTxt As String = ClassHotkey_Windream.GetCaption() Dim CapTxt As String = ClassHotkey_Windream.GetCaption()
CURRENT_FOCUSES_WINDOWNAME = CapTxt CURRENT_FOCUSES_WINDOWNAME = CapTxt
If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub 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.Cursor = Cursors.WaitCursor
Me.NotifyIcon1.Visible = True Me.NotifyIcon1.Visible = True
@ -243,7 +243,7 @@ Public Class frmStart
Dim i As Integer Dim i As Integer
For Each Str As Object In ClassFileDrop.files_dropped For Each Str As Object In ClassFileDrop.files_dropped
If Not Str Is Nothing Then If Not Str Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False) LOGGER.Info(">> Check Drop-File: " & Str.ToString)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1) Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1) Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
@ -271,7 +271,7 @@ Public Class frmStart
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK") CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_GUID = Filerow.Item(0) CURRENT_WORKFILE_GUID = Filerow.Item(0)
CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK") 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 If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
Open_IndexDialog() Open_IndexDialog()
End If End If
@ -303,7 +303,7 @@ Public Class frmStart
If My.Settings.AppTerminate = False Then If My.Settings.AppTerminate = False Then
Try Try
ClassLogger.Add("", False) LOGGER.Info("")
If START_INCOMPLETE = False Then 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')" 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) ClassDatabase.Execute_non_Query(Sql, True)
@ -359,7 +359,7 @@ Public Class frmStart
'Lizenz abgellaufen, überprüfen ob User Admin ist 'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < UserLoggedin Then If LICENSE_COUNT < UserLoggedin Then
If USER_IS_ADMIN = True 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 If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information) MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
Else Else
@ -374,7 +374,7 @@ Public Class frmStart
End If End If
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
If USER_IS_ADMIN = True 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 If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information) MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
Else Else
@ -424,12 +424,12 @@ Public Class frmStart
Try Try
If CONFIG.Config.FolderWatchScanStarted = True Then 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) Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
' Process the list of files found in the directory. ' Process the list of files found in the directory.
Dim fileName As String Dim fileName As String
For Each fileName In fileEntries 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 For Each row As DataRow In DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower Dim content As String = row.Item(0).ToString.ToLower
If fileName.ToLower.Contains(content) Then If fileName.ToLower.Contains(content) Then
@ -443,29 +443,30 @@ Public Class frmStart
handleType = "|FW_SIMPLEINDEXER|" handleType = "|FW_SIMPLEINDEXER|"
End If End If
'Die Datei übergeben '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 If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
ClassFilehandle.Decide_FileHandle(fileName, handleType) ClassFilehandle.Decide_FileHandle(fileName, handleType)
Else Else
ClassLogger.Add(">> Scanfolder Startup: File already exists:" & fileName, False) LOGGER.Info(">> Scanfolder Startup: File already exists:" & fileName)
End If End If
Next fileName Next fileName
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN not started", False) LOGGER.Info(">> FWSCAN not started")
End If End If
Catch ex As Exception 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 End Try
Try Try
If FW_started = True Then 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) Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH)
' Process the list of files found in the directory. ' Process the list of files found in the directory.
Dim fileName As String Dim fileName As String
For Each fileName In fileEntries 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 For Each row As DataRow In DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower Dim content As String = row.Item(0).ToString.ToLower
If fileName.ToLower.Contains(content) Then If fileName.ToLower.Contains(content) Then
@ -479,19 +480,20 @@ Public Class frmStart
handleType = "|FW_SIMPLEINDEXER|" handleType = "|FW_SIMPLEINDEXER|"
End If End If
'Die Datei übergeben '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 If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
ClassFilehandle.Decide_FileHandle(fileName, handleType) ClassFilehandle.Decide_FileHandle(fileName, handleType)
Else Else
ClassLogger.Add(">> Folderwatch Startup: File already exists:" & fileName, False) LOGGER.Info(">> Folderwatch Startup: File already exists:" & fileName)
End If End If
Next fileName Next fileName
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started not started", False) LOGGER.Info(">> FW_started not started")
End If End If
Catch ex As Exception 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 End Try
If TimerFolderWatch.Enabled = False Then If TimerFolderWatch.Enabled = False Then
@ -520,7 +522,7 @@ Public Class frmStart
Try 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) 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 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 Dim i As Integer = 0
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
i += 1 i += 1
@ -539,21 +541,21 @@ Public Class frmStart
Select Case row.Item("HOTKEY1") Select Case row.Item("HOTKEY1")
Case "Strg" 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")) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
Case "Shift" 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")) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
Case "Alt" 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")) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
Case "win" 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")) HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
End Select End Select
Next Next
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False) LOGGER.Info(" >> Keine Hotkeys!")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -656,7 +658,7 @@ Public Class frmStart
Exit For Exit For
End If End If
Dim FileForWork As String = row.Item(1) 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 fileInUse As Boolean = ClassFilehandle.IsFileInUse(FileForWork)
Dim fileexists As Boolean = System.IO.File.Exists(FileForWork) Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
If fileInUse = False Then If fileInUse = False Then
@ -666,12 +668,12 @@ Public Class frmStart
CURRENT_WORKFILE_GUID = row.Item("GUID") CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog() Open_IndexDialog()
Else 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) Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
ClassDatabase.Execute_non_Query(del) ClassDatabase.Execute_non_Query(del)
End If End If
Else 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 End If
Next Next
@ -777,7 +779,7 @@ Public Class frmStart
ClassFileDrop.files_dropped = Nothing ClassFileDrop.files_dropped = Nothing
For Each fName In openFileDialog1.FileNames For Each fName In openFileDialog1.FileNames
ReDim Preserve ClassFileDrop.files_dropped(i) ReDim Preserve ClassFileDrop.files_dropped(i)
ClassLogger.Add(">> Chosen File: " & fName, False) LOGGER.Info(">> Chosen File: " & fName)
ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
i += 1 i += 1
Next Next