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

Kunednkontakte, Bereichitungsgruppen (Ansicht), StartOptions, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-30 16:43:34 +01:00
parent 0b6a5c9956
commit f7bde33bb4
9 changed files with 1290 additions and 1040 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UID/Programme/frmBerechtigungsObjekte.vb
View File

@@ -249,11 +249,11 @@
If gdvGruppen.SelectedRows.Count > 0 Then
Dim f As New frmBerechtigungenUser()
f.lbl.Text = "Benutzer in der Gruppe: " & gdvGruppen.SelectedRows(0).Cells("dgvGrp_bez").Value
Dim dt = sql.loadDgvBySql("SELECT [mit_id],mit_username FROM [tblBerechtigungenBenutzerGruppenZuordnung] inner join tblMitarbeiter on mit_id=berbgz_mitId where [berbgz_bergrId]='" & gdvGruppen.SelectedRows(0).Cells("dgvGrp_id").Value & "' AND isnull(mit_username,'') <>'' ORDER BY mit_username", "ADMIN")
Dim dt = sql.loadDgvBySql("SELECT [mit_id],mit_username,mit_firma, mit_gekuendigt FROM [tblBerechtigungenBenutzerGruppenZuordnung] inner join tblMitarbeiter on mit_id=berbgz_mitId where [berbgz_bergrId]='" & gdvGruppen.SelectedRows(0).Cells("dgvGrp_id").Value & "' AND isnull(mit_username,'') <>'' ORDER BY mit_username", "ADMIN")
f.gdvGruppen.Rows.Clear()
If dt IsNot Nothing Then
For Each r In dt.Rows
f.gdvGruppen.Rows.Add(r("mit_id"), r("mit_username"))
f.gdvGruppen.Rows.Add(r("mit_id"), r("mit_username"), r("mit_firma"), r("mit_gekuendigt"))
Next
f.Show()
Else
@@ -268,12 +268,12 @@
Dim f As New frmBerechtigungenUser()
f.lbl.Text = "Freigeschaltene Benutzer: " & Me.codename
' MsgBox(Me.progId)
Dim dt = sql.loadDgvBySql("SELECT [mit_id],[mit_username] FROM [ADMIN].[dbo].[tblBerProg] INNER JOIN tblMitarbeiter on mit_id= bepr_userId WHERE bepr_programm='" & Me.codename & "' AND [ber_allowed]=1 AND isnull(mit_username,'') <>''ORDER BY mit_username", "ADMIN")
Dim dt = sql.loadDgvBySql("SELECT [mit_id],[mit_username],mit_firma, mit_gekuendigt FROM [ADMIN].[dbo].[tblBerProg] INNER JOIN tblMitarbeiter on mit_id= bepr_userId WHERE bepr_programm='" & Me.codename & "' AND [ber_allowed]=1 AND isnull(mit_username,'') <>''ORDER BY mit_username", "ADMIN")
f.gdvGruppen.Rows.Clear()
If dt IsNot Nothing Then
For Each r In dt.Rows
f.gdvGruppen.Rows.Add(r("mit_id"), r("mit_username"))
f.gdvGruppen.Rows.Add(r("mit_id"), r("mit_username"), r("mit_firma"), r("mit_gekuendigt"))
Next
f.Show()
Else