REST-API Timas

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -36,21 +36,13 @@ 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.txtTelotecSB = New System.Windows.Forms.TextBox()
         Me.Label51 = New System.Windows.Forms.Label()
@@ -60,8 +52,6 @@ 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 = 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()
@@ -70,28 +60,29 @@ Partial Class frmMitarbDetails
         Me.Label58 = New System.Windows.Forms.Label()
         Me.txtCSUser = New System.Windows.Forms.TextBox()
         Me.Label59 = New System.Windows.Forms.Label()
+        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.rtfInfoTimas = New System.Windows.Forms.RichTextBox()
+        Me.btngetInfo = New System.Windows.Forms.Button()
+        Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox()
+        Me.txtPersonalNr = New System.Windows.Forms.TextBox()
+        Me.btnMAanlegen = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        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()
@@ -107,13 +98,11 @@ 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.cbxChatBenutzer = New System.Windows.Forms.CheckBox()
@@ -145,7 +134,6 @@ 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()
@@ -189,6 +177,26 @@ 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.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 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboATLAS_SB = 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.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -197,6 +205,7 @@ Partial Class frmMitarbDetails
         Me.TabPage2.SuspendLayout()
         Me.TabPage4.SuspendLayout()
         Me.TabPage5.SuspendLayout()
+        Me.TabPage6.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -208,6 +217,7 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'PictureBox1
@@ -249,7 +259,7 @@ Partial Class frmMitarbDetails
         Me.btnADladen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.btnADladen.BackColor = System.Drawing.Color.White
         Me.btnADladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnADladen.Location = New System.Drawing.Point(541, 12)
+        Me.btnADladen.Location = New System.Drawing.Point(602, 9)
         Me.btnADladen.Name = "btnADladen"
         Me.btnADladen.Size = New System.Drawing.Size(81, 36)
         Me.btnADladen.TabIndex = 53
@@ -332,6 +342,7 @@ Partial Class frmMitarbDetails
         Me.tbcntr.Controls.Add(Me.TabPage2)
         Me.tbcntr.Controls.Add(Me.TabPage4)
         Me.tbcntr.Controls.Add(Me.TabPage5)
+        Me.tbcntr.Controls.Add(Me.TabPage6)
         Me.tbcntr.Location = New System.Drawing.Point(2, 539)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
@@ -360,33 +371,9 @@ Partial Class frmMitarbDetails
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
         Me.TabPage2.Size = New System.Drawing.Size(442, 174)
         Me.TabPage2.TabIndex = 0
-        Me.TabPage2.Text = "Zuordnung Intern"
+        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
@@ -407,18 +394,6 @@ 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
@@ -429,42 +404,6 @@ 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
@@ -506,31 +445,6 @@ 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.txtTelotecSB)
@@ -548,7 +462,7 @@ Partial Class frmMitarbDetails
         Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
         Me.TabPage4.Size = New System.Drawing.Size(442, 174)
         Me.TabPage4.TabIndex = 1
-        Me.TabPage4.Text = "Zuordnung Zollprogramme"
+        Me.TabPage4.Text = "Zollprogramme"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
         'txtTelotecSB
@@ -625,34 +539,6 @@ Partial Class frmMitarbDetails
         Me.Label43.TabIndex = 108
         Me.Label43.Text = "EZOLL Sachbearbeiter:"
         '
-        '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(198, 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)
@@ -666,7 +552,7 @@ Partial Class frmMitarbDetails
         Me.TabPage5.Name = "TabPage5"
         Me.TabPage5.Size = New System.Drawing.Size(442, 174)
         Me.TabPage5.TabIndex = 2
-        Me.TabPage5.Text = "Zuordnung Creditsafe"
+        Me.TabPage5.Text = "Creditsafe"
         Me.TabPage5.UseVisualStyleBackColor = True
         '
         'cbxShowPW
@@ -738,6 +624,73 @@ Partial Class frmMitarbDetails
         Me.Label59.TabIndex = 117
         Me.Label59.Text = "Benutzer"
         '
