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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-24 15:08:44 +02:00
parent 8cac2cf09e
commit dc020c2c2e
7 changed files with 72 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/RecordOrganizer_RightManager/frmSupervisorEntity.vb
View File

@@ -55,7 +55,7 @@ Public Class frmSupervisorEntity
CURR_ENTITY = foundRowsLevel0(i)("ENTITY_ID")
Next
Try
ECM_USER_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT USERID_FK_INT_ECM FROM TBDD_USER WHERE GUID = (SELECT USER_ID FROM TBPMO_USER_RIGHTS_JOBS WHERE GUID = {0} )", cmbUser.SelectedValue))
ECM_USER_ID = clsDatabase.Execute_Scalar(String.Format("SELECT USERID_FK_INT_ECM FROM TBDD_USER WHERE GUID = (SELECT USER_ID FROM TBPMO_USER_RIGHTS_JOBS WHERE GUID = {0} )", cmbUser.SelectedValue))
Catch ex As Exception
MsgBox("No User ECM-ID found for selected User. Please inform Digital Data.", MsgBoxStyle.Exclamation)
Exit Sub
@@ -72,7 +72,7 @@ Public Class frmSupervisorEntity
Dim 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, CURR_ENTITY)
DT_FILES = ClassDatabase.Return_Datatable(sql)
DT_FILES = clsDatabase.Return_Datatable(sql)
If DT_FILES.Rows.Count = 0 Then
MsgBox("No files found for User. Job will be terminated!")
Finish_Job()
@@ -133,7 +133,7 @@ Public Class frmSupervisorEntity
Else
If DD_Rights.ClassRights.Collect_MainUsers(row.Item("ENTITY_ID"), USER_ID, row.Item("RECORD_ID")) Then
If ClassRights.DT_USER_RIGHTS.Rows.Count > 0 Then
ClassLogger.Add(">> User owns rights for File/Record - right will be set!", False)
clsLogger.Add(">> User owns rights for File/Record - right will be set!", False)
If ClassRights.File_DeleteAndSetRight(row.Item("DocID"), row.Item("FULL_FILENAME"), False) Then
End If
@@ -142,7 +142,7 @@ Public Class frmSupervisorEntity
End If
End If
Else
ClassLogger.Add(">> Unexpected Error in ClassRights.File_DeleteRemoveRight. Check Log.")
clsLogger.Add(">> Unexpected Error in ClassRights.File_DeleteRemoveRight. Check Log.")
_error = True
End If
Case "SUPERVISOR ADDED"
@@ -183,10 +183,10 @@ Public Class frmSupervisorEntity
End Sub
Sub Finish_Job()
Dim upd = String.Format("UPDATE TBPMO_USER_RIGHTS_JOBS SET WORKED = 1, CHANGED_WHO = 'JOB-RIGHTS FINISHER' WHERE GUID = {0}", GUID_WORKING)
If ClassDatabase.Execute_non_Query(upd) = True Then
If clsDatabase.Execute_non_Query(upd) = True Then
'Überprüfen ob es User gibt die aktualisiert werden müssen
Dim Sql = SQL_USER_RIGHTS_CHANGED
DT_WORK_USER_RIGHTS = ClassDatabase.Return_Datatable(Sql)
DT_WORK_USER_RIGHTS = clsDatabase.Return_Datatable(Sql)
Refresh_Combo()
End If
End Sub