diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
index 9338599..8400967 100644
--- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
@@ -36,13 +36,21 @@ Partial Class frmMitarbDetails
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         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.Label38 = New System.Windows.Forms.Label()
+        Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         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.Label40 = New System.Windows.Forms.Label()
         Me.cbxSpedBuch = New System.Windows.Forms.CheckBox()
         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.Label62 = 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.Label44 = 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.cbxShowPW = New System.Windows.Forms.CheckBox()
         Me.lblCheckconnection = New System.Windows.Forms.Label()
@@ -66,24 +77,34 @@ Partial Class frmMitarbDetails
         Me.txtCSUser = New System.Windows.Forms.TextBox()
         Me.Label59 = New System.Windows.Forms.Label()
         Me.TabPage7 = New System.Windows.Forms.TabPage()
+        Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.tabParameter = New System.Windows.Forms.TabPage()
+        Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label4 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label63 = New System.Windows.Forms.Label()
         Me.txtTelNr = New System.Windows.Forms.TextBox()
         Me.btnUpdateAD = New System.Windows.Forms.Button()
         Me.txtEmailExtension = New System.Windows.Forms.TextBox()
         Me.lblEmailExtension = New System.Windows.Forms.Label()
         Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox()
         Me.Label57 = New System.Windows.Forms.Label()
+        Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label56 = New System.Windows.Forms.Label()
+        Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtALIASUser2 = New System.Windows.Forms.TextBox()
         Me.Label54 = New System.Windows.Forms.Label()
         Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox()
+        Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label53 = New System.Windows.Forms.Label()
+        Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtALIASUser = New System.Windows.Forms.TextBox()
         Me.Label52 = New System.Windows.Forms.Label()
         Me.lkl = New System.Windows.Forms.LinkLabel()
         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.cboFirma = New System.Windows.Forms.ComboBox()
         Me.Label36 = New System.Windows.Forms.Label()
@@ -99,11 +120,13 @@ Partial Class frmMitarbDetails
         Me.txtDurchwahl = New System.Windows.Forms.TextBox()
         Me.Label19 = 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.Label11 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.txtUsername = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        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()
@@ -137,6 +160,7 @@ Partial Class frmMitarbDetails
         Me.Label2 = New System.Windows.Forms.Label()
         Me.txtInfo = New System.Windows.Forms.RichTextBox()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label55 = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
@@ -214,33 +238,26 @@ Partial Class frmMitarbDetails
         Me.Label65 = New System.Windows.Forms.Label()
         Me.cbUrlaubInStund = New System.Windows.Forms.CheckBox()
         Me.Label66 = New System.Windows.Forms.Label()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.Label63 = New System.Windows.Forms.Label()
-        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.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
-        Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        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()
         Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.txtSessDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSessDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.btnAddDay = New System.Windows.Forms.Button()
+        Me.btnReduceDay = New System.Windows.Forms.Button()
+        Me.btnToday = New System.Windows.Forms.Button()
+        Me.Label73 = New System.Windows.Forms.Label()
+        Me.btnJahr = New System.Windows.Forms.Button()
+        Me.btnBisJahr = New System.Windows.Forms.Button()
+        Me.btnVonJahr = New System.Windows.Forms.Button()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.btnBisMonat = New System.Windows.Forms.Button()
+        Me.btnVonMonat = New System.Windows.Forms.Button()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label74 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.dgvSessions = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -251,6 +268,7 @@ Partial Class frmMitarbDetails
         Me.TabPage5.SuspendLayout()
         Me.TabPage7.SuspendLayout()
         Me.tabParameter.SuspendLayout()
+        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -263,9 +281,10 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage8.SuspendLayout()
-        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage6.SuspendLayout()
+        CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'PictureBox1
@@ -365,6 +384,7 @@ Partial Class frmMitarbDetails
         Me.TabControl2.Controls.Add(Me.TabPage1)
         Me.TabControl2.Controls.Add(Me.TabPage3)
         Me.TabControl2.Controls.Add(Me.TabPage8)
+        Me.TabControl2.Controls.Add(Me.TabPage6)
         Me.TabControl2.Location = New System.Drawing.Point(12, 63)
         Me.TabControl2.Name = "TabControl2"
         Me.TabControl2.SelectedIndex = 0
