MS

app/DD-Record-Organiser/ClassImport_Windream.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports System.Globalization
+Imports WINDREAMLib
 
 Public Class ClassImport_Windream
     Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer)
@@ -123,6 +124,10 @@ Public Class ClassImport_Windream
     End Function
 
     Public Shared Function Name_Generieren(DocTypeID As Integer)
+        If ClassWindream.Create_Session = False Then
+            Return False
+        End If
+
         Try
             Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
             Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')"
@@ -131,7 +136,6 @@ Public Class ClassImport_Windream
             VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")
 
             Dim err As Boolean = False
-            Dim folder_Created As Boolean = False
             Dim Zielordner As String
             Dim extension As String = Path.GetExtension(CURRENT_FILENAME)
             Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID)
@@ -139,41 +143,60 @@ Public Class ClassImport_Windream
             'sql_history_Index_Values = ""
             Dim AnzahlIndexe As Integer = 1
             _WDOBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP")
-            If folder_Created = False Then
-                ' Den Zielordner erstellen
-                Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
 
-                sql = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID
-                Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql)
-                If Not IsDBNull(Folder_for_index) Then
-                    If Folder_for_index <> String.Empty Then
-                        If CREATE_FOLDER_INDEX(Folder_for_index, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
-                            Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER
-                        Else
-                            MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical)
-                            Return False
-                        End If
+            ' Den Zielordner erstellen
+            Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
+
+            sql = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID
+            Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql)
+            If Not IsDBNull(Folder_for_index) Then
+                If Folder_for_index <> String.Empty Then
+                    If CREATE_FOLDER_INDEX(Folder_for_index, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
+                        Zielordner = Zielordner & "\" & CURRENT_VARIABLE_FOLDER
+                    Else
+                        MsgBox("Unexpected Error in Creating Variable Folder - Check logfile!", MsgBoxStyle.Critical)
+                        Return False
                     End If
                 End If
-
-                'Unterordner ja oder nein
-                If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
-                    Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER
-                End If
-
-                If Directory.Exists(Zielordner) = False Then
-                    'Try to create the directory.
-                    Try
-                        Directory.CreateDirectory(Zielordner)
-                    Catch ex As Exception
-                        ClassLogger.Add(" - Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message)
-                        MsgBox("Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
-                    End Try
-
-                End If
-                folder_Created = True
             End If
+
+            'Unterordner ja oder nein
+            If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
+                Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER
+            End If
+
+            Try
+                Select Case ClassWindream.WD_PATH_EXISTS(Zielordner.Substring(2))
+                    Case False
+                        Dim split() As String = Zielordner.Split("\")
+                        Dim Path_Combined As String = ""
+                        For Each s As String In split
+                            Path_Combined &= s & "\"
+                            If Path_Combined <> "W:\" Then
+                                Try
+                                    Select Case ClassWindream.WD_PATH_EXISTS(Path_Combined.Substring(2))
+                                        Case False
+                                            ClassWindream.oSession.GetNewWMObjectFS(2, Path_Combined.Substring(2), 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
+                                        Case -10
+                                            Return False
+                                    End Select
+                                Catch ex As Exception
+                                    If Not ex.Message.Contains("Filename exists!") Then
+                                        ClassLogger.Add(String.Format(">> Could not create folder-part ({0}): " & ex.Message, Path_Combined.Substring(2)), True)
+                                        Return False
+                                    End If
+                                End Try
+                            End If
+                        Next
+                    Case -10
+                        Return False
+                End Select
+            Catch ex As Exception
+                If Not ex.Message.Contains("Filename exists!") Then
+                    ClassLogger.Add(String.Format(">> Could not create folder ({0}): " & ex.Message, Zielordner.Substring(2)), False)
+                    Return False
+                End If
+            End Try
             '####
             ' Regulären Ausdruck zum Auslesen der Indexe definieren
             Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -409,34 +432,68 @@ Public Class ClassImport_Windream
                 Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "")
                 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
                 _NewFileString = _neuername
-                'Überprüfen ob File existiert
-                If File.Exists(_neuername & extension) = False Then
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False)
+                Const WMCOMEventWMSessionNeedIndex = 1
+                'windream Objekte erstellen ohne Indexierungs-Event
+                ClassWindream.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
 
+                'Überprüfen ob File existiert
+                Dim FILE_EXISTS_IN_WD As Boolean
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
+                FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0)
+                Dim WMObject
+                If FILE_EXISTS_IN_WD = False Then
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
+                    '==================================================================
+                    ' create an object
+                    '==================================================================
+                    Try
+                        WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31)
+                    Catch ex As Exception
+                        ClassLogger.Add("Could not create the windremObject(File) '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True)
+                        Return False
+                    End Try
                 Else
-                    Dim msg As String
-                    msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?"
-                    If USER_LANGUAGE <> "de-DE" Then
-                        msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?"
-                    End If
-                    Dim result As MsgBoxResult
-                    result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    If result = MsgBoxResult.Yes Then
-                        Try
-                            File.Delete(_neuername & extension)
-                        Catch ex As Exception
-                            MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical)
-                            err = True
-                        End Try
-                    Else
-                        Do While File.Exists(_neuername & extension)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False)
-                            version = version + 1
-                            _neuername = Stammname & VERSION_DELIMITER & version
-                            _NewFileString = _neuername
-                        Loop
-                    End If
+                    ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
+
+                    Do While FILE_EXISTS_IN_WD = True
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False)
+                        _neuername = Stammname & VERSION_DELIMITER & version
+                        _NewFileString = _neuername
+                        FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0)
+                        version = version + 1
+                    Loop
+                    Try
+                        WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31)
+                    Catch ex As Exception
+                        ClassLogger.Add("Could not create the windremObject(File) COPY '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True)
+                        Return False
+                    End Try
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject created after versioning", False)
                 End If
+                ClassWindream.STREAM_OBJECT = Nothing
+                ClassWindream.STREAM_OBJECT = WMObject
+                'If File.Exists(_neuername & extension) = False Then
+                '    If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False)
+                'Else
+                '    Dim msg As String
+                '    msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?"
+                '    If USER_LANGUAGE <> "de-DE" Then
+                '        msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?"
+                '    End If
+                '    Dim result As MsgBoxResult
+                '    result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                '    If result = MsgBoxResult.Yes Then
+                '        Try
+                '            File.Delete(_neuername & extension)
+                '        Catch ex As Exception
+                '            MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical)
+                '            err = True
+                '        End Try
+                '    Else
+
+                '    End If
+                'End If
             Catch ex As Exception
                 ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
                 MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")

app/DD-Record-Organiser/ClassWindream.vb

@@ -34,6 +34,18 @@ Public Class ClassWindream
     Const WMObjectVariableValueTypeVector = &H1000
     Const WMObjectVariableValueTypeFulltext = &H2000
     Const WMObjectVariableValueTypeDefaultValue = &H4000
+
+    Const REL_Document_AccessRight = "AccessRight"
+    Const COL_AccessRight_AccessRightID = "dwAccessRightID"
+    Const COL_AccessRight_AccessRight = "dwAccessRight"
+    Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup"
+
+    Const WMAccessRightUndefined = 0
+    Const WMAccessRightRead = 1
+    Const WMAccessRightWrite = 2
+    Const WMAccessRightAdmin = 4
+    Const WMAccessRightAllRights = 7
+
 #End Region
 
 #Region "+++++ Variablen +++++"
@@ -45,8 +57,10 @@ Public Class ClassWindream
     Private Shared oController As New WMOSearchController
     Public Shared _WDObjekttyp As String
     Private Shared aktWMObject As WINDREAMLib.WMObject
+    Public Shared STREAM_OBJECT As WINDREAMLib.WMObject
     Public Shared WD_SERVER
     Public Shared CURRENT_WMObject As WMObject
+    Private Shared dwAccessRight
 #End Region
 
 
@@ -590,102 +604,130 @@ Public Class ClassWindream
         End Try
 
     End Function
-    Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False)
+    Public Shared Function Create_Session()
         Try
