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/frmReworkUsers.vb
View File

@@ -49,7 +49,7 @@ Public Class frmReworkUsers
ENTITIES_WORKED = 0
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
@@ -57,7 +57,7 @@ Public Class frmReworkUsers
Dim sql = String.Format("SELECT ENTITY_ID FROM VWPMO_WD_DOC_SEARCH where DocID in (SELECT [dwObjectID] FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {0}) GROUP BY ENTITY_ID", ECM_USER_ID)
Dim DT_ENTITY As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_ENTITY As DataTable = clsDatabase.Return_Datatable(sql)
COUNT_ENTITIES = DT_ENTITY.Rows.Count
If DT_ENTITY.Rows.Count = 0 Then
MsgBox("No files found for User. Job will be terminated!")
@@ -67,7 +67,7 @@ Public Class frmReworkUsers
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)
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()
@@ -127,7 +127,7 @@ Public Class frmReworkUsers
End If
Else
ClassLogger.Add(">> Unexpected Error in ClassRights.File_DeleteAndSetRight. Check Log.")
clsLogger.Add(">> Unexpected Error in ClassRights.File_DeleteAndSetRight. Check Log.")
_error = True
End If
Else
@@ -171,10 +171,10 @@ Public Class frmReworkUsers
End Sub
Private 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