This commit is contained in:
Jonathan Jenne
2018-08-27 15:03:58 +02:00
3 changed files with 13 additions and 17 deletions

View File

@@ -649,7 +649,6 @@ Public Class Windream
Dim oIndexAttribute As WMObject
Dim oIndex As WMObject
Dim oRelProperties As WMObjectRelation
' den Objekttyp laden
oObjectType = CurrentSession.GetWMObjectByName(WMEntityObjectType, ObjecttypeName)
@@ -659,10 +658,8 @@ Public Class Windream
' Array für Indizes vorbereiten
'Dim aIndexNames(oIndexAttributes.Count - 1) As String
Dim indexNames As New List(Of String)
' alle Indizes durchlaufen
For j As Integer = 0 To oIndexAttributes.Count - 1
' aktuellen Index auslesen
oIndexAttribute = oIndexAttributes.Item(j)
@@ -742,7 +739,7 @@ Public Class Windream
Dim dtresult As New DataTable
dtresult.Columns.Add("DOC_ID", GetType(Integer))
dtresult.Columns.Add("PATH", GetType(String))
If Not TestLoggedInSession() = False Then
If TestLoggedInSession() = False Then
Return dtresult
End If
If TestWMFileExists(wdfLocation) = False Then