Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

UID/ADMIN.vbproj

@@ -914,14 +914,6 @@
       <SubType>Component</SubType>
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
-    <None Include="rptIntAusbIMEX.rpx">
-      <SubType>Component</SubType>
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </None>
-    <None Include="rptIntAusbFRONTOFFICE.rpx">
-      <SubType>Component</SubType>
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </None>
     <None Include="rptIntAusbATILLA.rpx">
       <SubType>Component</SubType>
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
@@ -989,7 +981,6 @@
     <None Include="Resources\uhr_green.png" />
     <None Include="Resources\uhr_notime.png" />
     <None Include="Resources\uhr_red.png" />
-    <None Include="Resources\admin1.ico" />
     <None Include="Resources\admin.png" />
     <None Include="Resources\dispo_ico.ico" />
     <None Include="Resources\uid.ico" />
@@ -1036,6 +1027,8 @@
     <None Include="Resources\doku_sym1.ico" />
     <None Include="Resources\personGray_m.jpg" />
     <None Include="Resources\personGray_w.png" />
+    <None Include="Resources\TiMaS-Paket-Time.png" />
+    <None Include="Resources\active_directory2_logo.png" />
     <Content Include="uid.ico" />
   </ItemGroup>
   <ItemGroup>

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmMitarbDetails
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmMitarbDetails
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbDetails))
@@ -71,6 +71,8 @@ Partial Class frmMitarbDetails
         Me.txtCSUser = New System.Windows.Forms.TextBox()
         Me.Label59 = New System.Windows.Forms.Label()
         Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
         Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.rtfInfoTimas = New System.Windows.Forms.RichTextBox()
         Me.btngetInfo = New System.Windows.Forms.Button()
@@ -206,6 +208,7 @@ Partial Class frmMitarbDetails
         Me.TabPage4.SuspendLayout()
         Me.TabPage5.SuspendLayout()
         Me.TabPage6.SuspendLayout()
+        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -222,7 +225,7 @@ Partial Class frmMitarbDetails
         '
         'PictureBox1
         '
-        Me.PictureBox1.Image = Global.ADMIN.My.Resources.Resources.admin_logo
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
         Me.PictureBox1.Location = New System.Drawing.Point(12, 7)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(198, 41)
@@ -258,12 +261,12 @@ 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.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnADladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnADladen.Location = New System.Drawing.Point(602, 9)
+        Me.btnADladen.Location = New System.Drawing.Point(628, 3)
         Me.btnADladen.Name = "btnADladen"
-        Me.btnADladen.Size = New System.Drawing.Size(81, 36)
+        Me.btnADladen.Size = New System.Drawing.Size(55, 45)
         Me.btnADladen.TabIndex = 53
-        Me.btnADladen.Text = "Active Directory"
         Me.btnADladen.UseVisualStyleBackColor = False
         Me.btnADladen.Visible = False
         '
@@ -751,6 +754,8 @@ Partial Class frmMitarbDetails
         '
         'TabPage6
         '
+        Me.TabPage6.Controls.Add(Me.TabControl1)
+        Me.TabPage6.Controls.Add(Me.PictureBox9)
         Me.TabPage6.Controls.Add(Me.dgvData)
         Me.TabPage6.Controls.Add(Me.rtfInfoTimas)
         Me.TabPage6.Controls.Add(Me.btngetInfo)
@@ -764,21 +769,38 @@ Partial Class frmMitarbDetails
         Me.TabPage6.Text = "Zeiterfassung"
         Me.TabPage6.UseVisualStyleBackColor = True
         '
+        'TabControl1
+        '
+        Me.TabControl1.Location = New System.Drawing.Point(5, 26)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(360, 145)
+        Me.TabControl1.TabIndex = 122
+        '
+        'PictureBox9
+        '
+        Me.PictureBox9.Location = New System.Drawing.Point(405, 3)
+        Me.PictureBox9.Name = "PictureBox9"
+        Me.PictureBox9.Size = New System.Drawing.Size(34, 27)
+        Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox9.TabIndex = 121
+        Me.PictureBox9.TabStop = False
+        '
         'dgvData
         '
         Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
         Me.dgvData.BackgroundColor = System.Drawing.Color.White
         Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvData.Location = New System.Drawing.Point(2, 29)
+        Me.dgvData.Location = New System.Drawing.Point(2, 27)
         Me.dgvData.Name = "dgvData"
-        Me.dgvData.Size = New System.Drawing.Size(364, 142)
+        Me.dgvData.Size = New System.Drawing.Size(364, 144)
         Me.dgvData.TabIndex = 118
         '
         'rtfInfoTimas
         '
-        Me.rtfInfoTimas.Location = New System.Drawing.Point(3, 29)
+        Me.rtfInfoTimas.Location = New System.Drawing.Point(3, 27)
         Me.rtfInfoTimas.Name = "rtfInfoTimas"
-        Me.rtfInfoTimas.Size = New System.Drawing.Size(363, 110)
+        Me.rtfInfoTimas.Size = New System.Drawing.Size(363, 144)
         Me.rtfInfoTimas.TabIndex = 97
         Me.rtfInfoTimas.Text = ""
         '
@@ -799,19 +821,19 @@ Partial Class frmMitarbDetails
         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.Location = New System.Drawing.Point(2, 5)
         Me.cbxTimasAngelegt.Name = "cbxTimasAngelegt"
         Me.cbxTimasAngelegt.Size = New System.Drawing.Size(181, 17)
         Me.cbxTimasAngelegt.TabIndex = 116
-        Me.cbxTimasAngelegt.Text = "Account - PersonalNr (für LOHN)"
+        Me.cbxTimasAngelegt.Text = "Account - PersonalNr (Lohnverr.)"
         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(252, 1)
+        Me.txtPersonalNr.Location = New System.Drawing.Point(189, 3)
         Me.txtPersonalNr.Name = "txtPersonalNr"
-        Me.txtPersonalNr.Size = New System.Drawing.Size(114, 20)
+        Me.txtPersonalNr.Size = New System.Drawing.Size(47, 20)
         Me.txtPersonalNr.TabIndex = 114
         '
         'btnMAanlegen
@@ -902,7 +924,7 @@ Partial Class frmMitarbDetails
         Me.btnUpdateAD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.btnUpdateAD.BackColor = System.Drawing.Color.White
         Me.btnUpdateAD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUpdateAD.Image = Global.ADMIN.My.Resources.Resources.refresh
+        Me.btnUpdateAD.Image = CType(resources.GetObject("btnUpdateAD.Image"), System.Drawing.Image)
         Me.btnUpdateAD.Location = New System.Drawing.Point(669, 37)
         Me.btnUpdateAD.Name = "btnUpdateAD"
         Me.btnUpdateAD.Size = New System.Drawing.Size(27, 20)
@@ -1867,7 +1889,7 @@ Partial Class frmMitarbDetails
         'PictureBox2
         '
         Me.PictureBox2.Enabled = False
-        Me.PictureBox2.Image = Global.ADMIN.My.Resources.Resources.Aviso
+        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
         Me.PictureBox2.Location = New System.Drawing.Point(365, 241)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(34, 33)
@@ -1887,7 +1909,7 @@ Partial Class frmMitarbDetails
         'PictureBox7
         '
         Me.PictureBox7.Enabled = False
-        Me.PictureBox7.Image = Global.ADMIN.My.Resources.Resources.sdl_ico
+        Me.PictureBox7.Image = CType(resources.GetObject("PictureBox7.Image"), System.Drawing.Image)
         Me.PictureBox7.Location = New System.Drawing.Point(209, 241)
         Me.PictureBox7.Name = "PictureBox7"
         Me.PictureBox7.Size = New System.Drawing.Size(34, 33)
@@ -2068,7 +2090,7 @@ Partial Class frmMitarbDetails
         'PictureBox4
         '
         Me.PictureBox4.Enabled = False
-        Me.PictureBox4.Image = Global.ADMIN.My.Resources.Resources.parkzeit
+        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
         Me.PictureBox4.Location = New System.Drawing.Point(526, 80)
         Me.PictureBox4.Name = "PictureBox4"
         Me.PictureBox4.Size = New System.Drawing.Size(34, 33)
@@ -2088,7 +2110,7 @@ Partial Class frmMitarbDetails
         'PictureBox3
         '
         Me.PictureBox3.Enabled = False
-        Me.PictureBox3.Image = Global.ADMIN.My.Resources.Resources.dispo_ico
+        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
         Me.PictureBox3.Location = New System.Drawing.Point(365, 80)
         Me.PictureBox3.Name = "PictureBox3"
         Me.PictureBox3.Size = New System.Drawing.Size(34, 33)
@@ -2108,7 +2130,7 @@ Partial Class frmMitarbDetails
         'PictureBox5
         '
         Me.PictureBox5.Enabled = False
-        Me.PictureBox5.Image = Global.ADMIN.My.Resources.Resources.uid_ico
+        Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image)
         Me.PictureBox5.Location = New System.Drawing.Point(209, 80)
         Me.PictureBox5.Name = "PictureBox5"
         Me.PictureBox5.Size = New System.Drawing.Size(34, 33)
@@ -2190,6 +2212,7 @@ Partial Class frmMitarbDetails
         Me.TabPage5.PerformLayout()
         Me.TabPage6.ResumeLayout(False)
         Me.TabPage6.PerformLayout()
+        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
@@ -2381,4 +2404,6 @@ Partial Class frmMitarbDetails
     Friend WithEvents btngetInfo As Button
     Friend WithEvents rtfInfoTimas As RichTextBox
     Friend WithEvents dgvData As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents PictureBox9 As PictureBox
+    Friend WithEvents TabControl1 As TabControl
 End Class

UID/Mitarbeiter/frmMitarbDetails.resx

