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

ms

Browse Source
This commit is contained in:
SchreiberM
2017-02-15 09:07:26 +01:00
parent a815c8ab5d
commit 81c3ebe35e
25 changed files with 7215 additions and 7503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/RecordOrganizer_RightManager/frmStart.vb
View File

@@ -63,7 +63,6 @@ Public Class frmStart
Dim DT As DataTable = clsDatabase.Return_Datatable(sql)
If DT.Rows.Count > 0 Then
DT_SUPERVISOR_ENTITY = DT
MsgBox("As Supervisor You are only allowed to change entity-related rights!", MsgBoxStyle.Information)
End If
If USER_IS_ADMIN = False And DT.Rows.Count = 0 Then
@@ -84,14 +83,14 @@ Public Class frmStart
Sub Check_USER_REWORK()
'Überprüfen ob es User gibt die aktualisiert werden müssen
DT_WORK_USER_RIGHTS = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_CHANGED)
If DT_WORK_USER_RIGHTS.Rows.Count > 0 Then
If DT_WORK_USER_RIGHTS.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") 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
DT_WORK_USER_CONTROL_SUPERVISOR = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_SUPERVISOR_ADDED)
If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 Then
If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") Then
btnWorkUserRightsSV_ADD.Text = "New Supervisor for Record/Entity added." & vbNewLine & "Amount: " & DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count.ToString
btnWorkUserRightsSV_ADD.Visible = True
Else