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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/RecordOrganizer_RightManager/frmUsersReworkRights.vb
View File

@@ -91,16 +91,24 @@ Public Class frmUsersReworkRights
For Each row As DataRow In MyDataset.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
' ProgressPanel1.Description = "Collecting rights for user: " & row.Item("USERNAME")
Dim proc = String.Format("EXEC PRPMO_RIGHTS_SERVICE_CHECK_USER {0}, '{1}'", row.Item(5), Environment.UserName)
If ClassDatabase.Execute_non_Query(proc) = False Then
MsgBox("Unexpected Error in Executing rightprocedure - Check the log!", MsgBoxStyle.Critical)
_error = True
BW_RightsEntity.ReportProgress(+1)
Exit For
Else
Dim del = String.Format("DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE USER_ID = {0}", row.Item(5))
ClassDatabase.Execute_non_Query(del)
Dim sql = String.Format("DECLARE @return_value int " & vbNewLine & _
"EXEC @return_value = [dbo].[PRPMO_RIGHTS_SERVICE_CHECK_USER] @USER_ID = {0}, @pCHECK_WHO = {1} " & vbNewLine & _
"SELECT 'Return Value' = @return_value", row.Item(5), Environment.UserName)
Me.Cursor = Cursors.WaitCursor
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If Not IsNothing(DT) Then
Dim result = DT.Rows(0).Item(0)
If result <> 0 Then
MsgBox("Unexpected Error in Executing rightprocedure - Check the log!", MsgBoxStyle.Critical)
_error = True
BW_RightsEntity.ReportProgress(+1)
Exit For
Else
Dim del = String.Format("DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE USER_ID = {0}", row.Item(5))
ClassDatabase.Execute_non_Query(del)
End If
End If
End If
BW_RightsEntity.ReportProgress(+1)
Next