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-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -52,6 +52,9 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -60,6 +63,17 @@
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"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT"))
cboFirma.Items.Clear()
cboFirma.Items.Add("VERAG")
cboFirma.Items.Add("ATILLA")
cboFirma.Items.Add("IMEX")
cboFirma.Items.Add("UNISPED")
cboFirma.Items.Add("AMBAR")
cboFirma.Items.Add("FRONTOFFICE")
cboFirma.Items.Add("ALLE")
@@ -195,14 +209,12 @@
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
cboFirma.SelectedIndex = 1
ElseIf mitarbeiter.mit_firma = "IMEX" Then
cboFirma.SelectedIndex = 2
ElseIf mitarbeiter.mit_firma = "ALL" Then
cboFirma.SelectedIndex = 3
If mitarbeiter.mit_firma = "ALL" Then
cboFirma.Text = "ALLE"
Else
cboFirma.Text = mitarbeiter.mit_firma
End If
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
@@ -493,15 +505,10 @@
cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
End If
If cboFirma.SelectedIndex = 0 Then
mitarbeiter.mit_firma = "VERAG"
ElseIf cboFirma.SelectedIndex = 1 Then
mitarbeiter.mit_firma = "ATILLA"
ElseIf cboFirma.SelectedIndex = 2 Then
mitarbeiter.mit_firma = "IMEX"
ElseIf cboFirma.SelectedIndex = 3 Then
If cboFirma.Text = "ALLE" Then
mitarbeiter.mit_firma = "ALL"
Else
mitarbeiter.mit_firma = cboFirma.Text
End If
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""