MS

app/DD-Record-Organizer/frmDoc_Links.vb

@@ -9,6 +9,13 @@ Public Class frmDoc_Links
             Else
                 Me.Text = $"Document-Links for file: NODOC-ID"
             End If
+            bbtnitmdeletelink.Enabled = False
+            Select Case CURRENT_FILE_RIGHT
+                Case "RW"
+                    bbtnitmdeletelink.Enabled = True
+                Case "RWA"
+                    bbtnitmdeletelink.Enabled = True
+            End Select
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
         End Try
@@ -52,7 +59,7 @@ Public Class frmDoc_Links
 
     End Sub
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmdeletelink.ItemClick
 
 
         Dim oDocID = grvwGrid.GetRowCellValue(grvwGrid.FocusedRowHandle, "DocID")