AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-17 16:02:55 +02:00
parent fc9940031f
commit fd0e907262
4 changed files with 23 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/RecordOrganizer_RightManager/frmReworkUsers.vb
View File

@@ -7,6 +7,7 @@ Public Class frmReworkUsers
Private GUID_WORKING As Integer = 0
Private COUNT_ENTITIES As Integer = 0
Private ENTITIES_WORKED As Integer = 0
Private CURR_ENTITY As Integer = 0
Private Sub frmCheckRightsEntity_Load(sender As Object, e As EventArgs) Handles Me.Load
Refresh_Combo()
End Sub
@@ -39,6 +40,7 @@ Public Class frmReworkUsers
Dim DT_ENTITY As DataTable = ClassDatabase.Return_Datatable(sql)
COUNT_ENTITIES = DT_ENTITY.Rows.Count
For Each row As DataRow In DT_ENTITY.Rows
CURR_ENTITY = row.Item("ENTITY_ID")
sql = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH where DocID in (SELECT [dwObjectID] FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {0}) AND ENTITY_ID = {1}", ECM_USER_ID, row.Item("ENTITY_ID"))
DT_FILES = ClassDatabase.Return_Datatable(sql)
If DD_Rights.ClassRights.Init(row.Item("ENTITY_ID"), chklogging.Checked, DT_FILES.Rows.Count) = False Then
@@ -128,8 +130,7 @@ Public Class frmReworkUsers
End If
Else
MsgBox("Some errors occured while checking and setting the rights...please check the log!" & vbNewLine & ">> " & ClassRights.COUNT_FILES.ToString & " files schould be worked." & _
">> " & ClassRights.WORKED_FILES.ToString & " were worked successfully.", MsgBoxStyle.Exclamation)
MsgBox("Some errors occured while checking and setting the rights...please check the log!" & vbNewLine & "Current Entity: " & CURR_ENTITY.ToString, MsgBoxStyle.Exclamation)
End If
Catch ex As Exception