-            aktWMObject = Nothing
-            If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then
-                My.Computer.FileSystem.CreateDirectory(zielpfad)
-                ClassLogger.Add(">> Zielverzeichnis neu erzeugt!", False)
-            End If
-
-            Const STREAM_BinaryObject = "BinaryObject"
-
+            Dim Session
+            Dim dmsServer As String
+            Dim wmbrwsr
+            Dim Connect
             If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
-            Dim endgültigerDateiname As String = ""
-            ' Objekt für Datei und Zielverzeichnis anlegen
-            ' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
-
-            If LogErrorsOnly = False Then ClassLogger.Add(" >> Quelldatei gelesen", False)
-
-            '########
-            Dim Zielverzeichnis As String = zielpfad
-            endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2)
-            If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert", False)
-                ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
-                Dim dvr As New DriveInfo(vWLaufwerk & ":")
-                Dim freeSpace = dvr.TotalFreeSpace
-
-                Dim info As New FileInfo(filenameQuelle)
-                ' Get length of the file.
-                Dim length As Long = info.Length
-                If freeSpace < length Then
-                    MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
-                    Return -10
-                End If
-
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
-                Dim Connect
-                Dim Session
-                Dim WMObject
-                Dim aFileIO
-                Dim aWMStream
-                Dim wmbrwsr
-                Dim dmsServer As String
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren:  CreateObject('Windream.WMConnect')", False)
+            wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
+            '==================================================================
+            ' get the current DMS-server to log in
+            '==================================================================
+            dmsServer = wmbrwsr.GetCurrentServer
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren:  CreateObject('Windream.WMConnect')", False)
+            Try
                 Connect = CreateObject("Windream.WMConnect")
-                aFileIO = New WMOTOOLLib.WMFileIO
-                'If My.Settings.DLL_WMOTOOL = "" Then
-                '    aFileIO = New WMOTOOLLib.WMFileIO
-                '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
-                'Else
-                '    aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
-                '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
-                'End If
+            Catch ex As Exception
+                ClassLogger.Add("Error in Create windreamConnect: " & ex.Message, True)
+                Return False
+            End Try
 
-                wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
-                '==================================================================
-                ' get the current DMS-server to log in
-                '==================================================================
-                dmsServer = wmbrwsr.GetCurrentServer
-                '==================================================================
-                ' create a session
-                '==================================================================
-                'Prüfen ob sich personifiziert angemeldet werden muss?
+            '==================================================================
+            ' create a session
+            '==================================================================
+            'Prüfen ob sich personifiziert angemeldet werden muss?
+            Try
                 If FAU_AD_USER <> "" Then
                     Session = GetWMSessionAsUser(FAU_AD_DOMAIN, FAU_AD_SERVER, FAU_AD_USER, FAU_AD_USER_PW)
                 Else
                     Session = CreateObject("Windream.WMSession", dmsServer)
                 End If
