Version 1.4.0.0

app/ClassWMResulthandler/clsWindream_Index.vb

@@ -254,21 +254,24 @@ Public Class clsWindream_Index
                     End If
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If oDocument.aObjectType.aName <> Objekttyp Then
+                        Logger.Debug($"aObjectType.aName: [{oDocument.aObjectType.aName}] <> Objekttyp: [{Objekttyp}]")
                         ' ihr den entsprechenden Dokumenttyp zuweisen
                         oDocument.aObjectType = oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
+                        Try
+                            oDocument.Save()
+                        Catch ex As Exception
+                            ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Objekttyp gesetzt werden -> es kann also auch keine
+                            ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
+                            Logger.Warn($"ATTENTION: COULD NOT SET OBJECTTYPE: [{ex.Message}]")
+                            Return False
+                        End Try
                         ' WMObject.aObjectType = selectedProfile.Dokumenttyp
                         Logger.Debug("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
                     Else
                         Logger.Debug("Objekttyp war bereits gesetzt")
                     End If
 
-                    Try
-                        oDocument.Save()
-                    Catch ex As Exception
-                        ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
-                        ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
-                        Return False
-                    End Try
+
 
                     'Jetzt jeden Indexwert durchlaufen
                     For Each aName As String In Indizes
@@ -382,7 +385,7 @@ Public Class clsWindream_Index
                                 Case Else
                                     Logger.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!")
                                     Logger.Debug("Versuch des Auslesens (vType): " & vType)
-                                    'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
+
                                     convertValue = ""
                             End Select
                             If vektor = False Then
@@ -583,18 +586,20 @@ Public Class clsWindream_Index
 
                     Return False
                 Else
-                    ' MsgBox("Dokument ist gesperrt, Indexierung erst im nächsten Durchlau", MsgBoxStyle.Critical)
-                    Logger.Warn("Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
+
+                    Logger.Warn("Document is locked, no indexing!")
                     'oDocument.unlock()
                     Return True
                 End If
             End If
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
+
             Logger.Error(ex)
             'clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
-            oDocument.Save()
-            oDocument.unlock()
+            If oDocument.aLocked Then
+                oDocument.unlock()
+            End If
+
             Return True
         End Try
     End Function
@@ -615,7 +620,7 @@ Public Class clsWindream_Index
             IndexwertAusWindream = _dok.GetVariableValue(_indexname)
             Return IndexwertAusWindream.ToString
         Catch ex As Exception
-            'MsgBox(ex.Message)
+
             Return Nothing
         End Try
     End Function