+        'TabPage6
+        '
+        Me.TabPage6.Controls.Add(Me.dgvData)
+        Me.TabPage6.Controls.Add(Me.rtfInfoTimas)
+        Me.TabPage6.Controls.Add(Me.btngetInfo)
+        Me.TabPage6.Controls.Add(Me.cbxTimasAngelegt)
+        Me.TabPage6.Controls.Add(Me.txtPersonalNr)
+        Me.TabPage6.Controls.Add(Me.btnMAanlegen)
+        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage6.Name = "TabPage6"
+        Me.TabPage6.Size = New System.Drawing.Size(442, 174)
+        Me.TabPage6.TabIndex = 3
+        Me.TabPage6.Text = "Zeiterfassung"
+        Me.TabPage6.UseVisualStyleBackColor = True
+        '
+        'rtfInfoTimas
+        '
+        Me.rtfInfoTimas.Location = New System.Drawing.Point(325, 0)
+        Me.rtfInfoTimas.Name = "rtfInfoTimas"
+        Me.rtfInfoTimas.Size = New System.Drawing.Size(114, 139)
+        Me.rtfInfoTimas.TabIndex = 97
+        Me.rtfInfoTimas.Text = ""
+        '
+        'btngetInfo
+        '
+        Me.btngetInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btngetInfo.BackColor = System.Drawing.Color.White
+        Me.btngetInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btngetInfo.Location = New System.Drawing.Point(367, 145)
+        Me.btngetInfo.Name = "btngetInfo"
+        Me.btngetInfo.Size = New System.Drawing.Size(72, 26)
+        Me.btngetInfo.TabIndex = 117
+        Me.btngetInfo.Text = "Info"
+        Me.btngetInfo.UseVisualStyleBackColor = False
+        '
+        'cbxTimasAngelegt
+        '
+        Me.cbxTimasAngelegt.AutoSize = True
+        Me.cbxTimasAngelegt.Enabled = False
+        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(5, 3)
+        Me.cbxTimasAngelegt.Name = "cbxTimasAngelegt"
+        Me.cbxTimasAngelegt.Size = New System.Drawing.Size(132, 17)
+        Me.cbxTimasAngelegt.TabIndex = 116
+        Me.cbxTimasAngelegt.Text = "PersonalNr (für LOHN)"
+        Me.cbxTimasAngelegt.UseVisualStyleBackColor = True
+        '
+        'txtPersonalNr
+        '
+        Me.txtPersonalNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtPersonalNr.Location = New System.Drawing.Point(143, 3)
+        Me.txtPersonalNr.Name = "txtPersonalNr"
+        Me.txtPersonalNr.Size = New System.Drawing.Size(114, 20)
+        Me.txtPersonalNr.TabIndex = 114
+        '
+        'btnMAanlegen
+        '
+        Me.btnMAanlegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnMAanlegen.BackColor = System.Drawing.Color.White
+        Me.btnMAanlegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMAanlegen.Location = New System.Drawing.Point(190, 145)
+        Me.btnMAanlegen.Name = "btnMAanlegen"
+        Me.btnMAanlegen.Size = New System.Drawing.Size(68, 26)
+        Me.btnMAanlegen.TabIndex = 54
+        Me.btnMAanlegen.Text = "anlegen"
+        Me.btnMAanlegen.UseVisualStyleBackColor = False
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -749,6 +702,7 @@ Partial Class frmMitarbDetails
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.txtTelNr)
         Me.GroupBox2.Controls.Add(Me.btnUpdateAD)
         Me.GroupBox2.Controls.Add(Me.txtEmailExtension)
         Me.GroupBox2.Controls.Add(Me.lblEmailExtension)
@@ -800,6 +754,14 @@ Partial Class frmMitarbDetails
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "Firmendaten"
         '
+        'txtTelNr
+        '
+        Me.txtTelNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtTelNr.Location = New System.Drawing.Point(18, 204)
+        Me.txtTelNr.Name = "txtTelNr"
+        Me.txtTelNr.Size = New System.Drawing.Size(114, 20)
+        Me.txtTelNr.TabIndex = 113
+        '
         'btnUpdateAD
         '
         Me.btnUpdateAD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -848,20 +810,6 @@ 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))
@@ -871,19 +819,6 @@ 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))
@@ -913,20 +848,6 @@ 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
@@ -937,19 +858,6 @@ 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))
@@ -989,31 +897,6 @@ 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
@@ -1135,9 +1018,9 @@ Partial Class frmMitarbDetails
         'txtDurchwahl
         '
         Me.txtDurchwahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDurchwahl.Location = New System.Drawing.Point(18, 204)
