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

Berechtigungen kopieren aus Referenzuser

Browse Source
This commit is contained in:
d.breimaier
2023-06-30 15:01:55 +02:00
parent 6ce26b0614
commit cbc8f3651b
9 changed files with 1463 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -2,6 +2,8 @@
Imports System.Net
Imports System.Text
Imports System.Windows.Controls
Imports GrapeCity.Viewer.Common.Model
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cChilkat_Helper
@@ -380,22 +382,25 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
End Sub
Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click
Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click, BerechtigungenSetzenToolStripMenuItem.Click
If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
If sender.Name = "UserKopierenToolStripMenuItem" Then
copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
Else
Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
frm.Show(Me)
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvATILLA.CurrentRow.Cells(0).Value)
ElseIf TabControl1.SelectedIndex = 2 Then
If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub
copyUser(dgvIMEX.CurrentRow.Cells(0).Value)
ElseIf TabControl1.SelectedIndex = 3 Then
If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub
@@ -475,11 +480,31 @@ Public Class usrCntlMitarbeiter
frmMitarbDetails.mid = id
frmMitarbDetails.Show(Me)
frmMitarbDetails.isUpdate = False
frmMitarbDetails.Label1.Text = "Mitarbeiterkopie"
frmMitarbDetails.Label1.Text = "Mitarbeiter kopieren"
frmMitarbDetails.txtVname.Text = "Kopie von " & frmMitarbDetails.txtVname.Text
frmMitarbDetails.txtNname.Text = "Kopie von " & frmMitarbDetails.txtNname.Text
frmMitarbDetails.Label48.Text = "00"
'ZUordnungen zu ext. Prog entfernen
frmMitarbDetails.txtPwd.Text = ""
frmMitarbDetails.txtCSPW.Text = ""
frmMitarbDetails.txtVname.Text = "Kopie von " & frmMitarbDetails.txtVname.Text
frmMitarbDetails.Label48.Text = "00"
frmMitarbDetails.txtCSUser.Text = ""
frmMitarbDetails.txtPwd.Text = ""
'frmMitarbDetails.cboALIASDomain.changeItem("")
frmMitarbDetails.cboALIASDomain2.changeItem("")
frmMitarbDetails.cboPersonal.changeItem("")
frmMitarbDetails.txtALIASUser.Text = ""
frmMitarbDetails.txtALIASUser2.Text = ""
frmMitarbDetails.txtDakosySB.Text = ""
frmMitarbDetails.txtTelotecSB.Text = ""
If frmMitarbDetails.mitarbeiter IsNot Nothing Then
frmMitarbDetails.mitarbeiter.mit_EZOLL_SB = -1
frmMitarbDetails.mitarbeiter.mit_ATLAS_SB = ""
End If
frmMitarbDetails.txtDyFullName.Text = ""
Me.Cursor = Cursors.Default
@@ -506,7 +531,7 @@ Public Class usrCntlMitarbeiter
filePath.Append(filenameFull)
filePath.Append("](/mitarbeiterfotos/")
filePath.Append(filenameFull)
filePath.Append(" =150x150)") 'Bildgröße
filePath.Append(")")
filename = filePath.ToString
Else
filename = "|-"
@@ -581,11 +606,9 @@ Public Class usrCntlMitarbeiter
For Each row As DataGridViewRow In dgv.Rows
Dim test As Boolean = False
If row.Cells("mit_foto_DocId").Value > 0 Then
Dim file = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(row.Cells("mit_foto_DocId").Value)
Dim succeess = uploadPictureToWiki(token, 4, file)
test = True
Dim succeess = uploadPictureToWiki(token, 4, file) 'Folder 4 -> Mitarbeiterfotos
End If
Next