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
2020-12-16 09:31:32 +01:00
parent 62315eaef7
commit 55068d6072
3 changed files with 45 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -169,6 +169,8 @@ Partial Class frmMitarbDetails
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label55 = New System.Windows.Forms.Label()
Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -1355,6 +1357,8 @@ Partial Class frmMitarbDetails
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.cboProgSprache)
Me.TabPage3.Controls.Add(Me.Label55)
Me.TabPage3.Controls.Add(Me.Button5)
Me.TabPage3.Controls.Add(Me.Button4)
Me.TabPage3.Controls.Add(Me.Button3)
@@ -1834,6 +1838,30 @@ Partial Class frmMitarbDetails
Me.Label7.TabIndex = 78
Me.Label7.Text = "Berechtigung:"
'
'Label55
'
Me.Label55.AutoSize = True
Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label55.Location = New System.Drawing.Point(13, 510)
Me.Label55.Name = "Label55"
Me.Label55.Size = New System.Drawing.Size(50, 13)
Me.Label55.TabIndex = 119
Me.Label55.Text = "Sprache:"
Me.Label55.Visible = False
'
'cboProgSprache
'
Me.cboProgSprache._allowedValuesFreiText = Nothing
Me.cboProgSprache._allowFreiText = False
Me.cboProgSprache._value = ""
Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboProgSprache.FormattingEnabled = True
Me.cboProgSprache.Location = New System.Drawing.Point(16, 526)
Me.cboProgSprache.Name = "cboProgSprache"
Me.cboProgSprache.Size = New System.Drawing.Size(178, 21)
Me.cboProgSprache.TabIndex = 120
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2022,4 +2050,6 @@ Partial Class frmMitarbDetails
Friend WithEvents cbxChatBenutzer As CheckBox
Friend WithEvents cboALIASDomain2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtALIASUser2 As TextBox
Friend WithEvents cboProgSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label55 As Label
End Class

9
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -88,6 +88,11 @@
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT"))
cboProgSprache.Items.Clear()
cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEUTSCH", "DE"))
cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN"))
cboFirma.Items.Clear()
@@ -306,6 +311,8 @@
If mitarbeiter.mit_DpUserStandardFirma IsNot Nothing Then cboDPFirma.changeItem(mitarbeiter.mit_DpUserStandardFirma)
If mitarbeiter.mit_DpUserStandardFirma2 IsNot Nothing Then cboDPFirma2.changeItem(mitarbeiter.mit_DpUserStandardFirma2)
If mitarbeiter.mit_sprache IsNot Nothing Then cboProgSprache.changeItem(mitarbeiter.mit_sprache)
cbxSpedBuch.Checked = mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch
If mitarbeiter.mit_FMZollPersIDSpedBuch > 0 Then
@@ -547,6 +554,8 @@
mitarbeiter.mit_DpUserStandardFirma = cboDPFirma._value
mitarbeiter.mit_DpUserStandardFirma2 = cboDPFirma2._value
mitarbeiter.mit_sprache = cboProgSprache._value
If IsNumeric(MyComboBox2._value) AndAlso MyComboBox2._value > 0 Then
mitarbeiter.mit_standartFiliale = MyComboBox2._value
Else