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

Compare commits

base: AppStd:c6fbdadd888d841a9df84e4ba01fa472dc5023aa
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign
...
compare: AppStd:b2f82f3880949c5555d8de803f661894f6496c40
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign

3 Commits
c6fbdadd88 ... b2f82f3880

Author SHA1 Message Date
Jonathan Jenne
b2f82f3880 fix error for profilepreselection 2022-02-01 15:56:26 +01:00
Jonathan Jenne
9b8a780f06 Skip indexing of empty mail properties 2022-02-01 15:41:26 +01:00
Jonathan Jenne
03c8d5267e Version 2.5.0.6 2022-02-01 15:14:07 +01:00
2 changed files with 8 additions and 7 deletions
Expand all files Collapse all files

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")> <Assembly: AssemblyProduct("Global Indexer")>
<Assembly: AssemblyCopyright("Copyright © 2022")> <Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("2.5.0.5")> <Assembly: AssemblyTrademark("2.5.0.6")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.5.0.5")> <Assembly: AssemblyVersion("2.5.0.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

11
Global_Indexer/frmIndex.vb
View File

@@ -905,6 +905,8 @@ Public Class frmIndex
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath) Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
Dim oMessageId As String = oMail.MessageID Dim oMessageId As String = oMail.MessageID
LOGGER.Debug("MessageId: [{0}]", oMessageId)
Dim oMessageFrom As String = EMAIL.Get_MessageSender(oMail) Dim oMessageFrom As String = EMAIL.Get_MessageSender(oMail)
Dim oMessageTo As String = EMAIL.Get_MessageReceiver(oMail) Dim oMessageTo As String = EMAIL.Get_MessageReceiver(oMail)
Dim oDateIn As Date = EMAIL.Get_MessageDate(oMail) Dim oDateIn As Date = EMAIL.Get_MessageDate(oMail)
@@ -935,17 +937,16 @@ Public Class frmIndex
Try Try
If oIndex.Value Is Nothing Then If oIndex.Value Is Nothing Then
LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key)
Return False Continue For
End If End If
If TypeOf oIndex.Value Is String AndAlso oIndex.Value = String.Empty Then If TypeOf oIndex.Value Is String AndAlso oIndex.Value = String.Empty Then
LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key)
Return False Continue For
End If End If
Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value) Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value)
If oIndexingSuccessful = False Then If oIndexingSuccessful = False Then
@@ -1676,8 +1677,8 @@ Public Class frmIndex
If CURRENT_LASTDOKART <> "" Then If CURRENT_LASTDOKART <> "" Then
_Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART) _Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART)
Dim oFoundDocType = ComboboxDoctype.Properties.DataSource. Dim oDocTypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
Cast(Of DocType)(). Dim oFoundDocType = oDocTypes.
Where(Function(dt) dt.Name = CURRENT_LASTDOKART). Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
FirstOrDefault() FirstOrDefault()