-                '==================================================================
-                ' login session
-                '==================================================================
-                Try
-                    Connect.LoginSession(Session)
-                    Dim LoggedIn = Session.aLoggedin
-                    If LoggedIn Then
-                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
-                        'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
-                    Else
-                        ClassLogger.Add(">> Login on dms-Server failed", False)
-                        ' MsgBox("Login failed. ")
-                    End If
-                Catch ex As Exception
-                    ClassLogger.Add(">> Persionalized session -  User is already logged in!'" & Err.Description & "'")
-                End Try
-               
-                Const WMCOMEventWMSessionNeedIndex = 1
+            Catch ex As Exception
+                ClassLogger.Add("Error in Create windream Session: " & ex.Message, True)
+                Return False
+            End Try
 
-                'windream Objekte erstellen ohne Indexierungs-Event
-                Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
-                oSession = Session
-                '==================================================================
-                ' check if files exist
-                '==================================================================
+            '==================================================================
+            ' login session
+            '==================================================================
+            Try
+                Connect.LoginSession(Session)
+                Dim LoggedIn = Session.aLoggedin
+                If LoggedIn Then
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
+                    oSession = Session
+                    Return True
+                    'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
+                Else
+                    ClassLogger.Add(">> Login on dms-Server failed", False)
+                    Return False
+                    ' MsgBox("Login failed. ")
+                End If
+            Catch ex As Exception
+                ClassLogger.Add(">> Persionalized session -  User is already logged in!'" & Err.Description & "'")
+                If Not IsNothing(oSession) Then
+                    Return True
+                End If
+            End Try
+
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Create Session: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False)
+        Try
+            aktWMObject = Nothing
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
+            If IsNothing(oSession) Then
+                If Create_Session() = False Then
+                    Return False
+                End If
+            End If
+
+            Dim sdsd = WMEntityFolder
+           
+
+            Const STREAM_BinaryObject = "BinaryObject"
+
+
+            Dim endgültigerDateiname As String = ""
+            ' Objekt für Datei und Zielverzeichnis anlegen
+            ' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
+
+            '########
+            Dim Zielverzeichnis As String = zielpfad
+            endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2)
+
+            '' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
+            'Dim dvr As New DriveInfo(vWLaufwerk & ":")
+            'Dim freeSpace = dvr.TotalFreeSpace
+
+            'Dim info As New FileInfo(filenameQuelle)
+            '' Get length of the file.
+            Dim length As Long '= info.Length
+            'If freeSpace < length Then
+            '    MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
+            '    Return -10
+            'End If
+
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
+
+            Dim WMObject
+            Dim aFileIO
+            Dim aWMStream
+
+            aFileIO = New WMOTOOLLib.WMFileIO
+            'If My.Settings.DLL_WMOTOOL = "" Then
+            '    aFileIO = New WMOTOOLLib.WMFileIO
+            '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
+            'Else
+            '    aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
+            '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
+            'End If
+
+            '==================================================================
+            ' check if files exist
+            '==================================================================
+            If Not IsNothing(STREAM_OBJECT) Then
+                WMObject = STREAM_OBJECT
+            Else
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False)
                 Dim wdFilexists As Boolean
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
-                wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
+                wdFilexists = oSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
 
                 If wdFilexists = False Then
                     If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
@@ -693,7 +735,7 @@ Public Class ClassWindream
                     '==================================================================
                     ' create an object
                     '==================================================================
-                    WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
+                    WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
                     If Err.Number > 0 Then
                         ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                         'MsgBox(Err.Description)
@@ -704,142 +746,140 @@ Public Class ClassWindream
                     If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
                     Err.Clear()
 