+        Me.txtDurchwahl.Location = New System.Drawing.Point(138, 204)
         Me.txtDurchwahl.Name = "txtDurchwahl"
-        Me.txtDurchwahl.Size = New System.Drawing.Size(174, 20)
+        Me.txtDurchwahl.Size = New System.Drawing.Size(54, 20)
         Me.txtDurchwahl.TabIndex = 6
         '
         'Label19
@@ -1146,9 +1029,9 @@ Partial Class frmMitarbDetails
         Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label19.Location = New System.Drawing.Point(15, 188)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(86, 13)
+        Me.Label19.Size = New System.Drawing.Size(108, 13)
         Me.Label19.TabIndex = 81
-        Me.Label19.Text = "Durchwahl / Nr.:"
+        Me.Label19.Text = "Telefon / Durchwahl:"
         '
         'Label8
         '
@@ -1160,20 +1043,6 @@ 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))
@@ -1220,20 +1089,6 @@ 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
@@ -1605,19 +1460,6 @@ 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
@@ -2062,7 +1904,262 @@ Partial Class frmMitarbDetails
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
+        '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
+        '
+        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(198, 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
+        '
+        '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
+        '
+        'dgvData
+        '
+        Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvData.BackgroundColor = System.Drawing.Color.White
+        Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvData.Location = New System.Drawing.Point(2, 29)
+        Me.dgvData.Name = "dgvData"
+        Me.dgvData.Size = New System.Drawing.Size(255, 110)
+        Me.dgvData.TabIndex = 118
         '
         'frmMitarbDetails
         '
@@ -2091,6 +2188,8 @@ Partial Class frmMitarbDetails
         Me.TabPage4.PerformLayout()
         Me.TabPage5.ResumeLayout(False)
         Me.TabPage5.PerformLayout()
+        Me.TabPage6.ResumeLayout(False)
+        Me.TabPage6.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -2105,6 +2204,7 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2273,4 +2373,12 @@ Partial Class frmMitarbDetails
     Friend WithEvents lblEmailExtension As Label
     Friend WithEvents btnUpdateAD As Button
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents txtTelNr As TextBox
+    Friend WithEvents TabPage6 As TabPage
+    Friend WithEvents cbxTimasAngelegt As CheckBox
+    Friend WithEvents txtPersonalNr As TextBox
+    Friend WithEvents btnMAanlegen As Button
+    Friend WithEvents btngetInfo As Button
+    Friend WithEvents rtfInfoTimas As RichTextBox
+    Friend WithEvents dgvData As VERAG_PROG_ALLGEMEIN.MyDatagridview
 End Class

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1,16 +1,18 @@
 
 Imports System.DirectoryServices
+Imports System.Globalization
 Imports System.IO
 Imports System.Net
 Imports System.Net.Http
 Imports System.Net.WebRequestMethods
 Imports System.Security.Policy
 Imports System.Text
+Imports System.Text.RegularExpressions
 Imports System.Windows
 Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel
 Imports DAKOSY_Worker.DEERRE
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports GrapeCity.Enterprise.Data.Expressions.Evaluation
+Imports itextsharp.text.pdf.codec.wmf
 Imports Microsoft.VisualBasic.ApplicationServices
 Imports Newtonsoft.Json
 Imports VERAG_PROG_ALLGEMEIN
@@ -272,6 +274,7 @@ Public Class frmMitarbDetails
         cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
         cboPosition.Text = mitarbeiter.mit_position
         txtDurchwahl.Text = mitarbeiter.mit_durchwahl
+        txtTelNr.Text = mitarbeiter.mit_telefonnr
         txtEmail.Text = mitarbeiter.mit_email
         txtMobiltel.Text = mitarbeiter.mit_mobiltel
         cbxAnrufen.Checked = mitarbeiter.mit_allowAnruf
@@ -281,6 +284,7 @@ Public Class frmMitarbDetails
         txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
         txtCSUser.Text = mitarbeiter.mit_CSuser
         txtCSPW.Text = mitarbeiter.mit_CSpwd
+        txtPersonalNr.Text = mitarbeiter.mit_PersonalNr
 
         cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
         txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
@@ -847,7 +851,27 @@ Public Class frmMitarbDetails
             End If
 
             ZOLLDATENBEARB = True
+        ElseIf tbcntr.SelectedIndex = 3 Then
+
+            If IsNothing(mitarbeiter.mit_timasId) Then
+                cbxTimasAngelegt.Checked = False
+
+                If Not cbxTimasAngelegt.Checked Then
+                    Dim dt As New DataTable
+                    dt.Columns.Add("id", GetType(Integer))
+                    dt.Columns.Add("name", GetType(String))
+                    dt.Columns.Add("info", GetType(String))
+                    dt.Columns.Add("set", GetType(Boolean))
+                    getGroups("application,json", dt)
+                    initDGV(dt)
                 End If
+
+            Else
+                'txtPersonalNr.Enabled = False
+                cbxTimasAngelegt.Checked = True
+            End If
+        End If
+
     End Sub
 
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
@@ -1019,11 +1043,12 @@ Public Class frmMitarbDetails
                     If (isFilled(de.Properties("company").Value)) Then de.Properties("company").Value = cboFirma.SelectedValue
                     If (isFilled(de.Properties("sn").Value)) Then de.Properties("sn").Value = txtNname.Text
                     If (isFilled(de.Properties("mail").Value)) Then de.Properties("mail").Value = txtEmail.Text
-
                     If (isFilled(de.Properties("streetAdress").Value)) Then de.Properties("streetAdress").Value = txtStrasse.Text
                     If (isFilled(de.Properties("postalCode").Value)) Then de.Properties("postalCode").Value = txtPlz.Text
                     If (isFilled(de.Properties("I").Value)) Then de.Properties("I").Value = txtOrt.Text
-                    If (isFilled(de.Properties("Mobile").Value)) Then de.Properties("Mobile").Value = txtMobiltel.Text
+                    If (isFilled(de.Properties("mobile").Value)) Then de.Properties("mobile").Value = txtMobiltel.Text
+                    If (isFilled(de.Properties("telephoneNumber").Value)) Then de.Properties("telephoneNumber").Value = txtTelNr.Text
+                    If (isFilled(de.Properties("otherTelephone").Value)) Then de.Properties("otherTelephone").Value = txtDurchwahl.Text
 
                     If cbxGekuendigt.Checked Then
                         Dim expire As DateTime = datGekuendigtAm.Value
@@ -1043,15 +1068,25 @@ Public Class frmMitarbDetails
                     If txtStrasse.Text = "" Then txtStrasse.Text = de.Properties("streetAdress").Value
                     If txtPlz.Text = "" Then txtPlz.Text = de.Properties("postalCode").Value
                     If txtOrt.Text = "" Then txtOrt.Text = de.Properties("I").Value
-                    If txtMobiltel.Text = "" Then txtMobiltel.Text = de.Properties("Mobile").Value
+                    If txtMobiltel.Text = "" Then txtMobiltel.Text = de.Properties("mobile").Value
-                    If txtDurchwahl.Text = "" Then txtDurchwahl.Text = de.Properties("telephoneNumber").Value
+                    If txtDurchwahl.Text = "" Then txtDurchwahl.Text = de.Properties("otherTelephone").Value
                     If txtALIASUser.Text = "" Then txtALIASUser.Text = de.Properties("sAMAccountName").Value
                     If txtEmailExtension.Text = "" Then txtEmailExtension.Text = de.Properties("extensionAttribute7").Value
+                    Dim phoneNr = de.Properties("telephoneNumber").Value
+                    If phoneNr <> "" Then
+
+                        Dim pattern = "-.*" 'enfernt alle zeichen nach -
+                        Dim myString = Regex.Replace(phoneNr, pattern, "")
+                        pattern = "DW.*" 'enfernt alle zeichen nach DW
+                        myString = Regex.Replace(myString, pattern, "")
+                        If txtTelNr.Text = "" Then txtTelNr.Text = myString.Trim()
+
+                    End If
+
                     'cboALIASDomain.changeItem(frmAD.activeDirectoryObj.domain)
                     'cboAbteilung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("department").Value))
                     'cboNiederlassung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("company").Value))
 
-
                 End If
 
             Catch ex As Exception
@@ -1084,6 +1119,309 @@ Public Class frmMitarbDetails
 
     End Function
 
+    Public Function checkConnectionTImas(ByRef rest As Chilkat.Rest, ByRef API_String As String) As Boolean
+
+
+        API_String = "https://zeit.verag.ag"
+
+        Dim success As Boolean
+
+        rest.VerboseLogging = True
+        Dim bTls As Boolean = True
+        Dim port As Integer = 443
+        Dim bAutoReconnect As Boolean = True
+        success = rest.Connect(API_String, port, bTls, bAutoReconnect)
+        If (success <> True) Then
+            Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
+            Debug.WriteLine(rest.LastErrorText)
+            rtfInfoTimas.Text = rest.LastErrorText
+            Return False
+        End If
+
+        success = rest.SetAuthBasic("admin", "BmWr501956")
+
+        If (success <> True) Then
+            Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
+            Debug.WriteLine(rest.LastErrorText)
+            rtfInfoTimas.Text = rest.LastErrorText
+            Return False
+        End If
+
+        Return True
+
+    End Function
+
+    Private Sub btnMAanlegen_Click(sender As Object, e As EventArgs) Handles btnMAanlegen.Click
+
+        Try
+
+            If Not checkMandatoryFields() Then Exit Sub
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+            Dim rest As New Chilkat.Rest
+            Dim API_STRING As String
+
+            If Not checkConnectionTImas(rest, API_STRING) Then
+                Exit Sub
+            End If
+
+            rest.AddHeader("Content-Type", "application/json")
+
+            Dim success As Boolean
+            Dim json As New Chilkat.JsonObject
+            success = json.UpdateString("externid", mitarbeiter.mit_id)
+            success = json.UpdateString("markingColor", "#3acc2d")
+            success = json.UpdateString("pnr1", txtPersonalNr.Text)
+            'success = json.UpdateString("pnr2", "ZZ-3A-Q")
+            success = json.UpdateString("firstname", mitarbeiter.mit_vname)
+            success = json.UpdateString("lastname", mitarbeiter.mit_nname)
+            success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female"))
+            'success = json.UpdateInt("card", 42)
+            'success = json.UpdateString("info", "Gebäude 2, 1. OG, Büro 54")
+            'success = json.UpdateString("clientNumber", "5600-02")
+            'success = json.UpdateInt("rfid", 178230359)
+            success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd"))
+            success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd"))
+            success = json.UpdateNull("exit")
+            success = json.UpdateString("importSign", "AX-034511")
+            success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username)
+            success = json.UpdateBool("loginActive", 0)
+            success = json.UpdateString("email", mitarbeiter.mit_email)
+            success = json.UpdateString("street", mitarbeiter.mit_strasse)
+            success = json.UpdateString("city", mitarbeiter.mit_ort)
+            success = json.UpdateString("zipcode", mitarbeiter.mit_plz)
+            success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl)
+            success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel)
+            success = json.UpdateString("password", "password")
+            success = json.UpdateBool("resetPassword", 1)
+
+            For Each r In dgvData.Rows
+                Dim i As Integer = 0
+                If r.Cells("set").Value = True Then
+                    success = json.UpdateInt("groups[" & i & "]", r.Cells("id").Value)
+                End If
+
+
+            Next
+
+            'Standardgruppe
+            'success = json.UpdateInt("groups[1]", 334)
+
+            Debug.WriteLine(json.Emit())
+
+            Dim sbRequestBody As New Chilkat.StringBuilder
+            json.EmitSb(sbRequestBody)
+
+            Dim sbResponseBody As New Chilkat.StringBuilder
+            success = rest.FullRequestSb("POST", "/rest/web-api/employees", sbRequestBody, sbResponseBody)
+            If (success <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Exit Sub
+            End If
+
+
+            If (rest.LastMethodSuccess <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                rtfInfoTimas.Text = rest.LastErrorText
+                Exit Sub
+            End If
+
+            If (rest.ResponseStatusCode <> 201) Then
+                Debug.WriteLine(rest.ResponseHeader)
+                rtfInfoTimas.Text = rest.ResponseStatusCode & " " & rest.ResponseStatusText
+                If sbResponseBody.GetAsString <> "" Then
+                    rtfInfoTimas.Text &= vbNewLine & sbResponseBody.GetAsString
+                End If
+                Exit Sub
+            Else
+                rtfInfoTimas.Text = "Mitarbeiter angelegt!"
+
+                Dim jsonResult As New Chilkat.JsonObject
+                success = jsonResult.LoadSb(sbResponseBody)
+                jsonResult.Emit()
+
+                rtfInfoTimas.Text &= "Timas-ID: " & jsonResult.StringOf("id") & vbNewLine
+                rtfInfoTimas.Text &= "MA-ID: " & jsonResult.StringOf("externid") & vbNewLine
+                rtfInfoTimas.Text &= "Name: " & jsonResult.StringOf("firstname") & " " & jsonResult.StringOf("lastname")
+
+                cbxTimasAngelegt.Checked = True
+                mitarbeiter.mit_timasId = jsonResult.StringOf("id")
+                mitarbeiter.SAVE()
+
+            End If
+
+            rest.ClearAllHeaders()
+            rest.ClearAllParts()
+
+        Catch ex As WebException
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Sub
+
+    Private Sub btngetInfo_Click(sender As Object, e As EventArgs) Handles btngetInfo.Click
+        If Not cbxTimasAngelegt.Checked Then
+            rtfInfoTimas.Text = "Mitarbeiter nicht im Timas angelegt!"
+            Exit Sub
+        End If
+
+        Try
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+            Dim rest As New Chilkat.Rest
+            Dim API_STRING As String
+
+            If Not checkConnectionTImas(rest, API_STRING) Then
+                Exit Sub
+            End If
+
+            Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & mitarbeiter.mit_timasId)
+            If (rest.LastMethodSuccess <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Exit Sub
+            End If
+
+            If (rest.ResponseStatusCode <> 200) Then
+                Debug.WriteLine(rest.ResponseHeader)
+                rtfInfoTimas.Text = rest.ResponseStatusCode & " " & rest.ResponseStatusText
+                Exit Sub
+            End If
+
+            Debug.WriteLine(responseJson)
+
+
+            Dim json As New Chilkat.JsonObject
+            Dim success = json.Load(responseJson)
+            If (success <> True) Then
+                Debug.WriteLine(json.LastErrorText)
+            End If
+
+            Debug.WriteLine(json)
+            rtfInfoTimas.Text = "Timas-ID: " & json.StringOf("id") & vbNewLine
+            rtfInfoTimas.Text &= "MA-ID: " & json.StringOf("externid") & vbNewLine
+            rtfInfoTimas.Text &= "Name: " & json.StringOf("firstname") & " " & json.StringOf("lastname")
+
+
+        Catch ex As WebException
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Private Sub cbxTimasAngelegt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTimasAngelegt.CheckedChanged
+
+        txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked
+        btnMAanlegen.Enabled = Not cbxTimasAngelegt.Checked
+        btngetInfo.Enabled = cbxTimasAngelegt.Checked
+
+
+
+    End Sub
+
+    Private Function checkMandatoryFields() As Boolean
+
+
+        If Not cbxEinsteigsDat.Checked Or mitarbeiter.mit_einstiegsdatum = "" Then
+            MsgBox("Einstiegsdatum prüfen!")
+            Return False
+            If CDate(mitarbeiter.mit_einstiegsdatum).ToShortDateString <= DateTime.Parse("01/01/2000") Then
+                MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!")
+                Return False
+            End If
+
+        ElseIf mitarbeiter.mit_gekuendigt Then
+            MsgBox("Bereits gekündige MA können nicht angelegt werden!")
+            Return False
+        ElseIf mitarbeiter.mit_vname = "" Or mitarbeiter.mit_nname = "" Then
+            MsgBox("Vor- und Nachnamen angeben!")
+            Return False
+        End If
+
+        Return True
+
+    End Function
+
+    Sub initDGV(dt As DataTable)
+
+        dgvData.DataSource = dt
+
+        If dgvData.Columns.Count > 0 Then
+            With dgvData
+                .RowHeadersWidth = 10
+                .Columns("id").Visible = False
+                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("info").Width = 50
+                .Columns("set").Width = 20
+                .Columns("set").HeaderText = "X"
+
+            End With
+
+
+        End If
+
+    End Sub
+
+    Private Sub getGroups(acceptContentType As String, ByRef dataTable As DataTable)
+        Try
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+            Dim rest As New Chilkat.Rest
+            Dim API_STRING As String
+
+            If Not checkConnectionTImas(rest, API_STRING) Then
+                Exit Sub
+            End If
+
+
+
+            Dim responseBody As String = rest.FullRequestNoBody("GET", API_STRING & "/rest/web-api/groups3")
+            If (rest.LastMethodSuccess <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Exit Sub
+            End If
+
+            If (rest.ResponseStatusCode <> 200) Then
+                Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
+            End If
+
+
+
+
+            Dim jsonArray As New Chilkat.JsonArray
+            Dim success As Boolean = jsonArray.Load(responseBody)
+            If (success <> True) Then
+                Debug.WriteLine(jsonArray.LastErrorText)
+                Exit Sub
+            End If
+
+
+            Dim num As Integer = jsonArray.Size
+            If num = -1 Then
+                Exit Sub
+            End If
+
+
+            Dim j As Integer = 0
+            While j < num
+
+                Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j)
+
+                Dim R As DataRow = dataTable.NewRow
+                R("id") = groups.IntOf("id")
+                R("name") = groups.StringOf("name")
+                R("info") = groups.StringOf("info")
+                R("set") = IIf(R("id") = "19", True, False)
+                dataTable.Rows.Add(R)
+                j = j + 1
+            End While
+
+
+        Catch ex As WebException
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+
 
 End Class
 

UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb

@@ -32,19 +32,12 @@ Partial Class usrCntlMitarbeiter
         Me.Button3 = New System.Windows.Forms.Button()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage3 = New System.Windows.Forms.TabPage()
-        Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage5 = New System.Windows.Forms.TabPage()
-        Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage6 = New System.Windows.Forms.TabPage()
-        Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.TabPage7 = New System.Windows.Forms.TabPage()
-        Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.cbx = New System.Windows.Forms.CheckBox()
         Me.txtSuche = New System.Windows.Forms.TextBox()
@@ -55,25 +48,32 @@ Partial Class usrCntlMitarbeiter
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel2.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
-        CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
-        CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage3.SuspendLayout()
-        CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage4.SuspendLayout()
-        CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage5.SuspendLayout()
-        CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage6.SuspendLayout()
-        CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage7.SuspendLayout()
-        CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Button6
@@ -182,16 +182,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage1.Text = "VERAG"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
-        'dgvVERAG
-        '
-        Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvVERAG.Location = New System.Drawing.Point(3, 3)
-        Me.dgvVERAG.Name = "dgvVERAG"
-        Me.dgvVERAG.Size = New System.Drawing.Size(875, 616)
-        Me.dgvVERAG.TabIndex = 24
-        '
         'TabPage2
         '
         Me.TabPage2.Controls.Add(Me.dgvATILLA)
@@ -203,16 +193,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage2.Text = "ATILLA"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
-        'dgvATILLA
-        '
-        Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvATILLA.Location = New System.Drawing.Point(3, 3)
-        Me.dgvATILLA.Name = "dgvATILLA"
-        Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
-        Me.dgvATILLA.TabIndex = 25
-        '
         'TabPage3
         '
         Me.TabPage3.Controls.Add(Me.dgvIMEX)
@@ -224,16 +204,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage3.Text = "IMEX"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
-        'dgvIMEX
-        '
-        Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
-        Me.dgvIMEX.Name = "dgvIMEX"
-        Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
-        Me.dgvIMEX.TabIndex = 25
-        '
         'TabPage4
         '
         Me.TabPage4.Controls.Add(Me.dgvUNISPED)
@@ -245,16 +215,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage4.Text = "UNISPED"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
-        'dgvUNISPED
-        '
-        Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
-        Me.dgvUNISPED.Name = "dgvUNISPED"
-        Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
-        Me.dgvUNISPED.TabIndex = 25
-        '
         'TabPage5
         '
         Me.TabPage5.Controls.Add(Me.dgvAMBAR)
@@ -266,16 +226,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage5.Text = "AMBAR"
         Me.TabPage5.UseVisualStyleBackColor = True
         '
-        'dgvAMBAR
-        '
-        Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
-        Me.dgvAMBAR.Name = "dgvAMBAR"
-        Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
-        Me.dgvAMBAR.TabIndex = 25
-        '
         'TabPage6
         '
         Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
@@ -287,16 +237,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage6.Text = "FRONT-OFFICE"
         Me.TabPage6.UseVisualStyleBackColor = True
         '
-        'dgvFRONTOFFICE
-        '
-        Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
-        Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
-        Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
-        Me.dgvFRONTOFFICE.TabIndex = 26
-        '
         'TabPage7
         '
         Me.TabPage7.Controls.Add(Me.dgvVERIMEX)
@@ -308,16 +248,6 @@ Partial Class usrCntlMitarbeiter
         Me.TabPage7.Text = "VERIMEX"
         Me.TabPage7.UseVisualStyleBackColor = True
         '
-        'dgvVERIMEX
-        '
-        Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3)
-        Me.dgvVERIMEX.Name = "dgvVERIMEX"
-        Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616)
-        Me.dgvVERIMEX.TabIndex = 27
-        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.cbx)
@@ -389,7 +319,7 @@ Partial Class usrCntlMitarbeiter
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKopierenToolStripMenuItem, Me.BerechtigungenSetzenToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 70)
         '
         'UserKopierenToolStripMenuItem
         '
