edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Berechtungen kopieren

Browse Source
This commit is contained in:
d.breimaier
2023-08-21 16:29:18 +02:00
parent ad5b653f76
commit f74e11d12a
2 changed files with 56 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -429,45 +429,86 @@ Public Class usrCntlMitarbeiter
End Sub End Sub
Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click, BerechtigungenSetzenToolStripMenuItem.Click Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click, BerechtigungenSetzenToolStripMenuItem.Click
Dim copyUserName As String = "UserKopierenToolStripMenuItem"
Dim setPermissionsName As String = "BerechtigungenSetzenToolStripMenuItem"
If TabControl1.SelectedIndex = 0 Then If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
If sender.Name = "UserKopierenToolStripMenuItem" Then
copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
ElseIf sender.Name = "BerechtigungenSetzenToolStripMenuItem" Then
Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
frm.Show(Me)
Else
End If Select Case sender.Name
Case copyUserName
copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 1 Then ElseIf TabControl1.SelectedIndex = 1 Then
If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvATILLA.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvATILLA.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvATILLA.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 2 Then ElseIf TabControl1.SelectedIndex = 2 Then
If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvIMEX.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvIMEX.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvIMEX.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 3 Then ElseIf TabControl1.SelectedIndex = 3 Then
If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvUNISPED.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvUNISPED.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvUNISPED.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 4 Then ElseIf TabControl1.SelectedIndex = 4 Then
If dgvAMBAR.SelectedRows.Count <> 1 Then Exit Sub If dgvAMBAR.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvAMBAR.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvAMBAR.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvAMBAR.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 5 Then ElseIf TabControl1.SelectedIndex = 5 Then
If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
ElseIf TabControl1.SelectedIndex = 6 Then ElseIf TabControl1.SelectedIndex = 6 Then
If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value) Select Case sender.Name
Case copyUserName
copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERIMEX.CurrentRow.Cells(0).Value)
frm.Show(Me)
End Select
End If End If
End Sub End Sub

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.1.8")> <Assembly: AssemblyVersion("1.2.1.9")>
<Assembly: AssemblyFileVersion("1.2.1.8")> <Assembly: AssemblyFileVersion("1.2.1.9")>