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

MS1808

Browse Source
This commit is contained in:
SchreiberM
2016-08-18 10:58:31 +02:00
parent fd0e907262
commit bcee2404d5
30 changed files with 9903 additions and 8876 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/RecordOrganizer_RightManager/frmStart.vb
View File

@@ -64,15 +64,7 @@ Public Class frmStart
Me.Close()
End If
'Überprüfen ob es User gibt die aktualisiert werden müssen
sql = "SELECT T.GUID,T1.USERNAME + 'Reason: ' + T.COMMENT AS USER_COMMENT FROM TBPMO_USER_RIGHTS_JOBS T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.WORKED = 0"
DT_WORK_USER_RIGHTS = ClassDatabase.Return_Datatable(sql)
If DT_WORK_USER_RIGHTS.Rows.Count > 0 Then
btnWorkUserRights.Text = "Userrelations were changed." & vbNewLine & DT_WORK_USER_RIGHTS.Rows.Count.ToString & " Users need to be refreshed!"
btnWorkUserRights.Visible = True
Else
btnWorkUserRights.Visible = False
End If
Check_USER_REWORK()
End If
End If
@@ -81,7 +73,16 @@ Public Class frmStart
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Check_USER_REWORK()
'Überprüfen ob es User gibt die aktualisiert werden müssen
DT_WORK_USER_RIGHTS = ClassDatabase.Return_Datatable(SQL_USER_RIGHTS_CHANGED)
If DT_WORK_USER_RIGHTS.Rows.Count > 0 Then
btnWorkUserRights.Text = "Userrelations were changed." & vbNewLine & DT_WORK_USER_RIGHTS.Rows.Count.ToString & " Users need to be refreshed!"
btnWorkUserRights.Visible = True
Else
btnWorkUserRights.Visible = False
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Me.Visible = False
frmCheckRightsEntity.ShowDialog()
@@ -94,5 +95,6 @@ Public Class frmStart
Private Sub btnWorkUserRights_Click(sender As Object, e As EventArgs) Handles btnWorkUserRights.Click
frmReworkUsers.ShowDialog()
Check_USER_REWORK()
End Sub
End Class