Aliquote Urlaubsberechnung, Asfinag, Timas

2024-01-15 16:56:38 +01:00
parent 7b639ea564
commit 6c5d797341
7 changed files with 323 additions and 62 deletions
--- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
@@ -77,6 +77,8 @@ Partial Class frmMitarbDetails
        Me.txtCSUser = New System.Windows.Forms.TextBox()
        Me.Label59 = New System.Windows.Forms.Label()
        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.Label63 = New System.Windows.Forms.Label()
+        Me.txtClientNr = New System.Windows.Forms.TextBox()
        Me.btnDelete = New System.Windows.Forms.Button()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.rtfInfoTimas = New System.Windows.Forms.RichTextBox()
@@ -89,6 +91,15 @@ Partial Class frmMitarbDetails
        Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cboDaysPerWeek = New System.Windows.Forms.ComboBox()
+        Me.lblTage = New System.Windows.Forms.Label()
+        Me.Label67 = New System.Windows.Forms.Label()
+        Me.txtWoStd = New System.Windows.Forms.TextBox()
+        Me.Label66 = New System.Windows.Forms.Label()
+        Me.txtaliquUA = New System.Windows.Forms.TextBox()
+        Me.txtUrlaubsabsp = New System.Windows.Forms.TextBox()
+        Me.Label65 = New System.Windows.Forms.Label()
+        Me.cbUrlaubInStund = New System.Windows.Forms.CheckBox()
        Me.txtTelNr = New System.Windows.Forms.TextBox()
        Me.btnUpdateAD = New System.Windows.Forms.Button()
        Me.txtEmailExtension = New System.Windows.Forms.TextBox()
@@ -134,6 +145,8 @@ Partial Class frmMitarbDetails
        Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.txtprivateEMail = New System.Windows.Forms.TextBox()
+        Me.Label64 = New System.Windows.Forms.Label()
        Me.cbxHO = New System.Windows.Forms.CheckBox()
        Me.cbxChatBenutzer = New System.Windows.Forms.CheckBox()
        Me.cbxTestaccount = New System.Windows.Forms.CheckBox()
@@ -208,6 +221,9 @@ Partial Class frmMitarbDetails
        Me.cboAdminBer = New System.Windows.Forms.ComboBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.lblHoursOrDays1 = New System.Windows.Forms.Label()
+        Me.lblHoursOrDays2 = New System.Windows.Forms.Label()
+        Me.cbabwJahresurlaub = New System.Windows.Forms.CheckBox()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.TabControl2.SuspendLayout()
@@ -832,6 +848,8 @@ Partial Class frmMitarbDetails
        '
        'TabPage6
        '
+        Me.TabPage6.Controls.Add(Me.Label63)
+        Me.TabPage6.Controls.Add(Me.txtClientNr)
        Me.TabPage6.Controls.Add(Me.btnDelete)
        Me.TabPage6.Controls.Add(Me.TabControl1)
        Me.TabPage6.Controls.Add(Me.rtfInfoTimas)
@@ -847,6 +865,23 @@ Partial Class frmMitarbDetails
        Me.TabPage6.Text = "Zeiterfassung"
        Me.TabPage6.UseVisualStyleBackColor = True
        '
+        'Label63
+        '
+        Me.Label63.AutoSize = True
+        Me.Label63.Location = New System.Drawing.Point(232, 7)
+        Me.Label63.Name = "Label63"
+        Me.Label63.Size = New System.Drawing.Size(12, 13)
+        Me.Label63.TabIndex = 125
+        Me.Label63.Text = "/"
+        '
+        'txtClientNr
+        '
+        Me.txtClientNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtClientNr.Location = New System.Drawing.Point(248, 3)
+        Me.txtClientNr.Name = "txtClientNr"
+        Me.txtClientNr.Size = New System.Drawing.Size(56, 20)
+        Me.txtClientNr.TabIndex = 124
+        '
        'btnDelete
        '
        Me.btnDelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -895,9 +930,9 @@ Partial Class frmMitarbDetails
        Me.cbxTimasAngelegt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cbxTimasAngelegt.Location = New System.Drawing.Point(2, 5)
        Me.cbxTimasAngelegt.Name = "cbxTimasAngelegt"