@@ -118,6 +118,373 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAABAQAAADDCAYAAAAVxcPwAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAADM2SURBVHhe7d154H37XO9xwzEdU+YkyTkoTbiHUBwl
+        SoUIpUw3R4YrGaKruA0iEnUJodwIR6au6WSI7jnIPEbI1HF0UYbrZJ5yX2+n7eyzf6/9/X7ea6+9Pp/1
+        Wc8/Hv98fr/v2u/1Xp+19+fzXmt91tm+/vWvAwAAAACAhbGNAAAAAACgb7YRAAAAAAD0zTYCAAAAAIC+
+        2UYAAAAAANA32wgAAAAAAPpmGwEAAAAAQN9sIwAAAAAA6JttBAAAAAAAfbONAAAAAACgb7YRAAAAAAD0
+        zTYCAAAAAIC+2UYAAAAAANA32wgAAAAAAPpmGwEAAAAAQN9sIwAAAAAA6JttBAAAAAAAfbONAAAAAACg
+        b7YRAAAAAAD0zTYCAAAAAIC+2caMs/3g7wAAAABYhnPJMXJ9uaP8pjxCniR/LafIO+RU+Vf59H/6knx9
+        hlbxh09I7Nc75Y1ysrxQniWx/38g95Pbyo3k6nIZOYe4XA7i5mTAULYxw3VSAAAAALN2fjle7i6Pl5j8
+        xmT4q+Imztjuy/J+eYn8kdxBvkcGFQrcnAwYyjYeRJ3wluI6ei1xgl1ejjhZMMh3yhfF5bqGO4mLsxX/
+        VVzc6MO3iDvuc/Q/xe0jxhe/S6urSR+X98kb5GUSV5GeKA+Vu8pPy/fLhcUdNyzDA8T1pRY9Rdw+YP4u
+        ITHOj8n/2+Vr4voAxhO/E8+TKLpcVtxxOYKbowFD2caDqBOeXd4krlPX8mQ54mTBICeKy3EN75GjxMXZ
+        CgoCfaMggCnFwPBV8hi5s1xTjhZ3PNGPi8vp4vpEi/5Doojl9gXzc6z8hrxG4ti6Y47pvFaiWHwhccfr
+        G9wcDRjKNh5GHfHHxXXiWuILLG67OeKEQco1xOW3lluIi7MlFAT6RkEAtcUdW/9HHijXltaLpMh7tLhj
+        37J4ZtrtC+YhCo0nSEw+3fFFff8uj5RLyxHH0M3PgKFsYwl1xhiguA5cy3PliBMGKXFlyuW2hri9Nu5G
+        cXG2hIJA3ygIoDWfkli46kdkDt+RONgVJB4xcce6ddcVt09oV9yN8hCJ7xF3TNGez8pvyXnkm8fSzc2A
+        oWxjCXXGa4nruDUdJ988WZByc3E5rSVWrnVxtoaCQN8oCKBl/yTx3On5xB1ztO/Z4o7tHPy9uH1Ce+I7
+        IiaVMbl0xxLte7dcTb5xTN3cDBjKNpZSh4xFMFynrSVW7lz/AkSZeH3Me8XltIaXiouzRRQE+kZBAHPw
+        Ubmb8DjBvPyguOM5Jz8jbt/Qjh+VeDOAO36Yl3ht4+3EzsuAoWxjKXXIeG6/tQVI4jbKzS9DHOwe4nJZ
+        yzcroDNAQaBvFAQwJ2+Wq4g7/mjPK8Udxzl5l5xT3P6hrigQxuvt3HHDvN3fzcuAoWxjhjplrPDvOmst
+        r5bNL0VsFxOeT4jLZQ3PEBdnqygI9I2CAOYmFiH8ZXF9AO24ibjjN0d3FLePqCdeY3qKuOOFPtzHzcuA
+        IWxjhjrk5aS1BXF+Sja/HOE9XFwOa/iKxAJLLs5WURDoGwUBzNWDxfUD1BdXbuPKujtuc3SasI5FOy4h
+        bxd3rNCXm7u5GZBlGzPUGcOj1jpnC94qrL58uMtLXE1yOazhceLibBkFgb5REMCcURRoU9zB4Y7XnN1X
+        3L5iWnFnQDw65I4R+nO6XMHNz4AM25ihjhguJa2tXPpzsv4liSP9lbjc1fA5se9abRwFgb5REMDc3V5c
+        f0Ad55dYBNIdqzn7pPT0fTlH55AXiTs+6Fe8Mvwcbo4GlLKNGeqEK78nrqPW8h5hxeXtrikub7XEe3Fd
+        nK2jINA3CgKYu8/Ld4vrE5je/xB3nHrw++L2GdPouW/hYCe4ORpQyjZmqBOuxMC5pcXpwi/Jeow4Uyy+
+        6HJWw5yvLFAQ6BsFAfTg9RJXD12/wHQuKZ8Rd4x68AWZ451+Pbi6fFXccUH/4q6j87t5GlDCNmaoA66L
+        Z8hcR60lFro5t2zGuXS3EJevWub87CEFgb5REEAvThDXLzCdx4g7Nj15orh9x/7Eax/fJu54YDnu6eZp
+        QAnbmKEOuC5Wmf0XcR21ll+VzTiXLAok7xOXqxo+LHNenZiCQN8oCKAXc/+unbsrSbxJxx2bnsRV6thX
+        lwPsx38TdyywLKcKawlgENuYoc63qbXVc+M2mguIi3WJ7ikuT7XM/aoVBYG+URBAT+4qrm9g/54r7pj0
+        6DnicoDxRZGvx0UqMcxPurkacBjbmKHOtykW8nuvuI5ay/3Fxbo0MbmJ5/Vdjmp4t8x94UcKAn2jIICe
+        xHcur+Sd3g+JOx49u4a4XGBc9xCXfyzTU91cDTiMbcxQ53PilX+uo9byaelpYD/UI8Tlp5afFRfnnFAQ
+        6BsFAfQmJqeuf2B/WlrEdyp/Jy4XGE8sFNrSI6Co73Q5t5uvAQexjRnqeE5cgXiruM5ay1xfazeWy8uX
+        xOWmhlj1uocrVRQE+kZBAL15nLj+gf24mbjjsAQ/IS4nGEfk1+Udy3Y9N18DDmIbM9TxtrmRuI5ay2fl
+        UuJiXYK/EpeXWn5UXJxzQ0GgbxQE0JtY+JfHBqYRj8S9R9xxWIK4MMTrLvfnRHF5x7I9yM3XgIPYxgx1
+        vIOcLK6z1hIDYhdn764pLh+1vFRcnHNEQaBvFATQo6uK6yMY193E5X9JflFcbrCbWEzw8+JyjmV7mZuv
+        AQexjRnqeAe5trjOWkvcMv8d4mLtVVwJau35xauJi3WOKAj0jYIAenQvcX0E44m3G31MXP6X5AMSrzt2
+        OcJwPyMu38Cn3XwNOIhtzFDHO8zzxXXYWp4kLs5e3VJcHmp5hrg454qCQN8oCKBHzxbXRzCe3xGX+yWK
+        lfBdjjDcE8XlGgjf4eZswDa2MUOd7jDfJ/8hrsPW8FW5orhYexNV+ajOuzzU8BW5grhY54qCQN8oCKBH
+        /ySuj2Ac3yqxbpHL/RL9q8QdEy5XGOb94nINhBu6ORuwjW3MUKcr8ZfiOmwtscCei7M39xa3/7X0uLo1
+        BYG+URBAj74mR4vrJ9jdn4rL+5L9trhcIe8y4nIMrJzg5mzANrYxQ52uRLzy7sviOm0NccdCT8+xOxeR
+        T4nb/xriasmlxcU6ZxQE+kZBAL26urh+gt18l8SdiC7nS/YZuYS4nCHnZ8XluHVflLfLs+QRcl/5Bbmh
+        xOLX3yOXk/jdnUqMS79TYqHVa8lPye3kPvJH8hx5s8xtAccHujkbsI1tzFCnK/UYcZ22lheJi7MXjxS3
+        37U8WFycc9dKQeBh4n7ssJueXs9GQQDrbi+un2A3zxOX7xpebtpqepS4nCHnIeLy25p/kyfLCRKFsjm/
+        gvKcciWJMd9TpKULbs6fujkbsI1tzFCnKxVVuNaeqYu3ILhY5+4YaemOjE9ITK5crHPXSkEgFrBy8QEr
+        rRQEbiybhZceXFziCtdN5XfldeL2vxX3F9dPMNx1xOW6hg/JeeSNa221xbgk7hh1uUO5uKDl8tuCuAM3
+        imI/JjGJdvH3IM6tn5N3ictDbS9wczZgG9uYoU6X0VpV82Rxcc5d3I7l9reWXxMXZw8oCGAuWikI/Ii4
+        +HoUBYK45dTlobboDy5mDBN3E71GXK5ruINEXHG+uX+v5WmymTvkfFBcbmv7e4mFxF3MvTpKWrsjN5zs
+        5mzANrYxQ50uI66itHabzY+Li3Wu4q4Ht5+1nCbnExdrDygIYC4oCNRzW2nprq3wTHGxYphbiMtzDe+U
+        9duzW7qiHFeQryLruUO5uDIdi4K63Nb0dInJsYt5CX5PXF5qeZubswHb2MYMdbqsXxfXeWuJ2+l6eU44
+        9iMqtG4/a7mjuFh7QUEAc0FBoK5YPMvlo5ZXiYsTeTEReq+4PNdwE1mPL67atjSJ/BtZjw/l4tXNLqc1
+        vUJ6fjygRIy/Iw8uPzVQEECKbcxQp8uKq8UfEdeBa7mZuFjn5pbi9q+WeLaq94oxBQHMBQWB+uKVty4n
+        NbxNXIzI+xVxOa7h1eJifJK4/1/L9cTFiYNdX1w+a4m1wWKVfhfr0sQjYnEHjMvT1E51czZgG9uYoU43
+        xF3EdeBaYuI659VPw7nlA+L2r5abi4u1JxQEMBcUBOqLq3utDBjfLS5G5FxQYjV1l+MaYmFDF+e3SUuv
+        Tnu99PQWl6ncRlw+a3mouDiX6iRxeZoaBQGk2MYMdboh4qrx+8V14lrm/gqme4vbr1pihe0l/NhTEMBc
+        UBBowyni8jK1U8XFh5yWnh1+obgYV+L1v+7vaon36bs4sV1LY70vSbxBzMW5VDGXcLma2ofcnA3YxjZm
+        qNMNdWtxnbiWKFDEVXYXa+suKq0t1riUQT8FAcwFBYE23E9cXqb2f8XFh3IxGfqcuPxOLe48+X5xca5c
+        SD4u7u9reI8seSG6IX5fXC5riKvhLsYlu5y4XE2NOwSQYhsz1OmGilv03yquI9dyV3Gxtu6Pxe1PLS8W
+        F2ePKAhgLigItOF4cXmZ2qfFxYdyfyYutzX8pbgYN91D3N/XcidxccJr5Xs8nCAuxqX7pLh8TYmCAFJs
+        Y4Y63S5+SlxHruWjMrdX5B0rLb3OKq5SXE1crD2iIIC5oCDQhkuKy8vUKAjs5sryVXG5nVqMAUoXdos7
+        IVt6ZDPuVOn51cRje6K4PNbAYoLem8Tla0oUBJBiGzPU6Xb1SnGduZa4ndPF2arniNuPWk4UF2evKAhg
+        LigItCHWVmlhIhkFcBcfysTz+i6vNTxKXIzb3ErcdmqJ11G7OHGkJ4vL4dQ+Ji4+tLGw4D+5ORuwjW3M
+        UKfb1Q+L68y1fELiOTsXa2tay11cpYhVtF2svaIggLmgINCOuDrvcjMlFhUcrpXHPkK89u0S4uLcJopS
+        bxC3vRrifLiIuFhxVq28upT1A7Z7nricTemtbs4GbGMbM9TpxtBSpT3MYXIVP+ivFRd/LY8VF2vPKAhg
+        LigItKOFgsD7xMWGg7U2mR763d9SUSM8XFycOKsWJpshe1fKkhwnN6vsOm7OBmxjGzPU6cbwA9LKu5nD
+        Z+Ti4mJtxc+Ji72WuEqxxNfPUBDAXFAQaMe/i8vNlN4oLjYcrKXb7eONARcQF2eJli7GfEG+XVycOFMr
+        BYFYnNLFh4m4ORkwlG3McJ10oKeJ+9Kp5RHi4mxBLAr0QXFx1xLvN3ax9o6CAOaCgkA7XF6m9nJxsWG7
+        1hbku6e4OEt9r7SyMGL4c3Fx4kytFARuIS4+TMTNyYChbGOG66QDxbPnLa2WH9XqbxMXa22/Ji7mWmLd
+        hW8RF2vvKAhgLigItCGu6Lq8TO1Z4uLDdi29si/WgIgChYszIybhbvs1RHEi3t7g4sQZWikIxCMnLj5M
+        xM3JgKFsY4brpDt4nLgvnloeLy7Omi4q/09cvLVEgcLFugQUBDAXFATaELdFu7xM7Y/FxQfvwhLFb5fL
+        Gm4vLs6suPDxeXGfUcNfi4sTZ2ilIBB3l7j4MBE3JwOGso0ZrpPuIJ5Bb+mH6SvS2qr5MYhzsdZymiz5
+        HcKtFASwu97fqUxBoA3XEZeXqS25kDvEQ8TlsYZ/kHOIi3OIeOTPfU4t1xYXJ9opCPT+e9k8NycDhrKN
+        Ga6T7uih4r58anmquDhrOFZaeqwi/JK4WJeCgkA/KAhMY+kFgbuIy8vUbikuPhzpMhKPEbo81nBjcXEO
+        Fa9ajgUK3WfVcIq4ONFOQeCy4uLDRNycDBjKNma4TrqjeBa9hVcyrcTbD1q5Neo54mKs5V1yTnGxLgUF
+        gX5QEJjG0gsCrTyzzS2/5Z4kLoc1vEpcjLtqaX2E8NPi4ly6VgoCNdeNit9qFxPO6lQ3bwMc25ihDrcP
+        9xfXuWuJL2AX55Rauc10Xbzr1MW6JBQE+kFBYBpLLgjEO+zjMSuXlynF43DnEhcjzur75Gvi8ljDD4uL
+        c1etvUHh7TLmYxG9oCBAQaAUBQEUs40Z6nD7EM+kf1RcB6/lmuJinUIMIl8vLq5aXisu1qWhINAPCgLT
+        WHJB4HricjK1t4iLD0d6kbgc1vACcTGO5VbiPreW24mLc8koCFAQKEVBAMVsY4Y63L7cTVwHr+VvxcU5
+        hVuLi6mmGNi6WJeGgkA/KAhMY8kFgZeIy8nU/kRcfDir64vLXw3x+GLcreDiHEtcfHiDuM+vYaxXK/aE
+        ggAFgVIUBFDMNmaow+1L3M7Y0u1rocZA9jzyz+LiqeVvxMW6RBQE+kFBYBpLLQjcVlw+avh5cTHiTDE5
+        fpO4/NXwFHFxji3eL+8+v5Z7iotzqSgIUBAoRUEAxWxjhjrcPt1GXCev5XXi4tyn+4qLpZa4SnFVcbEu
+        EQWBflAQmMYSCwK3kFbeEBPrB8Q79V2cONMviMtfDdF3Licuzn14obg4aviEXFBcnEtEQYCCQCkKAihm
+        GzPU4fYpFpSJhWVcR6/lJuJi3YeLSUtvXAhPFxfrUlEQ6AcFgWksqSAQfep/ictDLS8TFyvOFLepf1Bc
+        /mqIc9fFuS/xBoqvioulhgeJi3OJKAhQEChFQQDFbGOGOty+xft2XUev5W0y1cq3jxIXQy1xleJYcbEu
+        FQWBflAQmEaPBYF4j3sUcK8s8bq0B8jJEndUuRzUFI8uuH3Ame4lLnc1fEYuLi7OfWrl9Zjhs3IpcXEu
+        DQUBCgKlKAigmG3MUIebwqvFdfZaYpE/F+eYriit3GK68hhxsS4ZBYF+UBBA7+L261iXxvUPnCEmOp8U
+        l78afltcnPt2afmcuJhqYPxxBgoCFARKURBAMduYoQ43heuK6+y1xGKHR4mLdSzPFffZtUSF/lvFxbpk
+        FAT6QUEAvftNcX0DZ/oDcbmr4d/kAuLinMLviYurhrhAcgVxcS4JBQEKAqUoCKCYbcxQh5vKSeI6fC13
+        EhfnGK4j7jNrioGBi3XpKAj0g4IAevYROb+4voEzXFa+IC5/NfyquDinEov5RVHCxVbDieLiXBIKAhQE
+        SlEQQDHbmKEON5VY2b6l5zFPk/OKi3UX8aqj14v7zFriNlNWpfYoCPSDggB6djNx/QJnerK43NUQrxtu
+        4R38vyIuvlquJi7OpaAgQEGgFAUBFLONGepwU3qGuE5fSyw85OLcRaxP4D6rpvuIixUUBHpCQQC9eqK4
+        PoEz/YC0dNGhlcUfzyXvExdjDUt/SwYFAQoCpSgIoJhtzFCHm1I8P9bSq3DGfr4v7jiIqwLus2rZ150Q
+        vaAg0A8KAujRK6SFK82te7G4/NUQr1ue6m1GJW4pLs5ari8uziWgIEBBoBQFARSzjRnqcFN7vLiOX8sD
+        xcU5xK+L+4yafklcrDgDBYF+UBBAb14uNRelm4sbiMtfLfHqShdnLfEo4+vExVrDGyVicrH2joIABYFS
+        FARQzDZmqMNNLV6F09KiP5+Wi4iLNSPeMxzbcp9Ry7vknOLixRkoCPSDggB68iThzoDDxZX4t4jLYQ2v
+        FBdnba297elW4uLsHQUBCgKlKAigmG3MUIeroaXXAoWHiYsz40/EbbsmFqE6HAWBflAQQA9iEdjbiOsD
+        OFI8q+/yWMsPiYuzBS8QF3MN75V9v/65RRQEKAiUoiCAYrYxQx2uhrgi39LV9M9J3LngYi1xJfmKuG3X
+        8lpxseKsKAj0g4IA5uyLEoXli4o7/jjSeeRUcfms4fni4mzFlaWldZzuIi7OnrVSELiMuPimQEGgDAUB
+        FLONGepwtfymuBOglhiIuThL/G9x26zpeHGx4qwoCPSDggDm6KPyUNmlKL1UvyYupzXEGw6+V1ycLfkz
+        cfHXEH3/aHFx9qqVgkDN30sKAmUoCKCYbcxQh6vl/BI/Bu4kqOHL8h3iYj1Ia8/lhZPExYojURDoBwUB
+        zMUH5XHyE8I6L8PELc+fEpdfzMcDxB3fXrVSELiKuPimQEGgDAUBFLONGepwNd1d3ElQy5PFxblNrJIb
+        q+W6bdUSVylqftHPTSsFgVjHIga4GK6l13ztAwWBfsSCr4+WHxMKAsM8QlxuMS/x+OjFxB3jHrVSELiR
+        uPimQEGgDAUBFLONGepwNcUKynGlxJ0INcSzdfGMnYvV+UVx26npaeJihddKQeB3xMUHrFAQ6NO/yR/K
+        seKOO450OYk1F1w+MT+PFHece9RKQeCO4uKbAgWBMhQEUMw2ZqjD1XY7cSdCLc8WF+em80pLixmFeOzh
+        GHHxwqMggLmgINC3uLvrqUJh4HCRJ5dDzFO8inrII5tz1EpB4OHi4ptC3M3n7vJrxZvE5WxqFARQzDZm
+        qMPVFl8M7xB3MtRyNXGxrvt1cX9b0y4LIy4VBQHMBQWBZfiSPEjiDjrXD5buqhLFE5c7zNdfiDvevWml
+        IPAScfGhnddzUhBAMduYoQ7XgpuKOxlqebG4OFcuLi29NjF8Vi4lLl5sR0EAc0FBYFneLJcX1xeW7G/F
+        5Qvz9jWZw1sadtVKQeCT0vu6O0M9QVzOpkZBAMVsY4Y6XCteI+6EqCXeHuDiDHEl3v1NTXFFycWKg1EQ
+        wFxQEFiej8s1xPWHJfpxcXlCH+LKrDvuPWmlIBD4bvHicQqXr6lREEAx25ihDteK64k7IWp5pbg4v0ti
+        8UH3N7V8Qi4kLl4cjIIA5oKCwDKdLnGbvOsTSxJXM98uLkfoxw+LO/69aKkg8BBxMS7dY8Xla2oUBFDM
+        Nmaow7UkbtV3J0Ut7rUszxf3f2u6t2zGiTIUBDAXFASW62PyreL6xVLcXlxu0JdXizv+vXi6uP2u4SNy
+        lLg4lyzWV3D5mhoFARSzjRnqcC2JxfzcSVHLW+TssoqvtbsYwmlyHlnPI8pREMBcUBBYtnh2fv33aEnO
+        J/Fb5/KC/txEXD/owePF7XMttxUX51KdU+KuW5erqVEQQDHbmKEO15pnijsxarmlRFwxEGvlVSTrYkK7
+        mUOUoyCAuaAggHhNr+sbvbufuHygT++UXhe8+0Nx+1zLhyQKbi7WJfoJcXmqgYIAitnGDHW41lxRWnpG
+        /10SFcOoorp/r+kfhVVid0NBAHNBQQBxlXxpryO8qLT2Vh/s3x3E9Ye5a/GV1bGqvot1iU4Rl6MaKAig
+        mG3MUIdr0RPFnRy13E2iiur+raafEZc/lKMggLmgIIBwR3H9o1ePFJcH9C2KX+cV1yfmLO7ycftb293F
+        xbskdxaXm1ooCKCYbcxQh2vRZeQL4k6QGr5i2mqL1zS63CGHggDmgoIAwrY34PTo8vJlcXlA/+4jrl/M
+        2Q3E7WsLHiBLvev0ZtLadw0FARSzjRnqcK1q7Tmr1hwvLm/IoSCAuaAggJVLi+sjvWlpRXZMLxZ3+xZx
+        fWOujhG3r614lcQC3y72HsX6CQ+W/xCXj5ooCKCYbcxQh2vVxYTnBr2TxOUMeRQEMBcUBLASr+BzfaQn
+        x4nbdyxLTNZc/5ireM1fS+tkbfNCibc99LpmSRSa7imnitv/FlAQQDHbmKEO17IHijtJliyqmFcRly/k
+        URDAXLRSELixxGCqB/Fu/++U75d4rWwsHvsgiaLrp8TtfwseK66P9OQV4vYdy/I56e2OmHiLgtvXFsX3
+        4DPkrnJliUW23T61Lu4E+CG5r7xMviRuf1tCQQDFbGOGOlzLLiAfE3eiLNXTxOUKw1AQwFy0UhD4EXHx
+        9SYGvvG87/PF5aGmuK3XxdyLnxS331imPxXXT+bqRHH7OQdflLdJ7MMfyD0kXs/9o/Jf5FiJQuuq6Hph
+        cTkYKuYFsd2LSxRzw/fJVeW6EmsBnCCxHsLj5cXyQWnxkYDDvNPN2wDHNmaow7XuV8WdKEsUC57E82cu
+        TximlYIA9ieOsTv2c0NBoJ64K+J0cfmo4cPi4uxBLGr2DnH7jWWKW+zjldSuv8zRvcXtJ7Du9W7eBji2
+        MUMdrnXx/FLLz/hM6dHicoThKAj0j4LAuJZYEAhxBexr4nIytXjzjYuxB/FaRbfPWLZniesvc/SD4vYR
+        WPcKN28DHNuYoQ43B3cQd7IsyWflkuLyg+EoCPSPgsC4lloQCPHsvstJDT0u9hXP+f6LuP0Fri6u38xN
+        LCzIotk4zHPdvA1wbGOGOtwcxC2E/yjuhFmK3xWXG+yGgkD/KAiMa8kFgXhkq5VnUeM5WhfjnP2GuH0F
+        wsvF9Zs5ijse3D4CK49y8zbAsY0Z6nBzEQuFuBNmCeJdvBcUlxfshoJA/ygIjGvJBYHwBnF5mVpvBYFY
+        JIyrpjjMDcX1n7m5jbj9A1bu4eZtgGMbM9Th5uR14k6a3t1LXD6wOwoC/aMgMK6lFwQeKS4vU+utINBK
+        /0bb3iJnF9eH5iRWy49HQd0+AuF4N28DHNuYoQ43JzEQdSdNzz4kPT4r2goKAv2jIDCupRcE4pVWLi9T
+        66kgEK8qi7fouP0ENt1aXD+am78Qt39AfB8e7eZtgGMbM9Th5ual4k6eXsWCii4PGAcFgf5REBjX0gsC
+        NxKXl6n1VBB4prh9BJz3y7nE9aU5iXfnu/0DXuXmbMA2tjFDnW5ujhN38vTonRILKro8YBwUBPpHQWBc
+        Sy8IXFdcXqbWS0HgGuL2r6ZYt+eyEjleuu+VL4rLU013F9ef5uYl4vYPy3Y/N2cDtrGNGep0c/RscSdQ
+        b24qbv8xHgoC/aMgMK6lFwRauaoXkzUX39ycLG7/arqzuFiX6sHi8lTTRyWew3fxzsm1xO0fliveZHM5
+        N2cDtrGNGep0c/Rd8lVxJ1Iv/l7cvmNcFAT6R0FgXBQEfF6m1kNB4Mbi9q2mNwt35p3V0fJhcfmq6X+I
+        i3duni5u/7BML3LzNeAgtjFDHW+u/lzcidSLuC3V7TfGRUGgfxQExkVBwOdlanMvCBwl8Vic27eari0u
+        3qX7eXH5qunfJV5X6eKdk0sLr9zEynXdfA04iG3MUMebq3i+7wviTqa5e5G4fcb4KAj0j4LAuCgI+LxM
+        be4FgTuJ26+aniIuVpzhFHF5q+mPxcU6N78gbv+wLCe5uRpwGNuYoc43Z628D3pM8ezQD4jbX4yPgkD/
+        KAiMi4KAz8vU5lwQiFvQPyJuv2qJq82XEhcvzhBjk9Ye14zXs11OXLxz82Rx+4hl+Lxc0c3VgMPYxgx1
+        vjmLW8VOF3dizdVTxe0r9oOCQP8oCIyLgoDPy9TmXBB4oLh9quk+4mLFWT1GXP5q+ktxsc7NeeWN4vYR
+        /buHm6cBJWxjhjrg3P2WuBNrjqLSfXlx+4n9oCDQPwoC46Ig4PMytbkWBC4hcTXe7VMt75Ie3ms/hYtK
+        vJbR5bGWnu6sjPPjfeL2E/060c3RgFK2MUOdcO7itTMfF3eCzc2jxe0j9oeCQP8oCIyLgoDPy9TmWhD4
+        E3H7U9MNxcUK767i8lhTT2svfbu8X9x+oj+vkHO7ORpQyjZmqBP24F7iTrI5+axcUtz+YX8oCPSPgsC4
+        KAj4vExtjgWBK0rcCef2p5bniosV251T3iounzUdLy7eOYqiQNy54vYT/ThJjnbzMyDDNmaoI/bg3HKa
+        uJNtLn5X3L5hvygI9I+CwLgoCPi8TG2OBYHniNuXWuJNRb0sSDe164jLaU2vERfrXF1YXipuXzF/8Zt+
+        lJubAVm2MUOdsRdzntjF83gXFLdf2C8KAv2jIDAuCgI+L1ObW0HgWuL2o6bfFhcrypwoLq813UxcrHMV
+        d2PEBaOvidtfzM+/yk3dnAwYyjZmqFP2Ir4053p7VTzy4PYJ+0dBoH8UBMZFQcDnZWpzKwi8Stx+1PLP
+        cj5xsaLMZSQed3T5rSXGgUeJi3fOoqD2j+L2GfMQj0vFGioXETsnA4ayjRnRKTtyc3EnYctOlXjkwe0P
+        9o+CQP8oCIyLgoDPy9TmVBC4qbh9qCnGCy5W5NxfXH5rOkFcrHMXY8V7y6fE7TfaFI8mPUGOkW8eTzcn
+        A4ayjRnrnbMDZ5fXizshW3V7cfuCaVAQ6B8FgXFREPB5mdpcCgJxtfbd4vahlngu28WKvPNIayvif1h6
+        vvsj1haIQkzceu72H234B4kCzsXkiOPo5mTAULYxw3XSmbu+uBOzRe+Qc4jbD0yDgkD/KAiMi4KAz8vU
+        5lIQuIu4+GuJ23a/W1ysGObG4nJd0/3ExdqTuGPgF+VlwhoD9X1R4hWCvyGHfse4ORkwlG3McJ20Ay8X
+        d7K25ibi4sd0KAj0j4LAuCgI+LxMbQ4FgQvIR8XFX8sfiosVu/kbcfmuJW6rn9s6G7u4tPyyvEBOF5cT
+        jOvjEncbPVRuIKm7UtycDBjKNma4TtqBa4g7eVvyanGxY1oUBPpHQWBcFAR8XqY2h8nOb4mLvZYoTlxI
+        XKzYzZUk7r5wea/lYeJi7V0ssn2c3FkeL68UHi8YJu68iLW+/k7+XOJRjbiYFwtqutwXc3MyYCjbmOE6
+        aSfiGasYMLXqvOLixrTiljt3fNCPXhbtjKsPbv+m1uMK3hkx2HZ5mVqsmePia0ncIeBir+VocXFiHPH6
+        ZJf3Wnid81lF/4/CzfFya7mPPFyeJM+Uk+QUeZt8QKKI8Ok1c30sIe6YWO3DaRJrmrxJTpbnydPlsfJA
+        iUecYsHRa8uxsrfxg5uTAUPZRgAAAAAA0DfbCAAAAAAA+mYbAQAAAABA32wjAAAAAADom20EAAAAAAB9
+        s40AAAAAAKBvthEAAAAAAPTNNgIAAAAAgL7ZRgAAAAAA0DfbCAAAAAAA+mYbAQAAAABA32wjAAAAAADo
+        m20EAAAAAAB9s40AAAAAAKBvthEAAAAAAPTNNgIA0Lp3nO1sADBHd5b/Lk+Qrx/iAxL/NxwjbntTmnPs
+        LTlOVrn5lLj8rVvP5XHuNxEYyjYCANA6DYp29SZxA6+DPEvctsYQ23afOUQM1leDx4uI+7yxDcnnuhgU
+        u+0eZtfPDTHJcds+TOaY/a24bZQY0jcyE7CYnLhtbIr+5P5+KmMc613ssv+3kjHO8dXE0H3Gvswp9oeJ
+        +2xnl3NyiPgujv0vKQCUiG0d434fgQzbCABA6zQQ2kVm0Lhu6KS1xFiDRCe2HYPHfRYHxog/JqZu29vE
+        PrntZGU/dyUmOG57zi4ToSG5jaKQ25ZTmseheRpD9F0X05SG7P8NZF+FjKGFrFJzjD0T7y7nZFbsr4th
+        DE9wv5FAKdsIAEDrNAgaqvRq6Db7mBTF1Vz3Wfuwj0HwrjldyUwSxvrMoUWe7AQ1rrK67Rxml/2MCZ3b
+        5qaSq79D8zSWyJ+LaypD9r/ktvpdxVXufRT65hj7VOdkRsQU++k+f0xRnORRAgxiGwEAaJ0GP0Nlruo6
+        +5hQTz3ZiatoYz7TW3qF+TBx54bbvjPWlcuYDLvtHyZ7zIZOfHbpG6W3RJfcgTA0T2MZelfPWDL7H8d6
+        X1fWnfhOG+t8nnPsU52TpabOZZzHFAWQZhsBAGidBj5DjDGpyExaS9WY7Iw5EB/j+eIQg2e3/U1jFSDC
+        0AJP5piV7peza9847Cpo6R0I+yiEZexayNtV6d0rQyeBMZmLHIch51N85q4T3DnHHqY6J0sNyUX8zSqX
+        Q45FnCcXcb+ZwDa2EQCA1mnQkzXWLeb7GEhmBn4x6F0NGHcZOIZvDB7FxZRRcoW5RGzHbX/dWMdxJbbn
+        Pucw2WPmtlFi6LFdiWPstrsS/cf93aaheRrLZp/fJlM4iNy6bTil50n2eMVdHNtymy0G7dLPwpxjD1Od
+        kyXicR33udscFE82l6wpgBTbCABA6zToyRrzCuMYk+iV2Jb7DOewCXNMXLKT87gi5bZVauoJ+q4T5HUl
+        BQgnc8zCYVfpt8l+zjbRL9z2Q8mz4kPzVEOm/x+UlyH2MQnO3gY/9K6fOccepjonS2XuDijph9kCA48O
+        oJhtBACgdRrwZGQHu4cZczCZGTSXTN5jYJxdxGqX/YnBrNvmUAfdmj32Z5U+Y78pO9GJY+K2c5js52wT
+        k+RtMZQUWHYtGk0lW5w6rPiUkT1WJRPqlcwCf5m3S6zMOfaVqc7JUpkCdGksB33/Re7i31d4HSGK2UYA
+        AFqnAU+p0klC5spiZkB8mEyxIgZ6bhubYoCZvXXabadE6ZWw0vxuy+3YdyKEoccxc8x2yW3mcw7j9jX6
+        ifu/m0r7XW2ZV7uNeddD9nyL/+u2s02m72f3a86xr5vqnCzlPneb0jsj4lgx6cfobCMAAK3TYKhE6WA3
+        BqKZWzLHHFCWXKFdyVzRzL73OrPtdSXxx/8pLRxsy23J52SuRoa4qug+6zCZYza06BAyn1Nic+JRelV1
+        aJ6mlpkUDr07xInJmfuMbTKv11wpLaiFzLk859jXTXVOlnKfu03Ennpcwv0mAkPZRgAAWucGSUbpBGE1
+        yM0MXKPYsPl5WbENt20ne/Uss+0QEwO3nYOUfkYch9KJh9vPkr+NCV52cjPkGGbzOnQynf2cEpu3/pee
+        H0PyVEOtSeE+r7CvZPYt0+fmHPu6zHf3FAWuzD6vxPkZ32FRnHbb/Cb3mwgMZRsBAGidGyRtKL3iv36l
+        cIqB67rYhtu2M+Q57n1PkErjj/+XuXV4/Sphyd/FZCCusJXehRAiN+v7UipzzMLQyXTp52T2OaxPNkr6
+        x9A8TW2qQs2m7GJvQwpvIbMuSOlV/DnHvi7z3RKmKHBli5PbxPkX2wrfjNv9JgJD2UYAAFq3GhhtEQOn
+        0itf67dqll4xDWNcYcx83pDBeGYgPqTgUBr/aiDr/s1ZnxSUTFpXuclcJRx6/DID/aFXVEMmt5njvCqA
+        xd+5f980Rj+fwlSFmk2ZczgM/dzMlfzS74o5x75uqnMyI3KV+T7K+MYCgu53ERjCNgIA0DoNiA5SOtDd
+        HHxmJhVjXDnNXN0d8mztkIliRslkfX0AXvL/w2oSWjLQX8WdvUo49Apx5pgNKbKslORq1QezV3qj4FLa
+        18e6kr5vmcntGOfuSmmfDrt8bmZyWXqVfc6xr5vqnMzKnpdDRL+/iPuNBErZRgAAWqdB0DalgzB3pWjq
+        W09LB8rx/9zfHyYz4M8OlGPf3XY2rW+3dNIWcWceFYhtZ64ShiEFlpCZ3Ay52rlS8jnruc0sqBh9vzRf
+        u/bxqWT6+qrgNIZMfxj6uaXn2krppHrOsa+b6pwcIn6PMvENEdu/gfudBErYRgAAWqcBkBODz9LbU2Og
+        5raRGbwNnVSGTPFh6NU5t61tsu8AL73CvD4AL/2bOAYlE7z1bWcmxLH91d9lZAtGQ/tH6ees738URsae
+        eAztd1PLTjrHuush+7lDJ6Ol583Ktu+2dXOOfd1U5+SuSouhu6AogEFsIwAArdPgxykddB00+c3cfjp0
+        kBzib902nSFX57ID8ey+lOZ6fQAek1b3f4bYfMQhc4V46G3DmWM2tOgQSj9nc3KTia9Ept9lHk9xsv1v
+        XXZSGJNht52sbH/OTnZXspPJkv2bc+zrpjonxxLxZnNSKvaPxweQZhsBAGidBj6bMlefDxp0ZgZrQyeW
+        IVN4GHJFM3PFPGSvnJXE7wbg0eb+b0ZsY/WoQJjqamfmmO27b7jcRh5K75Apkel3ux7XXa7c1poUTjWp
+        zuS29K6OOce+bqpzcl+i745ZJGCxQaTZRgAAWqeBz7qxJ0KldplcZAbK2atm8f8z23frKRymZPtuAJ4Z
+        wG+zOaHP3g0xdPKZyenQokMYmtsQz2C7/z9Eab/LXqF3sn18Xa1JYcTsPmOb9SJWqZiIu21tU9rv5hz7
+        uqnOySnF+RSxZu56WnmT+70EDmIbAQBonQY+67JXw8c0ZHKZmUANuWqWzUd2oFwav9tutLn/W8q9DSFz
+        dS0mEJt/XyI76R3SL8IuuV0ZMpHYlOl3ux7TIX18Xc1JYeazh1xlzxbQMhP3Occepjona8oWVT7gfi+B
+        g9hGAABap4HPSvbq8NiGTDAyE6iY7LptbJMdJMekIHt1tjR+NwDPDnDXRaxu0pCZAA+9Qpw5ZhGn20aJ
+        XXK7skuOVzL9Ljvx25Tt4+tqTwozfS/7XRF93W1nm4PWRnHmHHvIfPfvck4eJvY18uNs3rk25Psn9TjB
+        5m8lcBjbCABA6zTwCTGRrfGowLohA7zMBCrzHHdMdjJX/cI+3/vt/jZ7q/K6GGDvur2hk8/MMRvSJ1ZK
+        P+ewIs6ud81k+l30oc2JUMYuk/T4exe/s49JYebz3d0tB8ku1Ji9wj7n2ENmorzLOXmYbFFqn8eJOwSQ
+        ZhsBAGidBj6h5qMCK0MmGZlJe+nV+9RVpP80dJBcEv9Bt4FnrkyubJuQZK+GZya66zKFpxjAu22U2DW3
+        K9krtJtK+11tUxVqtsnmufTW++z5PKTPzTn2sM87HLIy3w8l5++6THHlWe73EjiIbQQAoHUa+GRuF40B
+        agwIS2ULDZkrnJlB+EEDxxicR6yZCdG62PaQSV/p1bDIufv7kJ0wxCR521W1yIH7m22G7HP8jdvWNkOL
+        DmPkdl02NyvZCUtNUxVqDpL5voi+fNjEOntO71LomGvsU52TpbLnWkzyt32nrcv+Ft3Z/V4CB7GNAAC0
+        TIOeGAyWTgSGDDizg83MRCNTyNiXocWAUDrwPWgAns3BQY81ZCYgQye62Xhr5nZdxFFyx8Gm0oJDbdnz
+        tPQKd1bEkX10KSZ668cxikFx/LPHa5dzOcw19uw5uauSR6uyeQyRy83fjygURFt2e7xhAIPYRgAAWqaB
+        T+kkMAaoJVdhnBisum06maJD9ur42IZekVspjf+ggX7plfBwWLyZScjQiW7mmA0tOoQxcrtpyGsISwsO
+        tWUnhbtMnA8TfXpI8WUXuxYDVuYY+9Tfo5EjF8e6zPfa2OL4Hed+L4HD2EYAAFqlQU9mErB55SUjc6tm
+        ZhKYKTSMKa42jTHRK4m/JB8lE5D4PwcVdLID8KH7nzlmQ4sOYazcbsrEH/Y5cR7TVIWaUlNOrOOW8zGP
+        09xiz/bpXWT6TtyFMlUeV+LzKAZgMNsIAECLNOiJQWTpYCsmwJuDtYwoJrjtblMywI3/4/52nyJfuxRG
+        1pXGXzIpLrnL47DbdPdxjDZlj9nQosOYud0UkxS3LWeKifNYMpPCXQo1GVHAyiwCN0TJ7etDzCX2qb9H
+        s31nijyuxOcc434vgVK2EQCAFv3n4McNipxdnxfOXn0uGegOuX17iFURYIw7AtaVxl/yuYdN5ksebSgp
+        KqxETtw2DhP74ra3zZCiQxgzt05prqaaOO9qqkLNUPF5Y1/FjnNmaP/KaD327Dm5q6F9J/5uX4WBOD63
+        cr+TQJZtBACgRRoAxaCyxBhXoYLb9jYlBYj4P+5vx+I+c0yl8ZcM/KPg4v52pWTthzjO7m+doX3isDg3
+        uW2UGDO3TuTTbW9T7K/7+9ZEHlz820wxkXZWx9VN6kpEgWas77OsVmPPnpO72rXvrPpqpoDpRBEgtsPj
+        ARiVbQQAoHUaFAHA3JQUfoZekd63OcfemsiTy59zxN+730RgKNsIAAAAAAD6ZhsBAAAAAEDfbCMAAAAA
+        AOibbQQAAAAAAH2zjQAAAAAAoG+2EQAAAAAA9M02AgAAAACAvtlGAAAAAADQN9sIAAAAAAD6ZhsBAAAA
+        AEDfbCMAAAAAAOibbQQAAAAAAH2zjQAAAAAAoG+2EQAAAAAA9M02AgAAAACAvtlGAAAAAADQs6+f7f8D
+        B3v2d44WCwAAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="btnUpdateAD.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAKxJREFUOE+t
+        z8ENgzAMheGoW3QRxos4doWKYThwbXdoJzF1A4kdno2UcPikkrz8UgMRXQoe9sg/5vc3jNNiiRt0p+Tg
+        /2N4SHSi3idGEAUQ+SYBwbNH/n0VtIfa7QdvG4MMb41gGfjcYISDo32DNQSZjhRdf1mGyhsjWAa+47Yz
+        yO7quwoyGUVh6zwBQSaDHvkmMYIMBaR6n+zB+fUJ8blYxg26U3LwKvCwHYUV3DDCWLBXXp8AAAAASUVO
+        RK5CYII=
+</value>
+  </data>
+  <data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAB51JREFUWEftlHlQVFcWxh90Nw4iZoAg0YCgiAgaFrVBGBk1xkogBRJkdYkICIkC
+        mgFFRhrZaaBDB4Sm2cIm++IgqwsqSyQishiBRpCgYCUVkzHJqDMm2t+c101m/GecytTMH1Plqfrqvvf6
+        3vv97jnnNvMyXsbLeBn/rYBsFwdjO9dBtjsIsvfzcMv/ImR7L2DEpwY3PCQYdhVg0CUA/Y5OuLr1DXTb
+        aM0t/c8CI56ryXAfxn0lmAjox5cHf8bMH4DZI0rNhAN3PgKmDwFTwcBEIPCFN3DtHaDLDji3Bs/OmhnM
+        bffiwKCTEYa2e9JJPsbo7m4yfIzpUKXJvQjSsTnR8yxphgBuHwSG3YGezcB5K6BpOdBsDLSuBNpXEYA5
+        O74YQC5z5stHXe7Lb7pCPuoJuWwPnk0GKU92l8xZo9mjZEy6tZ9O50xmfKBhKVClDVTrArWvAfVLgNMG
+        BLGMIFaQsSlw1ozViwFGOwK8Za0OmGp3wHeXf4efum0hv2wFOUt/zgLoILOW1UDZK0CxOmk+ULqA3hcC
+        FVokHQJ5FagjiIbXCYLAFBCUCTYLz2cgM++UWuInBVsSMgoFIklpm6So7kFJdTMqqqtRUZmDqrIE1BUe
+        RGu+K65IrTGetxgPy+mERWRcwCPNAz5lRRAlJBai/LdAJYFU0bya5yGMqBQmBL9SCZBXUBRSUdv4pPVi
+        L2qaLqK0rg2FlU0oo7GuqQPN57vR0XUNvf030HVlAHUtncjIK8etLDphIZlLVYA8Uj6XpEYQv1FmpFRT
+        CfILBJsJthyNhsostCw3YMQ5xS5/amyeMTVdBZMVJti8eQv8AwIRl5CEzOxc5BWdwunmdpxuvQhBciY8
+        9gTgrbed4BsYirGM1/A0l4OnWQyeSRjIpYwSJp9DYGw2CKRUgyDmMlFD5ahdTJmgfjhDWWhaZsCU17cF
+        1tQ1gM+3gaWlFfjrbbDeZgO2bnOEu9cufBB8GJGCOJTWtMLnfX94evnAzt4eTq6eGEvXwZMsFTxKZ/C3
+        DAY/ZT4HkquqzA5bEjYTbDnYxqzVU5aicSnkjYYGTHK65M2mljZYWFhCS1sH+kuNsMZyLdbZbsTmbe/C
+        kYx2eO1GTnENLnRewdZ3nGFhzYeTiwfGUhfikZjBAyGDH1KZf4D8fHIOIp8g2N5gy6HoibmbUU9ZOGOA
+        riQ9fUZaULxGNjGN2a++wfTde2htP49saT5CD4chNDwSPr5B8A8KgTi3DDHCk/Cj5yDKyomULMiSNfBj
+        GoNv4hl8m8jg+xRG8f6YoJ5mE0QuQeSxWSCIEipF5SsYF2sh2mMh9HVUYWfK4zElFbX8gRsyDH4xjuvD
+        YxifvIOpO7O4PX0P41N3MDF1F5/19iNJLMX+4HBEC7MQk5qNSGE2ZML5+HMyg1kBg69jlSDs+8OPlZmQ
+        UzmQr4JZEQ9Fwa/jbVsDWFmvhzH1Go/Hi1fcgJKKuo09fcO42ncdPVcH0dDaieoz59F2qRcdPdfQ0zeE
+        fgJLEGXjaJwIUYliasYMHEs8iTECuJ/A4MtjDO4eZ/BVDIPvKBM/UCbup/HQGrUSrnaLYL76DegbLMWq
+        VWYQi9MRFhYGdXX1SFVVVQ5TVF7ncImuljBNjKMREUhIEiK3oBgtrWcxJruFa0Mj6B8aQ3xqJo6cEOJ4
+        PEEkpCMiPgOjwgUK04kwBtMEMRnBoDLoVUgTP0BMeiFCIuKwYYMdhMJkBAcHw9DQEAEBAfDz85Orqakd
+        JwBTpqS8xqHz80EyTsWJmDgEh4TSNdyvWJCWJkJX74CiNNGJIoQJEhUQbAai0yRUgoWYoZOf8tVGXLAj
+        whJSEJ6WhYTMUvmBsOhHtvYOMDExQXh4OAQCAXR1dfvMzc27tbS0YsncigqgyUjTUjaODF2Gf+ABbHTY
+        BJf33oO7B3X+DncE7A9CR3cf9YcMx+NSEBIZi4r6ZsjGJ3FSkg+1eepYttIUH8aLESGSwOdwFLbtDHig
+        ratXzuVy8/X09C4YGxuP2tvbf6uvr99O37aTsbGKisp8Rf3ZSBSJj5yuSYa7tzts6P47/H4Tdrh7wJ3k
+        u89fAXBjZAJ/jElGdEomisrrYWtjC21tbdBGMLFYK/c4JMBbXr5fm1hYn+PyuLlkJCVJSGmkUA6Hs4WM
+        F9N83pztP6PqwiXf2s6eH+u6PsPnwzdRVlWDkLAjcPX0xp69fhi43oPvpyuRfSgciRmfYif9Gbm5uSE+
+        Ph6LFi0CR1W1QkNjQSGZ5JBZDo/LzaIOT6DnffRtPZlqkw1H6fYv4k2nd7mWfP52N5+dVSmfZExe6b/+
+        pGtgANKGM0iSFiBFHI0Qj12ISpXCzs4OsbExaGpqgpGR0V9ZU4Uxj5dBiqJndzI2pW01yFxF6fDvQ40W
+        rSXtpVRFcbhc0Qozs2pnL++eA5GC28FxqQ9dg8L/ord4yWM+nw9/Pz9IJBK2DINkKCLjj2jcRuv1ab3a
+        3J6/OlRpAw3aYAmXw7GmDZ3p/UPSCQ5HVURjpqamZqWZmdlNtqmoua6ScSDNs6GD6tC6F6f51wZtShyc
+        BbSxPpmsIzNHGneQ3Eib6LflNEeDnapc8T8O9oRkqEbjPPZV+fX/Phjm76XVD/0mKLxNAAAAAElFTkSu
+        QmCC
+</value>
+  </data>
+  <data name="PictureBox7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAACcRJREFUeF7tXT2IXkUUXW3Uxk6wURsN2NioRSwsRBR/CgMWaWwVjKRRUCFBsY5F
+        OhE7C0GwsoidWFilEsQuYCWIYKVYfnIeO2YyOXfmnnnzXtade+CQ3c188+7MPfdnHtnJ0SEwNUIAkyME
+        MDlCAJMjBDA5QgCTIwQwOUIAkyMEMDlCAJMjBDA5QgCTIwQwOUIAkyMEMDlCAJMjBDA5QgCTIwQwOUIA
+        kyMEMDlCAJMjBDA5NhPAX3//c/j62x8WHj35ZpWXr3y5jPvx+s/Hnw7sheEC+OmXG4cLlz+jjvYSYoCA
+        1uC5Nz6mcyvEHEnEN3797XjmcVBs3ApDBYBIZsb38rvvrx/PrAHiYfOt5ZmX3lvEMAKKjXjuVhgigN//
+        +PNw/uIVavxaIpuoQLSyuUYRDllbrhQbe/bAi9UCgJJHpNsa1Q1AlLJ5RnNNNkB2Y3MyfvHVteNPjcdq
+        AYxO+xaVTcBYNscW7BWBYuOossOwSgCKikcQDaYHa5tQlT29ihI43nX3oFsASP2ohczgrYg+w4O97cLz
+        0AcpUMrm2hNRDd0CUKMfzstTGVTdk6pb0bDVCaBFpU85KScAoFsASgrDWAuIHCUaWhsNgbDPMbLUje6+
+        t4fwpmrFxi1PAEC3ALxpFs5tASJQ0nYNygmg9nKn52jrdZZio9L89qBLAEoK8y6gtSmffv7NMiYvIwxK
+        9LZqK/5eFYGnF1Bs7GkwFXQJAItkxjJ6BZCLCtkgObvlpBJeh3kyE6CsFWwJFFBOKVu8gs6xuQB6OuQ1
+        8JaSWl9SAtmHzcHomVcpd2oAqNhcACAWvHUqA7bITAAaQzYHI9ZaQ57pWvRmqTXobgKZwR6mWr6FshVH
+        Ke/yFaeBtYynnACULNWLbgGozZHFJIgRwDzsGYxqbVWOqrXjoGKjkqV60S0AZSFeojlaIwalVqtQGrea
+        AE7SCQDoFgDSotLMqOwRgjcrYZwKRQA1xymZc+sTANAtAGCLLJATm6VswhYngIRRAjhJJwBglQAAbCYz
+        fhSxYR4RYAz7POOW2QW0GkzllNKTpXqwWgDA1iJAA9aKhq1OAAlK5Fo9gGLjHicAYIgAAKQ9tpBRbEWt
+        Uo7U2qoeA635FRt7slQPhgkgAYYrRyYvEYG1LODNQphHhRK5oGWnckrpyVI9GC6ABEQBxKDUzhZrm+J9
+        Tk9tVY5uNYEpe6FmqV5sJoAScB4EodTSkrUXI2w8I6JQhZLRarVbWfte2E0AOdANK1GVaG3ulicA5dUt
+        aM1/Ek8AwB0RQAI2RYkKnMUZlBqt1lb1hGOlbsXGvU4AgCwAOA0qTyxfkODvFWCO/PM1WgJQsolinxK1
+        YC1ylXVi7F5wCUDZCNV4JcVaAtjqBKA0bWBt7UomUbPUGrgEoJyDPS9tciiRYTVw3iZNqa3Kq18Q4qqt
+        +ySeAAB3CVA6YaXTVuZlEaaIs3aKSEBGUiMfbGU+9hlGNUuthVsAatfuaWTUBou9Yh1xAkhH1B7HgxBx
+        DYqNSpYaAbcA1ONQIjY2dxwiFj9TIh+0ImPrV9AeMmHmUE4Aa6n+GwK3AAC1Lo6kFb097xNG0rIrB8aw
+        z25BtYGUBKCkspFEtrAaLLWMjKS319nTRqUBByQBAHuqObHWFSsvkkZSaXR7ewuVrV6EQRYAgMUzA7Zg
+        raYpJ4CR9KT9hD1t9DTeJboEAOyRCVr1rLcx7SUiWT2j71k2PcfcEt0CAOCALdIbmk3PRu9VjrBGtbtO
+        OMkNILBKAAl48IgTAuZQFrHV5iKVYm5QbapK7CkANTsBQwSQI22cRxAYk8YH7gyGCyDw/0IIYHKEACZH
+        CGByhAAmRwhgcoQAJkcIYHKEACZHCGByhAAmRwhgcoQAJkcIYHKEACZHCGByhAAmRwhgcoQAJsfRi+9c
+        PTzy6oeHJ85/cjhz7vLhsXOXlj+Dp4/Jt/A1fA7fHz38ygf0H2wGTz8X3z/++kfLN/c/e/Fw3zMXDvee
+        DZ5mwsfwNXy++P7BF27+bt1dT70VnIDJ34vvH3j+3f9+EJyLi+8fevn95Zu7n76pjODpZvL14vtHX7u0
+        fHPP2bdvSQ/B00n4GL7G14vvcSzAN2gQQgCnn/AxfI2vF9+HAOZiCGByhgAmZwhgcoYAJmcIYHKGACZn
+        UwDWlayey6DKi5Rwzbx1j1/PjVY5ajeEqnPjbh18ZsSFV7VrY9l4hbi7CHaye4twt1JtTxJdGYBdNtS6
+        G5BdUli7J6jnRqsctbl7b/QCYBeb08PWPX29AsPeK5dV1XzlEgDbwNZtV6XyWxu59vat2g2hPbdl5Wit
+        1WLrfyPxRGjJ3kCBD9l8LgGwFFpzKKKxRO02cOtK0xEpmJUw6388gR1WtlBtYXtWwnKKRauc4Fl5AFjP
+        ZpnAJQDm0Np/G1Ma2lK6lSprUe0ls72VjVjGaK0hJxM0Nr8EnsM+z2hdnWeVPvY85jOXAFgUAcxB5YNr
+        jV8iW5yyOTWyaGg5s6fk5SzTNOZT9rAkEzHQWgcrQQi2fIxLACCbjKXFclytAUlkqa237pZkNdOKGhAO
+        YWv1ZoAym6G3SeWP9Tme0sLWgLnY2JwpsPB52A+Wa3cLgBlROreMfm8U9zaANUcmMmdaUQfnsfQP+zyR
+        CpbPy4XD9rAlLCtzjAoQtwBgaInceBhaOtLjIERAL9h8Oa3NU+FZB1juUSkcVuoginyOklZ/VKZyNncJ
+        ljXcAmCG5MaXi/d2uExYHniyi7V5XqA0ebt/q/HLx5QZEmitw9qfMiOxzFWCic0tABapyXgsPo9+fJ3q
+        Xos9UeFlr7iQxtl8NZbpnc1hZbvSmTmtNeRjvJkOc+WfA90CAMsUD+DnZdfMHmSRKXdUfSudApTpnEVu
+        mbpbxJxrUKbznB4BMLK1s+dIAmDOKtOsEj2WcmsbopAJljnWWlc5ziJrNBXUAqbc34RaaVIyjSQAlq7L
+        xXuOfYk9KdHLWskqyaLMW4asCFXQehYTstVjIaMxQWIONl4SQGuxaJry8S2y+SxDVbLIqW0aQ0uIZe8D
+        tJrfnjVb+w7h5L0WxjGxAJbIJAFYEZtQS0uMrE4pqG02y1bYIDYWZGWgNh5k9ucOYbT6hZbYyj6rBQgh
+        X5O1FkkAMNJCS/mMa2tnrU4zh9YEyqLMKhkgc6SnebX20NNzsGMkA+zGWvM1WfNLAgDZxkJtat220q4C
+        65n4OUuFbGyiZQ97CYT5S/Eqe8BsU04+cCzLPgjCvAfLRWrZJgsgeLoYApicIYDJGQKYnLcJIH49fC7C
+        x7f8enhcEDEfb7kgIq6ImZeL7+OSqPmY/L34Pq6Jm4u3XRMXF0XOy8X3cVXsPLz9qtirh38BFaK7g88d
+        vh8AAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAlCAYAAAAjt+tHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAq9JREFUWEfVl91qIjEYhqfQpQcWCv1ZFvagSpddqLRIW3DcE/+9Cq/Dy/AmvAdv
+        wQvx2ENPPDD9ntlkmOg3saXpSgMPk0nyfe87SWyTZDAYwIlwKpwJ58KFcClcRYJc5CQ3GmihmTjxb0JF
+        YPBPoSb8En5HglzkJDcaaKF5ggHc0HAj3AkPwouQRoac5EYDLTRPMcCU4IqOdDQamV6vZ/r9fvaUtrzO
+        k3cH7yGKY9vttknTlDpm0ELzDAOsC1PzMBwOTb1eN5VKxSRJEhVykrvZbGKCmUDzHANsDtbnha/8DHEH
+        ubvdLgZYDjQvMMAOZZOkTJsWGBNmGS2reYkB1oKdSqMaFBO7N9BC8+q/G0DDau0beMsSrFYrU1Y2m42Z
+        z+emVqupsfDhGQgZcGW9XquxEM0AIpPJJGc6nZrlcpn1UWazmRofzQBPrZ9lCPWjYbX2DbxnD5QJHOoP
+        zsBHDYzH46yPslgs9vpBdOIY2G63Wd3BnnCFPv72a/HRZqCsIM6G1GIhmgH3my/Czg/9DYCgAUENKuIM
+        8NT6DxFtBr6sAdE57hKgYbWOMwPBJeBEpAXFRHSOa0CbgfxIJqhBMUHDauVHsvxQ2ul0jnIozY/lrVbr
+        04/l9q7hHcu9iwnndv6RSN2jWq2qiTUYa9c6fyJsxZl+72ISupq1hL9AoreYYIwVyuJsDnKVXs0OXU7v
+        hUfh+ZAJ+mQcPNsYYslBLnKSGw208supM6Fdz6+FH8Kt8Edo8HWaicKXN+xYYoglR/B67lEs8u5mh0CS
+        8SWP7OSiCer8guizYxhLzL+vLBR59/X2GnaKtGkmGs4E2J8WXx4Up0ibr7fbUMKuCdb1ieu2vXI/2TZP
+        XNByeaiNJRRNfBfYVKw1UKftXeKgNgZwJtjFbCxEgXq+swUtVmGQvAL7tq8xicSnXgAAAABJRU5ErkJg
+        gg==
+</value>
+  </data>
+  <data name="PictureBox3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAc5JREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
+        C0aCCEaKYcsr9g1FO5vOJP2hZqerq379roat6crEaAKagCYgBKzf3ku3O+vtaH4em2Lv8LTs7J9sViX2
+        jb25e9p4S3l4XG7l+f75LZfX9+Hj9+PzK/whwEQ2JZeYxEyGn/V8cVUOjhfx/rJaxx7ErM8ubnue5+Vr
+        7BlLDIfhUCAESAoRyninAMAnKTAWU7CnsShr4xBQcyg0Oo+DYibWAuxO7oiFsHw1nEq/e8QrBi6QhYYA
+        Em2J6izomlN4HbSTdwtykrxHDmZn6IKc+P5dAQ4CNE8PslrgXWqsQd3mGnXXEA1CgIo9dQa+2s/aHIFA
+        1hJvQ70fAqZEE9AENAGdfw6T2aBzTBt0jmk8+HvEeHdIOFRq5P9xkT9EzAd5bvhdAMjv5w8PCJxmDBUJ
+        SdKfDZ8xjlgJyVGgY95ZgiCGEuBwwcfDkzrJHLMUysDv9BPESCa5MRTGz6BCWO4otXoBJmYyTgQk0RRJ
+        kdw5rL4avwPwY+TkbkQeD4tBZivzN4FAqATEGYMoT2f38vWRxztQZBTH+pepbNA5pg06R7NZ+QO0aZRu
+        zy7SVAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="PictureBox5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAAdpJREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
+        C0aCCEaKYcvrmV/8aXoMZ5L58Me1uqr6d9Vu9TRpYswCZgGzgBDwvH5Nze4i6NjZP8m2o+V5Z2mxXF2F
+        /8PjurOmtH17D7u4d3iabu6e0stm23m1CAEsyvngeNVZ+8kur+87awsJg/gJnqtG1oUQ4KfxjTiZ7FRJ
+        +Pj8CjtCHMRr7eziNm9I9WSD3z+/2TcE+Gl8I0+mIOAtQ7yDCtZi3K5WZAFlz2pB3hbgwrykxMpO3x38
+        r7WeAC8zlZCA//rvp/GKDVWGVsgOtUcW4EFD9E38lNAr5pUZoh8mvgPll8RZnp7yaa1sjVemRirhCAGA
+        xPTT6acTaI3WvTLAY0vWcvUETIFZwCygqf1URmXVOCarxjHJg8Giua8LhIlWTkDAXYGvw+8Sv4CG7gvi
+        4/blQQLNd6ahEhJUzn2ITT78BUpIjATqHYMpCBCkt6q4M3jopJrTujbL0Ym9nP34KJmSy4eNsfPygjCv
+        aNyOHujJOBFQElEi2cQrB8vWsKnskBivRo7joc1IplKWbzkAoUqAn3wQpdOpet4+4vgMJDJvDuPDVKwa
+        x2TVOBoX6Q+jPT6GjgY3BAAAAABJRU5ErkJggg==
+</value>
+  </data>
   <data name="PictureBox6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -30,6 +30,7 @@ Public Class frmMitarbDetails
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim FirmaTmp = ""
     Dim timas As cTimasAPI