@@ -424,6 +444,30 @@ Partial Class frmMitarbDetails
         Me.TabPage2.Text = "Intern"
         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
         '
         Me.Label50.AutoSize = True
@@ -444,6 +488,18 @@ Partial Class frmMitarbDetails
         Me.Label38.TabIndex = 96
         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
         '
         Me.Label37.AutoSize = True
@@ -454,6 +510,42 @@ Partial Class frmMitarbDetails
         Me.Label37.TabIndex = 94
         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
         '
         Me.Label42.AutoSize = True
@@ -495,6 +587,31 @@ Partial Class frmMitarbDetails
         Me.Label41.TabIndex = 100
         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
         '
         Me.TabPage4.Controls.Add(Me.Label62)
@@ -643,6 +760,48 @@ Partial Class frmMitarbDetails
         Me.Label43.TabIndex = 108
         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
         '
         Me.TabPage5.Controls.Add(Me.cbxShowPW)
@@ -738,6 +897,18 @@ Partial Class frmMitarbDetails
         Me.TabPage7.Text = "Sprachen"
         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
+        '
         'tabParameter
         '
         Me.tabParameter.Controls.Add(Me.dgvUserParameter)
@@ -749,6 +920,16 @@ Partial Class frmMitarbDetails
         Me.tabParameter.Text = "Parameter"
         Me.tabParameter.UseVisualStyleBackColor = True
         '
+        'dgvUserParameter
+        '
+        Me.dgvUserParameter.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUserParameter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUserParameter.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvUserParameter.Location = New System.Drawing.Point(3, 3)
+        Me.dgvUserParameter.Name = "dgvUserParameter"
+        Me.dgvUserParameter.Size = New System.Drawing.Size(436, 168)
+        Me.dgvUserParameter.TabIndex = 0
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -814,6 +995,31 @@ Partial Class frmMitarbDetails
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "Firmendaten"
         '
+        'cboFunktion
+        '
+        Me.cboFunktion._allowedValuesFreiText = Nothing
+        Me.cboFunktion._allowFreiText = False
+        Me.cboFunktion._value = ""
+        Me.cboFunktion.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboFunktion.DropDownWidth = 120
+        Me.cboFunktion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFunktion.FormattingEnabled = True
+        Me.cboFunktion.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
+        Me.cboFunktion.Location = New System.Drawing.Point(91, 156)
+        Me.cboFunktion.Name = "cboFunktion"
+        Me.cboFunktion.Size = New System.Drawing.Size(101, 21)
+        Me.cboFunktion.TabIndex = 115
+        '
+        'Label63
+        '
+        Me.Label63.AutoSize = True
+        Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label63.Location = New System.Drawing.Point(91, 140)
+        Me.Label63.Name = "Label63"
+        Me.Label63.Size = New System.Drawing.Size(51, 13)
+        Me.Label63.TabIndex = 114
+        Me.Label63.Text = "Funktion:"
+        '
         'txtTelNr
         '
         Me.txtTelNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -870,6 +1076,20 @@ Partial Class frmMitarbDetails
         Me.Label57.TabIndex = 110
         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
         '
         Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -879,6 +1099,19 @@ Partial Class frmMitarbDetails
         Me.Label56.TabIndex = 108
         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
         '
         Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -909,6 +1142,20 @@ Partial Class frmMitarbDetails
         Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21)
         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
         '
         Me.Label53.AutoSize = True
@@ -919,6 +1166,19 @@ Partial Class frmMitarbDetails
         Me.Label53.TabIndex = 102
         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
         '
         Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -958,6 +1218,31 @@ Partial Class frmMitarbDetails
         Me.Label45.TabIndex = 97
         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
         '
         Me.Label39.AutoSize = True
@@ -1104,6 +1389,20 @@ Partial Class frmMitarbDetails
         Me.Label8.TabIndex = 1
         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
         '
         Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1150,6 +1449,20 @@ Partial Class frmMitarbDetails
         Me.Label3.TabIndex = 56
         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
         '
         Me.Label9.AutoSize = True