-        Me.cbxTimasAngelegt.Size = New System.Drawing.Size(181, 17)
+        Me.cbxTimasAngelegt.Size = New System.Drawing.Size(157, 17)
        Me.cbxTimasAngelegt.TabIndex = 116
-        Me.cbxTimasAngelegt.Text = "Account - PersonalNr (Lohnverr.)"
+        Me.cbxTimasAngelegt.Text = "Account - PNr (Lohn)/Client"
        Me.cbxTimasAngelegt.UseVisualStyleBackColor = True
        '
        'txtLohnNr
@@ -905,7 +940,7 @@ Partial Class frmMitarbDetails
        Me.txtLohnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtLohnNr.Location = New System.Drawing.Point(189, 3)
        Me.txtLohnNr.Name = "txtLohnNr"
-        Me.txtLohnNr.Size = New System.Drawing.Size(47, 20)
+        Me.txtLohnNr.Size = New System.Drawing.Size(37, 20)
        Me.txtLohnNr.TabIndex = 114
        '
        'btnMAanlegen
@@ -963,6 +998,18 @@ Partial Class frmMitarbDetails
        '
        'GroupBox2
        '
+        Me.GroupBox2.Controls.Add(Me.cbabwJahresurlaub)
+        Me.GroupBox2.Controls.Add(Me.lblHoursOrDays2)
+        Me.GroupBox2.Controls.Add(Me.lblHoursOrDays1)
+        Me.GroupBox2.Controls.Add(Me.cboDaysPerWeek)
+        Me.GroupBox2.Controls.Add(Me.lblTage)
+        Me.GroupBox2.Controls.Add(Me.Label67)
+        Me.GroupBox2.Controls.Add(Me.txtWoStd)
+        Me.GroupBox2.Controls.Add(Me.Label66)
+        Me.GroupBox2.Controls.Add(Me.txtaliquUA)
+        Me.GroupBox2.Controls.Add(Me.txtUrlaubsabsp)
+        Me.GroupBox2.Controls.Add(Me.Label65)
+        Me.GroupBox2.Controls.Add(Me.cbUrlaubInStund)
        Me.GroupBox2.Controls.Add(Me.txtTelNr)
        Me.GroupBox2.Controls.Add(Me.btnUpdateAD)
        Me.GroupBox2.Controls.Add(Me.txtEmailExtension)
@@ -1015,6 +1062,90 @@ Partial Class frmMitarbDetails
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Firmendaten"
        '