-                    WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
+                    WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
                     If Err.Number > 0 Then
                         ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                         'MsgBox(Err.Description)
                     End If
                     If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False)
                 End If
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
-                If WMObject IsNot Nothing Then
-                    ' lock object for file system access (to change the file itself)
-                    WMObject.lock()
-                    ' set fileIO the local source file
-                    aFileIO.bstrOriginalFileName = filenameQuelle
-                    If Err.Number > 0 Then
-                        'MsgBox(Err.Number.ToString)
-                        ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        ' MsgBox(Err.Description)
-                    End If
-                    ' open the windream object's file stream for writing
-                    aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        'MsgBox(Err.Description)
-                    End If
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False)
-                    ' give fileIO helper object the windream stream
-                    aFileIO.aWMStream = aWMStream
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        'MsgBox(Err.Description)
-                    End If
-                    ' let fileIO object import the original file into windream
-                    aFileIO.ImportOriginal(True)
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        ' MsgBox(Err.Description)
-                    End If
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False)
-                    ' close the windream file stream
-                    aWMStream.Close()
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        'MsgBox(Err.Description)
-                    End If
-                    ' save new windream object
-                    WMObject.save()
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return Err.Number
-                        'MsgBox(Err.Description)
-                    End If
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False)
-                    ' unlock the windream object
-                    WMObject.unlock()
-                    If Err.Number > 0 Then
-                        ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
-                        WMObject.Unlock()
-                        System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                        Return False
-                        'MsgBox(Err.Description)
-                    End If
-                    'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
-                    Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname)
-                    Dim length1 As Long = info2.Length
-                    If length1 > 0 And Err.Number = 0 Then
-                        If endgültigerDateiname.StartsWith("\") Then
-                            If endgültigerDateiname.StartsWith("\\") Then
-                                endgültigerDateiname = endgültigerDateiname.Replace("\\", "\")
-                            Else
-                                endgültigerDateiname = endgültigerDateiname
-                            End If
-                        Else
-                            endgültigerDateiname = "\" & endgültigerDateiname
-                        End If
-                        CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
-                        CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\")
-                        ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
-
-
-                        aktWMObject = WMObject
-                        Return True
-                    Else
-                        If length = 0 Then
-                            If ImportAll = False Then
-                                System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
-                                ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted")
-                                Return False
-                            Else
-                                If endgültigerDateiname.StartsWith("\") Then
-                                    If endgültigerDateiname.StartsWith("\\") Then
-                                        endgültigerDateiname = endgültigerDateiname.Replace("\\", "\")
-                                    Else
-                                        endgültigerDateiname = endgültigerDateiname
-                                    End If
-                                Else
-                                    endgültigerDateiname = "\" & endgültigerDateiname
-                                End If
-                                ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported")
-                                CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
-                                CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\")
-
-                                '###
-                                ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
-                                aktWMObject = WMObject
-                                Return True
-                            End If
-
-                        Else
-                            ClassLogger.Add("Error in Stream File - Error <> 0")
-                            Return False
-                        End If
-
-                    End If
-                Else
+            End If
+           
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
+            If WMObject IsNot Nothing Then
+                ' lock object for file system access (to change the file itself)
+                WMObject.lock()
+                ' set fileIO the local source file
+                aFileIO.bstrOriginalFileName = filenameQuelle
+                If Err.Number > 0 Then
+                    'MsgBox(Err.Number.ToString)
+                    ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
                     Return False
+                    ' MsgBox(Err.Description)
+                End If
+                ' open the windream object's file stream for writing
+                aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return False
+                    'MsgBox(Err.Description)
+                End If
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False)
+                ' give fileIO helper object the windream stream
+                aFileIO.aWMStream = aWMStream
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return False
+                    'MsgBox(Err.Description)
+                End If
+                ' let fileIO object import the original file into windream
+                aFileIO.ImportOriginal(True)
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return False
+                    ' MsgBox(Err.Description)
+                End If
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False)
+                ' close the windream file stream
+                aWMStream.Close()
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return False
+                    'MsgBox(Err.Description)
+                End If
+                ' save new windream object
+                WMObject.save()
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return Err.Number
+                    'MsgBox(Err.Description)
+                End If
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False)
+                ' unlock the windream object
+                WMObject.unlock()
+                If Err.Number > 0 Then
+                    ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                    WMObject.Unlock()
+                    System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                    Return False
+                    'MsgBox(Err.Description)
+                End If
+                'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
+                Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname)
+                Dim length1 As Long = info2.Length
+                If length1 > 0 And Err.Number = 0 Then
+                    If endgültigerDateiname.StartsWith("\") Then
+                        If endgültigerDateiname.StartsWith("\\") Then
+                            endgültigerDateiname = endgültigerDateiname.Replace("\\", "\")
+                        Else
+                            endgültigerDateiname = endgültigerDateiname
+                        End If
+                    Else
+                        endgültigerDateiname = "\" & endgültigerDateiname
+                    End If
+                    CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
+                    CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\")
+                    ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
+
+
+                    aktWMObject = WMObject
+                    Return True
+                Else
+                    If length = 0 Then
+                        If ImportAll = False Then
+                            System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+                            ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted")
+                            Return False
+                        Else
+                            If endgültigerDateiname.StartsWith("\") Then
+                                If endgültigerDateiname.StartsWith("\\") Then
+                                    endgültigerDateiname = endgültigerDateiname.Replace("\\", "\")
+                                Else
+                                    endgültigerDateiname = endgültigerDateiname
+                                End If
+                            Else
+                                endgültigerDateiname = "\" & endgültigerDateiname
+                            End If
+                            ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported")
+                            CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
+                            CURRENT_FILEIN_WD = CURRENT_FILEIN_WD.Replace("\\", "\")
+
+                            '###
+                            ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
+                            aktWMObject = WMObject
+                            Return True
+                        End If
+
+                    Else
+                        ClassLogger.Add("Error in Stream File - Error <> 0")
+                        Return False
+                    End If
+
                 End If
             Else
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert NICHT", False)
                 Return False
             End If
         Catch ex As Exception
@@ -848,6 +888,15 @@ Public Class ClassWindream
         End Try
 
 
+    End Function
+    Public Shared Function WD_PATH_EXISTS(substring_path As String)
+        Try
+            Dim folder_exists = oSession.WMObjectExists(WMEntityFolder, substring_path, 0, 0)
+            Return folder_exists
+        Catch ex As Exception
+            ClassLogger.Add(String.Format("Unexpected error in WD_PATH_EXISTS ({0}): {1} ", substring_path, ex.Message), True)
+            Return -10
+        End Try
     End Function
     Public Shared Function Delete_WDFile(ByVal WD_File As String)
         Try
@@ -2092,4 +2141,42 @@ Public Class ClassWindream
         End Try
 
     End Function
+    Public Shared Function Get_File_Rights(filepath As String)
+        Try
+            If IsNothing(oSession) Then
+                If Init() = False Then
+                    MsgBox("Error in Init windream - check the log for further information!", MsgBoxStyle.Exclamation)
+                    Return Nothing
+                End If
+            End If
+
+            Dim oWMObject As WINDREAMLib.WMObject
+            oWMObject = oSession.GetWMObjectByPath(WMEntityDocumentAndMap, filepath.Substring(2))
+            Dim AccessRightsObject
+            AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
+            Dim _msg As String
+            For Each aRightRelation In AccessRightsObject
+                dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) 'COL_AccessRight_AccessRight)
+                Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
+                Dim UserOrGroup = UserGroupRelation.item(0).aName
+                If UserOrGroup.ToString.ToLower.Contains(Environment.UserName.ToLower) Then
+                    If dwAccessRight And WMAccessRightRead Then
+                        _msg = "R"
+                    End If
+                    If dwAccessRight And WMAccessRightWrite Then
+                        _msg = _msg & "W"
+                    End If
+                    If dwAccessRight And WMAccessRightAdmin Then
+                        _msg = _msg & "A"
+                    End If
+                End If
+               
+            Next
+            Return _msg
+
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
+            Return Nothing
+        End Try
+    End Function
 End Class

app/DD-Record-Organiser/frmConstructor_Main.Designer.vb

@@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
-        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
         Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
         Me.TreeViewMain = New System.Windows.Forms.TreeView()
@@ -69,25 +69,26 @@ Partial Class frmConstructor_Main
         Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
         Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
         Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
-        Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_Copy = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
-        Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_Rename = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsTextBoxRenameFile = New System.Windows.Forms.ToolStripTextBox()
-        Me.TSMIDisplayname = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_RenameDisplay = New System.Windows.Forms.ToolStripMenuItem()
         Me.tstbDisplayname = New System.Windows.Forms.ToolStripTextBox()
-        Me.TSMI_inWork = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
-        Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_InWork = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_CheckRights = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripMI_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TsMI_DocRemoveLink = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_RemoveLink = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
-        Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_ResetView = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_showGridSearch = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
-        Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.SucheAnzeigenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_PropertiesFile = New System.Windows.Forms.ToolStripMenuItem()
+        Me.docCM_GetRights = New System.Windows.Forms.ToolStripMenuItem()
         Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
         Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
@@ -311,12 +312,12 @@ Partial Class frmConstructor_Main
         Me.GridControlMain.AllowDrop = True
         Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
         resources.ApplyResources(Me.GridControlMain, "GridControlMain")
-        GridLevelNode1.LevelTemplate = Me.grvwGrid
-        GridLevelNode1.RelationName = "Level1"
-        GridLevelNode2.LevelTemplate = Me.grvwCarousel
-        GridLevelNode2.RelationName = "Level2"
-        GridLevelNode3.RelationName = "Level3"
-        Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
+        GridLevelNode4.LevelTemplate = Me.grvwGrid
+        GridLevelNode4.RelationName = "Level1"
+        GridLevelNode5.LevelTemplate = Me.grvwCarousel
+        GridLevelNode5.RelationName = "Level2"
+        GridLevelNode6.RelationName = "Level3"
+        Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
         Me.GridControlMain.MainView = Me.grvwTiles
         Me.GridControlMain.Name = "GridControlMain"
         Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
@@ -517,36 +518,36 @@ Partial Class frmConstructor_Main
         '
         'ContextMenuStripResultFiles
         '
-        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.ToolStripMI_DeleteFile, Me.TsMI_DocRemoveLink, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.ToolStripSeparator16, Me.AnsichtZurücksetzenToolStripMenuItem, Me.SucheAnzeigenToolStripMenuItem1})
+        Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.ToolStripSeparator7, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCM_Rename, Me.docCM_RenameDisplay, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_CheckRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_ResetView, Me.docCM_showGridSearch, Me.docCM_GetRights, Me.ToolStripSeparator16, Me.docCM_PropertiesFile})
         Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
         resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
         '
