MS

app/DD-Record-Organizer/ClassDOC_SEARCH.vb

@@ -1,5 +1,5 @@
 Imports System.IO
-
+Imports DD_LIB_Standards
 Public Class ClassDOC_SEARCH
     Private Shared DT_RESULTLIST_OPTIONS As DataTable
     Private Shared DT_RESULTLIST_SEL_VALUES As DataTable
@@ -498,4 +498,36 @@ Public Class ClassDOC_SEARCH
             Return False
         End Try
     End Function
+    ''' <summary>
+    ''' Returns a right-type for file.
+    ''' </summary>
+    ''' <param name="DOC_ID">DOC_ID of windream-file</param>
+    ''' <returns>Returns info about filerights</returns>
+    ''' <remarks></remarks>
+    Public Shared Function Get_File_Rights(DOC_ID As Integer)
+        Try
+            Dim sql = String.Format("SELECT dwAccessRight FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwObjectID = {0} and dwUserOrGroupID = {1}", DOC_ID, USERID_FK_INT_ECM)
+            Dim result = clsDatabase.Execute_Scalar(sql, True)
+            If IsNothing(result) Or IsDBNull(result) Then
+                Return Nothing
+            End If
+            Select Case result
+                Case 1
+                    Return "R"
+                Case 3
+                    Return "RW"
+                Case 7
+                    Return "RWA"
+                Case 141
+                    Return "RWA"
+                Case Else
+                    Return "R"
+            End Select
+
+        Catch ex As Exception
+            clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message, True)
+            Return Nothing
+        End Try
+    End Function
+
 End Class