add local logger for frmIndex, fix relative path when deleting files
This commit is contained in:
Jonathan Jenne
parent
9741449fc2
commit
bef22dece2
@ -10,6 +10,7 @@ Imports System.Security.Principal
|
||||
Imports System.DirectoryServices
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
Imports System.ComponentModel
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class frmIndex
|
||||
#Region "+++++ Variablen ++++++"
|
||||
@ -34,8 +35,18 @@ Public Class frmIndex
|
||||
|
||||
Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
|
||||
|
||||
Private _Logger As Logger
|
||||
|
||||
#End Region
|
||||
|
||||
Public Sub New()
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
_Logger = LOGCONFIG.GetLogger()
|
||||
End Sub
|
||||
|
||||
Public Sub DisposeViewer()
|
||||
DocumentViewer1.Dispose()
|
||||
End Sub
|
||||
@ -135,7 +146,7 @@ Public Class frmIndex
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_checkValue:")
|
||||
LOGGER.Info(" - 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
|
||||
@ -148,20 +159,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
|
||||
LOGGER.Info("## Manueller Index: " & indexname)
|
||||
_Logger.Info("## Manueller Index: " & indexname)
|
||||
Select Case RequestFor
|
||||
Case "FILE"
|
||||
If DR.Item("Indexwert_File").ToString <> String.Empty Then
|
||||
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"))
|
||||
_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
|
||||
LOGGER.Info("Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"))
|
||||
_Logger.Info("Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"))
|
||||
Return DR.Item("Indexwert")
|
||||
Else
|
||||
If opt = False Then
|
||||
LOGGER.Info("Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
|
||||
_Logger.Info("Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
|
||||
ShowNotice("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
|
||||
Return Nothing
|
||||
Else
|
||||
@ -172,12 +183,12 @@ Public Class frmIndex
|
||||
End If
|
||||
Case Else
|
||||
If DR.Item("Indexwert").ToString <> String.Empty Then
|
||||
LOGGER.Info(" >>Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"))
|
||||
_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
|
||||
LOGGER.Info("Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
|
||||
_Logger.Info("Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
|
||||
ShowNotice("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
|
||||
Return Nothing
|
||||
Else
|
||||
@ -193,8 +204,8 @@ Public Class frmIndex
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -232,8 +243,8 @@ Public Class frmIndex
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -254,7 +265,7 @@ Public Class frmIndex
|
||||
End If
|
||||
|
||||
If LogErrorsOnly = False Then
|
||||
LOGGER.Info(" >>SQL-ConnectionString: " & oConnectionString.Substring(0, oConnectionString.LastIndexOf("=")))
|
||||
_Logger.Info(" >>SQL-ConnectionString: " & oConnectionString.Substring(0, oConnectionString.LastIndexOf("=")))
|
||||
End If
|
||||
|
||||
If oErgebnis Is Nothing Then
|
||||
@ -266,8 +277,8 @@ Public Class frmIndex
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -278,7 +289,7 @@ Public Class frmIndex
|
||||
Function CheckWrite_IndexeMan(dokartid As Integer)
|
||||
'#### Zuerst manuelle Werte indexieren ####
|
||||
Try
|
||||
LOGGER.Info("In CheckWrite_IndexeMan")
|
||||
_Logger.Info("In CheckWrite_IndexeMan")
|
||||
Dim result As Boolean = False
|
||||
For Each oControl As Control In Me.pnlIndex.Controls
|
||||
' MsgBox(ctrl.Name)
|
||||
@ -296,7 +307,7 @@ Public Class frmIndex
|
||||
End If
|
||||
Else
|
||||
If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
|
||||
LOGGER.Info(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden")
|
||||
_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
|
||||
@ -391,15 +402,15 @@ Public Class frmIndex
|
||||
Continue For
|
||||
End If
|
||||
If oControl.Name.StartsWith("lbl") = False And result = False Then
|
||||
LOGGER.Info("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer")
|
||||
_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
|
||||
LOGGER.Info(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -442,15 +453,15 @@ Public Class frmIndex
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
|
||||
Function Name_Generieren()
|
||||
Try
|
||||
LOGGER.Debug("#### Name_Generieren ####")
|
||||
_Logger.Debug("#### Name_Generieren ####")
|
||||
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"
|
||||
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(LOGCONFIG)
|
||||
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
@ -486,14 +497,14 @@ Public Class frmIndex
|
||||
Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(oNamenkonvention)
|
||||
'####
|
||||
If oMatchelements.Count = 0 Then
|
||||
LOGGER.Debug("No RegularExpression Fileds on Nameconvention!")
|
||||
_Logger.Debug("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"
|
||||
LOGGER.Debug("NameGenerieren: Manueller Index wird geprüft...")
|
||||
_Logger.Debug("NameGenerieren: 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 oManValue As String = GetManIndex_Value(Indexname, "FILE", optional_index)
|
||||
@ -532,7 +543,7 @@ Public Class frmIndex
|
||||
AnzahlIndexe += 1
|
||||
sql_history_Index_Values = sql_history_Index_Values & ", '" & oManValue.Replace("'", "''") & "'"
|
||||
Else
|
||||
LOGGER.Debug("Der Indexvalue für Index '" & Indexname & "' ist String.Empty")
|
||||
_Logger.Debug("Der Indexvalue für Index '" & Indexname & "' ist String.Empty")
|
||||
err = True
|
||||
End If
|
||||
|
||||
@ -615,13 +626,13 @@ Public Class frmIndex
|
||||
Loop
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn(" - Unexpected error in NameGenerieren - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - Unexpected error in NameGenerieren - 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
|
||||
LOGGER.Info(" - 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
|
||||
@ -630,8 +641,8 @@ Public Class frmIndex
|
||||
'CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(NewFileString, "")
|
||||
CURRENT_NEWFILENAME = Path.Combine(oRAWZielordner, CURRENT_NEWFILENAME)
|
||||
|
||||
LOGGER.Debug("#### ENDE Name_Generieren ####")
|
||||
LOGGER.Debug("")
|
||||
_Logger.Debug("#### ENDE Name_Generieren ####")
|
||||
_Logger.Debug("")
|
||||
If err = False Then
|
||||
Return True
|
||||
Else
|
||||
@ -639,8 +650,8 @@ Public Class frmIndex
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -656,7 +667,7 @@ Public Class frmIndex
|
||||
For Each row As DataRow In DTMan.Rows
|
||||
Dim idxvalue = row.Item("Indexwert")
|
||||
Dim indexname = row.Item("WD_INDEX").ToString
|
||||
LOGGER.Debug($"Write_Indizes - Index [{indexname}]...")
|
||||
_Logger.Debug($"Write_Indizes - Index [{indexname}]...")
|
||||
Dim optional_Index = CBool(row.Item("OPTIONAL"))
|
||||
Dim indexiert = CBool(row.Item("Indexiert"))
|
||||
If indexiert And idxvalue.ToString <> "" And idxvalue <> "EMPTY_OI" Then
|
||||
@ -683,15 +694,15 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
|
||||
LOGGER.Debug($"Manueller Indexvalue [{idxvalue.ToString}]...NOW THE INDEXING...")
|
||||
_Logger.Debug($"Manueller Indexvalue [{idxvalue.ToString}]...NOW THE INDEXING...")
|
||||
Count += 1
|
||||
|
||||
|
||||
' den Typ des Zielindexes auslesen
|
||||
Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
|
||||
LOGGER.Debug($"oIndexType [{oIndexType.ToString}]...")
|
||||
_Logger.Debug($"oIndexType [{oIndexType.ToString}]...")
|
||||
If oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
|
||||
LOGGER.Debug($"Indexing oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
|
||||
_Logger.Debug($"Indexing oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
|
||||
Else
|
||||
Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
|
||||
@ -716,12 +727,12 @@ Public Class frmIndex
|
||||
End If
|
||||
Else
|
||||
|
||||
LOGGER.Debug("No Indexing: indexname: " & indexname)
|
||||
LOGGER.Debug("No Indexing: is optional? " & optional_Index.ToString)
|
||||
_Logger.Debug("No Indexing: indexname: " & indexname)
|
||||
_Logger.Debug("No Indexing: is optional? " & optional_Index.ToString)
|
||||
End If
|
||||
Else
|
||||
LOGGER.Debug("Indexvalue is empty or field is not indexed - Indexname: " & indexname)
|
||||
LOGGER.Info("Indexvalue is empty or field is not indexed - Indexname: " & indexname)
|
||||
_Logger.Debug("Indexvalue is empty or field is not indexed - Indexname: " & indexname)
|
||||
_Logger.Info("Indexvalue is empty or field is not indexed - Indexname: " & indexname)
|
||||
End If
|
||||
Next
|
||||
|
||||
@ -736,8 +747,8 @@ Public Class frmIndex
|
||||
Dim indexname = row.Item("INDEXNAME").ToString
|
||||
If indexiert = True And Indexvalue <> "" Then
|
||||
If Indexvalue <> "EMPTY_OI" Then
|
||||
LOGGER.Info("Auto Indexname: " & indexname.ToString)
|
||||
LOGGER.Info("Indexvalue: " & Indexvalue.ToString)
|
||||
_Logger.Info("Auto Indexname: " & indexname.ToString)
|
||||
_Logger.Info("Indexvalue: " & Indexvalue.ToString)
|
||||
Count += 1
|
||||
|
||||
' den Typ des Zielindexes auslesen
|
||||
@ -782,8 +793,8 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn("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
|
||||
@ -791,9 +802,10 @@ Public Class frmIndex
|
||||
End Function
|
||||
Private Function WriteIndex2File(indexname As String, indexvalue As String)
|
||||
Try
|
||||
LOGGER.Info("Indexvalue: " & indexvalue.ToString)
|
||||
_Logger.Info("Indexvalue: " & indexvalue.ToString)
|
||||
Return WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, indexvalue, CURR_DOKART_OBJECTTYPE)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@ -808,13 +820,13 @@ Public Class frmIndex
|
||||
Dim msgDisplayTo = msg.DisplayTo
|
||||
Dim msgInternetAccountName = msg.InternetAccountName
|
||||
If LogErrorsOnly = False Then
|
||||
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("")
|
||||
_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"
|
||||
|
||||
@ -850,7 +862,7 @@ Public Class frmIndex
|
||||
Next
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "'")
|
||||
If IsNothing(DT) Then
|
||||
LOGGER.Info("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "' RESULTED in NOTHING")
|
||||
_Logger.Info("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "' RESULTED in NOTHING")
|
||||
Return False
|
||||
End If
|
||||
If DT.Rows.Count = 1 Then
|
||||
@ -869,7 +881,7 @@ Public Class frmIndex
|
||||
End If
|
||||
Else
|
||||
If messageIDPattern = String.Empty Then
|
||||
LOGGER.Info("A messageID could not be read!")
|
||||
_Logger.Info("A messageID could not be read!")
|
||||
Else
|
||||
If Not IsNothing(headers) Then
|
||||
CURRENT_MESSAGEID = ClassEmailHeaderExtractor.extractFromHeader(headers, messageIDPattern)
|
||||
@ -877,7 +889,7 @@ Public Class frmIndex
|
||||
CURRENT_MESSAGEID = ""
|
||||
End If
|
||||
Else
|
||||
LOGGER.Info("A messageID could not be read - messageheader nothing/messagIDpattern value!")
|
||||
_Logger.Info("A messageID could not be read - messageheader nothing/messagIDpattern value!")
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -910,7 +922,7 @@ Public Class frmIndex
|
||||
_step = "4.2"
|
||||
If IsNothing(msgDisplayTo) Then
|
||||
_step = "4.3"
|
||||
LOGGER.Info("DisplayTo in email is nothing - default will be set")
|
||||
_Logger.Info("DisplayTo in email is nothing - default will be set")
|
||||
emailTo = "NO RECIPIENT"
|
||||
Else
|
||||
_step = "4.4"
|
||||
@ -918,7 +930,7 @@ Public Class frmIndex
|
||||
End If
|
||||
If IsNothing(msgInternetAccountName) Then
|
||||
_step = "4.5"
|
||||
LOGGER.Info("InternetAccountName in email is nothing - default will be set")
|
||||
_Logger.Info("InternetAccountName in email is nothing - default will be set")
|
||||
emailFrom = ""
|
||||
Else
|
||||
_step = "4.6"
|
||||
@ -926,7 +938,7 @@ Public Class frmIndex
|
||||
End If
|
||||
Else
|
||||
_step = "5"
|
||||
LOGGER.Info("emailTo and From Extraction via messageheader.")
|
||||
_Logger.Info("emailTo and From Extraction via messageheader.")
|
||||
emailFrom = ClassEmailHeaderExtractor.extractFromHeader(headers, fromPattern) 'FromRegexList)
|
||||
|
||||
emailTo = ClassEmailHeaderExtractor.extractFromHeader(headers, toPattern) ' extractToAddress(headers, ToRegexList)
|
||||
@ -934,16 +946,16 @@ Public Class frmIndex
|
||||
'Handler für leere emailTo-Adresse
|
||||
If IsNothing(emailTo) Then
|
||||
_step = "5.1"
|
||||
LOGGER.Info("emailTo couldn't be extracted from messageheader...")
|
||||
_Logger.Info("emailTo couldn't be extracted from messageheader...")
|
||||
If (headers.Contains("exc") Or headers.Contains("exchange")) Then
|
||||
_step = "5.2"
|
||||
LOGGER.Info("...try with LDAP-option")
|
||||
_Logger.Info("...try with LDAP-option")
|
||||
Dim _email = GetUserEmailfromLDAP(msgDisplayTo)
|
||||
_step = "5.3"
|
||||
If _email <> "" Then
|
||||
emailTo = _email
|
||||
Else
|
||||
LOGGER.Info(">> email-adress couldn't be read from LDAP with name '" & msgDisplayTo & "'")
|
||||
_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
|
||||
@ -959,7 +971,7 @@ Public Class frmIndex
|
||||
emailTo = CURR_MISSING_MANUAL_VALUE
|
||||
Else
|
||||
_step = "5.4.3"
|
||||
LOGGER.Info("no exchange patterns found in headers!")
|
||||
_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
|
||||
@ -975,7 +987,7 @@ Public Class frmIndex
|
||||
emailFrom = emailFrom.Replace(">", "")
|
||||
Else
|
||||
_step = "6.1.x"
|
||||
LOGGER.Info("emailFrom is Nothing?!")
|
||||
_Logger.Info("emailFrom is Nothing?!")
|
||||
End If
|
||||
|
||||
If Not IsNothing(emailTo) Then
|
||||
@ -999,20 +1011,20 @@ Public Class frmIndex
|
||||
Next
|
||||
Else
|
||||
_step = "6.3"
|
||||
LOGGER.Info("emailTo is Nothing?!")
|
||||
_Logger.Info("emailTo is Nothing?!")
|
||||
End If
|
||||
|
||||
LOGGER.Info("Headers-Content: ")
|
||||
LOGGER.Info(headers.ToString)
|
||||
_Logger.Info("Headers-Content: ")
|
||||
_Logger.Info(headers.ToString)
|
||||
End If
|
||||
'Handler für leere emailFrom-Adresse
|
||||
If IsNothing(emailFrom) Then
|
||||
_step = "7"
|
||||
LOGGER.Info("emailFrom couldn't be extracted from messageheader...")
|
||||
_Logger.Info("emailFrom couldn't be extracted from messageheader...")
|
||||
If Not IsNothing(msg.SenderEmailAddress) Then
|
||||
If msg.SenderEmailAddress <> String.Empty Then
|
||||
_step = "7.1"
|
||||
LOGGER.Info("emailFrom via msg.SenderEmailAddress will be used instead!")
|
||||
_Logger.Info("emailFrom via msg.SenderEmailAddress will be used instead!")
|
||||
emailFrom = msg.SenderEmailAddress.ToString.Replace("'", "")
|
||||
End If
|
||||
End If
|
||||
@ -1032,8 +1044,8 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
|
||||
LOGGER.Info("emailFrom: " & emailFrom)
|
||||
LOGGER.Info("emailTo: " & emailTo)
|
||||
_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)
|
||||
@ -1042,7 +1054,7 @@ Public Class frmIndex
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
LOGGER.Info("emailFrom is still Nothing?!")
|
||||
_Logger.Info("emailFrom is still Nothing?!")
|
||||
_step = "7.4"
|
||||
End If
|
||||
'TO
|
||||
@ -1053,14 +1065,14 @@ Public Class frmIndex
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
LOGGER.Info("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
|
||||
LOGGER.Info("msg subject is empty...DEFAULT will be set")
|
||||
_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
|
||||
@ -1070,16 +1082,16 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
|
||||
LOGGER.Info("Now all email-items will be indexed!")
|
||||
_Logger.Info("Now all email-items will be indexed!")
|
||||
|
||||
LOGGER.Info("subj: " & subj)
|
||||
_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
|
||||
LOGGER.Info("MessageDeliveryTime: " & msg.MessageDeliveryTime)
|
||||
_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
|
||||
@ -1094,13 +1106,10 @@ 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)
|
||||
LOGGER.Info("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message)
|
||||
LOGGER.Info("Stack-Trace: " & ex.StackTrace)
|
||||
_Logger.Warn("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message)
|
||||
_Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
Public Function GetUserEmailfromLDAP(ByVal userName As String) As String
|
||||
|
||||
@ -1117,6 +1126,7 @@ Public Class frmIndex
|
||||
search.PropertiesToLoad.Add("mail")
|
||||
result = search.FindOne()
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
search.Filter = ""
|
||||
search.Filter = "(GivenName=" & userName & ")"
|
||||
search.PropertiesToLoad.Add("mail")
|
||||
@ -1126,8 +1136,8 @@ Public Class frmIndex
|
||||
result = search.FindOne()
|
||||
If result IsNot Nothing Then userEmail = result.Properties("mail").ToString
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(">> Unexpected Error in GetUserEmail from LDAP: " & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Info(">> Unexpected Error in GetUserEmail from LDAP: " & ex.Message)
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End Using
|
||||
|
||||
@ -1174,6 +1184,7 @@ Public Class frmIndex
|
||||
Return indexierung_erfolgreich
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Error in SetAttachmentIndices:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@ -1185,28 +1196,31 @@ Public Class frmIndex
|
||||
CURR_DOKART_OBJECTTYPE = _Objekttyp
|
||||
Dim oWMCheckPath = WINDREAM.VersionWMFilename(CURRENT_NEWFILENAME, System.IO.Path.GetExtension(CURRENT_NEWFILENAME))
|
||||
If CURRENT_NEWFILENAME.ToUpper <> oWMCheckPath.ToString.ToUpper Then
|
||||
LOGGER.Info($"Target [{CURRENT_NEWFILENAME}] already existed!! - NewWMFilename [{oWMCheckPath}]")
|
||||
_Logger.Info($"Target [{CURRENT_NEWFILENAME}] already existed!! - NewWMFilename [{oWMCheckPath}]")
|
||||
CURRENT_NEWFILENAME = oWMCheckPath
|
||||
End If
|
||||
|
||||
Dim oStreamSuccessful = WINDREAM.NewFileStream(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
|
||||
Dim oTempPath As String = Path.Combine("\\windream\objects", CURRENT_NEWFILENAME)
|
||||
|
||||
LOGGER.Debug("File streamed to Windream: {0}", oStreamSuccessful)
|
||||
LOGGER.Debug("File exists in Destination: {0}", File.Exists(CURRENT_NEWFILENAME))
|
||||
LOGGER.Debug("File should be deleted: {0}", CURR_DELETE_ORIGIN)
|
||||
_Logger.Debug("Checks for file [{0}]", oTempPath)
|
||||
_Logger.Debug("File streamed to Windream: {0}", oStreamSuccessful)
|
||||
_Logger.Debug("File exists in Destination: {0}", File.Exists(oTempPath))
|
||||
_Logger.Debug("File should be deleted: {0}", CURR_DELETE_ORIGIN)
|
||||
|
||||
If File.Exists(CURRENT_NEWFILENAME) And oStreamSuccessful Then
|
||||
If File.Exists(oTempPath) And oStreamSuccessful Then
|
||||
If CURR_DELETE_ORIGIN = True Then
|
||||
Try
|
||||
My.Computer.FileSystem.DeleteFile(CURRENT_WORKFILE)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
Return oStreamSuccessful
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in SINGLEFILE_2_WINDREAM:")
|
||||
Return False
|
||||
End Try
|
||||
@ -1260,12 +1274,10 @@ Public Class frmIndex
|
||||
End If
|
||||
Return False
|
||||
Catch ex As Exception
|
||||
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)
|
||||
_Logger.Error(ex.Message)
|
||||
_Logger.Warn(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String)
|
||||
Return True
|
||||
End Try
|
||||
|
||||
End Function
|
||||
'#End Region
|
||||
|
||||
@ -1325,6 +1337,7 @@ Public Class frmIndex
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@ -1336,8 +1349,8 @@ Public Class frmIndex
|
||||
ClassWindowLocation.SaveFormLocationSize(Me)
|
||||
My.Settings.Save()
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(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
|
||||
|
||||
@ -1354,8 +1367,8 @@ Public Class frmIndex
|
||||
ClassWindowLocation.SaveFormLocationSize(Me)
|
||||
My.Settings.Save()
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
|
||||
End Try
|
||||
End Select
|
||||
@ -1380,7 +1393,7 @@ Public Class frmIndex
|
||||
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
|
||||
|
||||
If DropType Is Nothing Then
|
||||
LOGGER.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", CURRENT_WORKFILE_GUID)
|
||||
_Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", CURRENT_WORKFILE_GUID)
|
||||
CancelAttempts = MaxCancelAttempts
|
||||
Close()
|
||||
Else
|
||||
@ -1403,14 +1416,14 @@ Public Class frmIndex
|
||||
ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
|
||||
Select Case DropType
|
||||
Case "|FW_MSGONLY|"
|
||||
LOGGER.Info(".msg-file from folderwatch")
|
||||
_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|"
|
||||
LOGGER.Info(".msg-file through dragdrop")
|
||||
_Logger.Info(".msg-file through dragdrop")
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
Me.Text = "Indexing of msg-File (without Attachments)"
|
||||
Else
|
||||
@ -1474,8 +1487,8 @@ Public Class frmIndex
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -1484,8 +1497,8 @@ Public Class frmIndex
|
||||
Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -1517,8 +1530,8 @@ Public Class frmIndex
|
||||
Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
|
||||
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
|
||||
|
||||
LOGGER.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
|
||||
LOGGER.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
|
||||
_Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
|
||||
_Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
|
||||
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
|
||||
Exit For
|
||||
End If
|
||||
@ -1526,14 +1539,14 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
|
||||
_Logger.Error(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Refresh_Dokart()
|
||||
Try
|
||||
Dim sql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
|
||||
LOGGER.Info("SQL DoctypeList: " & sql)
|
||||
_Logger.Info("SQL DoctypeList: " & sql)
|
||||
DT_DOKART = ClassDatabase.Return_Datatable(sql)
|
||||
cmbDokumentart.DataSource = DT_DOKART
|
||||
cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName
|
||||
@ -1542,8 +1555,8 @@ Public Class frmIndex
|
||||
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
cmbDokumentart.SelectedIndex = -1
|
||||
Catch ex As Exception
|
||||
LOGGER.Info(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn(" - 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
|
||||
@ -1579,7 +1592,8 @@ Public Class frmIndex
|
||||
pnlIndex.Visible = True
|
||||
LoadIndexe_Man()
|
||||
Catch ex As System.Exception
|
||||
LOGGER.Info(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql)
|
||||
_Logger.Error(ex)
|
||||
_Logger.Warn("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
|
||||
@ -1599,6 +1613,7 @@ Public Class frmIndex
|
||||
Return Nothing
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Check_HistoryValues:")
|
||||
Return Nothing
|
||||
End Try
|
||||
@ -1613,7 +1628,7 @@ Public Class frmIndex
|
||||
|
||||
If DT_INDEXEMAN.Rows.Count = 0 Then
|
||||
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
LOGGER.Info(" - 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 oRow As DataRow In DT_INDEXEMAN.Rows
|
||||
@ -1683,7 +1698,7 @@ Public Class frmIndex
|
||||
MsgBox("Please check Datatype of Indexvalue!", MsgBoxStyle.Critical, "Warning:")
|
||||
End If
|
||||
|
||||
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
_Logger.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
End Select
|
||||
|
||||
oControlCount += 1
|
||||
@ -1702,7 +1717,7 @@ Public Class frmIndex
|
||||
|
||||
SendKeys.Send("{TAB}")
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in LoadIndexe_Man:")
|
||||
End Try
|
||||
End Sub
|
||||
@ -1736,8 +1751,8 @@ Public Class frmIndex
|
||||
oResult = UserShortName
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("Error in ReplacePlaceholders: " & ex.Message)
|
||||
LOGGER.Error(ex.Message)
|
||||
_Logger.Warn("Error in ReplacePlaceholders: " & ex.Message)
|
||||
_Logger.Error(ex.Message)
|
||||
oResult = Nothing
|
||||
End Try
|
||||
|
||||
@ -1764,7 +1779,7 @@ Public Class frmIndex
|
||||
|
||||
' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen
|
||||
For Each oAutoIndexRow As DataRow In oDatatable
|
||||
LOGGER.Info("Working on AutomaticIndex: " & oAutoIndexRow.Item("INDEXNAME") & "...")
|
||||
_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)
|
||||
@ -1826,7 +1841,7 @@ Public Class frmIndex
|
||||
oSqlResult = ClassPatterns.ReplaceControlValues(oSqlResult, pnlIndex)
|
||||
oSqlResult = ClassPatterns.ReplaceInternalValues(oSqlResult)
|
||||
If oSqlResult <> String.Empty Then
|
||||
LOGGER.Debug("oSqlResult after Replace [" & oSqlResult & "]")
|
||||
_Logger.Debug("oSqlResult after Replace [" & oSqlResult & "]")
|
||||
End If
|
||||
' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl,
|
||||
' der nur noch vektorfelder-platzhalter enthält
|
||||
@ -1834,7 +1849,7 @@ Public Class frmIndex
|
||||
' 2. Schritt: Vektorfelder ersetzen
|
||||
Dim oVectorMatches As MatchCollection = oRegex.Matches(oSqlResult)
|
||||
If oVectorMatches.Count > 0 Then
|
||||
LOGGER.Info(" There are " & oVectorMatches.Count & " matches for vectors!")
|
||||
_Logger.Info(" There are " & oVectorMatches.Count & " matches for vectors!")
|
||||
Dim oIsFirstMatch = True
|
||||
|
||||
For Each oVectorMatch As Match In oVectorMatches
|
||||
@ -1862,7 +1877,7 @@ Public Class frmIndex
|
||||
Next
|
||||
Else
|
||||
Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider)
|
||||
LOGGER.Info("Got a simple SQLResult: " & oResult.ToString)
|
||||
_Logger.Info("Got a simple SQLResult: " & oResult.ToString)
|
||||
oAutoIndexRow.Item("Indexiert") = True
|
||||
oAutoIndexRow.Item("Indexwert") = oResult
|
||||
|
||||
@ -1871,6 +1886,7 @@ Public Class frmIndex
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
@ -1883,6 +1899,7 @@ Public Class frmIndex
|
||||
Try
|
||||
DocumentViewer1.LoadFile(CURRENT_WORKFILE)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:")
|
||||
End Try
|
||||
End Sub
|
||||
@ -1908,15 +1925,15 @@ Public Class frmIndex
|
||||
Private Function WORK_FILE()
|
||||
Try
|
||||
Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID)
|
||||
LOGGER.Debug("Manuelle Indexe geladen")
|
||||
_Logger.Debug("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 #####
|
||||
LOGGER.Info("Datei [" & CURRENT_WORKFILE & "] wird nun indexiert...")
|
||||
_Logger.Info("Datei [" & CURRENT_WORKFILE & "] wird nun indexiert...")
|
||||
If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then
|
||||
LOGGER.Debug(" ...FillIndexe_Autom durchlaufen")
|
||||
_Logger.Debug(" ...FillIndexe_Autom durchlaufen")
|
||||
|
||||
'Den Zielnamen zusammenbauen
|
||||
If Name_Generieren() = True Then
|
||||
@ -1924,10 +1941,10 @@ Public Class frmIndex
|
||||
DocumentViewer1.Done()
|
||||
DocumentViewer1.CloseDocument()
|
||||
|
||||
LOGGER.Debug(" ...Viewer geschlossen")
|
||||
_Logger.Debug(" ...Viewer geschlossen")
|
||||
'Die Datei verschieben
|
||||
If Move_File2_Target() = True Then
|
||||
LOGGER.Debug(" ...Move_File2_Target durchlaufen")
|
||||
_Logger.Debug(" ...Move_File2_Target durchlaufen")
|
||||
''Die Originaldatei löschen
|
||||
'If DropType = "|DROPFROMFSYSTEM|" Then
|
||||
' If CURR_DELETE_ORIGIN = True Then
|
||||
@ -1953,7 +1970,7 @@ Public Class frmIndex
|
||||
'End If
|
||||
|
||||
CURRENT_LASTDOKART = cmbDokumentart.Text
|
||||
LOGGER.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
|
||||
_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
|
||||
@ -1986,24 +2003,12 @@ Public Class frmIndex
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in WORK_FILE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Sub DeleteFile()
|
||||
Try
|
||||
If CURR_DELETE_ORIGIN = False Then
|
||||
If CURRENT_DROPTYPE <> "FW_SIMPLEINDEXER" Then
|
||||
LOGGER.Info(">> DeleteFile - CURR_DELETE_ORIGIN = False")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpeted Error in Delete Current Workfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub OK_Button_Click(sender As Object, e As EventArgs)
|
||||
ClearError()
|
||||
ClearNotice()
|
||||
@ -2121,15 +2126,16 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical)
|
||||
LOGGER.Info(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Info(" - Unexpected error in Insert-History - SQL: " & Insert_String)
|
||||
_Logger.Warn(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message)
|
||||
_Logger.Warn(" - Unexpected error in Insert-History - SQL: " & Insert_String)
|
||||
oError = True
|
||||
End Try
|
||||
Else
|
||||
@ -2154,6 +2160,7 @@ Public Class frmIndex
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Move File2Target:")
|
||||
oError = True
|
||||
End Try
|
||||
@ -2176,16 +2183,16 @@ Public Class frmIndex
|
||||
|
||||
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
|
||||
For Each oMatch As Match In oMatches
|
||||
LOGGER.Info("Elementname in FolderString: '" & oMatch.ToString & "'")
|
||||
_Logger.Info("Elementname in FolderString: '" & oMatch.ToString & "'")
|
||||
Select Case oMatch.Value.Substring(2, 1).ToUpper
|
||||
|
||||
'Manueller Indexwert
|
||||
Case "M"
|
||||
Dim oManIndexName = oMatch.Value.Substring(3, oMatch.Value.Length - 4)
|
||||
Dim oIsOptional As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & oManIndexName & "')", MyConnectionString, True)
|
||||
LOGGER.Info("Versuch den Indexwert aus '" & oManIndexName & "' auszulesen.")
|
||||
_Logger.Info("Versuch den Indexwert aus '" & oManIndexName & "' auszulesen.")
|
||||
Dim oManIndexValue As String = GetManIndex_Value(oManIndexName, "FILE", oIsOptional)
|
||||
LOGGER.Info("Ergebnis/Wert für neuen Ordner: '" & oManIndexName & "'")
|
||||
_Logger.Info("Ergebnis/Wert für neuen Ordner: '" & oManIndexName & "'")
|
||||
If Not oManIndexValue = String.Empty Then
|
||||
If IsDate(oManIndexValue) Then
|
||||
oManIndexValue = CDate(oManIndexValue).ToString("yyyyMMdd")
|
||||
@ -2195,21 +2202,21 @@ Public Class frmIndex
|
||||
'oManIndexValue = ClassFilehandle.CleanFilename(oManIndexValue, "")
|
||||
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, oManIndexValue)
|
||||
|
||||
LOGGER.Info("FolderPattern: '" & DynamicFolderConfig & "'")
|
||||
_Logger.Info("FolderPattern: '" & DynamicFolderConfig & "'")
|
||||
Else
|
||||
|
||||
If oIsOptional = True Then
|
||||
LOGGER.Info("Optionaler Indexwert ist NICHT gefüllt")
|
||||
_Logger.Info("Optionaler Indexwert ist NICHT gefüllt")
|
||||
Else
|
||||
LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
|
||||
_Logger.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Case "A"
|
||||
Dim oAutoIndexName = oMatch.Value.Substring(3, oMatch.Value.Length - 4)
|
||||
LOGGER.Info("Versuch den Auto-Indexwert aus '" & oAutoIndexName & "' auszulesen.")
|
||||
_Logger.Info("Versuch den Auto-Indexwert aus '" & oAutoIndexName & "' auszulesen.")
|
||||
Dim oAutoIndexValue As String = GetAutoIndex_Value(oAutoIndexName)
|
||||
LOGGER.Info("Ergebnis/Wert für neuen Ordner: '" & oAutoIndexName & "'")
|
||||
_Logger.Info("Ergebnis/Wert für neuen Ordner: '" & oAutoIndexName & "'")
|
||||
If Not oAutoIndexValue = String.Empty Then
|
||||
|
||||
oAutoIndexValue = oFilesystem.GetCleanPath(oAutoIndexValue)
|
||||
@ -2218,11 +2225,11 @@ Public Class frmIndex
|
||||
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, "")
|
||||
Else
|
||||
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, oAutoIndexValue)
|
||||
LOGGER.Info("FolderPattern: '" & DynamicFolderConfig & "'")
|
||||
_Logger.Info("FolderPattern: '" & DynamicFolderConfig & "'")
|
||||
End If
|
||||
|
||||
Else
|
||||
LOGGER.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
|
||||
_Logger.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
|
||||
End If
|
||||
Case "V"
|
||||
Dim oElementTemp As String
|
||||
@ -2249,9 +2256,9 @@ Public Class frmIndex
|
||||
oElementTemp = My.Computer.Clock.LocalTime.Year & "-" & _Month
|
||||
End Select
|
||||
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, oElementTemp)
|
||||
LOGGER.Info("FolderPatter nach V-Element: '" & DynamicFolderConfig & "'")
|
||||
_Logger.Info("FolderPatter nach V-Element: '" & DynamicFolderConfig & "'")
|
||||
Case Else
|
||||
LOGGER.Info(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper)
|
||||
_Logger.Warn(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper)
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
|
||||
@ -2265,42 +2272,43 @@ Public Class frmIndex
|
||||
|
||||
|
||||
|
||||
LOGGER.Info("Den Root-Folder zusammenfügen>> ")
|
||||
_Logger.Info("Den Root-Folder zusammenfügen>> ")
|
||||
|
||||
Dim oNewFullPath As String = System.IO.Path.Combine(oRootFolder, DynamicFolderConfig)
|
||||
|
||||
LOGGER.Info("Fullpath (mit evtl. Sonderzeichen (SZ)) '" & oNewFullpath & "'")
|
||||
_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
|
||||
If Char.IsWhiteSpace(sonderChar) = False Then
|
||||
If oNewFullpath.Contains(sonderChar) Then
|
||||
oNewFullpath = oNewFullpath.Replace(sonderChar, "")
|
||||
If oNewFullPath.Contains(sonderChar) Then
|
||||
oNewFullPath = oNewFullPath.Replace(sonderChar, "")
|
||||
End If
|
||||
End If
|
||||
Next sonderChar
|
||||
oNewFullPath = WINDREAM.GetCleanedPath(oNewFullPath)
|
||||
|
||||
LOGGER.Info("Fullpath (ohne SZ) '" & oNewFullpath & "'")
|
||||
If Directory.Exists(oNewFullpath) = False Then
|
||||
_Logger.Info("Fullpath (ohne SZ) '" & oNewFullPath & "'")
|
||||
If Directory.Exists(oNewFullPath) = False Then
|
||||
Try
|
||||
Dim oCreatedPath = Directory.CreateDirectory(oNewFullPath)
|
||||
oNewFullPath = oCreatedPath.FullName
|
||||
LOGGER.Info("Folder '" & oNewFullpath & "' wurde angelegt")
|
||||
_Logger.Info("Folder '" & oNewFullPath & "' wurde angelegt")
|
||||
Catch ex As Exception
|
||||
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)
|
||||
_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
|
||||
End If
|
||||
|
||||
CURRENT_NEWFILENAME = Path.Combine(oNewFullpath, Path.GetFileName(CURRENT_NEWFILENAME))
|
||||
CURRENT_NEWFILENAME = Path.Combine(oNewFullPath, Path.GetFileName(CURRENT_NEWFILENAME))
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
LOGGER.Info("Fehler in CrFolderForIndex: " & ex.Message)
|
||||
_Logger.Warn("Fehler in CrFolderForIndex: " & ex.Message)
|
||||
_Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@ -2362,6 +2370,7 @@ Public Class frmIndex
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user