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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-10 13:46:18 +02:00
parent ea594e66e5
commit e2c05a5ea3
10 changed files with 169 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -53,6 +53,15 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGOST", "VERAGOST"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
ZOLLDATENBEARB = False
@@ -183,6 +192,9 @@
txtDyFullName.Text = If(mitarbeiter.mit_DAKOSY_SBFull, "")
txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
If mitarbeiter.mit_firma = "VERAG" Then
cboFirma.SelectedIndex = 0
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
@@ -417,6 +429,8 @@
mitarbeiter.mit_DAKOSY_SB = txtDakosySB.Text
mitarbeiter.mit_DAKOSY_SBFull = txtDyFullName.Text
mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
mitarbeiter.mit_AliasAD_Domain = cboALIASDomain._value
mitarbeiter.mit_AliasAD_Username = txtALIASUser.Text
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then