@@ -1541,6 +1854,19 @@ Partial Class frmMitarbDetails
         Me.TabPage3.Text = "Programme"
         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
         '
         Me.Label55.AutoSize = True
@@ -2373,317 +2699,6 @@ Partial Class frmMitarbDetails
         Me.Label66.TabIndex = 127
         Me.Label66.Text = "aliqu. Urlaub.:"
         '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
-        '
-        'Label63
-        '
-        Me.Label63.AutoSize = True
-        Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label63.Location = New System.Drawing.Point(91, 140)
-        Me.Label63.Name = "Label63"
-        Me.Label63.Size = New System.Drawing.Size(51, 13)
-        Me.Label63.TabIndex = 114
-        Me.Label63.Text = "Funktion:"
-        '
-        '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
-        '
-        '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
-        '
-        'dgvUserParameter
-        '
-        Me.dgvUserParameter.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvUserParameter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvUserParameter.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvUserParameter.Location = New System.Drawing.Point(3, 3)
-        Me.dgvUserParameter.Name = "dgvUserParameter"
-        Me.dgvUserParameter.Size = New System.Drawing.Size(436, 168)
-        Me.dgvUserParameter.TabIndex = 0
-        '
-        'cboFunktion
-        '
-        Me.cboFunktion._allowedValuesFreiText = Nothing
-        Me.cboFunktion._allowFreiText = False
-        Me.cboFunktion._value = ""
-        Me.cboFunktion.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboFunktion.DropDownWidth = 120
-        Me.cboFunktion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFunktion.FormattingEnabled = True
-        Me.cboFunktion.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
-        Me.cboFunktion.Location = New System.Drawing.Point(91, 156)
-        Me.cboFunktion.Name = "cboFunktion"
-        Me.cboFunktion.Size = New System.Drawing.Size(101, 21)
-        Me.cboFunktion.TabIndex = 115
-        '
-        '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
-        '
         'dgvUberstundenauszahlungen
         '
         Me.dgvUberstundenauszahlungen.AKTUALISIERUNGS_INTERVALL = -1
@@ -2705,6 +2720,270 @@ Partial Class frmMitarbDetails
         Me.dgvData.Size = New System.Drawing.Size(390, 192)
         Me.dgvData.TabIndex = 149
         '
