MS0211

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -5221,9 +5221,23 @@ Public Class frmConstructor_Main
 
     End Sub
     Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
-        'Get_Doc_Items()
+        Me.Cursor = Cursors.WaitCursor
+        Dim allow_Open As Boolean = False
         ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-        If RIGHT_WINDREAM_FORBIDDEN = False Then
+        Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
+        If Not IsNothing(Result) Then
+
+            Select Case Result.ToString
+                Case "R"
+                    ContextMenu_Read()
+                    allow_Open = True
+                Case "RW"
+                    allow_Open = True
+                Case "RWA"
+                    allow_Open = True
+            End Select
+        End If
+        If allow_Open = True Then
             If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
                 MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
                 Exit Sub
@@ -5232,6 +5246,7 @@ Public Class frmConstructor_Main
                 ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
             Next
         End If
+        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave