MS
This commit is contained in:
@@ -268,8 +268,8 @@ Public Class ClassDOC_SEARCH
|
||||
End Function
|
||||
Public Shared Function SET_WD_RIGHTS(ByVal RESULT_DOCID, ByVal RESULT_DOC_PATH, ByVal ENTITY_ID)
|
||||
Try
|
||||
DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
|
||||
If DD_Rights.ClassDatabase.Init(MyConnectionString) = True Then
|
||||
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
|
||||
If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
|
||||
If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
|
||||
If DD_Rights.ClassRights.Collect_Users(RECORD_ID, ENTITY_ID) = True Then
|
||||
If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
|
||||
Reference in New Issue
Block a user