EMailProfiler: Config-Daten in zentraler Klasse. abfrage der GDPicture Lizenz über Config-Modul

App/EmailProfiler.Common/clsWindream_Index.vb

@@ -115,6 +115,8 @@ Public Class clsWindream_Index
         Catch ex As Exception
 
         End Try
+
+        Return "String"
     End Function
     Public Function RunIndexing_Vektor(ByVal oDocument As WMObject, ByVal Indizes As String(), ByVal aValues As String())
         Try
@@ -244,9 +246,9 @@ Public Class clsWindream_Index
             'clsLogger.AddError("## Fehler in RunIndexing_Vektor - Fehler: " & ex.Message, "RunIndexingVektor")
             oDocument.Save()
             oDocument.unlock()
-            Return False
-        End Try
 
+        End Try
+        Return False
 
     End Function
     Public Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Objekttyp As String)
@@ -630,8 +632,9 @@ Public Class clsWindream_Index
             'clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
             oDocument.Save()
             oDocument.unlock()
-            Return False
         End Try
+
+        Return False
     End Function
 #End Region
     Public Function GetVektorArray(ByVal oDocument As WMObject, oIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
@@ -834,7 +837,7 @@ Public Class clsWindream_Index
     ''' _indexname = Name des zu überprüfenden Indexfeldes
     Public Function GetValueforIndex_WMFile(ByVal _dok As WMObject, _indexname As String)
         Try
-            Const WMEntityDocument = 1
+            'Const WMEntityDocument = 1
             Dim IndexwertAusWindream As Object = Nothing
             IndexwertAusWindream = _dok.GetVariableValue(_indexname)
             Return IndexwertAusWindream.ToString