+        'TabPage6
+        '
+        Me.TabPage6.Controls.Add(Me.txtSessDatVon)
+        Me.TabPage6.Controls.Add(Me.txtSessDatBis)
+        Me.TabPage6.Controls.Add(Me.btnAddDay)
+        Me.TabPage6.Controls.Add(Me.btnReduceDay)
+        Me.TabPage6.Controls.Add(Me.btnToday)
+        Me.TabPage6.Controls.Add(Me.Label73)
+        Me.TabPage6.Controls.Add(Me.btnJahr)
+        Me.TabPage6.Controls.Add(Me.btnBisJahr)
+        Me.TabPage6.Controls.Add(Me.btnVonJahr)
+        Me.TabPage6.Controls.Add(Me.btnMonat)
+        Me.TabPage6.Controls.Add(Me.btnBisMonat)
+        Me.TabPage6.Controls.Add(Me.btnVonMonat)
+        Me.TabPage6.Controls.Add(Me.DateTimePicker2)
+        Me.TabPage6.Controls.Add(Me.Label74)
+        Me.TabPage6.Controls.Add(Me.DateTimePicker1)
+        Me.TabPage6.Controls.Add(Me.dgvSessions)
+        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage6.Name = "TabPage6"
+        Me.TabPage6.Size = New System.Drawing.Size(750, 747)
+        Me.TabPage6.TabIndex = 3
+        Me.TabPage6.Text = "Sessions"
+        Me.TabPage6.UseVisualStyleBackColor = True
+        '
+        'txtSessDatVon
+        '
+        Me.txtSessDatVon._DateTimeOnly = False
+        Me.txtSessDatVon._numbersOnly = False
+        Me.txtSessDatVon._numbersOnlyKommastellen = ""
+        Me.txtSessDatVon._numbersOnlyTrennzeichen = True
+        Me.txtSessDatVon._Prozent = False
+        Me.txtSessDatVon._ShortDateNew = True
+        Me.txtSessDatVon._ShortDateOnly = False
+        Me.txtSessDatVon._TimeOnly = False
+        Me.txtSessDatVon._TimeOnly_Seconds = False
+        Me.txtSessDatVon._value = ""
+        Me.txtSessDatVon._Waehrung = False
+        Me.txtSessDatVon._WaehrungZeichen = True
+        Me.txtSessDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSessDatVon.ForeColor = System.Drawing.Color.Black
+        Me.txtSessDatVon.Location = New System.Drawing.Point(43, 11)
+        Me.txtSessDatVon.MaxLength = 10
+        Me.txtSessDatVon.MaxLineLength = -1
+        Me.txtSessDatVon.MaxLines_Warning = ""
+        Me.txtSessDatVon.MaxLines_Warning_Label = Nothing
+        Me.txtSessDatVon.Name = "txtSessDatVon"
+        Me.txtSessDatVon.Size = New System.Drawing.Size(61, 20)
+        Me.txtSessDatVon.TabIndex = 158
+        '
+        'txtSessDatBis
+        '
+        Me.txtSessDatBis._DateTimeOnly = False
+        Me.txtSessDatBis._numbersOnly = False
+        Me.txtSessDatBis._numbersOnlyKommastellen = ""
+        Me.txtSessDatBis._numbersOnlyTrennzeichen = True
+        Me.txtSessDatBis._Prozent = False
+        Me.txtSessDatBis._ShortDateNew = True
+        Me.txtSessDatBis._ShortDateOnly = False
+        Me.txtSessDatBis._TimeOnly = False
+        Me.txtSessDatBis._TimeOnly_Seconds = False
+        Me.txtSessDatBis._value = ""
+        Me.txtSessDatBis._Waehrung = False
+        Me.txtSessDatBis._WaehrungZeichen = True
+        Me.txtSessDatBis.Enabled = False
+        Me.txtSessDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSessDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtSessDatBis.Location = New System.Drawing.Point(175, 12)
+        Me.txtSessDatBis.MaxLength = 10
+        Me.txtSessDatBis.MaxLineLength = -1
+        Me.txtSessDatBis.MaxLines_Warning = ""
+        Me.txtSessDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtSessDatBis.Name = "txtSessDatBis"
+        Me.txtSessDatBis.Size = New System.Drawing.Size(61, 20)
+        Me.txtSessDatBis.TabIndex = 160
+        '
+        'btnAddDay
+        '
+        Me.btnAddDay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAddDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnAddDay.ForeColor = System.Drawing.Color.Black
+        Me.btnAddDay.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAddDay.Location = New System.Drawing.Point(399, 9)
+        Me.btnAddDay.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnAddDay.Name = "btnAddDay"
+        Me.btnAddDay.Size = New System.Drawing.Size(34, 23)
+        Me.btnAddDay.TabIndex = 166
+        Me.btnAddDay.Text = ">>"
+        Me.btnAddDay.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAddDay.UseVisualStyleBackColor = True
+        '
+        'btnReduceDay
+        '
+        Me.btnReduceDay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnReduceDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnReduceDay.ForeColor = System.Drawing.Color.Black
+        Me.btnReduceDay.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnReduceDay.Location = New System.Drawing.Point(280, 9)
+        Me.btnReduceDay.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnReduceDay.Name = "btnReduceDay"
+        Me.btnReduceDay.Size = New System.Drawing.Size(34, 23)
+        Me.btnReduceDay.TabIndex = 164
+        Me.btnReduceDay.Text = "<<"
+        Me.btnReduceDay.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnReduceDay.UseVisualStyleBackColor = True
+        '
+        'btnToday
+        '
+        Me.btnToday.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnToday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnToday.ForeColor = System.Drawing.Color.Black
+        Me.btnToday.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnToday.Location = New System.Drawing.Point(313, 9)
+        Me.btnToday.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnToday.Name = "btnToday"
+        Me.btnToday.Size = New System.Drawing.Size(87, 23)
+        Me.btnToday.TabIndex = 165
+        Me.btnToday.Text = "Heute"
+        Me.btnToday.UseVisualStyleBackColor = True
+        '
+        'Label73
+        '
+        Me.Label73.AutoSize = True
+        Me.Label73.Location = New System.Drawing.Point(146, 15)
+        Me.Label73.Name = "Label73"
+        Me.Label73.Size = New System.Drawing.Size(23, 13)
+        Me.Label73.TabIndex = 162
+        Me.Label73.Text = "bis:"
+        '
+        'btnJahr
+        '
+        Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnJahr.Location = New System.Drawing.Point(625, 9)
+        Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnJahr.Name = "btnJahr"
+        Me.btnJahr.Size = New System.Drawing.Size(87, 23)
+        Me.btnJahr.TabIndex = 172
+        Me.btnJahr.Text = "2016"
+        Me.btnJahr.UseVisualStyleBackColor = True
+        '
+        'btnBisJahr
+        '
+        Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.Location = New System.Drawing.Point(711, 9)
+        Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisJahr.Name = "btnBisJahr"
+        Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisJahr.TabIndex = 173
+        Me.btnBisJahr.Text = ">>"
+        Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.UseVisualStyleBackColor = True
+        '
+        'btnVonJahr
+        '
+        Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.Location = New System.Drawing.Point(592, 9)
+        Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonJahr.Name = "btnVonJahr"
+        Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonJahr.TabIndex = 171
+        Me.btnVonJahr.Text = "<<"
+        Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.UseVisualStyleBackColor = True
+        '
+        'btnMonat
+        '
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(469, 9)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(87, 23)
+        Me.btnMonat.TabIndex = 169
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = True
+        '
+        'btnBisMonat
+        '
+        Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.Location = New System.Drawing.Point(555, 9)
+        Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisMonat.Name = "btnBisMonat"
+        Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisMonat.TabIndex = 170
+        Me.btnBisMonat.Text = ">>"
+        Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.UseVisualStyleBackColor = True
+        '
+        'btnVonMonat
+        '
+        Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.Location = New System.Drawing.Point(436, 9)
+        Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonMonat.Name = "btnVonMonat"
+        Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonMonat.TabIndex = 168
+        Me.btnVonMonat.Text = "<<"
+        Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.CustomFormat = "''"
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker2.Location = New System.Drawing.Point(175, 12)
+        Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker2.Size = New System.Drawing.Size(95, 20)
+        Me.DateTimePicker2.TabIndex = 161
+        '
+        'Label74
+        '
+        Me.Label74.AutoSize = True
+        Me.Label74.Location = New System.Drawing.Point(14, 15)
+        Me.Label74.Name = "Label74"
+        Me.Label74.Size = New System.Drawing.Size(28, 13)
+        Me.Label74.TabIndex = 167
+        Me.Label74.Text = "von:"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "''"
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(43, 11)
+        Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker1.Size = New System.Drawing.Size(95, 20)
+        Me.DateTimePicker1.TabIndex = 159
+        '
+        'dgvSessions
+        '
+        Me.dgvSessions.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvSessions.AllowUserToAddRows = False
+        Me.dgvSessions.AllowUserToDeleteRows = False
+        Me.dgvSessions.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvSessions.Location = New System.Drawing.Point(3, 38)
+        Me.dgvSessions.Name = "dgvSessions"
+        Me.dgvSessions.Size = New System.Drawing.Size(744, 706)
+        Me.dgvSessions.TabIndex = 156
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
         'frmMitarbDetails
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2734,6 +3013,7 @@ Partial Class frmMitarbDetails
         Me.TabPage5.PerformLayout()
         Me.TabPage7.ResumeLayout(False)
         Me.tabParameter.ResumeLayout(False)