-        'DateiÖffnenToolStripMenuItem
+        'docCM_Open
         '
-        Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
-        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
+        Me.docCM_Open.Name = "docCM_Open"
+        resources.ApplyResources(Me.docCM_Open, "docCM_Open")
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
         resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
         '
-        'CopyToolStripMenuItem
+        'docCM_Copy
         '
-        Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
-        Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
-        resources.ApplyResources(Me.CopyToolStripMenuItem, "CopyToolStripMenuItem")
+        Me.docCM_Copy.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
+        Me.docCM_Copy.Name = "docCM_Copy"
+        resources.ApplyResources(Me.docCM_Copy, "docCM_Copy")
         '
         'ToolStripSeparator10
         '
         Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
         resources.ApplyResources(Me.ToolStripSeparator10, "ToolStripSeparator10")
         '
-        'UmbenennenToolStripMenuItem
+        'docCM_Rename
         '
-        Me.UmbenennenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile})
-        Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
-        resources.ApplyResources(Me.UmbenennenToolStripMenuItem, "UmbenennenToolStripMenuItem")
+        Me.docCM_Rename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile})
+        Me.docCM_Rename.Name = "docCM_Rename"
+        resources.ApplyResources(Me.docCM_Rename, "docCM_Rename")
         '
         'tsTextBoxRenameFile
         '
@@ -555,11 +556,11 @@ Partial Class frmConstructor_Main
         Me.tsTextBoxRenameFile.Name = "tsTextBoxRenameFile"
         resources.ApplyResources(Me.tsTextBoxRenameFile, "tsTextBoxRenameFile")
         '
-        'TSMIDisplayname
+        'docCM_RenameDisplay
         '