+    Dim dtTimas As New DataTable
 
     Sub New()
 
@@ -286,6 +287,7 @@ Public Class frmMitarbDetails
         txtCSUser.Text = mitarbeiter.mit_CSuser
         txtCSPW.Text = mitarbeiter.mit_CSpwd
         txtPersonalNr.Text = mitarbeiter.mit_PersonalNr
+        txtTelNr.Text = mitarbeiter.mit_telefonnr
 
         cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
         txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
@@ -565,6 +567,8 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
         mitarbeiter.mit_CSuser = txtCSUser.Text
         mitarbeiter.mit_CSpwd = txtCSPW.Text
+        mitarbeiter.mit_PersonalNr = txtPersonalNr.Text
+        mitarbeiter.mit_telefonnr = txtTelNr.Text
 
 
 
@@ -857,10 +861,8 @@ Public Class frmMitarbDetails
 
             If IsNothing(mitarbeiter.mit_timasId) Then
                 cbxTimasAngelegt.Checked = False
-                Dim dt As New DataTable
-
-                timas.getGroups(dt)
-                initDGV(dt)
+                timas.getGroups(dtTimas)
+                initDGV(dtTimas)
             Else
                 cbxTimasAngelegt.Checked = True
             End If
@@ -869,6 +871,7 @@ Public Class frmMitarbDetails
             btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
             txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked
             dgvData.Visible = Not cbxTimasAngelegt.Checked