+        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -2750,9 +3030,11 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage8.ResumeLayout(False)
         Me.TabPage8.PerformLayout()
-        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage6.ResumeLayout(False)
+        Me.TabPage6.PerformLayout()
+        CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2973,4 +3255,21 @@ Partial Class frmMitarbDetails
     Friend WithEvents dgvUserParameter As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents Label63 As Label
     Friend WithEvents cboFunktion As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents TabPage6 As TabPage
+    Friend WithEvents txtSessDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSessDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnAddDay As Button
+    Friend WithEvents btnReduceDay As Button
+    Friend WithEvents btnToday As Button
+    Friend WithEvents Label73 As Label
+    Friend WithEvents btnJahr As Button
+    Friend WithEvents btnBisJahr As Button
+    Friend WithEvents btnVonJahr As Button
+    Friend WithEvents btnMonat As Button
+    Friend WithEvents btnBisMonat As Button
+    Friend WithEvents btnVonMonat As Button
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label74 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents dgvSessions As VERAG_PROG_ALLGEMEIN.MyDatagridview
 End Class
diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb
index 83da639..fb843bc 100644
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.vb
@@ -1681,6 +1681,15 @@ Public Class frmMitarbDetails
             Catch ex As Exception
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
+
+        ElseIf TabControl2.SelectedIndex = 3 Then
+
+            txtSessDatVon.Text = Now.ToShortDateString
+            txtSessDatBis.Text = Now.ToShortDateString
+
+            btnMonat.Text = MONAT.ToString("MMMM")
+            btnJahr.Text = JAHR.Year
+
         End If
 
     End Sub
