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
Catch ex As Exception
ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
LOGGER.Error(ex.message)
Return Nothing
End Try
End Function
@ -88,7 +89,8 @@ Public Class ClassControls
Return oControl
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
Return Nothing
End Try
@ -265,7 +267,8 @@ Public Class ClassControls
Next
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
End Try
End Sub

56
Global_Indexer/ClassDatabase.vb
View File

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

11
Global_Indexer/ClassEmail.vb
View File

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

12
Global_Indexer/ClassFileDrop.vb
View File

@ -4,7 +4,7 @@ Public Class ClassFileDrop
Public Shared files_dropped As String()
Public Shared Function Drop_File(e As DragEventArgs)
Try
ClassLogger.Add(">> Drop_File", False)
LOGGER.Info(">> Drop_File")
files_dropped = Nothing
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
@ -13,7 +13,7 @@ Public Class ClassFileDrop
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
ReDim Preserve files_dropped(i)
files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
@ -72,10 +72,10 @@ Public Class ClassFileDrop
If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0)
files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
Return True
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
LOGGER.Info(">> Attachment File from Outlook could not be created")
End If
End If
End If
@ -87,7 +87,7 @@ Public Class ClassFileDrop
MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
End Try
ClassLogger.Add(">> Drop of msg", False)
LOGGER.Info(">> Drop of msg")
'supports a drop of a Outlook message
Dim myobj As Object
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
@ -110,7 +110,7 @@ Public Class ClassFileDrop
strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "")
ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
LOGGER.Info(">> Drop of msg - File:" & strFile)
Try
myobj.SaveAs(strFile)
Catch ex As Exception

17
Global_Indexer/ClassFilehandle.vb
View File

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

34
Global_Indexer/ClassFolderWatcher.vb
View File

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

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;
Case Else
ClassLogger.Add(" - ConnectionType not integrated", False)
LOGGER.Info(" - ConnectionType not integrated")
MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
End Select
End If
Catch ex As Exception
ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
LOGGER.Info(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try

11
Global_Indexer/ClassHelper.vb
View File

@ -10,10 +10,11 @@ Public Class ClassHelper
Dim utf8Encoding As New System.Text.UTF8Encoding(True)
Dim encodedString() As Byte
encodedString = utf8Encoding.GetBytes(str)
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)), False)
LOGGER.Info(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)))
Return utf8Encoding.GetString(encodedString)
Catch ex As Exception
ClassLogger.Add("Unexpected error in encode_utf8: " & ex.Message)
LOGGER.Info("Unexpected error in encode_utf8: " & ex.Message)
LOGGER.Error(ex.message)
Return Nothing
End Try
@ -26,7 +27,8 @@ Public Class ClassHelper
' return byte data
Return bytes
Catch ex As Exception
ClassLogger.Add("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
LOGGER.Info("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
LOGGER.Error(ex.message)
Return Nothing
End Try
@ -37,7 +39,8 @@ Public Class ClassHelper
Dim matches As MatchCollection = Regex.Matches(str, pattern)
Return matches.Count
Catch ex As Exception
ClassLogger.Add("Unexpected error in CheckSpecialSigns: " & ex.Message)
LOGGER.Info("Unexpected error in CheckSpecialSigns: " & ex.Message)
LOGGER.Error(ex.message)
Return 0
End Try
End Function

68
Global_Indexer/ClassHotkey_Windream.vb
View File

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

43
Global_Indexer/ClassInit.vb
View File

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

5
Global_Indexer/ClassLayout.vb
View File

@ -76,11 +76,12 @@ Public Class ClassWindowLocation
End If
Next
If result = False Then
ClassLogger.Add(">> Saved layout is not fitting to Resolution. Default is loaded.", True)
LOGGER.Info(">> Saved layout is not fitting to Resolution. Default is loaded.")
End If
Return result
Catch ex As Exception
ClassLogger.Add("Error in IsVisibleOnAnyScreen: " & ex.Message, True)
LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message)
LOGGER.Error(ex.message)
Return False
End Try
End Function

28
Global_Indexer/ClassPostprocessing.vb
View File

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

301
Global_Indexer/ClassWindream.vb
View File

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

27
Global_Indexer/frmAdministration.Designer.vb generated
View File

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

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

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'))"
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
LOGGER.Info(">> Username: " & Environment.UserName)
USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(USER_ID) Then
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True)
LOGGER.Info("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)")
End If
@ -123,7 +123,7 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default
End Sub
<STAThread()> _
<STAThread()>
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
@ -144,7 +144,7 @@ Public Class frmConfig_Basic
End If
'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
Case 2
If ERROR_STATE = "NO DB-CONNECTION" Then
If ERROR_STATE = "NO DB-CONNECTION" Then
MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation)
Me.TabControl1.SelectedIndex = 0
Exit Sub
@ -242,7 +242,7 @@ Public Class frmConfig_Basic
CONFIG.Save()
CURRENT_FOLDERWATCH = ""
End If
Exit Sub
End If
Try
@ -250,8 +250,9 @@ Public Class frmConfig_Basic
System.IO.Directory.CreateDirectory(mypath)
End If
Catch ex As Exception
ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False)
LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath)
LOGGER.Error(ex.Message)
LOGGER.Info(" >> " & ex.Message)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else
@ -356,7 +357,7 @@ Public Class frmConfig_Basic
CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked
CONFIG.Save()
'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False)
LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
LogErrorsOnly = chkLogErrorsOnly.Checked
End If
End Sub

2
Global_Indexer/frmHotKey_Add.vb
View File

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

280
Global_Indexer/frmIndex.vb
View File

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

5
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@ -46,7 +46,7 @@ Public Class SQLConfigAutoIndex
MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information)
End If
End If
CURRENT_SQLRESULT = sql_command
CURRENT_SQLRESULT = sql_command
DTSQL_RESULT = dt
frmSQL_Result.ShowDialog()
End If
@ -115,7 +115,8 @@ Public Class SQLConfigAutoIndex
' End If
Catch ex As Exception
ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try
End Sub

4
Global_Indexer/frmSQLSuggestion.vb
View File

@ -89,7 +89,8 @@ Public Class frmSQLSuggestion
End If
Catch ex As Exception
ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try
End Sub
@ -111,7 +112,6 @@ Public Class frmSQLSuggestion
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
End Try
End Sub
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)

104
Global_Indexer/frmStart.vb
View File

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