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

Mitarbeiter - Urlaubsaliquotierung auch bei Kündigung

Browse Source
This commit is contained in:
d.breimaier
2024-01-19 13:40:42 +01:00
parent 71d471563d
commit 5b897e5ab1
2 changed files with 355 additions and 345 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -36,13 +36,21 @@ Partial Class frmMitarbDetails
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label50 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label()
Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label37 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label42 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label()
Me.Label40 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label()
Me.cbxSpedBuch = New System.Windows.Forms.CheckBox() Me.cbxSpedBuch = New System.Windows.Forms.CheckBox()
Me.Label41 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label()
Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.Label62 = New System.Windows.Forms.Label() Me.Label62 = New System.Windows.Forms.Label()
Me.Label61 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label()
@@ -57,6 +65,9 @@ Partial Class frmMitarbDetails
Me.Label46 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label()
Me.Label44 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.cbxShowPW = New System.Windows.Forms.CheckBox() Me.cbxShowPW = New System.Windows.Forms.CheckBox()
Me.lblCheckconnection = New System.Windows.Forms.Label() Me.lblCheckconnection = New System.Windows.Forms.Label()
@@ -75,7 +86,9 @@ Partial Class frmMitarbDetails
Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox() Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox()
Me.txtLohnNr = New System.Windows.Forms.TextBox() Me.txtLohnNr = New System.Windows.Forms.TextBox()
Me.btnMAanlegen = New System.Windows.Forms.Button() Me.btnMAanlegen = New System.Windows.Forms.Button()
Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cbabwJahresurlaub = New System.Windows.Forms.CheckBox() Me.cbabwJahresurlaub = New System.Windows.Forms.CheckBox()
@@ -96,15 +109,21 @@ Partial Class frmMitarbDetails
Me.lblEmailExtension = New System.Windows.Forms.Label() Me.lblEmailExtension = New System.Windows.Forms.Label()
Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox() Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox()
Me.Label57 = New System.Windows.Forms.Label() Me.Label57 = New System.Windows.Forms.Label()
Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label56 = New System.Windows.Forms.Label() Me.Label56 = New System.Windows.Forms.Label()
Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtALIASUser2 = New System.Windows.Forms.TextBox() Me.txtALIASUser2 = New System.Windows.Forms.TextBox()
Me.Label54 = New System.Windows.Forms.Label() Me.Label54 = New System.Windows.Forms.Label()
Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox() Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox()
Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label53 = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtALIASUser = New System.Windows.Forms.TextBox() Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.Label52 = New System.Windows.Forms.Label() Me.Label52 = New System.Windows.Forms.Label()
Me.lkl = New System.Windows.Forms.LinkLabel() Me.lkl = New System.Windows.Forms.LinkLabel()
Me.Label45 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label39 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label()
Me.cboFirma = New System.Windows.Forms.ComboBox() Me.cboFirma = New System.Windows.Forms.ComboBox()
Me.Label36 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label()
@@ -120,11 +139,13 @@ Partial Class frmMitarbDetails
Me.txtDurchwahl = New System.Windows.Forms.TextBox() Me.txtDurchwahl = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtPwd = New System.Windows.Forms.TextBox() Me.txtPwd = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.txtUsername = New System.Windows.Forms.TextBox() Me.txtUsername = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtprivateEMail = New System.Windows.Forms.TextBox() Me.txtprivateEMail = New System.Windows.Forms.TextBox()
@@ -159,6 +180,7 @@ Partial Class frmMitarbDetails
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtInfo = New System.Windows.Forms.RichTextBox() Me.txtInfo = New System.Windows.Forms.RichTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label55 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
@@ -202,29 +224,7 @@ Partial Class frmMitarbDetails
Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cbxTimasNichtStempeln = New System.Windows.Forms.CheckBox() Me.cbxTimasNichtStempeln1 = New System.Windows.Forms.CheckBox()
Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout() Me.TabControl2.SuspendLayout()
@@ -234,6 +234,7 @@ Partial Class frmMitarbDetails
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
Me.TabPage5.SuspendLayout() Me.TabPage5.SuspendLayout()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage7.SuspendLayout() Me.TabPage7.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
@@ -246,7 +247,6 @@ Partial Class frmMitarbDetails
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'PictureBox1 'PictureBox1
@@ -380,7 +380,7 @@ Partial Class frmMitarbDetails
Me.tbcntr.TabIndex = 96 Me.tbcntr.TabIndex = 96
' '
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.cboDPFirma2) Me.TabPage2.Controls.Add(Me.cboDPFirma2)
Me.TabPage2.Controls.Add(Me.cboDPFirma) Me.TabPage2.Controls.Add(Me.cboDPFirma)
Me.TabPage2.Controls.Add(Me.Label50) Me.TabPage2.Controls.Add(Me.Label50)
@@ -404,6 +404,30 @@ Partial Class frmMitarbDetails
Me.TabPage2.Text = "Intern" Me.TabPage2.Text = "Intern"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'cboDPFirma2
'
Me.cboDPFirma2._allowedValuesFreiText = Nothing
Me.cboDPFirma2._allowFreiText = False
Me.cboDPFirma2._value = ""
Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDPFirma2.FormattingEnabled = True
Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
Me.cboDPFirma2.Name = "cboDPFirma2"
Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma2.TabIndex = 108
'
'cboDPFirma
'
Me.cboDPFirma._allowedValuesFreiText = Nothing
Me.cboDPFirma._allowFreiText = False
Me.cboDPFirma._value = ""
Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDPFirma.FormattingEnabled = True
Me.cboDPFirma.Location = New System.Drawing.Point(7, 151)
Me.cboDPFirma.Name = "cboDPFirma"
Me.cboDPFirma.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma.TabIndex = 107
'
'Label50 'Label50
' '
Me.Label50.AutoSize = True Me.Label50.AutoSize = True
@@ -424,6 +448,18 @@ Partial Class frmMitarbDetails
Me.Label38.TabIndex = 96 Me.Label38.TabIndex = 96
Me.Label38.Text = "Standard-Filiale (SpedBuch)" Me.Label38.Text = "Standard-Filiale (SpedBuch)"
' '
'cboPersonal
'
Me.cboPersonal._allowedValuesFreiText = Nothing
Me.cboPersonal._allowFreiText = False
Me.cboPersonal._value = ""
Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboPersonal.FormattingEnabled = True
Me.cboPersonal.Location = New System.Drawing.Point(7, 65)
Me.cboPersonal.Name = "cboPersonal"
Me.cboPersonal.Size = New System.Drawing.Size(200, 21)
Me.cboPersonal.TabIndex = 95
'
'Label37 'Label37
' '
Me.Label37.AutoSize = True Me.Label37.AutoSize = True
@@ -434,6 +470,42 @@ Partial Class frmMitarbDetails
Me.Label37.TabIndex = 94 Me.Label37.TabIndex = 94
Me.Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:" Me.Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:"
' '
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(9, 24)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(198, 21)
Me.MyComboBox2.TabIndex = 97
'
'cboDP
'
Me.cboDP._allowedValuesFreiText = Nothing
Me.cboDP._allowFreiText = False
Me.cboDP._value = ""
Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDP.FormattingEnabled = True
Me.cboDP.Location = New System.Drawing.Point(217, 151)
Me.cboDP.Name = "cboDP"
Me.cboDP.Size = New System.Drawing.Size(198, 21)
Me.cboDP.TabIndex = 105
'
'cboKasse
'
Me.cboKasse._allowedValuesFreiText = Nothing
Me.cboKasse._allowFreiText = False
Me.cboKasse._value = ""
Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboKasse.FormattingEnabled = True
Me.cboKasse.Location = New System.Drawing.Point(7, 106)
Me.cboKasse.Name = "cboKasse"
Me.cboKasse.Size = New System.Drawing.Size(200, 21)
Me.cboKasse.TabIndex = 99
'
'Label42 'Label42
' '
Me.Label42.AutoSize = True Me.Label42.AutoSize = True
@@ -475,6 +547,31 @@ Partial Class frmMitarbDetails
Me.Label41.TabIndex = 100 Me.Label41.TabIndex = 100
Me.Label41.Text = "Standard-Preisliste:" Me.Label41.Text = "Standard-Preisliste:"
' '
'cboSpedbuch
'
Me.cboSpedbuch._allowedValuesFreiText = Nothing
Me.cboSpedbuch._allowFreiText = False
Me.cboSpedbuch._value = ""
Me.cboSpedbuch.Enabled = False
Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSpedbuch.FormattingEnabled = True
Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66)
Me.cboSpedbuch.Name = "cboSpedbuch"
Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21)
Me.cboSpedbuch.TabIndex = 103
'
'MyComboBox3
'
Me.MyComboBox3._allowedValuesFreiText = Nothing
Me.MyComboBox3._allowFreiText = False
Me.MyComboBox3._value = ""
Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox3.FormattingEnabled = True
Me.MyComboBox3.Location = New System.Drawing.Point(217, 106)
Me.MyComboBox3.Name = "MyComboBox3"
Me.MyComboBox3.Size = New System.Drawing.Size(198, 21)
Me.MyComboBox3.TabIndex = 101
'
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.Label62) Me.TabPage4.Controls.Add(Me.Label62)
@@ -623,6 +720,48 @@ Partial Class frmMitarbDetails
Me.Label43.TabIndex = 108 Me.Label43.TabIndex = 108
Me.Label43.Text = "EZOLL Sachbearbeiter:" Me.Label43.Text = "EZOLL Sachbearbeiter:"
' '
'cboEZOLL_SB_UNISPED
'
Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing
Me.cboEZOLL_SB_UNISPED._allowFreiText = False
Me.cboEZOLL_SB_UNISPED._value = ""
Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True
Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29)
Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED"
Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21)
Me.cboEZOLL_SB_UNISPED.TabIndex = 121
'
'cboEZOLL_SB
'
Me.cboEZOLL_SB._allowedValuesFreiText = Nothing
Me.cboEZOLL_SB._allowFreiText = False
Me.cboEZOLL_SB._value = ""
Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboEZOLL_SB.FormattingEnabled = True
Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29)
Me.cboEZOLL_SB.Name = "cboEZOLL_SB"
Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21)
Me.cboEZOLL_SB.TabIndex = 109
'
'cboATLAS_SB
'
Me.cboATLAS_SB._allowedValuesFreiText = Nothing
Me.cboATLAS_SB._allowFreiText = False
Me.cboATLAS_SB._value = ""
Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboATLAS_SB.FormattingEnabled = True
Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29)
Me.cboATLAS_SB.Name = "cboATLAS_SB"
Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21)
Me.cboATLAS_SB.TabIndex = 107
'
'TabPage5 'TabPage5
' '
Me.TabPage5.Controls.Add(Me.cbxShowPW) Me.TabPage5.Controls.Add(Me.cbxShowPW)
@@ -817,6 +956,16 @@ Partial Class frmMitarbDetails
Me.btnMAanlegen.Text = "anlegen" Me.btnMAanlegen.Text = "anlegen"
Me.btnMAanlegen.UseVisualStyleBackColor = False Me.btnMAanlegen.UseVisualStyleBackColor = False
' '
'dgvData
'
Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvData.BackgroundColor = System.Drawing.Color.White
Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvData.Location = New System.Drawing.Point(2, 27)
Me.dgvData.Name = "dgvData"
Me.dgvData.Size = New System.Drawing.Size(364, 144)
Me.dgvData.TabIndex = 118
'
'TabPage7 'TabPage7
' '
Me.TabPage7.Controls.Add(Me.lbSprachen) Me.TabPage7.Controls.Add(Me.lbSprachen)
@@ -827,6 +976,18 @@ Partial Class frmMitarbDetails
Me.TabPage7.Text = "Sprachen" Me.TabPage7.Text = "Sprachen"
Me.TabPage7.UseVisualStyleBackColor = True Me.TabPage7.UseVisualStyleBackColor = True
' '
'lbSprachen
'
Me.lbSprachen._value = ""
Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbSprachen.FormattingEnabled = True
Me.lbSprachen.Location = New System.Drawing.Point(5, 3)
Me.lbSprachen.MultiColumn = True
Me.lbSprachen.Name = "lbSprachen"
Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.lbSprachen.Size = New System.Drawing.Size(152, 134)
Me.lbSprachen.TabIndex = 97
'
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
@@ -1075,6 +1236,20 @@ Partial Class frmMitarbDetails
Me.Label57.TabIndex = 110 Me.Label57.TabIndex = 110
Me.Label57.Text = "And. Anzeigename (Aviso,TV):" Me.Label57.Text = "And. Anzeigename (Aviso,TV):"
' '
'cboFaktGrp
'
Me.cboFaktGrp._allowedValuesFreiText = Nothing
Me.cboFaktGrp._allowFreiText = False
Me.cboFaktGrp._value = ""
Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFaktGrp.FormattingEnabled = True
Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155)
Me.cboFaktGrp.Name = "cboFaktGrp"
Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21)
Me.cboFaktGrp.TabIndex = 107
'
'Label56 'Label56
' '
Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1084,6 +1259,19 @@ Partial Class frmMitarbDetails
Me.Label56.TabIndex = 108 Me.Label56.TabIndex = 108
Me.Label56.Text = "Fakturierungs-Gruppe:" Me.Label56.Text = "Fakturierungs-Gruppe:"
' '
'cboALIASDomain2
'
Me.cboALIASDomain2._allowedValuesFreiText = Nothing
Me.cboALIASDomain2._allowFreiText = False
Me.cboALIASDomain2._value = ""
Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain2.FormattingEnabled = True
Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60)
Me.cboALIASDomain2.Name = "cboALIASDomain2"
Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain2.TabIndex = 106
'
'txtALIASUser2 'txtALIASUser2
' '
Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1113,6 +1301,20 @@ Partial Class frmMitarbDetails
Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21) Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21)
Me.cboFirmaHaupt.TabIndex = 103 Me.cboFirmaHaupt.TabIndex = 103
' '
'cboTeam
'
Me.cboTeam._allowedValuesFreiText = Nothing
Me.cboTeam._allowFreiText = False
Me.cboTeam._value = ""
Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeam.FormattingEnabled = True
Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboTeam.Location = New System.Drawing.Point(399, 116)
Me.cboTeam.Name = "cboTeam"
Me.cboTeam.Size = New System.Drawing.Size(148, 21)
Me.cboTeam.TabIndex = 101
'
'Label53 'Label53
' '
Me.Label53.AutoSize = True Me.Label53.AutoSize = True
@@ -1123,6 +1325,19 @@ Partial Class frmMitarbDetails
Me.Label53.TabIndex = 102 Me.Label53.TabIndex = 102
Me.Label53.Text = "Team:" Me.Label53.Text = "Team:"
' '
'cboALIASDomain
'
Me.cboALIASDomain._allowedValuesFreiText = Nothing
Me.cboALIASDomain._allowFreiText = False
Me.cboALIASDomain._value = ""
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'txtALIASUser 'txtALIASUser
' '
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1162,6 +1377,31 @@ Partial Class frmMitarbDetails
Me.Label45.TabIndex = 97 Me.Label45.TabIndex = 97
Me.Label45.Text = "Einsicht Firmen-Daten:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Offene Posten, Umsätze, ... )" Me.Label45.Text = "Einsicht Firmen-Daten:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Offene Posten, Umsätze, ... )"
' '
'MyListBox1
'
Me.MyListBox1._value = ""
Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.Location = New System.Drawing.Point(551, 133)
Me.MyListBox1.MultiColumn = True
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.MyListBox1.Size = New System.Drawing.Size(152, 95)
Me.MyListBox1.TabIndex = 96
'
'cboFirmaFMZOLL
'
Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
Me.cboFirmaFMZOLL._allowFreiText = False
Me.cboFirmaFMZOLL._value = ""
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirmaFMZOLL.FormattingEnabled = True
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76)
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21)
Me.cboFirmaFMZOLL.TabIndex = 95
'
'Label39 'Label39
' '
Me.Label39.AutoSize = True Me.Label39.AutoSize = True
@@ -1308,6 +1548,20 @@ Partial Class frmMitarbDetails
Me.Label8.TabIndex = 1 Me.Label8.TabIndex = 1
Me.Label8.Text = "(erst bei Doppelklick sichtbar)" Me.Label8.Text = "(erst bei Doppelklick sichtbar)"
' '
'cboAbteilung
'
Me.cboAbteilung._allowedValuesFreiText = Nothing
Me.cboAbteilung._allowFreiText = False
Me.cboAbteilung._value = ""
Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAbteilung.FormattingEnabled = True
Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboAbteilung.Location = New System.Drawing.Point(211, 116)
Me.cboAbteilung.Name = "cboAbteilung"
Me.cboAbteilung.Size = New System.Drawing.Size(177, 21)
Me.cboAbteilung.TabIndex = 4
'
'txtPwd 'txtPwd
' '
Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1354,6 +1608,20 @@ Partial Class frmMitarbDetails
Me.Label3.TabIndex = 56 Me.Label3.TabIndex = 56
Me.Label3.Text = "Username:" Me.Label3.Text = "Username:"
' '
'cboNiederlassung
'
Me.cboNiederlassung._allowedValuesFreiText = Nothing
Me.cboNiederlassung._allowFreiText = False
Me.cboNiederlassung._value = ""
Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboNiederlassung.FormattingEnabled = True
Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116)
Me.cboNiederlassung.Name = "cboNiederlassung"
Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21)
Me.cboNiederlassung.TabIndex = 3
'
'Label9 'Label9
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
@@ -1366,6 +1634,7 @@ Partial Class frmMitarbDetails
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.cbxTimasNichtStempeln1)
Me.GroupBox1.Controls.Add(Me.txtprivateEMail) Me.GroupBox1.Controls.Add(Me.txtprivateEMail)
Me.GroupBox1.Controls.Add(Me.Label64) Me.GroupBox1.Controls.Add(Me.Label64)
Me.GroupBox1.Controls.Add(Me.cbxHO) Me.GroupBox1.Controls.Add(Me.cbxHO)
@@ -1505,7 +1774,7 @@ Partial Class frmMitarbDetails
Me.picFoto.Cursor = System.Windows.Forms.Cursors.Hand Me.picFoto.Cursor = System.Windows.Forms.Cursors.Hand
Me.picFoto.Location = New System.Drawing.Point(523, 12) Me.picFoto.Location = New System.Drawing.Point(523, 12)
Me.picFoto.Name = "picFoto" Me.picFoto.Name = "picFoto"
Me.picFoto.Size = New System.Drawing.Size(180, 202) Me.picFoto.Size = New System.Drawing.Size(180, 163)
Me.picFoto.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.picFoto.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.picFoto.TabIndex = 80 Me.picFoto.TabIndex = 80
Me.picFoto.TabStop = False Me.picFoto.TabStop = False
@@ -1757,6 +2026,19 @@ Partial Class frmMitarbDetails
Me.TabPage3.Text = "Programme" Me.TabPage3.Text = "Programme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'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
'
'Label55 'Label55
' '
Me.Label55.AutoSize = True Me.Label55.AutoSize = True
@@ -2202,298 +2484,18 @@ Partial Class frmMitarbDetails
' '
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
' '
'cbxTimasNichtStempeln 'cbxTimasNichtStempeln1
' '
Me.cbxTimasNichtStempeln.AutoSize = True Me.cbxTimasNichtStempeln1.AutoSize = True
Me.cbxTimasNichtStempeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxTimasNichtStempeln1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxTimasNichtStempeln.Location = New System.Drawing.Point(324, 241) Me.cbxTimasNichtStempeln1.Location = New System.Drawing.Point(523, 182)
Me.cbxTimasNichtStempeln.Name = "cbxTimasNichtStempeln" Me.cbxTimasNichtStempeln1.Name = "cbxTimasNichtStempeln1"
Me.cbxTimasNichtStempeln.Size = New System.Drawing.Size(164, 17) Me.cbxTimasNichtStempeln1.Size = New System.Drawing.Size(164, 17)
Me.cbxTimasNichtStempeln.TabIndex = 124 Me.cbxTimasNichtStempeln1.TabIndex = 97
Me.cbxTimasNichtStempeln.Text = "Zeiterfassung: Kein Stempeln" Me.cbxTimasNichtStempeln1.Text = "Zeiterfassung: Kein Stempeln"
Me.cbxTimasNichtStempeln.UseVisualStyleBackColor = True Me.cbxTimasNichtStempeln1.UseVisualStyleBackColor = True
'
'cboDPFirma2
'
Me.cboDPFirma2._allowedValuesFreiText = Nothing
Me.cboDPFirma2._allowFreiText = False
Me.cboDPFirma2._value = ""
Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDPFirma2.FormattingEnabled = True
Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
Me.cboDPFirma2.Name = "cboDPFirma2"
Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma2.TabIndex = 108
'
'cboDPFirma
'
Me.cboDPFirma._allowedValuesFreiText = Nothing
Me.cboDPFirma._allowFreiText = False
Me.cboDPFirma._value = ""
Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDPFirma.FormattingEnabled = True
Me.cboDPFirma.Location = New System.Drawing.Point(7, 151)
Me.cboDPFirma.Name = "cboDPFirma"
Me.cboDPFirma.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma.TabIndex = 107
'
'cboPersonal
'
Me.cboPersonal._allowedValuesFreiText = Nothing
Me.cboPersonal._allowFreiText = False
Me.cboPersonal._value = ""
Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboPersonal.FormattingEnabled = True
Me.cboPersonal.Location = New System.Drawing.Point(7, 65)
Me.cboPersonal.Name = "cboPersonal"
Me.cboPersonal.Size = New System.Drawing.Size(200, 21)
Me.cboPersonal.TabIndex = 95
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(9, 24)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(198, 21)
Me.MyComboBox2.TabIndex = 97
'
'cboDP
'
Me.cboDP._allowedValuesFreiText = Nothing
Me.cboDP._allowFreiText = False
Me.cboDP._value = ""
Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDP.FormattingEnabled = True
Me.cboDP.Location = New System.Drawing.Point(217, 151)
Me.cboDP.Name = "cboDP"
Me.cboDP.Size = New System.Drawing.Size(198, 21)
Me.cboDP.TabIndex = 105
'
'cboKasse
'
Me.cboKasse._allowedValuesFreiText = Nothing
Me.cboKasse._allowFreiText = False
Me.cboKasse._value = ""
Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboKasse.FormattingEnabled = True
Me.cboKasse.Location = New System.Drawing.Point(7, 106)
Me.cboKasse.Name = "cboKasse"
Me.cboKasse.Size = New System.Drawing.Size(200, 21)
Me.cboKasse.TabIndex = 99
'
'cboSpedbuch
'
Me.cboSpedbuch._allowedValuesFreiText = Nothing
Me.cboSpedbuch._allowFreiText = False
Me.cboSpedbuch._value = ""
Me.cboSpedbuch.Enabled = False
Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSpedbuch.FormattingEnabled = True
Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66)
Me.cboSpedbuch.Name = "cboSpedbuch"
Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21)
Me.cboSpedbuch.TabIndex = 103
'
'MyComboBox3
'
Me.MyComboBox3._allowedValuesFreiText = Nothing
Me.MyComboBox3._allowFreiText = False
Me.MyComboBox3._value = ""
Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox3.FormattingEnabled = True
Me.MyComboBox3.Location = New System.Drawing.Point(217, 106)
Me.MyComboBox3.Name = "MyComboBox3"
Me.MyComboBox3.Size = New System.Drawing.Size(198, 21)
Me.MyComboBox3.TabIndex = 101
'
'cboEZOLL_SB_UNISPED
'
Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing
Me.cboEZOLL_SB_UNISPED._allowFreiText = False
Me.cboEZOLL_SB_UNISPED._value = ""
Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True
Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29)
Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED"
Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21)
Me.cboEZOLL_SB_UNISPED.TabIndex = 121
'
'cboEZOLL_SB
'
Me.cboEZOLL_SB._allowedValuesFreiText = Nothing
Me.cboEZOLL_SB._allowFreiText = False
Me.cboEZOLL_SB._value = ""
Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboEZOLL_SB.FormattingEnabled = True
Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29)
Me.cboEZOLL_SB.Name = "cboEZOLL_SB"
Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21)
Me.cboEZOLL_SB.TabIndex = 109
'
'cboATLAS_SB
'
Me.cboATLAS_SB._allowedValuesFreiText = Nothing
Me.cboATLAS_SB._allowFreiText = False
Me.cboATLAS_SB._value = ""
Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboATLAS_SB.FormattingEnabled = True
Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29)
Me.cboATLAS_SB.Name = "cboATLAS_SB"
Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21)
Me.cboATLAS_SB.TabIndex = 107
'
'dgvData
'
Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvData.BackgroundColor = System.Drawing.Color.White
Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvData.Location = New System.Drawing.Point(2, 27)
Me.dgvData.Name = "dgvData"
Me.dgvData.Size = New System.Drawing.Size(364, 144)
Me.dgvData.TabIndex = 118
'
'lbSprachen
'
Me.lbSprachen._value = ""
Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbSprachen.FormattingEnabled = True
Me.lbSprachen.Location = New System.Drawing.Point(5, 3)
Me.lbSprachen.MultiColumn = True
Me.lbSprachen.Name = "lbSprachen"
Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.lbSprachen.Size = New System.Drawing.Size(152, 134)
Me.lbSprachen.TabIndex = 97
'
'cboFaktGrp
'
Me.cboFaktGrp._allowedValuesFreiText = Nothing
Me.cboFaktGrp._allowFreiText = False
Me.cboFaktGrp._value = ""
Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFaktGrp.FormattingEnabled = True
Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155)
Me.cboFaktGrp.Name = "cboFaktGrp"
Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21)
Me.cboFaktGrp.TabIndex = 107
'
'cboALIASDomain2
'
Me.cboALIASDomain2._allowedValuesFreiText = Nothing
Me.cboALIASDomain2._allowFreiText = False
Me.cboALIASDomain2._value = ""
Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain2.FormattingEnabled = True
Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60)
Me.cboALIASDomain2.Name = "cboALIASDomain2"
Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain2.TabIndex = 106
'
'cboTeam
'
Me.cboTeam._allowedValuesFreiText = Nothing
Me.cboTeam._allowFreiText = False
Me.cboTeam._value = ""
Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeam.FormattingEnabled = True
Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboTeam.Location = New System.Drawing.Point(399, 116)
Me.cboTeam.Name = "cboTeam"
Me.cboTeam.Size = New System.Drawing.Size(148, 21)
Me.cboTeam.TabIndex = 101
'
'cboALIASDomain
'
Me.cboALIASDomain._allowedValuesFreiText = Nothing
Me.cboALIASDomain._allowFreiText = False
Me.cboALIASDomain._value = ""
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'MyListBox1
'
Me.MyListBox1._value = ""
Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.Location = New System.Drawing.Point(551, 133)
Me.MyListBox1.MultiColumn = True
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.MyListBox1.Size = New System.Drawing.Size(152, 95)
Me.MyListBox1.TabIndex = 96
'
'cboFirmaFMZOLL
'
Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
Me.cboFirmaFMZOLL._allowFreiText = False
Me.cboFirmaFMZOLL._value = ""
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirmaFMZOLL.FormattingEnabled = True
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76)
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21)
Me.cboFirmaFMZOLL.TabIndex = 95
'
'cboAbteilung
'
Me.cboAbteilung._allowedValuesFreiText = Nothing
Me.cboAbteilung._allowFreiText = False
Me.cboAbteilung._value = ""
Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAbteilung.FormattingEnabled = True
Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboAbteilung.Location = New System.Drawing.Point(211, 116)
Me.cboAbteilung.Name = "cboAbteilung"
Me.cboAbteilung.Size = New System.Drawing.Size(177, 21)
Me.cboAbteilung.TabIndex = 4
'
'cboNiederlassung
'
Me.cboNiederlassung._allowedValuesFreiText = Nothing
Me.cboNiederlassung._allowFreiText = False
Me.cboNiederlassung._value = ""
Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboNiederlassung.FormattingEnabled = True
Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116)
Me.cboNiederlassung.Name = "cboNiederlassung"
Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21)
Me.cboNiederlassung.TabIndex = 3
'
'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 'frmMitarbDetails
' '
@@ -2524,6 +2526,7 @@ Partial Class frmMitarbDetails
Me.TabPage5.PerformLayout() Me.TabPage5.PerformLayout()
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
Me.TabPage6.PerformLayout() Me.TabPage6.PerformLayout()
CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage7.ResumeLayout(False) Me.TabPage7.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
@@ -2539,7 +2542,6 @@ Partial Class frmMitarbDetails
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -2596,7 +2598,6 @@ Partial Class frmMitarbDetails
Friend WithEvents cbxGekuendigt As System.Windows.Forms.CheckBox Friend WithEvents cbxGekuendigt As System.Windows.Forms.CheckBox
Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents cbxPARKZEIT As System.Windows.Forms.CheckBox Friend WithEvents cbxPARKZEIT As System.Windows.Forms.CheckBox
Friend WithEvents cbxTimasNichtStempeln As System.Windows.Forms.CheckBox
Friend WithEvents cboParkzeitBer As System.Windows.Forms.ComboBox Friend WithEvents cboParkzeitBer As System.Windows.Forms.ComboBox
Friend WithEvents Label27 As System.Windows.Forms.Label Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents cbxDISPO As System.Windows.Forms.CheckBox Friend WithEvents cbxDISPO As System.Windows.Forms.CheckBox
@@ -2744,4 +2745,5 @@ Partial Class frmMitarbDetails
Friend WithEvents lblHoursOrDays2 As Label Friend WithEvents lblHoursOrDays2 As Label
Friend WithEvents lblHoursOrDays1 As Label Friend WithEvents lblHoursOrDays1 As Label
Friend WithEvents cbabwJahresurlaub As CheckBox Friend WithEvents cbabwJahresurlaub As CheckBox
Friend WithEvents cbxTimasNichtStempeln1 As CheckBox
End Class End Class

