Modules.Database

Modules.Windream/Windream.vb

@@ -202,7 +202,7 @@ Public Class Windream
             Dim i As Integer = 0
             Dim value = aValues(i)
 
-            Dim oWMValueConverted
+            Dim oWMValueConverted = Nothing
 
             Dim vektor As Boolean = False
             'Den Typ des Index-Feldes auslesen
@@ -353,7 +353,7 @@ Public Class Windream
     ''' <param name="folderObjecttype">Obcjectype Name</param>
     ''' <returns>Returns true when Otype was set, false if not</returns>
     ''' <remarks></remarks>
-    Public Function NewObjecttypeForFolder(folderpath As String, folderObjecttype As String)
+    Public Function NewObjecttypeForFolder(folderpath As String, folderObjecttype As String) As Boolean
         Try
             Dim result As Boolean = False
             Dim WMFolder As WINDREAMLib.WMObject
@@ -397,9 +397,8 @@ Public Class Windream
                 Catch ex As Exception
                     ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
                 End Try
-                Return result
             End If
-
+            Return result
 
         Catch ex As Exception
             Logger.Error(ex)
@@ -733,7 +732,7 @@ Public Class Windream
         Try
             Dim missing As Boolean = False
             Dim valueCount As Integer = 0
-            Dim ValueArray()
+            Dim ValueArray() = Nothing
             'Jeden Wert des Vektorfeldes durchlaufen
             Dim DT_RESULT = GetValueforIndex(oDocument.aPath, vktIndexName)
             If DT_RESULT.Rows.Count > 0 Then
@@ -922,7 +921,7 @@ Public Class Windream
                 Return False
             End If
             Dim containsvalue As Boolean = False
-            Dim ValueArray()
+            Dim ValueArray() = Nothing
             'Jeden Wert des Vektorfeldes durchlaufen
             Dim WMValue = oWMFile.GetVariableValue(vktIndexName)
             If WMValue Is Nothing = False Then