@@ -403,6 +333,76 @@ Partial Class usrCntlMitarbeiter
         Me.BerechtigungenSetzenToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
         Me.BerechtigungenSetzenToolStripMenuItem.Text = "Berechtigungen setzen"
         '
+        'dgvVERAG
+        '
+        Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvVERAG.Location = New System.Drawing.Point(3, 3)
+        Me.dgvVERAG.Name = "dgvVERAG"
+        Me.dgvVERAG.Size = New System.Drawing.Size(875, 616)
+        Me.dgvVERAG.TabIndex = 24
+        '
+        'dgvATILLA
+        '
+        Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvATILLA.Location = New System.Drawing.Point(3, 3)
+        Me.dgvATILLA.Name = "dgvATILLA"
+        Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
+        Me.dgvATILLA.TabIndex = 25
+        '
+        'dgvIMEX
+        '
+        Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
+        Me.dgvIMEX.Name = "dgvIMEX"
+        Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
+        Me.dgvIMEX.TabIndex = 25
+        '
+        'dgvUNISPED
+        '
+        Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
+        Me.dgvUNISPED.Name = "dgvUNISPED"
+        Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
+        Me.dgvUNISPED.TabIndex = 25
+        '
+        'dgvAMBAR
+        '
+        Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
+        Me.dgvAMBAR.Name = "dgvAMBAR"
+        Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
+        Me.dgvAMBAR.TabIndex = 25
+        '
+        'dgvFRONTOFFICE
+        '
+        Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
+        Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
+        Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
+        Me.dgvFRONTOFFICE.TabIndex = 26
+        '
+        'dgvVERIMEX
+        '
+        Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3)
+        Me.dgvVERIMEX.Name = "dgvVERIMEX"
+        Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616)
+        Me.dgvVERIMEX.TabIndex = 27
+        '
         'usrCntlMitarbeiter
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -416,23 +416,23 @@ Partial Class usrCntlMitarbeiter
         Me.Panel2.ResumeLayout(False)
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
-        CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
-        CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage3.ResumeLayout(False)
-        CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage4.ResumeLayout(False)
-        CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage5.ResumeLayout(False)
-        CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage6.ResumeLayout(False)
-        CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage7.ResumeLayout(False)
-        CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.Panel3.ResumeLayout(False)
         Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -388,9 +388,11 @@ Public Class usrCntlMitarbeiter
             If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
             If sender.Name = "UserKopierenToolStripMenuItem" Then
                 copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
-            Else
+            ElseIf sender.Name = "BerechtigungenSetzenToolStripMenuItem" Then
                 Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
                 frm.Show(Me)
+            Else
+
             End If
 
 
@@ -622,6 +624,8 @@ Public Class usrCntlMitarbeiter
 
     End Sub
 
+
+
     Private Function uploadPictureToWiki(authenticationToken As String, folderIDx As Integer, image As String) As String
         Try
 
@@ -693,4 +697,7 @@ Public Class usrCntlMitarbeiter
     End Function
 
 
+
+
+
 End Class