+        'cboDaysPerWeek
+        '
+        Me.cboDaysPerWeek.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboDaysPerWeek.FormattingEnabled = True
+        Me.cboDaysPerWeek.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5"})
+        Me.cboDaysPerWeek.Location = New System.Drawing.Point(406, 254)
+        Me.cboDaysPerWeek.Name = "cboDaysPerWeek"
+        Me.cboDaysPerWeek.Size = New System.Drawing.Size(47, 21)
+        Me.cboDaysPerWeek.TabIndex = 119
+        '
+        'lblTage
+        '
+        Me.lblTage.AutoSize = True
+        Me.lblTage.Location = New System.Drawing.Point(324, 262)
+        Me.lblTage.Name = "lblTage"
+        Me.lblTage.Size = New System.Drawing.Size(77, 13)
+        Me.lblTage.TabIndex = 117
+        Me.lblTage.Text = "Tagewoche:"
+        '
+        'Label67
+        '
+        Me.Label67.AutoSize = True
+        Me.Label67.Location = New System.Drawing.Point(324, 239)
+        Me.Label67.Name = "Label67"
+        Me.Label67.Size = New System.Drawing.Size(77, 13)
+        Me.Label67.TabIndex = 116
+        Me.Label67.Text = "WochenStd:"
+        '
+        'txtWoStd
+        '
+        Me.txtWoStd.Location = New System.Drawing.Point(402, 232)
+        Me.txtWoStd.Name = "txtWoStd"
+        Me.txtWoStd.Size = New System.Drawing.Size(51, 20)
+        Me.txtWoStd.TabIndex = 118
+        '
+        'Label66
+        '
+        Me.Label66.AutoSize = True
+        Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label66.Location = New System.Drawing.Point(580, 261)
+        Me.Label66.Name = "Label66"
+        Me.Label66.Size = New System.Drawing.Size(72, 13)
+        Me.Label66.TabIndex = 115
+        Me.Label66.Text = "aliqu. Urlaub.:"
+        '
+        'txtaliquUA
+        '
+        Me.txtaliquUA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtaliquUA.Location = New System.Drawing.Point(658, 258)
+        Me.txtaliquUA.Name = "txtaliquUA"
+        Me.txtaliquUA.Size = New System.Drawing.Size(34, 20)
+        Me.txtaliquUA.TabIndex = 114
+        Me.txtaliquUA.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtUrlaubsabsp
+        '
+        Me.txtUrlaubsabsp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtUrlaubsabsp.Location = New System.Drawing.Point(656, 232)
+        Me.txtUrlaubsabsp.Name = "txtUrlaubsabsp"
+        Me.txtUrlaubsabsp.Size = New System.Drawing.Size(35, 20)
+        Me.txtUrlaubsabsp.TabIndex = 97
+        Me.txtUrlaubsabsp.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label65
+        '
+        Me.Label65.AutoSize = True
+        Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label65.Location = New System.Drawing.Point(580, 238)
+        Me.Label65.Name = "Label65"
+        Me.Label65.Size = New System.Drawing.Size(70, 13)
+        Me.Label65.TabIndex = 98
+        Me.Label65.Text = "Jahresanspr.:"
+        '
+        'cbUrlaubInStund
+        '
+        Me.cbUrlaubInStund.AutoSize = True
+        Me.cbUrlaubInStund.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbUrlaubInStund.Location = New System.Drawing.Point(462, 258)
+        Me.cbUrlaubInStund.Name = "cbUrlaubInStund"
+        Me.cbUrlaubInStund.Size = New System.Drawing.Size(100, 17)
+        Me.cbUrlaubInStund.TabIndex = 97
+        Me.cbUrlaubInStund.Text = "Urlaub in Std"
+        Me.cbUrlaubInStund.UseVisualStyleBackColor = True
+        '
        'txtTelNr
        '
        Me.txtTelNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1469,6 +1600,8 @@ Partial Class frmMitarbDetails
        '
        'GroupBox1
        '
+        Me.GroupBox1.Controls.Add(Me.txtprivateEMail)
+        Me.GroupBox1.Controls.Add(Me.Label64)
        Me.GroupBox1.Controls.Add(Me.cbxHO)
        Me.GroupBox1.Controls.Add(Me.cbxChatBenutzer)
        Me.GroupBox1.Controls.Add(Me.cbxTestaccount)
@@ -1505,11 +1638,29 @@ Partial Class frmMitarbDetails
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Person"
        '
+        'txtprivateEMail
+        '
+        Me.txtprivateEMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtprivateEMail.Location = New System.Drawing.Point(304, 155)
+        Me.txtprivateEMail.Name = "txtprivateEMail"
+        Me.txtprivateEMail.Size = New System.Drawing.Size(175, 20)
+        Me.txtprivateEMail.TabIndex = 95
+        '
+        'Label64
+        '
+        Me.Label64.AutoSize = True
+        Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label64.Location = New System.Drawing.Point(301, 139)
+        Me.Label64.Name = "Label64"
+        Me.Label64.Size = New System.Drawing.Size(141, 13)
+        Me.Label64.TabIndex = 96
+        Me.Label64.Text = "private EMail (für ZE-Daten):"
+        '
        'cbxHO
        '
        Me.cbxHO.AutoSize = True
        Me.cbxHO.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxHO.Location = New System.Drawing.Point(304, 199)
+        Me.cbxHO.Location = New System.Drawing.Point(295, 202)
        Me.cbxHO.Name = "cbxHO"
        Me.cbxHO.Size = New System.Drawing.Size(80, 17)
        Me.cbxHO.TabIndex = 94
@@ -1522,7 +1673,7 @@ Partial Class frmMitarbDetails
        Me.cbxChatBenutzer.Checked = True
        Me.cbxChatBenutzer.CheckState = System.Windows.Forms.CheckState.Checked
        Me.cbxChatBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxChatBenutzer.Location = New System.Drawing.Point(304, 179)
