MS Setup
This commit is contained in:
@@ -577,7 +577,7 @@ Public Class ClassDOC_SEARCH
|
||||
If IsNothing(result) Or IsDBNull(result) Then
|
||||
Return Nothing
|
||||
End If
|
||||
LOGGER.Debug($"dwAccesRight for DocID [{DOC_ID}] is {result}")
|
||||
LOGGER.Debug($"dwAccesRight for DocID [{DOC_ID}] is [{result}]")
|
||||
Select Case result
|
||||
Case 1
|
||||
If USER_IS_ADMIN = False Then
|
||||
@@ -593,6 +593,10 @@ Public Class ClassDOC_SEARCH
|
||||
Return "RWA"
|
||||
Case 141
|
||||
Return "RWA"
|
||||
Case 263
|
||||
Return "RWA"
|
||||
Case WM_RWA
|
||||
Return "RWA"
|
||||
Case Else
|
||||
Return "R"
|
||||
End Select
|
||||
|
||||
Reference in New Issue
Block a user