+            TabControl1.Visible = Not cbxTimasAngelegt.Checked
             rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
             btngetInfo.Visible = cbxTimasAngelegt.Checked
         End If
@@ -1123,11 +1126,22 @@ Public Class frmMitarbDetails
 
     Private Sub btnMAanlegen_Click(sender As Object, e As EventArgs) Handles btnMAanlegen.Click
 
-        If checkMandatoryFields() Then
-            timas.createMA(mitarbeiter, rtfInfoTimas.Text, dgvData)
-            tbcntr_TabIndexChanged(sender, e)
+        Dim newMid As Integer = 0
+        If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+        getMitarbeiter()
+        If isUpdate Then
+            mitarbeiter.mit_id = mid
+            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen(newMid)
+        Else
+            If UID.insertMitarbeiter(mitarbeiter, newMid) Then saveBerechtigungen(newMid)
         End If
 
+
+        If checkMandatoryFields() Then
+                timas.createMA(mitarbeiter, rtfInfoTimas.Text, dtTimas)
+                tbcntr_TabIndexChanged(sender, e)
+            End If
+
     End Sub
 
     Private Sub btngetInfo_Click(sender As Object, e As EventArgs) Handles btngetInfo.Click
@@ -1159,9 +1173,9 @@ Public Class frmMitarbDetails
         End If
 
         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