@@ -1707,6 +1716,128 @@ Public Class frmMitarbDetails
         End If
 
 
+    End Sub
+
+    Private Sub Button6_Click1(sender As Object, e As EventArgs) Handles btnReduceDay.Click
+        srcTAG = srcTAG.AddDays(-1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub Button7_Click1(sender As Object, e As EventArgs) Handles btnAddDay.Click
+        srcTAG = srcTAG.AddDays(1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub Button5_Click1(sender As Object, e As EventArgs) Handles btnToday.Click
+        initBtns("Tag")
+    End Sub
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+    Dim srcTAG As Date = CDate(Now.ToShortDateString)
+
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+                'End If
+            Case "Tag"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = srcTAG
+                DateTimePicker2.Value = srcTAG
+                If srcTAG = Now.ToShortDateString Then
+                    btnToday.Text = "Heute"
+                ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
+                    btnToday.Text = "Gestern"
+                ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
+                    btnToday.Text = "Vorgestern"
+                Else
+                    btnToday.Text = srcTAG.ToString("dd.MM")
+                End If
+
+                'End If
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+        initdgvSessions(CDate(DateTimePicker1.Value).Date, CDate(DateTimePicker2.Value).Date)
+        'btnSuche.PerformClick()
+    End Sub
+
+    Private Sub initdgvSessions(von As Date, bis As Date)
+
+        Dim SQL_SESSIONS = "select [sess_niederlassung],[sess_ipAddress],[sess_PCName],[sess_PCUserName],[sess_login],[sess_logout],[sess_lastRm],[sess_lastActivity],[sess_lastBootUpTime]
+                FROM [ADMIN].[dbo].[tblSessions] 
+                where cast(sess_login as Date) between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and sess_maId = " & mitarbeiter.mit_id & "
+                Order by sess_login"
+
+        dgvSessions.SET_SQL(SQL_SESSIONS, "ADMIN")
+        dgvSessions.LOAD()
+
+        With dgvSessions
+
+            ''.AutoGenerateColumns = False
+            ''.Columns("ignoreAuszahlungsdatum").CellTemplate = cell
+            '.Columns("ignoreAuszahlungsdatum").Width = 70
+            '.Columns("ignoreAuszahlungsdatum").HeaderText = "zu spät eingetragen"
+            '.Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            '.Columns("Datum").Width = 70
+            '.Columns("ÜS100").Width = 70
+            '.Columns("ÜS100").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            '.Columns("ÜS50").Width = 70
+            '.Columns("ÜS50").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            '.Columns("ÜS25").Width = 70
+            '.Columns("ÜS25").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            '.Columns("ÜS50_Saldo").Width = 70
+            '.Columns("ÜS50_Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            '.Columns("ausbezahlt").Width = 70
+            '.Columns("ausbezahlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        End With
+
+
     End Sub
 End Class
 
diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb
index 5b389fd..f84ad35 100644
--- a/UID/My Project/AssemblyInfo.vb	
+++ b/UID/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.4.7")>
-<Assembly: AssemblyFileVersion("1.2.4.7")>
+<Assembly: AssemblyVersion("1.2.4.8")>
+<Assembly: AssemblyFileVersion("1.2.4.8")>
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 6b443b3..9459fed 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6928,7 +6928,7 @@ repeatRequest:
 
         Select Case Lieferant
             Case "IDS"
-                sql_query = "  select Adressen.AdressenNr as KundenNr, invoice_id, LandKz as KundenLandKz, VATAmount as MWST, Country as RELandKz  FROM tblIDSInvoicesNewSplittedByCountry 
+                sql_query = "  select Adressen.AdressenNr as KundenNr,Adressen.AdressenNr as KundenNrVerag, invoice_id, LandKz as KundenLandKz, VATAmount as MWST, Country as RELandKz  FROM tblIDSInvoicesNewSplittedByCountry 
                             inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNewSplittedByCountry.CustomerCode = tbl_IDS_Kunden.CustomerCode 
                             inner join Adressen on Adressen.AdressenNr = KdNrVERAG 
                              WHERE tblIDSInvoicesNewSplittedByCountry.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]  
@@ -6941,7 +6941,7 @@ repeatRequest:
                              WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0) AND tblIDSInvoicesNewSplittedByCountry.InvToCustomer is null and Year(YearMonthDay) > 2024 and kde_keineMWSt = 1"
 
             Case "MSE"