-        Me.TSMIDisplayname.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname})
-        Me.TSMIDisplayname.Name = "TSMIDisplayname"
-        resources.ApplyResources(Me.TSMIDisplayname, "TSMIDisplayname")
+        Me.docCM_RenameDisplay.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname})
+        Me.docCM_RenameDisplay.Name = "docCM_RenameDisplay"
+        resources.ApplyResources(Me.docCM_RenameDisplay, "docCM_RenameDisplay")
         '
         'tstbDisplayname
         '
@@ -568,66 +569,71 @@ Partial Class frmConstructor_Main
         Me.tstbDisplayname.Name = "tstbDisplayname"
         resources.ApplyResources(Me.tstbDisplayname, "tstbDisplayname")
         '
-        'TSMI_inWork
+        'docCM_InWork
         '
-        Me.TSMI_inWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852
-        Me.TSMI_inWork.Name = "TSMI_inWork"
-        resources.ApplyResources(Me.TSMI_inWork, "TSMI_inWork")
+        Me.docCM_InWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852
+        Me.docCM_InWork.Name = "docCM_InWork"
+        resources.ApplyResources(Me.docCM_InWork, "docCM_InWork")
         '
-        'TSMI_linkRecord
+        'docCM_linkRecord
         '
-        Me.TSMI_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link
-        Me.TSMI_linkRecord.Name = "TSMI_linkRecord"
-        resources.ApplyResources(Me.TSMI_linkRecord, "TSMI_linkRecord")
+        Me.docCM_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link
+        Me.docCM_linkRecord.Name = "docCM_linkRecord"
+        resources.ApplyResources(Me.docCM_linkRecord, "docCM_linkRecord")
         '
-        'tsmiRights
+        'docCM_CheckRights
         '
-        Me.tsmiRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly
-        Me.tsmiRights.Name = "tsmiRights"
-        resources.ApplyResources(Me.tsmiRights, "tsmiRights")
+        Me.docCM_CheckRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly
+        Me.docCM_CheckRights.Name = "docCM_CheckRights"
+        resources.ApplyResources(Me.docCM_CheckRights, "docCM_CheckRights")
         '
         'ToolStripSeparator8
         '
         Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
         resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
         '
-        'ToolStripMI_DeleteFile
+        'docCM_DeleteFile
         '
-        Me.ToolStripMI_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
-        Me.ToolStripMI_DeleteFile.Name = "ToolStripMI_DeleteFile"
-        resources.ApplyResources(Me.ToolStripMI_DeleteFile, "ToolStripMI_DeleteFile")
+        Me.docCM_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
+        Me.docCM_DeleteFile.Name = "docCM_DeleteFile"
+        resources.ApplyResources(Me.docCM_DeleteFile, "docCM_DeleteFile")
         '
-        'TsMI_DocRemoveLink
+        'docCM_RemoveLink
         '
-        Me.TsMI_DocRemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
-        Me.TsMI_DocRemoveLink.Name = "TsMI_DocRemoveLink"
-        resources.ApplyResources(Me.TsMI_DocRemoveLink, "TsMI_DocRemoveLink")
+        Me.docCM_RemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
+        Me.docCM_RemoveLink.Name = "docCM_RemoveLink"
+        resources.ApplyResources(Me.docCM_RemoveLink, "docCM_RemoveLink")
         '
         'ToolStripSeparator9
         '
         Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
         resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
         '
-        'PropertiesToolStripMenuItem
+        'docCM_ResetView
         '
-        Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
-        Me.PropertiesToolStripMenuItem.Name = "PropertiesToolStripMenuItem"
-        resources.ApplyResources(Me.PropertiesToolStripMenuItem, "PropertiesToolStripMenuItem")
+        Me.docCM_ResetView.Name = "docCM_ResetView"
+        resources.ApplyResources(Me.docCM_ResetView, "docCM_ResetView")
+        '
+        'docCM_showGridSearch
+        '
+        Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
+        resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch")
         '
         'ToolStripSeparator16
         '
         Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
         resources.ApplyResources(Me.ToolStripSeparator16, "ToolStripSeparator16")
         '
-        'AnsichtZurücksetzenToolStripMenuItem
+        'docCM_PropertiesFile
         '
-        Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem"
-        resources.ApplyResources(Me.AnsichtZurücksetzenToolStripMenuItem, "AnsichtZurücksetzenToolStripMenuItem")
+        Me.docCM_PropertiesFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
+        Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile"
+        resources.ApplyResources(Me.docCM_PropertiesFile, "docCM_PropertiesFile")
         '
-        'SucheAnzeigenToolStripMenuItem1
+        'docCM_GetRights
         '
-        Me.SucheAnzeigenToolStripMenuItem1.Name = "SucheAnzeigenToolStripMenuItem1"
-        resources.ApplyResources(Me.SucheAnzeigenToolStripMenuItem1, "SucheAnzeigenToolStripMenuItem1")
+        Me.docCM_GetRights.Name = "docCM_GetRights"
+        resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights")
         '
         'GridViewDoc_Search
         '
@@ -1393,13 +1399,13 @@ Partial Class frmConstructor_Main
     Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_Open As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_Copy As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents TsMI_DocRemoveLink As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_RemoveLink As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_PropertiesFile As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel
     Friend WithEvents tsButtonCancel As System.Windows.Forms.ToolStripButton
     Friend WithEvents tsbtnRedo As System.Windows.Forms.ToolStripButton
