This commit is contained in:
2024-05-31 13:42:49 +02:00
parent 1309d61910
commit 2039b614c1
11 changed files with 235 additions and 155 deletions

View File

@@ -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