-                sql_query = " select customer_number as KundenNr,invoice_id,LandKz as KundenLandKz, total_vat_amount_euro as MWST,  country as RELandKz FROM tblMSEInvoices 
+                sql_query = " select customer_number as KundenNr,Adressen.AdressenNr as KundenNrVerag,invoice_id,LandKz as KundenLandKz, total_vat_amount_euro as MWST,  country as RELandKz FROM tblMSEInvoices 
                               inner join tblMSECustomers on customer_id = [customer_number] 
                               inner join Adressen on Adressen.AdressenNr = partner_customer_number 
                               where tblMSEInvoices.InvToCustomer is null and Year(invoice_date) > 2024"
@@ -6958,7 +6958,7 @@ repeatRequest:
                     kdNrPlose = " AND plInv_PLOSEKundennummer = " & txtPLoseKdNr.Text
                 End If
 
-                sql_query = "  select plInv_PLOSEKundennummer as KundenNr, [plInv_Id] as invoice_id,LandKz as KundenLandKz ,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as RELandKz FROM tblPLOSE_Inv_Data  
+                sql_query = "  select plInv_PLOSEKundennummer as KundenNr,Adressen.AdressenNr as KundenNrVerag, [plInv_Id] as invoice_id,LandKz as KundenLandKz ,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as RELandKz FROM tblPLOSE_Inv_Data  
                                 inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer 
                                 where plInv_InvToCustomer is null and YEAR(plInv_SupplierRechnungsDatum) > 2024" & kdNrPlose
 
@@ -6969,11 +6969,11 @@ repeatRequest:
                                         where plInv_InvToCustomer is null and YEAR(plInv_SupplierRechnungsDatum) > 2024 and kde_keineMWSt = 1 "
 
             Case "UTA"
-                sql_query = "  select Adressen.UTAKundenNr as KundenNr,[Rechnungsnummer_pro_Lieferland] as invoice_id,LandKz as KundenLandKz, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as RELandKz  FROM [VERAG].[dbo].[tblUTAImportNew] 
+                sql_query = "  select Adressen.UTAKundenNr as KundenNr,Adressen.AdressenNr as KundenNrVerag,[Rechnungsnummer_pro_Lieferland] as invoice_id,LandKz as KundenLandKz, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as RELandKz  FROM [VERAG].[dbo].[tblUTAImportNew] 
                                 inner join Adressen on Adressen.UTAKundenNr= [tblUTAImportNew].Kundennummer  
                                 inner join tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Adressen.AdressenNr   
                                 where InvToCustomer is null and Year(Rechnungsdatum) > 2024
