This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-27 14:16:58 +02:00
parent 550041698f
commit 3d6251feaf
3 changed files with 13 additions and 17 deletions

View File

@@ -503,7 +503,6 @@ Public Class Windream
Dim oIndexAttribute As WMObject
Dim oIndex As WMObject
Dim oRelProperties As WMObjectRelation
' den Objekttyp laden
oObjectType = CurrentSession.GetWMObjectByName(WMEntityObjectType, ObjecttypeName)
@@ -513,10 +512,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)
@@ -596,7 +593,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