MS
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user