-                                group by Adressen.UTAKundenNr ,[Rechnungsnummer_pro_Lieferland],LandKz,[Lieferland_ISO2]"
+                                group by Adressen.UTAKundenNr,Adressen.AdressenNr ,[Rechnungsnummer_pro_Lieferland],LandKz,[Lieferland_ISO2]"
 
                 sql_query_keineMWST = "select distinct(Adressen.UTAKundenNr) as KundenNr  FROM [VERAG].[dbo].[tblUTAImportNew] 
                                         inner join Adressen on Adressen.UTAKundenNr= [tblUTAImportNew].Kundennummer  
@@ -6982,7 +6982,7 @@ repeatRequest:
                                         group by Adressen.UTAKundenNr  "
 
             Case "RMC"
-                sql_query = " select Adressen.WölflKundenNr as KundenNr,rmc_id as invoice_id,LandKz as KundenLandKz,[rmc_betragMWST] as MWST,rmc_landKZ as RELandKz
+                sql_query = " select Adressen.WölflKundenNr as KundenNr,Adressen.AdressenNr as KundenNrVerag,rmc_id as invoice_id,LandKz as KundenLandKz,[rmc_betragMWST] as MWST,rmc_landKZ as RELandKz
                             FROM [VERAG].[dbo].[tblRMCImport] 
                             inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr
                             where InvToCustomer is null and Year(rmc_reDatum) > 2024"
@@ -7055,9 +7055,10 @@ repeatRequest:
                 Continue For
             Else
 
-                If Not IsDBNull(r.Item("KundenNr")) AndAlso Not IsDBNull(r.Item("KundenLandKz")) Then
+                If Not IsDBNull(r.Item("KundenNr")) AndAlso Not IsDBNull(r.Item("KundenLandKz")) AndAlso Not IsDBNull(r.Item("KundenNrVerag")) Then
 
                     Dim kdnr As Integer = r.Item("KundenNr")
+                    Dim kdnrVerag As Integer = r.Item("KundenNrVerag")
                     Dim LandKz = r.Item("KundenLandKz")
                     Dim landKZiso2 = ""
 
@@ -7077,31 +7078,31 @@ repeatRequest:
                         'wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
                         UpdateLieferantInvToCustomer(Lieferant, r.Item("invoice_id"), r.Item("KundenNr"))
                         Continue For
-                        End If
+                    End If
 
 
-                        If landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
-                            'Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
-                            Dim rows_keineMWST() As DataRow = dtkeineMWST.Select("Land = '" & landKZiso2 & "' AND Erstattungsland= '" & Erstattungsland & "'" & IIf(Lieferant <> "IDS", " AND Lieferant <> 'IDS'", ""))
-                            If rows_keineMWST.Length > 0 Then
+                    If landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                        'Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
+                        Dim rows_keineMWST() As DataRow = dtkeineMWST.Select("Land = '" & landKZiso2 & "' AND Erstattungsland= '" & Erstattungsland & "'" & IIf(Lieferant <> "IDS", " AND Lieferant <> 'IDS'", ""))
+                        If rows_keineMWST.Length > 0 Then
                             UpdateLieferantInvToCustomer(Lieferant, r.Item("invoice_id"), r.Item("KundenNr"))
                             Continue For
-                            End If
-
                         End If
 
-                        'Rechnungen der Länder, in denen der Kunde selber MWST beantragt
-                        If landKZiso2 <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
-                            Dim rows_KundeMWST() As DataRow = dtKundeMWST.Select("LandKz = '" & Erstattungsland & "' AND KdNr =" & kdnr)
-                            If rows_KundeMWST.Length > 0 Then
-                            UpdateLieferantInvToCustomer(Lieferant, r.Item("invoice_id"), r.Item("KundenNr"))
-                            Continue For
-                            End If
-                        End If
-
-
                     End If
+
+                    'Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+                    If landKZiso2 <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+                        Dim rows_KundeMWST() As DataRow = dtKundeMWST.Select("LandKz = '" & Erstattungsland & "' AND KdNr =" & kdnrVerag)
+                        If rows_KundeMWST.Length > 0 Then
+                            UpdateLieferantInvToCustomer(Lieferant, r.Item("invoice_id"), r.Item("KundenNr"))
+                            Continue For
+                        End If
+                    End If
+
+
                 End If
+            End If
 
 
         Next