@@ -1407,21 +1413,21 @@ Partial Class frmConstructor_Main
     Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents MassenänderungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents UmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_Rename As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tsTextBoxRenameFile As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents TSMI_linkRecord As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_linkRecord As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents SplitContainer1 As DevExpress.XtraEditors.SplitContainerControl
     Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents DetailAnsichtDatensatzToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents EntitätssucheStartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents TSMI_inWork As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents TSMIDisplayname As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_InWork As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_ResetView As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_RenameDisplay As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tstbDisplayname As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_CheckRights As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar
     Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ToolStripMI_DeleteFile As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_DeleteFile As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tsstlblDocID As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents AuswertungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator14 As System.Windows.Forms.ToolStripSeparator
@@ -1429,10 +1435,11 @@ Partial Class frmConstructor_Main
     Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents ToolStripSeparator16 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents SucheAnzeigenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents docCM_showGridSearch As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
     Friend WithEvents tsTextboxFulltext As System.Windows.Forms.ToolStripTextBox
     Friend WithEvents tsbtnEntitySearch As System.Windows.Forms.ToolStripButton
     Friend WithEvents ToolStripSeparator18 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents docCM_GetRights As System.Windows.Forms.ToolStripMenuItem
 End Class

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -999,13 +999,13 @@ Public Class frmConstructor_Main
             RIGHT_WINDREAM_FORBIDDEN = False
             tsmi_RecordDelete.Enabled = True
             MassenänderungToolStripMenuItem.Enabled = True
-            TsMI_DocRemoveLink.Enabled = True
-            UmbenennenToolStripMenuItem.Enabled = True
-            TSMI_linkRecord.Enabled = True
-            TSMI_inWork.Enabled = True
-            CopyToolStripMenuItem.Enabled = True
+            docCM_RemoveLink.Enabled = True
+            docCM_Rename.Enabled = True
+            docCM_linkRecord.Enabled = True
+            docCM_InWork.Enabled = True
+            docCM_Copy.Enabled = True
             RecordKopierenToolStripMenuItem.Enabled = True
-            PropertiesToolStripMenuItem.Enabled = True
+            docCM_PropertiesFile.Enabled = True
             tslblLocked.Visible = False
             tslblFileslocked.Visible = False
             TabFollowUp.PageEnabled = True
@@ -1013,8 +1013,8 @@ Public Class frmConstructor_Main
             TabWindream.PageEnabled = True
             WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
             EntitätssucheStartenToolStripMenuItem.Enabled = True
-            DateiÖffnenToolStripMenuItem.Enabled = True
-            TSMI_inWork.Enabled = True
+            docCM_Open.Enabled = True
+            docCM_InWork.Enabled = True
 
             VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
             Dim tempsql
@@ -1058,12 +1058,12 @@ Public Class frmConstructor_Main
                         tsButtonDelete.Enabled = False
                         tsmi_RecordDelete.Enabled = False
                         MassenänderungToolStripMenuItem.Enabled = False
-                        UmbenennenToolStripMenuItem.Enabled = False
-                        TSMI_linkRecord.Enabled = False
-                        TSMI_inWork.Enabled = False
-                        PropertiesToolStripMenuItem.Enabled = False
-                        CopyToolStripMenuItem.Enabled = False
-                        TsMI_DocRemoveLink.Enabled = False
+                        docCM_Rename.Enabled = False
+                        docCM_linkRecord.Enabled = False
+                        docCM_InWork.Enabled = False
+                        docCM_PropertiesFile.Enabled = False
+                        docCM_Copy.Enabled = False
+                        docCM_RemoveLink.Enabled = False
                         tslblLocked.Visible = True
                         RecordKopierenToolStripMenuItem.Enabled = False
                         TabFollowUp.PageEnabled = False
@@ -1115,8 +1115,8 @@ Public Class frmConstructor_Main
                         'TabWindream.PageEnabled = False
                         WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
                         EntitätssucheStartenToolStripMenuItem.Enabled = False
-                        DateiÖffnenToolStripMenuItem.Enabled = False
-                        TSMI_inWork.Enabled = False
+                        docCM_Open.Enabled = False
+                        docCM_InWork.Enabled = False
                     End If
 
                 Catch ex As Exception
@@ -3560,7 +3560,7 @@ Public Class frmConstructor_Main
         End Try
 
     End Sub
-  
+
     Private Sub WD_DELETE_DOCS()
         Dim sw As New Stopwatch
         sw.Start()
@@ -4911,7 +4911,7 @@ Public Class frmConstructor_Main
         Catch ex As Exception
             ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False)
         End Try
