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

plose

Browse Source
This commit is contained in:
d.breimaier
2025-02-25 08:37:27 +01:00
parent 0debf6f694
commit 55030fc729
6 changed files with 810 additions and 647 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
UID/Programme/frmBenutzerBerGruppen.vb
View File

@@ -75,7 +75,8 @@
Private Sub gdvGruppen_KeyDown(sender As Object, e As KeyEventArgs) Handles gdvGruppen.KeyDown
If gdvGruppen.SelectedRows.Count = 0 Then Exit Sub
If e.KeyCode = Keys.Delete Then
If vbYes = MsgBox("Möchten Sie die Gruppe und alle verbundenen Zuordnungen wirklich löschen?", vbYesNoCancel) Then
Dim mitarbeiterInfo As New VERAG_PROG_ALLGEMEIN.cMitarbeiter(mitId)
If vbYes = MsgBox("Möchten Sie für " & mitarbeiterInfo.mit_username & " die Gruppenzuweisung wirklich löschen?", vbYesNoCancel) Then
Dim BGRZ As New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung
BGRZ.berbgz_id = gdvGruppen.SelectedRows(0).Cells("dgvGrp_id").Value
BGRZ.DELETE()