MS

app/DD-Record-Organiser/ClassWindream.vb

@@ -1476,12 +1476,13 @@ Public Class ClassWindream
     End Function
     Public Shared Function REMOVE_VEKTOR_LINK(ByVal FILEPATH As String, vktIndexName As String, deleteValue As String)
         Try
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Removing Value '" & deleteValue & "' of Index '" & vktIndexName & "' " & FILEPATH, False)
             Dim WMObject As WINDREAMLib.WMObject
             Dim containsvalue As Boolean = False
             Try
                 ' ein windream-Objekt der Datei erzeugen
                 WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, FILEPATH.Substring(2))
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> wibdreamObject created", False)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> windreamObject created", False)
             Catch ex As Exception
                 ClassLogger.Add("Unexpected Error in Initializing windream file: " & ex.Message, False)
                 Return False
@@ -1502,6 +1503,7 @@ Public Class ClassWindream
                         If WDValue Is Nothing = False Then
                             If WDValue = deleteValue Then
                                 containsvalue = True
+                                If LogErrorsOnly = False Then ClassLogger.Add(" >> The Index contains the value to be deleted!", False)
                             End If
                             If WDValue <> deleteValue Then
                                 'Erst die ALten Werte schreiben
@@ -1512,8 +1514,15 @@ Public Class ClassWindream
                             End If
                         End If
                     Next
+                Else
+                    ClassLogger.Add(" >> Index is not a vector", False)
+                    Return False
                 End If
+            Else
+                ClassLogger.Add(" >> wertWD is nothing", False)
+                Return True
             End If
+
             If containsvalue = True Then 'And Not IsNothing(ValueArray)
                 Try
                     ' die Datei sperren
@@ -1538,10 +1547,10 @@ Public Class ClassWindream
                     ' nichts tun (Datei war nicht gesperrt)
                 End Try
 
-                ' die Indexierungsinformationen für den TreeView-Log zurückgeben
+                'urückgeben
                 Return True
             Else
-                MsgBox("Could not remove the linked value!", MsgBoxStyle.Information)
+                ClassLogger.Add(" >> containsvalue is not true!", False)
                 Return False
             End If