+            MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!")
+            Return False
+        End If
 
         If mitarbeiter.mit_gekuendigt Then
             MsgBox("Bereits gekündige MA können nicht angelegt werden!")
@@ -1169,33 +1183,95 @@ Public Class frmMitarbDetails
         End If
 
         If mitarbeiter.mit_vname = "" Or mitarbeiter.mit_nname = "" Then
-                MsgBox("Vor- und Nachnamen angeben!")
-                Return False
-            End If
+            MsgBox("Vor- und Nachnamen angeben!")
+            Return False
+        End If
 
-            Return True
+        If mitarbeiter.mit_firma = "" Then
+            MsgBox("Firma angeben!")
+            Return False
+        End If
+
+        Return True
 
     End Function
 
     Sub initDGV(dt As DataTable)
 
-        dgvData.DataSource = dt
+        '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 = 200
-                .Columns("set").Width = 20
-                .Columns("set").HeaderText = "X"
+        'If dgvData.Columns.Count > 0 Then
+        '    With dgvData
+        '        .RowHeadersWidth = 10
+        '        .Columns("id").Visible = False
+        '        .Columns("groupType").Visible = False
+        '        .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+        '        .Columns("info").Width = 200
+        '        .Columns("set").Width = 20
+        '        .Columns("set").HeaderText = "X"
 