62
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -313,7 +313,7 @@ Public Class frmMitarbDetails
cboTeam.changeItem(If(mitarbeiter.mit_teamId, "")) cboTeam.changeItem(If(mitarbeiter.mit_teamId, ""))
cbxHO.Checked = mitarbeiter.mit_homeoffice cbxHO.Checked = mitarbeiter.mit_homeoffice
cbxTimasNichtStempeln.Checked = mitarbeiter.mit_timasNichtStempeln cbxTimasNichtStempeln1.Checked = mitarbeiter.mit_timasNichtStempeln
@@ -589,7 +589,7 @@ Public Class frmMitarbDetails
mitarbeiter.mit_PersonalNr = txtLohnNr.Text mitarbeiter.mit_PersonalNr = txtLohnNr.Text
mitarbeiter.mit_telefonnr = txtTelNr.Text mitarbeiter.mit_telefonnr = txtTelNr.Text
mitarbeiter.mit_homeoffice = cbxHO.Checked mitarbeiter.mit_homeoffice = cbxHO.Checked
mitarbeiter.mit_timasNichtStempeln = cbxTimasNichtStempeln.Checked mitarbeiter.mit_timasNichtStempeln = cbxTimasNichtStempeln1.Checked
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
@@ -1334,7 +1334,7 @@ Public Class frmMitarbDetails
Private Sub datEinstiegsdatum_ValueChanged(sender As Object, e As EventArgs) Handles datEinstiegsdatum.ValueChanged, cbUrlaubInStund.CheckedChanged, txtUrlaubsabsp.TextChanged Private Sub datEinstiegsdatum_ValueChanged(sender As Object, e As EventArgs) Handles datEinstiegsdatum.ValueChanged, cbUrlaubInStund.CheckedChanged, txtUrlaubsabsp.TextChanged, cboDaysPerWeek.SelectedIndexChanged
If cbxEinsteigsDat.Checked And mitarbeiter.mit_einstiegsdatum <> "" Then If cbxEinsteigsDat.Checked And mitarbeiter.mit_einstiegsdatum <> "" Then
@@ -1343,59 +1343,67 @@ Public Class frmMitarbDetails
If txtWoStd.Text <> "" AndAlso IsNumeric(txtWoStd.Text) AndAlso cboDaysPerWeek.Text <> "" AndAlso IsNumeric(cboDaysPerWeek.Text) Then If txtWoStd.Text <> "" AndAlso IsNumeric(txtWoStd.Text) AndAlso cboDaysPerWeek.Text <> "" AndAlso IsNumeric(cboDaysPerWeek.Text) Then
Dim einstiegsdat As Date = CDate(mitarbeiter.mit_einstiegsdatum) Dim einstiegsdat As Date = CDate(mitarbeiter.mit_einstiegsdatum)
Dim endOfCurrentYear = New DateTime(einstiegsdat.Year, 12, 31) Dim endOfCurrentYear = New DateTime(einstiegsdat.Year, 12, 31)
Dim span = endOfCurrentYear - einstiegsdat Dim span = endOfCurrentYear - einstiegsdat
Dim days As Double = span.TotalDays If cbxGekuendigt.Checked AndAlso mitarbeiter.mit_kuendigungsdatum <> "" AndAlso CDate(mitarbeiter.mit_kuendigungsdatum).ToShortDateString >= DateTime.Parse("01/01/2000") Then
Dim uansp As Double = 0 Dim kuendigungsdatum As Date = CDate(mitarbeiter.mit_kuendigungsdatum)
Dim aliquU As Double = 0 span = kuendigungsdatum - einstiegsdat
End If
Dim days As Double = span.TotalDays
Dim uansp As Double = 0
Dim aliquU As Double = 0
calcUrlaubsabspruch(cbUrlaubInStund.Checked, uansp)
If days > 0 AndAlso uansp > 0 Then
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
If Not cbUrlaubInStund.Checked Then
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
txtaliquUA.Text = aliquU
lblHoursOrDays2.Text = "D"
Else
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
txtaliquUA.Text = aliquU
lblHoursOrDays2.Text = "H"
End If
calcUrlaubsabspruch(cbUrlaubInStund.Checked)
If days > 0 AndAlso uansp > 0 Then
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
If Not cbUrlaubInStund.Checked Then
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
txtaliquUA.Text = aliquU
lblHoursOrDays2.Text = "D"
Else
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
txtaliquUA.Text = aliquU
lblHoursOrDays2.Text = "H"
End If End If
End If End If
End If End If
End If
End If End If
End Sub End Sub
Private Sub cboDaysPerWeek_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboDaysPerWeek.SelectedIndexChanged 'Private Sub cboDaysPerWeek_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboDaysPerWeek.SelectedIndexChanged
calcUrlaubsabspruch(cbUrlaubInStund.Checked) ' calcUrlaubsabspruch(cbUrlaubInStund.Checked)
End Sub 'End Sub
Private Sub calcUrlaubsabspruch(UrlaubInStunden As Boolean) Private Sub calcUrlaubsabspruch(UrlaubInStunden As Boolean, ByRef urlaubsabspruch As Double)
If Not UrlaubInStunden Then If Not UrlaubInStunden Then
If cboDaysPerWeek.SelectedItem <> "" Then If cboDaysPerWeek.SelectedItem <> "" Then
If Not cbabwJahresurlaub.Checked Then If Not cbabwJahresurlaub.Checked Then
txtUrlaubsabsp.Text = 5 * cboDaysPerWeek.SelectedItem urlaubsabspruch = 5 * cboDaysPerWeek.SelectedItem
End If End If
lblHoursOrDays1.Text = "D" lblHoursOrDays1.Text = "D"
End If End If
Else Else
If cboDaysPerWeek.SelectedItem <> "" AndAlso IsNumeric(txtWoStd.Text) AndAlso txtWoStd.Text > 0 Then If cboDaysPerWeek.SelectedItem <> "" AndAlso IsNumeric(txtWoStd.Text) AndAlso txtWoStd.Text > 0 Then
If Not cbabwJahresurlaub.Checked Then If Not cbabwJahresurlaub.Checked Then
txtUrlaubsabsp.Text = (txtWoStd.Text / cboDaysPerWeek.SelectedItem) * cboDaysPerWeek.SelectedItem * 5 urlaubsabspruch = (txtWoStd.Text / cboDaysPerWeek.SelectedItem) * cboDaysPerWeek.SelectedItem * 5
End If End If
lblHoursOrDays1.Text = "H" lblHoursOrDays1.Text = "H"
End If End If
End If End If
txtUrlaubsabsp.Text = urlaubsabspruch
End Sub End Sub