595 lines
23 KiB
VB.net
595 lines
23 KiB
VB.net
Imports WINDREAMLib
|
|
Imports WINDREAMLib.WMCOMEvent
|
|
Imports WINDREAMLib.WMEntity
|
|
Imports WINDREAMLib.WMObjectEditMode
|
|
Imports WINDREAMLib.WMSearchOperator
|
|
Imports WINDREAMLib.WMSearchRelation
|
|
Imports WMOBRWSLib
|
|
Imports DigitalData.Modules.Logging
|
|
Public Class ClassWindream_allgemein
|
|
|
|
#Region "+++++ Konstanten +++++"
|
|
Const DEBUG = AUS
|
|
Const AUS = 0
|
|
Const WINDREAM = 1
|
|
Const VARIABLEN = 2
|
|
Const WMAttributeFlagUndefined = 0
|
|
Const WMAttributeFlagSystem = 1 ' windream database system columns
|
|
Const WMAttributeFlagTypeSpecific = 2 ' windream database objecttype specific column
|
|
Const WMCOMEventWMSessionNeedIndex = 1
|
|
|
|
#End Region
|
|
|
|
#Region "+++++ Variablen +++++"
|
|
Public oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
|
|
Public oWMSession As Object 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
|
|
Public oBrowser As New WMOBRWSLib.ServerBrowser
|
|
Public oObjekttypen As WINDREAMLib.WMObjects
|
|
Public oOrdnerTypen As WINDREAMLib.WMObjects
|
|
Public oUSERRights As WINDREAMLib.WMObjects
|
|
Public oGROUPRights As WINDREAMLib.WMObjects
|
|
Public oSystemIndizes As WINDREAMLib.WMObjects
|
|
Private Shared _Logger As DigitalData.Modules.Logging.Logger
|
|
#End Region
|
|
|
|
|
|
#Region "+++++ Allgemeine Methoden und Funktionen +++++"
|
|
|
|
''' <summary>
|
|
''' Konstruktor für die windream-Klasse
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
|
|
_Logger = LogConf.GetLogger
|
|
' wenn ein Fehler bei der Initialisierung auftrat
|
|
If Not Me.Init() Then
|
|
' Nachricht ausgeben
|
|
|
|
' das Programm "abschießen"
|
|
' Process.GetCurrentProcess.Kill()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Initialisiert die statische Klasse (Login, Session starten, usw.)
|
|
''' </summary>
|
|
''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
|
|
''' <remarks></remarks>
|
|
Public Function Init() As Boolean
|
|
Dim oHourDifference As Integer
|
|
oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
|
|
|
|
|
|
|
|
If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
|
|
Try
|
|
|
|
Try
|
|
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
|
|
Me.oWMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
|
' Connection-Objekt instanziieren
|
|
Me.oConnect = CreateObject("Windream.WMConnect")
|
|
CURRENToWMConnect = oConnect
|
|
'MsgBox("windrem init 'ed")
|
|
Catch ex As Exception
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.Init(CreateObjects): " & ex.Message)
|
|
Return False
|
|
End Try
|
|
|
|
|
|
' wenn windream nicht angemeldet ist
|
|
If Not Me.IsLoggedIn Then
|
|
|
|
' Art der Anmeldung an windream festlegen
|
|
' 0x0L (also 0) = Standard windream Benutzer
|
|
' WM_MODULE_ID_DOCTYPEEDITOR_LIC = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
|
|
' WM_MODULE_ID_INDEXSERVICE = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
|
|
Me.oConnect.ModuleID = 0
|
|
|
|
' setzt die minimal erwartete windream-Version
|
|
Me.oConnect.MinReqVersion = "3"
|
|
|
|
' -- Impersonifizierung nur möglich mit registry-eintrag --
|
|
'oConnect.UserName = "\digitaldata\schreiberm"
|
|
'oConnect.Password = "schreiber"
|
|
|
|
' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
|
|
Me.oConnect.LoginSession(Me.oWMSession)
|
|
|
|
If Me.oWMSession.aLoggedin = False Then
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.Init(oSession.aloggedIn): Could not check session-state")
|
|
|
|
Return False
|
|
End If
|
|
|
|
' AUSGABE VON SYSTEMINFORMATIONEN
|
|
' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX)
|
|
' oder Business-Edition (BE) aus
|
|
'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
|
|
' vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
|
|
|
|
'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
|
|
'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
|
|
|
|
'' liefert die Versionsnummer des Clients
|
|
'MsgBox(WMCtrl.WMWorkstationBuildNo)
|
|
'MsgBox(WMCtrl.W
|
|
'' liefert den Servernamen des angemeldeten windreams
|
|
'MsgBox(WMCtrl.WMServerName)
|
|
|
|
Try
|
|
Me.oWMSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
|
|
' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine
|
|
' Ordnertypen ausgelesen werden
|
|
Me.oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
|
|
' Ordnertypen auslesen
|
|
Me.oOrdnerTypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
|
|
' den Objekttyp laden
|
|
' Me.oSystemIndizes = Me.oSession.GetWMObjectByName(WMObjectRelationTypeObjectByName)
|
|
Catch ex As Exception
|
|
Return False
|
|
End Try
|
|
|
|
End If
|
|
_Logger.Info("WMSession has been created! (clsWindreamAllgemein)")
|
|
CURRENToWMSession = oWMSession
|
|
CURRENToWMSession_Created = Now
|
|
Return True
|
|
|
|
Catch ex As Exception
|
|
If Err.Number = -2147220985 Then
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.Init(2147220985): " & ex.Message)
|
|
|
|
Else
|
|
If Not ex.Message.Contains("Already logged in") Then
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.Init(Already logged in): " & ex.Message)
|
|
|
|
Else
|
|
Return True
|
|
End If
|
|
End If
|
|
Return False
|
|
End Try
|
|
|
|
|
|
Else
|
|
If My.Settings.vLogErrorsonly = False Then _Logger.Debug("WMSession already created!")
|
|
oWMSession = CURRENToWMSession
|
|
Return True
|
|
End If
|
|
|
|
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
|
|
''' <summary>
|
|
''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
|
|
''' </summary>
|
|
''' <returns>Alle Objekttypen als WMObjects-Objekt</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetObjecttypesAsObjects() As WMObjects
|
|
Try
|
|
If IsNothing(oObjekttypen) Then
|
|
oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
|
|
End If
|
|
Return Me.oObjekttypen
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
|
|
''' </summary>
|
|
''' <returns>Array mit allen Objekttypen als Strings</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetObjecttypesAsStrings() As String()
|
|
|
|
Try
|
|
Dim objektTypenStr(Me.oObjekttypen.Count) As String
|
|
|
|
For i As Integer = 0 To Me.oObjekttypen.Count
|
|
objektTypenStr(i) = Me.oObjekttypen.Item(i).aName
|
|
Next
|
|
|
|
Return objektTypenStr
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String")
|
|
Return Nothing
|
|
End Try
|
|
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert alle Systemindizes des aktuellen Servers als Array aus Strings.
|
|
''' </summary>
|
|
''' <returns>Array mit allen Systemindizes als Strings</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetSystemIndizesAsStrings() As String()
|
|
|
|
Try
|
|
Dim systemindizesstr(Me.oObjekttypen.Count) As String
|
|
|
|
For i As Integer = 0 To Me.oObjekttypen.Count
|
|
systemindizesstr(i) = Me.oObjekttypen.Item(i).aName
|
|
Next
|
|
Array.Sort(systemindizesstr)
|
|
Return systemindizesstr
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Systemindizes als String")
|
|
Return Nothing
|
|
End Try
|
|
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert alle Ordnertypen des aktuellen Servers als windream-Objekte.
|
|
''' </summary>
|
|
''' <returns>Alle Ordnertypen als WMObjects-Objekt</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetOrdnertypenAsObjects() As WMObjects
|
|
Try
|
|
|
|
Return Me.oOrdnerTypen
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Ordnertypen")
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert alle Ordnertypen des aktuellen Servers als Array aus Strings.
|
|
''' </summary>
|
|
''' <returns>Array mit allen Objekttypen als Strings</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetFolderTypesAsStrings() As String()
|
|
|
|
Try
|
|
Dim OrdnerTypenStr(Me.oOrdnerTypen.Count) As String
|
|
|
|
For i As Integer = 0 To Me.oOrdnerTypen.Count
|
|
OrdnerTypenStr(i) = Me.oOrdnerTypen.Item(i).aName
|
|
Next
|
|
|
|
Return OrdnerTypenStr
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Ordnertypen als String")
|
|
Return Nothing
|
|
End Try
|
|
|
|
End Function
|
|
Public Function GetSystem_Indices()
|
|
Try
|
|
Dim Indices As WMObject
|
|
' den Objekttyp laden
|
|
Indices = Me.oWMSession.GetWMObjectVariableNames(WMAttributeFlagSystem)
|
|
|
|
Dim msg As String
|
|
Dim oSystemIndexes = Indices.GetVariableNames(1, False)
|
|
msg = "System indices (internal column names): " & vbNewLine
|
|
For Each oSystemIndex In oSystemIndexes
|
|
msg = msg & vbNewLine & oSystemIndex
|
|
Next
|
|
MsgBox(msg)
|
|
Catch ex As Exception
|
|
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der System-Indizes:")
|
|
End Try
|
|
End Function
|
|
Public Function GetIndices_for_Objecttype(ByVal name As String)
|
|
Dim oObjectType As WMObject
|
|
' den Objekttyp laden
|
|
oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
|
|
|
|
|
|
Dim msg As String
|
|
Dim oSystemIndexes = oObjectType.GetVariableNames(1, False)
|
|
msg = "System indices (internal column names): " & vbNewLine
|
|
For Each oSystemIndex In oSystemIndexes
|
|
msg = msg & vbNewLine & oSystemIndex
|
|
Next
|
|
MsgBox(msg)
|
|
|
|
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Liefert alle Indexe eines Objekttypen.
|
|
''' </summary>
|
|
''' <param name="name">Name des Objekttyps</param>
|
|
''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetIndicesByObjecttype(ByVal name As String, meldung As Boolean, modul As String) As String()
|
|
Try
|
|
Dim oObjectType As WMObject
|
|
Dim oIndexAttributes As WMObjectRelation
|
|
Dim oIndexAttribute As WMObject
|
|
Dim oIndex As WMObject
|
|
Dim oRelProperties As WMObjectRelationClass
|
|
|
|
' den Objekttyp laden
|
|
oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
|
|
|
|
' Beziehung zu Indizes des Objekttyp auslesen
|
|
oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
|
|
|
|
' Array für Indizes vorbereiten
|
|
Dim aIndexNames(oIndexAttributes.Count - 1) As String
|
|
|
|
' alle Indizes durchlaufen
|
|
For j As Integer = 0 To oIndexAttributes.Count - 1
|
|
|
|
' aktuellen Index auslesen
|
|
oIndexAttribute = oIndexAttributes.Item(j)
|
|
|
|
' Eigenschaften des Index auslesen
|
|
oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
|
|
|
|
' Index aus den Eigenschaften auslesen
|
|
oIndex = oRelProperties.Item(0)
|
|
|
|
' Indexname speichern
|
|
aIndexNames(j) = oIndex.aName
|
|
Next
|
|
|
|
' Indexarray sortiert zurückgeben
|
|
Array.Sort(aIndexNames)
|
|
Return aIndexNames
|
|
|
|
Catch ex As Exception
|
|
If meldung = True Then
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
|
|
Else
|
|
If modul = "NI" Then
|
|
_Logger.Warn("Fehler beim Auslesen der windream-Indexe: " & ex.Message)
|
|
Else
|
|
ClassLoggerDI.Add(">> Fehler beim Auslesen der windream-Indexe: " & ex.Message, False)
|
|
End If
|
|
|
|
End If
|
|
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert alle Indexe eines Ordnertyps.
|
|
''' </summary>
|
|
''' <param name="name">Name des Ordnertyps</param>
|
|
''' <returns>Array mit allen Ordnertypen zugeordneten Indexen als String</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetIndicesByFoldertype(ByVal Ordnertyp As String, ByVal form As Boolean)
|
|
Try
|
|
Dim oOrdnerType As WMObject
|
|
Dim oIndexAttributes As WMObjectRelation
|
|
Dim oIndexAttribute As WMObject
|
|
Dim oIndex As WMObject
|
|
Dim oRelProperties As WMObjectRelationClass
|
|
For Each OrdnerType In Me.oOrdnerTypen
|
|
If OrdnerType.aName = Ordnertyp Then
|
|
oOrdnerType = OrdnerType
|
|
End If
|
|
Next
|
|
|
|
'' den Objekttyp laden
|
|
'oOrdnerType = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityFolder, Ordnertyp)
|
|
|
|
' Beziehung zu Indizes des Objekttyp auslesen
|
|
oIndexAttributes = oOrdnerType.GetWMObjectRelationByName("TypeAttributes")
|
|
|
|
' Array für Indizes vorbereiten
|
|
Dim aIndexNames(oIndexAttributes.Count - 1) As String
|
|
|
|
' alle Indizes durchlaufen
|
|
For j As Integer = 0 To oIndexAttributes.Count - 1
|
|
|
|
' aktuellen Index auslesen
|
|
oIndexAttribute = oIndexAttributes.Item(j)
|
|
|
|
' Eigenschaften des Index auslesen
|
|
oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
|
|
|
|
' Index aus den Eigenschaften auslesen
|
|
oIndex = oRelProperties.Item(0)
|
|
|
|
' Indexname speichern
|
|
aIndexNames(j) = oIndex.aName
|
|
Next
|
|
|
|
' Indexarray zurückgeben
|
|
Return aIndexNames
|
|
|
|
Catch ex As Exception
|
|
If form = True Then
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe zu OrdnerTyp")
|
|
Else
|
|
Return "Fehler beim Auslesen der windream-Indexe zu OrdnerTyp: " & ex.Message
|
|
End If
|
|
End Try
|
|
End Function
|
|
''' <summary>
|
|
''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
|
|
''' </summary>
|
|
''' <param name="objekttypName">Name des Objekttyps</param>
|
|
''' <returns>Objekttyp als WMObject</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetObjecttypeByName(ByVal objekttypName As String, form As Boolean) As WMObject
|
|
Try
|
|
' alle Objekttypen auslesen
|
|
Dim oObjectTypes As WMObjects = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
|
|
|
|
' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
|
|
For Each oObjectType As WMObject In oObjectTypes
|
|
If oObjectType.aName = objekttypName Then
|
|
Return oObjectType
|
|
End If
|
|
Next
|
|
|
|
Return Nothing
|
|
|
|
Catch ex As Exception
|
|
_Logger.Warn("Objekttyp '" & objekttypName & "' konnte nicht ausgelesen werden! - Fehlernachricht:" & vbNewLine & ex.Message)
|
|
If form = True Then
|
|
MsgBox("Objekttyp '" & objekttypName & "' konnte nicht ausgelesen werden!" & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End If
|
|
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Überprüft ob der angegebene Index im Objekttyp existiert
|
|
''' </summary>
|
|
''' <param name="objekttyp">Name des zu durchsuchenden Objekttyps</param>
|
|
''' <param name="indexname">Name des zu suchenden Indexes</param>
|
|
''' <returns>Liefert True wenn der Index im Objekttyp existiert, sonst False</returns>
|
|
''' <remarks></remarks>
|
|
Public Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean
|
|
Try
|
|
Dim indexnamen() As String = Me.GetIndicesByObjecttype(objekttyp, False, "DI")
|
|
|
|
If indexnamen Is Nothing Then Return False
|
|
|
|
For Each index As String In indexnamen
|
|
If index = indexname Then Return True
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
|
|
End Try
|
|
|
|
Return False
|
|
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
|
|
|
|
''' <summary>
|
|
''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
|
|
''' </summary>
|
|
''' <returns>Anmeldestatus als Boolean</returns>
|
|
''' <remarks></remarks>
|
|
Public Function IsLoggedIn() As Boolean
|
|
Try
|
|
Return Me.oWMSession.aLoggedin
|
|
Catch ex As Exception
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message)
|
|
'MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
|
|
End Try
|
|
|
|
Return False
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
|
|
''' </summary>
|
|
''' <returns>Servername als String</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetCurrentServer() As String
|
|
Try
|
|
Dim server = Me.oBrowser.GetCurrentServer
|
|
Return server 'ClassWindream.oBrowser.GetCurrentServer
|
|
Catch ex As Exception
|
|
clsHelper.Add_Application_log("Unexpected error in Windream.GetCurrentServer: " & ex.Message)
|
|
'MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
|
|
End Try
|
|
|
|
Return ""
|
|
End Function
|
|
|
|
'Public Function GetSharedCurrentServer() As String
|
|
' Try
|
|
' Return ClassWindream.oBrowser.GetCurrentServer
|
|
' Catch ex As Exception
|
|
' MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
|
|
' End Try
|
|
|
|
' Return ""
|
|
'End Function
|
|
|
|
|
|
''' <summary>
|
|
''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
|
|
''' </summary>
|
|
''' <returns>Laufwerksbuchstabe mit Doppelpunkt als String</returns>
|
|
''' <remarks></remarks>
|
|
'Public Function GetWindreamDriveLetter() As String
|
|
|
|
' Try
|
|
' Dim oControl As AISCONTROLDATACOMLib.AISControlData
|
|
' Dim sDrive As String = ""
|
|
|
|
' oControl = New AISCONTROLDATACOMLib.AISControlData
|
|
|
|
' sDrive = oControl.GetStringValue(&H10040003)
|
|
|
|
' Return sDrive & ":"
|
|
|
|
' Catch ex As Exception
|
|
' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
|
|
' End Try
|
|
|
|
' Return ""
|
|
'End Function
|
|
|
|
''' <summary>
|
|
''' Liefert den Typen eines Indexes als Integer.
|
|
''' </summary>
|
|
''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
|
|
''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
|
|
''' <remarks></remarks>
|
|
Public Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
|
|
Try
|
|
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
|
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
|
Return vType
|
|
Catch ex As Exception
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
Public Function GetValuesfromAuswahlliste(ByVal indexname As String) As Object
|
|
Try
|
|
'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
|
'Dim vType = oAttribute.getVariableValue("vItems")
|
|
'Return vType
|
|
Dim oChoiceList = oWMSession.GetWMObjectByName(WMEntityChoiceList, indexname)
|
|
If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
|
|
Dim Values = oChoiceList
|
|
Values = oChoiceList.GetVariableValue("vItems")
|
|
Dim anz As Integer = 0
|
|
|
|
For Each CLItem In Values
|
|
If oChoiceList.aName IsNot Nothing Then
|
|
anz += 1
|
|
End If
|
|
Next
|
|
Dim strListe(anz - 1)
|
|
Dim zahl As Integer = 0
|
|
For Each CLItem In Values
|
|
If oChoiceList.aName IsNot Nothing Then
|
|
strListe(zahl) = CLItem
|
|
zahl += 1
|
|
End If
|
|
Next
|
|
Return strListe
|
|
Else
|
|
MsgBox("Auswahlliste: " & indexname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
|
|
Return Nothing
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
|
|
End Class
|