-            End With
+        '    End With
 
+        'End If
+
+
+        If dtTimas.Columns.Count > 0 Then
+
+            If TabControl1.TabCount = 0 Then
+                For Each row As DataRow In dt.DefaultView.ToTable(True, "groupType").Rows
+                    Dim TabIndex As Integer                                         'Anzahl der erstellten Tabs, bei keinem Tab ist der Index 0
+                    TabIndex = TabControl1.TabCount
+                    TabControl1.TabPages.Add(row("groupType"))
+                    If TabIndex = 0 Then
+                        Dim tab As TabPage = Me.TabControl1.SelectedTab
+                        Dim dv = New DataView(dt)
+                        dv.RowFilter = "groupType = '" & tab.Text & "'"
+                        dgvData.DataSource = dv
+                        If dgvData.Columns.Count > 0 Then
+                            With dgvData
+                                .RowHeadersWidth = 10
+                                .Columns("id").Visible = False
+                                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                                .Columns("groupType").Visible = False
+                                .Columns("info").Width = 150
+                                .Columns("set").Width = 20
+                                .Columns("set").HeaderText = "X"
+                                .Dock = DockStyle.Fill
+
+                            End With
+                            tab.Controls.Add(Me.dgvData)
+                        End If
+                    End If
+
+                Next
+            End If
         End If
 
+
     End Sub
 
+    Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs) Handles PictureBox9.Click
+        Dim webAddress As String = "https://zeit.verag.ag/"
+        Process.Start(webAddress)
+    End Sub
+
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        If dgvData Is Nothing And dgvData.Rows.Count < 1 Then Exit Sub
+        Dim tab As TabPage = Me.TabControl1.SelectedTab
+        If ((Not tab Is Nothing) AndAlso (Not tab.Controls.Contains(Me.dgvData))) Then
+            Dim dv = New DataView(dtTimas)
+            dv.RowFilter = "groupType = '" & tab.Text & "'"
+            dgvData.DataSource = dv
+            If dgvData.Columns.Count > 0 Then
+                tab.Controls.Add(Me.dgvData)
+            End If
+
+            If (Me.isDataLoaded) Then
+            End If
+        End If
+    End Sub
+
+    Private isDataLoaded As Boolean = True
 
 End Class
 

UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb

@@ -25,19 +25,27 @@ Partial Class usrCntlMitarbeiter
         Me.components = New System.ComponentModel.Container()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Button8 = New System.Windows.Forms.Button()
-        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         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.TabPage8 = New System.Windows.Forms.TabPage()
+        Me.dgvTimasNew = 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()
@@ -48,32 +56,28 @@ 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.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(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.TabPage8.SuspendLayout()
+        CType(Me.dgvTimasNew, 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
@@ -87,8 +91,7 @@ Partial Class usrCntlMitarbeiter
         '
         'Panel2
         '
-        Me.Panel2.Controls.Add(Me.Button8)
-        Me.Panel2.Controls.Add(Me.Button7)
+        Me.Panel2.Controls.Add(Me.Button9)
         Me.Panel2.Controls.Add(Me.Button6)
         Me.Panel2.Controls.Add(Me.Button5)
         Me.Panel2.Controls.Add(Me.Button4)
@@ -99,25 +102,14 @@ Partial Class usrCntlMitarbeiter
         Me.Panel2.Size = New System.Drawing.Size(92, 684)
         Me.Panel2.TabIndex = 24
         '
-        'Button8
+        'Button9
         '
-        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button8.Location = New System.Drawing.Point(3, 553)
-        Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(87, 60)
-        Me.Button8.TabIndex = 20
-        Me.Button8.Text = "Upload Mitarbeiterfotos WIKI"
-        Me.Button8.UseVisualStyleBackColor = True
-        '
-        'Button7
-        '
-        Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button7.Location = New System.Drawing.Point(11, 619)
-        Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(75, 53)
-        Me.Button7.TabIndex = 19
-        Me.Button7.Text = "Copy to Clipboard  WIKI"
-        Me.Button7.UseVisualStyleBackColor = True
+        Me.Button9.Location = New System.Drawing.Point(10, 262)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(75, 34)
+        Me.Button9.TabIndex = 21
+        Me.Button9.Text = "Wiki"
+        Me.Button9.UseVisualStyleBackColor = True
         '
         'Button5
         '
@@ -164,6 +156,7 @@ Partial Class usrCntlMitarbeiter
         Me.TabControl1.Controls.Add(Me.TabPage5)
         Me.TabControl1.Controls.Add(Me.TabPage6)
         Me.TabControl1.Controls.Add(Me.TabPage7)
+        Me.TabControl1.Controls.Add(Me.TabPage8)
         Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TabControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabControl1.Name = "TabControl1"
@@ -182,6 +175,16 @@ 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)
@@ -193,6 +196,16 @@ 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)
@@ -204,6 +217,16 @@ 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)
@@ -215,6 +238,16 @@ 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)
@@ -226,6 +259,16 @@ 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)
@@ -237,6 +280,16 @@ 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)
@@ -248,6 +301,36 @@ 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
+        '
+        'TabPage8
+        '
+        Me.TabPage8.Controls.Add(Me.dgvTimasNew)
+        Me.TabPage8.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage8.Name = "TabPage8"
+        Me.TabPage8.Size = New System.Drawing.Size(881, 622)
+        Me.TabPage8.TabIndex = 7
+        Me.TabPage8.Text = "Zeiterfassung"
+        Me.TabPage8.UseVisualStyleBackColor = True
+        '
+        'dgvTimasNew
+        '
+        Me.dgvTimasNew.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvTimasNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvTimasNew.Location = New System.Drawing.Point(3, 3)
+        Me.dgvTimasNew.Name = "dgvTimasNew"
+        Me.dgvTimasNew.ReadOnly = True
+        Me.dgvTimasNew.Size = New System.Drawing.Size(875, 616)
+        Me.dgvTimasNew.TabIndex = 0
+        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.cbx)
@@ -319,7 +402,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, 70)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48)
         '
         'UserKopierenToolStripMenuItem
         '