+        Me.cbxChatBenutzer.Location = New System.Drawing.Point(295, 182)
        Me.cbxChatBenutzer.Name = "cbxChatBenutzer"
        Me.cbxChatBenutzer.Size = New System.Drawing.Size(93, 17)
        Me.cbxChatBenutzer.TabIndex = 93
@@ -1533,7 +1684,7 @@ Partial Class frmMitarbDetails
        '
        Me.cbxTestaccount.AutoSize = True
        Me.cbxTestaccount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxTestaccount.Location = New System.Drawing.Point(304, 159)
+        Me.cbxTestaccount.Location = New System.Drawing.Point(389, 199)
        Me.cbxTestaccount.Name = "cbxTestaccount"
        Me.cbxTestaccount.Size = New System.Drawing.Size(86, 17)
        Me.cbxTestaccount.TabIndex = 92
@@ -1574,7 +1725,7 @@ Partial Class frmMitarbDetails
        '
        Me.cbxAnrufen.AutoSize = True
        Me.cbxAnrufen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAnrufen.Location = New System.Drawing.Point(304, 142)
+        Me.cbxAnrufen.Location = New System.Drawing.Point(389, 182)
        Me.cbxAnrufen.Name = "cbxAnrufen"
        Me.cbxAnrufen.Size = New System.Drawing.Size(133, 17)
        Me.cbxAnrufen.TabIndex = 9
@@ -2299,6 +2450,37 @@ Partial Class frmMitarbDetails
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
+        'lblHoursOrDays1
+        '
+        Me.lblHoursOrDays1.AutoSize = True
+        Me.lblHoursOrDays1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblHoursOrDays1.Location = New System.Drawing.Point(695, 238)
+        Me.lblHoursOrDays1.Name = "lblHoursOrDays1"
+        Me.lblHoursOrDays1.Size = New System.Drawing.Size(0, 13)
+        Me.lblHoursOrDays1.TabIndex = 120
+        Me.lblHoursOrDays1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblHoursOrDays2
+        '
+        Me.lblHoursOrDays2.AutoSize = True
+        Me.lblHoursOrDays2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblHoursOrDays2.Location = New System.Drawing.Point(695, 262)
+        Me.lblHoursOrDays2.Name = "lblHoursOrDays2"
+        Me.lblHoursOrDays2.Size = New System.Drawing.Size(0, 13)
+        Me.lblHoursOrDays2.TabIndex = 121
+        Me.lblHoursOrDays2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'cbabwJahresurlaub
+        '
+        Me.cbabwJahresurlaub.AutoSize = True
+        Me.cbabwJahresurlaub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbabwJahresurlaub.Location = New System.Drawing.Point(462, 232)
+        Me.cbabwJahresurlaub.Name = "cbabwJahresurlaub"
+        Me.cbabwJahresurlaub.Size = New System.Drawing.Size(86, 17)
+        Me.cbabwJahresurlaub.TabIndex = 122
+        Me.cbabwJahresurlaub.Text = "abw.JahrU"
+        Me.cbabwJahresurlaub.UseVisualStyleBackColor = True
+        '
        'frmMitarbDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2531,4 +2713,20 @@ Partial Class frmMitarbDetails
    Friend WithEvents Label62 As Label
    Friend WithEvents cboEZOLL_SB_UNISPED As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxHO As CheckBox
+    Friend WithEvents Label63 As Label
+    Friend WithEvents txtClientNr As TextBox
+    Friend WithEvents txtprivateEMail As TextBox
+    Friend WithEvents Label64 As Label
+    Friend WithEvents Label66 As Label
+    Friend WithEvents txtaliquUA As TextBox
+    Friend WithEvents txtUrlaubsabsp As TextBox
+    Friend WithEvents Label65 As Label
+    Friend WithEvents cbUrlaubInStund As CheckBox
+    Friend WithEvents cboDaysPerWeek As ComboBox
+    Friend WithEvents lblTage As Label
+    Friend WithEvents Label67 As Label
+    Friend WithEvents txtWoStd As TextBox
+    Friend WithEvents lblHoursOrDays2 As Label
+    Friend WithEvents lblHoursOrDays1 As Label
+    Friend WithEvents cbabwJahresurlaub As CheckBox
 End Class