-        
+
     End Sub
     Private Sub grvwGrid_MouseMove(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseMove, grvwTiles.MouseMove, grvwCarousel.MouseMove
         Dim view As BaseView = CType(sender, BaseView)
@@ -5100,7 +5100,7 @@ Public Class frmConstructor_Main
         Delete_Record()
     End Sub
 
-    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
+    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
         If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
             Try
                 Dim selectedfile(0) As String
@@ -5139,7 +5139,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
-    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TsMI_DocRemoveLink.Click
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_RemoveLink.Click
         If RECORD_ID = 0 Then
             MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
             Exit Sub
@@ -5185,7 +5185,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
-    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
+    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_PropertiesFile.Click
         If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
             MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
             Exit Sub
@@ -5209,7 +5209,7 @@ Public Class frmConstructor_Main
 
     End Sub
 
-    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
+    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click
         If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
             MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
             Exit Sub
@@ -5511,11 +5511,11 @@ Public Class frmConstructor_Main
             End Try
         End If
     End Sub
-    Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
+    Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Rename.Click
         Display_Filename()
     End Sub
 
-    Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover
+    Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles docCM_Rename.MouseHover
         Display_Filename()
     End Sub
     Sub Display_Filename()
@@ -5544,7 +5544,7 @@ Public Class frmConstructor_Main
         End Try
     End Sub
 
-    Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click
+    Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
         Try
             ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
             If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@@ -5640,24 +5640,56 @@ Public Class frmConstructor_Main
 
         End If
     End Sub
-
+    Sub ContextMenu_Read()
+        docCM_Open.Enabled = True
+        docCM_Copy.Enabled = False
+        docCM_Rename.Enabled = False
+        docCM_RenameDisplay.Enabled = False
+        docCM_InWork.Enabled = False
+        docCM_linkRecord.Enabled = False
+        docCM_CheckRights.Enabled = False
+        docCM_DeleteFile.Enabled = False
+        docCM_RemoveLink.Enabled = False
+    End Sub
+    Sub ContextMenu_Write()
+        docCM_Open.Enabled = True
+        docCM_Copy.Enabled = True
+        docCM_Rename.Enabled = True
+        docCM_RenameDisplay.Enabled = True
+        docCM_InWork.Enabled = True
+        docCM_linkRecord.Enabled = True
+        docCM_CheckRights.Enabled = True
+        docCM_DeleteFile.Enabled = True
+        docCM_RemoveLink.Enabled = True
+    End Sub
     Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
         File_in_Work()
+        Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
+        If Not IsNothing(Result) Then
+            Select Case Result.ToString
+                Case "R"
+                    ContextMenu_Read()
+                Case "RW"
+                    ContextMenu_Write()
+                Case "RWA"
+                    ContextMenu_Write()
+            End Select
+        End If
         If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
             If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
-                TSMIDisplayname.Visible = True
+                docCM_RenameDisplay.Visible = True
                 Set_Displayname()
             Else
-                TSMIDisplayname.Visible = False
+                docCM_RenameDisplay.Visible = False
             End If
         Else
-            TSMIDisplayname.Visible = False
+            docCM_RenameDisplay.Visible = False
         End If
 
 
     End Sub
     Sub File_in_Work()
-        TSMI_inWork.Enabled = True
+        docCM_InWork.Enabled = True
         Try
             Dim expression As String
             expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID
@@ -5694,13 +5726,13 @@ Public Class frmConstructor_Main
                     displ = "Lock file for working"
                 End If
             End If
-            TSMI_inWork.Text = displ
+            docCM_InWork.Text = displ
         Catch ex As Exception
             ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
-            TSMI_inWork.Enabled = False
+            docCM_InWork.Enabled = False
         End Try
     End Sub
-    Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles TSMI_inWork.Click
+    Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click
         If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
             MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
             Exit Sub
@@ -5725,7 +5757,7 @@ Public Class frmConstructor_Main
             RUN_WDSEARCH_GRID("RECORD")
         End If
     End Sub
-    Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtZurücksetzenToolStripMenuItem.Click
+    Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_ResetView.Click
         ' TODO: Ansicht zurücksetzen
         Try
             Dim XMLPath = Get_DocGrid_Layout_Filename()
@@ -5745,10 +5777,10 @@ Public Class frmConstructor_Main
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles TSMIDisplayname.Click
+    Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.Click
         Set_Displayname()
     End Sub
-    Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles TSMIDisplayname.MouseHover
+    Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.MouseHover
         Set_Displayname()
     End Sub
     Sub Set_Displayname()
@@ -5784,7 +5816,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
 
-    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
+    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click
         Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
         CURRENT_RECORD_ID = RECORD_ID
         If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@@ -5838,7 +5870,7 @@ Public Class frmConstructor_Main
 
     End Sub
 
-    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMI_DeleteFile.Click
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_DeleteFile.Click
         If RECORD_ID = 0 And SEARCH_TYPE <> "ENTITY" Then
             MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
             Exit Sub
@@ -5896,14 +5928,14 @@ Public Class frmConstructor_Main
                         MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                     End Try
 
-                    End If
+                End If
             Next
             If SEARCH_TYPE = "ENTITY" Then
                 CURRENT_DT_DOC_ENTITY_SEARCH = Nothing
             End If
             RUN_WDSEARCH_GRID(SEARCH_TYPE)
         End If
-        
+
 
 
     End Sub
@@ -5992,7 +6024,7 @@ Public Class frmConstructor_Main
         frm.Show()
     End Sub
 
-    Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem1.Click
+    Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_showGridSearch.Click
         GridViewDoc_Search.ShowFindPanel()
     End Sub
 
@@ -6022,4 +6054,19 @@ Public Class frmConstructor_Main
     Private Sub tsbtnEntitySearch_Click(sender As Object, e As EventArgs) Handles tsbtnEntitySearch.Click
         RUN_WDSEARCH_GRID("ENTITY")
     End Sub
+
+    Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
+        Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
+        If Not IsNothing(result) Then
+            Dim msg = "Das aktuelle Recht für Sie ist: " & vbNewLine & vbNewLine
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Your current right is: " & vbNewLine & vbNewLine & vbNewLine
+            End If
+            msg = msg & result.ToString
+            msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin"
+            MsgBox(msg, MsgBoxStyle.Information)
+        Else
+            MsgBox("Could not read the rights for selected file! Check the log for further infomation!", MsgBoxStyle.Exclamation)
+        End If
+    End Sub
 End Class