@@ -333,75 +416,10 @@ Partial Class usrCntlMitarbeiter
         Me.BerechtigungenSetzenToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
         Me.BerechtigungenSetzenToolStripMenuItem.Text = "Berechtigungen setzen"
         '
-        'dgvVERAG
+        'ContextMenuStrip2
         '
-        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
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
         'usrCntlMitarbeiter
         '
@@ -416,23 +434,25 @@ 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.TabPage8.ResumeLayout(False)
+        CType(Me.dgvTimasNew, 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
@@ -465,7 +485,9 @@ Partial Class usrCntlMitarbeiter
     Friend WithEvents dgvVERIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents UserKopierenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents Button7 As Button
-    Friend WithEvents Button8 As Button
     Friend WithEvents BerechtigungenSetzenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TabPage8 As TabPage
+    Friend WithEvents dgvTimasNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Button9 As Button
+    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
 End Class

UID/Mitarbeiter/usrCntlMitarbeiter.resx

@@ -120,4 +120,7 @@
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>174, 17</value>
+  </metadata>
 </root>

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -2,6 +2,7 @@
 Imports System.Net
 Imports System.Text
 Imports System.Windows.Controls
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports GrapeCity.Viewer.Common.Model
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.cChilkat_Helper
@@ -19,6 +20,7 @@ Public Class usrCntlMitarbeiter
     Private locZeilen As Integer = -1
     Public mid As Integer = -1
     Dim FUNC = New cProgramFunctions
+    Dim dt As New DataTable()
 
     Private Sub uctrlMitarbeiter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ConnStr = frmMain.ConnStr
@@ -50,7 +52,12 @@ Public Class usrCntlMitarbeiter
             showVERAGATILLA("FRONTOFFICE")
         ElseIf TabControl1.SelectedIndex = 6 Then
             showVERAGATILLA("VERIMEX")
+        ElseIf TabControl1.SelectedIndex = 7 Then
+            If dgvTimasNew IsNot Nothing Then
+                showTIMAS()
+            End If
         End If
+
     End Sub
 
     Public Sub showVERAGATILLA(firma)
@@ -186,6 +193,44 @@ Public Class usrCntlMitarbeiter
     End Sub
 
 
+    Public Sub showTIMAS()
+        locZeilen = -1
+        If Not Grid_aktiv Then Exit Sub
+
+        If dt.Columns.Count > 0 Then
+
+            If txtSuche.Text <> "" Then
+                dt.DefaultView.RowFilter = "lastname like '%" & txtSuche.Text & "%'  or firstname like '%" & txtSuche.Text & "%' or pnr1 like '%" & txtSuche.Text & "%'  or info like '%" & txtSuche.Text & "%'"
+            Else
+                dt.DefaultView.RowFilter = Nothing
+            End If
+
+            dgvTimasNew.DataSource = dt
+
+        Else
+            Dim timas As New cTimasAPI()
+            timas.getEmployeeList(dt)
+            dgvTimasNew.DataSource = dt
+
+        End If
+        With dgvTimasNew
+
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = False
+            .AllowUserToResizeRows = False
+            .RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .AllowUserToOrderColumns = True
+        End With
+
+
+    End Sub
+
 
     Private Sub sortDGV(dgv As DataGridView)
         With dgv
@@ -364,6 +409,7 @@ Public Class usrCntlMitarbeiter
             Case 4 : dgv = dgvAMBAR
             Case 5 : dgv = dgvFRONTOFFICE
             Case 6 : dgv = dgvVERIMEX
+            Case 7 : dgv = dgvTimasNew
         End Select
 
         If e.KeyCode = Keys.Return Then
@@ -418,7 +464,7 @@ Public Class usrCntlMitarbeiter
             If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
             copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
 
-        ElseIf TabControl1.SelectedIndex = 5 Then
+        ElseIf TabControl1.SelectedIndex = 6 Then
 
             If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
             copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
@@ -461,7 +507,7 @@ Public Class usrCntlMitarbeiter
                     dgvATILLA.ClearSelection()
                     Me.dgvATILLA.Rows(e.RowIndex).Selected = True
 
-                Case Else
+                Case "dgvVERIMEX"
 
                     rowClicked = dgvAMBAR.HitTest(e.X, e.Y)
                     dgvAMBAR.ClearSelection()
@@ -512,7 +558,7 @@ Public Class usrCntlMitarbeiter
 
     End Sub
 
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+    Private Sub copyToClipboardWIKI()
         Try
             Me.Cursor = Cursors.WaitCursor
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -570,7 +616,47 @@ Public Class usrCntlMitarbeiter
 
     End Sub
 
-    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
+        ContextMenuStrip1.Hide()
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        If item IsNot Nothing Then
+            If item.Name = "uploadPuctureToWiki" Then
+                uploadToWiki()
+
+            ElseIf item.Name = "copyToClipboard" Then
+                copyToClipboardWIKI()
+            Else
+                MsgBox("Funktion nicht implementiert!")
+            End If
+
+        End If
+
+    End Sub
+
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        If Not ContextMenuStrip2.Items.ContainsKey("uploadPuctureToWiki") Then
+            Dim uploadPictures = New ToolStripMenuItem() With {.Text = "Bilder ins WIKI hochladen", .Name = "uploadPuctureToWiki", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip2.Items.Add(uploadPictures)
+            AddHandler uploadPictures.Click, AddressOf mnuItem_Clicked
+        End If
+
+
+        If Not ContextMenuStrip2.Items.ContainsKey("copyToClipboard") Then
+            Dim copyToClipboard = New ToolStripMenuItem() With {.Text = "In Zwischenablage kopieren", .Name = "copyToClipboard", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler copyToClipboard.Click, AddressOf mnuItem_Clicked
+            ContextMenuStrip2.Items.Add(copyToClipboard)
+        End If
+
+
+
+        ContextMenuStrip2.Show(Cursor.Position)
+    End Sub
+
+
+    Private Sub uploadToWiki()
 
         Me.Cursor = Cursors.WaitCursor
         Dim token = "eyJhbGciOiJSUzI1NiIsInR5cCI6IkpXVCJ9.eyJhcGkiOjEsImdycCI6MSwiaWF0IjoxNjg3OTMzNDU3LCJleHAiOjE3MTk0OTEwNTcsImF1ZCI6InVybjp3aWtpLmpzIiwiaXNzIjoidXJuOndpa2kuanMifQ.ul2loFYVHdco2Ia2LcS4nme4PdgcuU6QKrunucECebX5LhcsSyuEg-lKiP2X3JXW57Ym4oCBjamDd5-5uqbQd9hOQ5CDO6yqK2r8TPNxivK29oAl2wfcHaKOe7QNti0yRlMpomJjc_5qaegeeLjN5w-lYbbqtSz_6y8GkPPr0P3l4coIk5IzngGazj8XLYGGN6y5qT4s8IR0sNhfz0hJAlIeVTeFKl8KFZMpFKvBnOjkL0GYOYjrHzPLSUAhe8hCGVcA7rWsweVjjvOclFDDFwZ0SwOY0TZqvz-LOsZ3V7ucQaT3flAjuHiEhODGJguQRBs67U8lVO2cxbJJyR3FUA"
@@ -600,7 +686,7 @@ Public Class usrCntlMitarbeiter
 
             dgv = dgvFRONTOFFICE
 
-        ElseIf TabControl1.SelectedIndex = 5 Then
+        ElseIf TabControl1.SelectedIndex = 6 Then
 
             dgv = dgvVERIMEX
 
@@ -610,7 +696,7 @@ Public Class usrCntlMitarbeiter
         For Each row As DataGridViewRow In dgv.Rows
             If row.Cells("mit_foto_DocId").Value > 0 Then
                 Dim file = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(row.Cells("mit_foto_DocId").Value)
-                Dim succeess = uploadPictureToWiki(token, 4, file) 'Folder 4 -> Mitarbeiterfotos
+                Dim succeess = uploadPictureToWIKI(token, 4, file) 'Folder 4 -> Mitarbeiterfotos
             End If
 
         Next
@@ -626,7 +712,7 @@ Public Class usrCntlMitarbeiter
 
 
 
-    Private Function uploadPictureToWiki(authenticationToken As String, folderIDx As Integer, image As String) As String
+    Private Function uploadPictureToWIKI(authenticationToken As String, folderIDx As Integer, image As String) As String
         Try
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()

UID/My Project/Resources.Designer.vb

@@ -14,7 +14,7 @@ Option Explicit On
 Imports System
 
 Namespace My.Resources
-
+    
     'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
     '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
     'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
@@ -22,20 +22,20 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
     Friend Module Resources
-
+        
         Private resourceMan As Global.System.Resources.ResourceManager
-
+        
         Private resourceCulture As Global.System.Globalization.CultureInfo
-
+        
         '''<summary>
         '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -45,71 +45,81 @@ Namespace My.Resources
                 Return resourceMan
             End Get
         End Property
-
+        
         '''<summary>
         '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
         '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
             Set
-                resourceCulture = Value
+                resourceCulture = value
             End Set
         End Property
-
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property active_directory_logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("active_directory_logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property admin() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("admin", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property admin_logo() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("admin_logo", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property admin_monitoring() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("admin_monitoring", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property admin1() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("admin1", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property admin2() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("admin2", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
         '''</summary>
@@ -118,37 +128,37 @@ Namespace My.Resources
                 Return ResourceManager.GetString("asd3ad2asd3asd2asd", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
         Friend ReadOnly Property ATILLA_DURMAZ() As Byte()
             Get
                 Dim obj As Object = ResourceManager.GetObject("ATILLA_DURMAZ", resourceCulture)
-                Return CType(obj, Byte())
+                Return CType(obj,Byte())
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property Aviso() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("Aviso", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property aviso_tv() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("aviso_tv", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
         '''</summary>
@@ -157,67 +167,67 @@ Namespace My.Resources
                 Return ResourceManager.GetString("bbvn6", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
         Friend ReadOnly Property Buergschaften_Jahresauswertung() As Byte()
             Get
                 Dim obj As Object = ResourceManager.GetObject("Buergschaften_Jahresauswertung", resourceCulture)
-                Return CType(obj, Byte())
+                Return CType(obj,Byte())
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
         Friend ReadOnly Property Buergschaften_JahresauswertungSplit() As Byte()
             Get
                 Dim obj As Object = ResourceManager.GetObject("Buergschaften_JahresauswertungSplit", resourceCulture)
-                Return CType(obj, Byte())
+                Return CType(obj,Byte())
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
         Friend ReadOnly Property Bürgschaften_Vorlage() As Byte()
             Get
                 Dim obj As Object = ResourceManager.GetObject("Bürgschaften_Vorlage", resourceCulture)
-                Return CType(obj, Byte())
+                Return CType(obj,Byte())
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property chain() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("chain", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property CMR() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("CMR", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property cmr_logo_klein() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("cmr_logo_klein", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
         '''</summary>
@@ -226,7 +236,7 @@ Namespace My.Resources
                 Return ResourceManager.GetString("connStringAdmin", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
         '''</summary>
@@ -235,7 +245,7 @@ Namespace My.Resources
                 Return ResourceManager.GetString("connStringAdmin_DEF", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
         '''</summary>
@@ -244,7 +254,7 @@ Namespace My.Resources
                 Return ResourceManager.GetString("connStringFMZOLL", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
         '''</summary>
@@ -253,357 +263,357 @@ Namespace My.Resources
                 Return ResourceManager.GetString("connStringFMZOLL_DEV", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property del() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("del", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
         Friend ReadOnly Property Dienstplan() As Byte()
             Get
                 Dim obj As Object = ResourceManager.GetObject("Dienstplan", resourceCulture)
-                Return CType(obj, Byte())
+                Return CType(obj,Byte())
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property dispo() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("dispo", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property dispo_ico() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("dispo_ico", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property doku_sym() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("doku_sym", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property dp_tv() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("dp_tv", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property DSC_0121() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("DSC_0121", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property Excel_2013_logo_155x110() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("Excel_2013_logo-155x110", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property fd() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("fd", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property fd1() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("fd1", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property gear() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("gear", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property gear1() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("gear1", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property gear2() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("gear2", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property kalender() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("kalender", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property krank() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("krank", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property parkzeit() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("parkzeit", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property personGray_m() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("personGray_m", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property personGray_w() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("personGray_w", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property plus() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("plus", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property printer() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("printer", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property refresh() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("refresh", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property refresh1() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("refresh1", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property reise() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("reise", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property sanduhr() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("sanduhr", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property save() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("save", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property schule() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("schule", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property sdl_ico() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("sdl_ico", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property search() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("search", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property spedbuch() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("spedbuch", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property stift() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("stift", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property uhr_green() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("uhr_green", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property uhr_notime() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("uhr_notime", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property uhr_red() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("uhr_red", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property uid() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("uid", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property uid_ico() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("uid_ico", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die 4.0 ähnelt.
         '''</summary>
@@ -612,64 +622,64 @@ Namespace My.Resources
                 Return ResourceManager.GetString("UpdaterVersion", resourceCulture)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property urlaub() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("urlaub", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property urlaub1() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("urlaub1", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property Verag_Academy_blue() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("Verag_Academy_blue", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property Verag_AG_Logo() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("Verag_AG_Logo", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property Verag_AG_Logopng() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("Verag_AG_Logopng", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
         Friend ReadOnly Property wait() As System.Drawing.Bitmap
             Get
                 Dim obj As Object = ResourceManager.GetObject("wait", resourceCulture)
-                Return CType(obj, System.Drawing.Bitmap)
+                Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
     End Module

UID/My Project/Resources.resx

@@ -118,190 +118,193 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="sdl_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sdl_ico1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="chain" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\chain.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="DSC_0121" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DSC_0121.JPG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Verag_AG_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="uid_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uid1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="kalender" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kalender.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Verag_Academy_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-Academy_blue.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="reise" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\reise.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="connStringFMZOLL_DEV" xml:space="preserve">
-    <value>Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
-  </data>
-  <data name="cmr_logo_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cmr-logo_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="wait" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\wait.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="fd1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\fd.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Buergschaften_JahresauswertungSplit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\buergschaften_jahresauswertungsplit.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="dispo_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\dispo_ico1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="aviso_tv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\aviso_tv.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="ATILLA_DURMAZ" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ATILLA_DURMAZ.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="connStringAdmin" xml:space="preserve">
-    <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
-  </data>
-  <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="connStringAdmin_DEF" xml:space="preserve">
-    <value>Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
-  </data>
-  <data name="refresh1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="admin2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\admin2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="admin1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\admin1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="admin_monitoring" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\admin_monitoring1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="connStringFMZOLL" xml:space="preserve">
-    <value>Data Source=192.168.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
-  </data>
-  <data name="urlaub" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\urlaub.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Buergschaften_Jahresauswertung" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Buergschaften_Jahresauswertung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="urlaub1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\urlaub1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="UpdaterVersion" xml:space="preserve">
-    <value>4.0</value>
-  </data>
-  <data name="krank" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\krank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Excel_2013_logo-155x110" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="gear1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gear1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="admin_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\admin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="doku_sym" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\doku_sym1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="dispo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\dispo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="dp_tv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dp_tv.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\admin2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CMR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="fd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\fd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="uhr_notime" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="schule" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\schule.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Aviso.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Dienstplan.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="Bürgschaften_Vorlage" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\bürgschaften_vorlage.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1374582040_38117.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="connStringFMZOLL" xml:space="preserve">
+    <value>Data Source=192.168.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
   </data>
-  <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="schule" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\schule.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="krank" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\krank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="personGray_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Buergschaften_Jahresauswertung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Buergschaften_Jahresauswertung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="bbvn6" xml:space="preserve">
-    <value />
+  <data name="doku_sym" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doku_sym1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="asd3ad2asd3asd2asd" xml:space="preserve">
     <value />
   </data>
+  <data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="dispo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dispo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="admin_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\admin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="personGray_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="dispo_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dispo_ico1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="cmr_logo_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cmr-logo_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag_Academy_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-Academy_blue.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="kalender" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\kalender.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="fd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\fd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="fd1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\fd.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="active_directory_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\active_directory2_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\CMR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="admin1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\admin1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="reise" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\reise.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="uhr_notime" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="connStringFMZOLL_DEV" xml:space="preserve">
+    <value>Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
+  </data>
+  <data name="bbvn6" xml:space="preserve">
+    <value />
+  </data>
+  <data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="uid_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uid1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Dienstplan.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\admin2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Aviso.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="DSC_0121" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DSC_0121.JPG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="admin_monitoring" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\admin_monitoring1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="connStringAdmin_DEF" xml:space="preserve">
+    <value>Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
+  </data>
+  <data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="aviso_tv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\aviso_tv.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="wait" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\wait.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="urlaub1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\urlaub1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="urlaub" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\urlaub.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="gear1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gear1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="UpdaterVersion" xml:space="preserve">
+    <value>4.0</value>
+  </data>
+  <data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\1374582040_38117.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag_AG_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="connStringAdmin" xml:space="preserve">
+    <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
+  </data>
+  <data name="chain" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\chain.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sdl_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sdl_ico1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Excel_2013_logo-155x110" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Buergschaften_JahresauswertungSplit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\buergschaften_jahresauswertungsplit.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="admin2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\admin2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ATILLA_DURMAZ" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ATILLA_DURMAZ.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

UID/cSqlDb.vb

@@ -1550,8 +1550,8 @@ Public Class cMitarbeiter
 
         'Änderung
         Dim sql = "INSERT INTO tblMitarbeiter " &
-                       "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd ) OUTPUT INSERTED.mit_id VALUES " &
-                       "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd )"
+                       "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr ) OUTPUT INSERTED.mit_id VALUES " &
+                       "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr)"
 
 
 
@@ -1624,7 +1624,8 @@ Public Class cMitarbeiter
                 cmd.Parameters.AddWithValue("@mit_CSuser", If(m.mit_CSuser, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_CSpwd", If(m.mit_CSpwd, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_id", DBNull.Value)
-
+                cmd.Parameters.AddWithValue("@mit_PersonalNr", If(m.mit_PersonalNr, DBNull.Value))
+                cmd.Parameters.AddWithValue("@mit_telefonnr", If(m.mit_telefonnr, DBNull.Value))
 
                 Try
                     mid = cmd.ExecuteScalar()
@@ -1643,7 +1644,7 @@ Public Class cMitarbeiter
 
         Dim sql = "UPDATE tblMitarbeiter " &
                      "SET mit_username=@mit_username, mit_abweichenderAnzeigename=@mit_abweichenderAnzeigename,mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt " &
-                     " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd " &
+                     " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_telefonnr = @mit_telefonnr " &
                      " WHERE mit_id=@mit_id "
 
 
@@ -1717,7 +1718,8 @@ Public Class cMitarbeiter
                 cmd.Parameters.AddWithValue("@mit_fakturierungsgruppe", m.mit_fakturierungsgruppe)
                 cmd.Parameters.AddWithValue("@mit_CSuser", If(m.mit_CSuser, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_CSpwd", If(m.mit_CSpwd, DBNull.Value))
-
+                cmd.Parameters.AddWithValue("@mit_PersonalNr", If(m.mit_PersonalNr, DBNull.Value))
+                cmd.Parameters.AddWithValue("@mit_telefonnr", If(m.mit_telefonnr, DBNull.Value))
 
 
 

UID/usrCntlAPI.Designer.vb

@@ -79,6 +79,7 @@ Partial Class usrCntlAPI
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -134,6 +135,7 @@ Partial Class usrCntlAPI
         '
         'SplitContainer1.Panel1
         '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Button1)
         Me.SplitContainer1.Panel1.Controls.Add(Me.Label11)
         Me.SplitContainer1.Panel1.Controls.Add(Me.txtZollBelegNr)
         Me.SplitContainer1.Panel1.Controls.Add(Me.Label10)
@@ -196,10 +198,12 @@ Partial Class usrCntlAPI
         Me.txtZollBelegNr._DateTimeOnly = False
         Me.txtZollBelegNr._numbersOnly = False
         Me.txtZollBelegNr._numbersOnlyKommastellen = ""
+        Me.txtZollBelegNr._numbersOnlyTrennzeichen = True
         Me.txtZollBelegNr._Prozent = False
         Me.txtZollBelegNr._ShortDateNew = False
         Me.txtZollBelegNr._ShortDateOnly = False
         Me.txtZollBelegNr._TimeOnly = False
+        Me.txtZollBelegNr._TimeOnly_Seconds = False
         Me.txtZollBelegNr._value = ""
         Me.txtZollBelegNr._Waehrung = False
         Me.txtZollBelegNr._WaehrungZeichen = True
@@ -227,10 +231,12 @@ Partial Class usrCntlAPI
         Me.txtBezugsNr._DateTimeOnly = False
         Me.txtBezugsNr._numbersOnly = False
         Me.txtBezugsNr._numbersOnlyKommastellen = ""
+        Me.txtBezugsNr._numbersOnlyTrennzeichen = True
         Me.txtBezugsNr._Prozent = False
         Me.txtBezugsNr._ShortDateNew = False
         Me.txtBezugsNr._ShortDateOnly = False
         Me.txtBezugsNr._TimeOnly = False
+        Me.txtBezugsNr._TimeOnly_Seconds = False
         Me.txtBezugsNr._value = ""
         Me.txtBezugsNr._Waehrung = False
         Me.txtBezugsNr._WaehrungZeichen = True
@@ -264,6 +270,7 @@ Partial Class usrCntlAPI
         Me.kdtxtKunde._displayWoelflKd = False
         Me.kdtxtKunde._hideIfListEmpty = True
         Me.kdtxtKunde._loadKdData = False
+        Me.kdtxtKunde._searchName1 = True
         Me.kdtxtKunde._UseFIRMA = ""
         Me.kdtxtKunde._ValueKdAndName = True
         Me.kdtxtKunde.dgvpos = "LEFT"
@@ -285,10 +292,12 @@ Partial Class usrCntlAPI
         Me.txtAPIUArt._DateTimeOnly = False
         Me.txtAPIUArt._numbersOnly = False
         Me.txtAPIUArt._numbersOnlyKommastellen = ""
+        Me.txtAPIUArt._numbersOnlyTrennzeichen = True
         Me.txtAPIUArt._Prozent = False
         Me.txtAPIUArt._ShortDateNew = False
         Me.txtAPIUArt._ShortDateOnly = False
         Me.txtAPIUArt._TimeOnly = False
+        Me.txtAPIUArt._TimeOnly_Seconds = False
         Me.txtAPIUArt._value = Nothing
         Me.txtAPIUArt._Waehrung = False
         Me.txtAPIUArt._WaehrungZeichen = True
@@ -414,10 +423,12 @@ Partial Class usrCntlAPI
         Me.txtSendungsId._DateTimeOnly = False
         Me.txtSendungsId._numbersOnly = True
         Me.txtSendungsId._numbersOnlyKommastellen = ""
+        Me.txtSendungsId._numbersOnlyTrennzeichen = True
         Me.txtSendungsId._Prozent = False
         Me.txtSendungsId._ShortDateNew = False
         Me.txtSendungsId._ShortDateOnly = False
         Me.txtSendungsId._TimeOnly = False
+        Me.txtSendungsId._TimeOnly_Seconds = False
         Me.txtSendungsId._value = ""
         Me.txtSendungsId._Waehrung = False
         Me.txtSendungsId._WaehrungZeichen = True
@@ -436,10 +447,12 @@ Partial Class usrCntlAPI
         Me.txtAvisoId._DateTimeOnly = False
         Me.txtAvisoId._numbersOnly = True
         Me.txtAvisoId._numbersOnlyKommastellen = ""
+        Me.txtAvisoId._numbersOnlyTrennzeichen = True
         Me.txtAvisoId._Prozent = False
         Me.txtAvisoId._ShortDateNew = False
         Me.txtAvisoId._ShortDateOnly = False
         Me.txtAvisoId._TimeOnly = False
+        Me.txtAvisoId._TimeOnly_Seconds = False
         Me.txtAvisoId._value = ""
         Me.txtAvisoId._Waehrung = False
         Me.txtAvisoId._WaehrungZeichen = True
@@ -514,10 +527,12 @@ Partial Class usrCntlAPI
         Me.txtAbfertDat._DateTimeOnly = False
         Me.txtAbfertDat._numbersOnly = False
         Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
         Me.txtAbfertDat._Prozent = False
         Me.txtAbfertDat._ShortDateNew = False
         Me.txtAbfertDat._ShortDateOnly = True
         Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
         Me.txtAbfertDat._value = ""
         Me.txtAbfertDat._Waehrung = False
         Me.txtAbfertDat._WaehrungZeichen = True
@@ -634,10 +649,12 @@ Partial Class usrCntlAPI
         Me.txtAbfertDatBis._DateTimeOnly = False
         Me.txtAbfertDatBis._numbersOnly = False
         Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertDatBis._Prozent = False
         Me.txtAbfertDatBis._ShortDateNew = False
         Me.txtAbfertDatBis._ShortDateOnly = True
         Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
         Me.txtAbfertDatBis._value = ""
         Me.txtAbfertDatBis._Waehrung = False
         Me.txtAbfertDatBis._WaehrungZeichen = True
@@ -728,10 +745,12 @@ Partial Class usrCntlAPI
         Me.txtAbfertigungsnummerBis._DateTimeOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsnummerBis._Prozent = False
         Me.txtAbfertigungsnummerBis._ShortDateNew = False
         Me.txtAbfertigungsnummerBis._ShortDateOnly = False
         Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
         Me.txtAbfertigungsnummerBis._value = Nothing
         Me.txtAbfertigungsnummerBis._Waehrung = False
         Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
@@ -751,10 +770,12 @@ Partial Class usrCntlAPI
         Me.txtAbfertigungsnummer._DateTimeOnly = False
         Me.txtAbfertigungsnummer._numbersOnly = False
         Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsnummer._Prozent = False
         Me.txtAbfertigungsnummer._ShortDateNew = False
         Me.txtAbfertigungsnummer._ShortDateOnly = False
         Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
         Me.txtAbfertigungsnummer._value = Nothing
         Me.txtAbfertigungsnummer._Waehrung = False
         Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -862,10 +883,12 @@ Partial Class usrCntlAPI
         Me.txtMaxSrch._DateTimeOnly = False
         Me.txtMaxSrch._numbersOnly = True
         Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
         Me.txtMaxSrch._Prozent = False
         Me.txtMaxSrch._ShortDateNew = False
         Me.txtMaxSrch._ShortDateOnly = False
         Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
         Me.txtMaxSrch._value = ""
         Me.txtMaxSrch._Waehrung = False
         Me.txtMaxSrch._WaehrungZeichen = True
@@ -922,6 +945,18 @@ Partial Class usrCntlAPI
         Me.Button11.TabIndex = 4
         Me.Button11.UseVisualStyleBackColor = True
         '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(850, 122)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(162, 52)
+        Me.Button1.TabIndex = 53
+        Me.Button1.Text = "API Verwaltung"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'usrCntlAPI
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1003,4 +1038,5 @@ Partial Class usrCntlAPI
     Friend WithEvents txtZollBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label10 As Label
     Friend WithEvents txtBezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button1 As Button
 End Class

UID/usrCntlAPI.vb

@@ -263,4 +263,8 @@ Public Class usrCntlAPI
         txtAbfertigungsnummerBis.Enabled = (txtAbfertigungsnummer.Text <> "")
 
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+    End Sub
 End Class