Kundenkontakte, prüfung ob korrekte Email.

2026-01-30 13:42:12 +01:00
parent e83dc39870
commit 9c8f6c626f
7 changed files with 336 additions and 211 deletions
--- a/SDL/kunden/frmKundenKontakteDetails.Designer.vb
+++ b/SDL/kunden/frmKundenKontakteDetails.Designer.vb
@@ -55,16 +55,20 @@ Partial Class frmKundenKontakteDetails
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.lblAnsprechpartnerNN = New System.Windows.Forms.TextBox()
        Me.pnlGeschaeftsfuehrer = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbxGeburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtGeburtsort = New System.Windows.Forms.TextBox()
        Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
        Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.pnlMain = New System.Windows.Forms.Panel()
-        Me.txtGeburtsort = New System.Windows.Forms.TextBox()
-        Me.cbxGeburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label7 = New System.Windows.Forms.Label()
+        Me.lblSachbearbeiter = New System.Windows.Forms.Label()
+        Me.lblAenderung = New System.Windows.Forms.Label()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.Label23 = New System.Windows.Forms.Label()
        Me.pnlKontakt.SuspendLayout()
        CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -463,6 +467,37 @@ Partial Class frmKundenKontakteDetails
        Me.pnlGeschaeftsfuehrer.TabIndex = 11
        Me.pnlGeschaeftsfuehrer.Visible = False
        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(4, 42)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(59, 13)
+        Me.Label7.TabIndex = 270
+        Me.Label7.Text = "Geburtsort:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(268, 42)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(67, 13)
+        Me.Label6.TabIndex = 269
+        Me.Label6.Text = "Geburtsland:"
+        '
+        'cbxGeburtsland
+        '
+        Me.cbxGeburtsland._allowedValuesFreiText = Nothing
+        Me.cbxGeburtsland._allowFreiText = False
+        Me.cbxGeburtsland._value = ""
+        Me.cbxGeburtsland.DropDownWidth = 150
+        Me.cbxGeburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
+        Me.cbxGeburtsland.FormattingEnabled = True
+        Me.cbxGeburtsland.Location = New System.Drawing.Point(354, 35)
+        Me.cbxGeburtsland.Name = "cbxGeburtsland"
+        Me.cbxGeburtsland.Size = New System.Drawing.Size(140, 26)
+        Me.cbxGeburtsland.TabIndex = 268
+        '
        'Label5
        '
        Me.Label5.AutoSize = True
@@ -472,6 +507,17 @@ Partial Class frmKundenKontakteDetails
        Me.Label5.TabIndex = 266
        Me.Label5.Text = "Pass gültig bis.:"
        '
+        'txtGeburtsort
+        '
+        Me.txtGeburtsort.BackColor = System.Drawing.Color.White
+        Me.txtGeburtsort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.txtGeburtsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtGeburtsort.Location = New System.Drawing.Point(77, 35)
+        Me.txtGeburtsort.Name = "txtGeburtsort"
+        Me.txtGeburtsort.Size = New System.Drawing.Size(183, 26)
+        Me.txtGeburtsort.TabIndex = 268
+        Me.txtGeburtsort.Text = "geburtsort"
+        '
        'txtPassgueltigbis
        '
        Me.txtPassgueltigbis._DateTimeOnly = False
@@ -548,6 +594,10 @@ Partial Class frmKundenKontakteDetails
        '
        'pnlMain
        '
+        Me.pnlMain.Controls.Add(Me.lblSachbearbeiter)
+        Me.pnlMain.Controls.Add(Me.lblAenderung)
+        Me.pnlMain.Controls.Add(Me.Label26)
+        Me.pnlMain.Controls.Add(Me.Label23)
        Me.pnlMain.Controls.Add(Me.lbl)
        Me.pnlMain.Controls.Add(Me.btn)
        Me.pnlMain.Controls.Add(Me.pnlGeschaeftsfuehrer)
@@ -558,47 +608,45 @@ Partial Class frmKundenKontakteDetails
        Me.pnlMain.Size = New System.Drawing.Size(513, 433)
        Me.pnlMain.TabIndex = 12
        '
-        'txtGeburtsort
+        'lblSachbearbeiter
        '
-        Me.txtGeburtsort.BackColor = System.Drawing.Color.White
-        Me.txtGeburtsort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.txtGeburtsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtGeburtsort.Location = New System.Drawing.Point(77, 35)
-        Me.txtGeburtsort.Name = "txtGeburtsort"
-        Me.txtGeburtsort.Size = New System.Drawing.Size(183, 26)
-        Me.txtGeburtsort.TabIndex = 268
-        Me.txtGeburtsort.Text = "geburtsort"
+        Me.lblSachbearbeiter.AutoSize = True
+        Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSachbearbeiter.Location = New System.Drawing.Point(124, 409)
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13)
+        Me.lblSachbearbeiter.TabIndex = 17
+        Me.lblSachbearbeiter.Text = "-"
        '
-        'cbxGeburtsland
+        'lblAenderung
        '
-        Me.cbxGeburtsland._allowedValuesFreiText = Nothing
-        Me.cbxGeburtsland._allowFreiText = False
-        Me.cbxGeburtsland._value = ""
-        Me.cbxGeburtsland.DropDownWidth = 150
-        Me.cbxGeburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
-        Me.cbxGeburtsland.FormattingEnabled = True
-        Me.cbxGeburtsland.Location = New System.Drawing.Point(354, 35)
-        Me.cbxGeburtsland.Name = "cbxGeburtsland"
-        Me.cbxGeburtsland.Size = New System.Drawing.Size(140, 26)
-        Me.cbxGeburtsland.TabIndex = 268
+        Me.lblAenderung.AutoSize = True
+        Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAenderung.Location = New System.Drawing.Point(124, 394)
+        Me.lblAenderung.Name = "lblAenderung"
+        Me.lblAenderung.Size = New System.Drawing.Size(10, 13)
+        Me.lblAenderung.TabIndex = 15
+        Me.lblAenderung.Text = "-"
        '
-        'Label6
+        'Label26
        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(268, 42)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(67, 13)
-        Me.Label6.TabIndex = 269
-        Me.Label6.Text = "Geburtsland:"
+        Me.Label26.AutoSize = True
+        Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label26.Location = New System.Drawing.Point(3, 409)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(117, 13)
+        Me.Label26.TabIndex = 16
+        Me.Label26.Text = "Letzter Sachbearbeiter:"
        '
-        'Label7
+        'Label23
        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(4, 42)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(59, 13)
-        Me.Label7.TabIndex = 270
-        Me.Label7.Text = "Geburtsort:"
+        Me.Label23.AutoSize = True
+        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label23.Location = New System.Drawing.Point(3, 394)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(90, 13)
+        Me.Label23.TabIndex = 14
+        Me.Label23.Text = "Änderungsdatum:"
        '
        'frmKundenKontakteDetails
        '
@@ -676,4 +724,8 @@ Partial Class frmKundenKontakteDetails
    Friend WithEvents Label7 As Label
    Friend WithEvents Label6 As Label
    Friend WithEvents cbxGeburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblSachbearbeiter As Label
+    Friend WithEvents lblAenderung As Label
+    Friend WithEvents Label26 As Label
+    Friend WithEvents Label23 As Label
 End Class
--- a/SDL/kunden/frmKundenKontakteDetails.resx
+++ b/SDL/kunden/frmKundenKontakteDetails.resx
@@ -120,179 +120,178 @@
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="picBoxKorr.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
-        3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
-        AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
-        VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
-        pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
-        HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
-        hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
-        JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
-        ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
-        fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
-        qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
-        nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
-        bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
-        Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
-        uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
-        FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
-        ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
-        mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
-        Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
-        qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
-        264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
-        eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
-        ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
-        Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
-        bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
-        DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
-        8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
-        1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
-        vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
-        TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
-        px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
-        8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
-        P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
-        +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
-        4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
-        uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
-        nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
-        27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
+        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t
+        3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d
+        A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v
+        msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh
+        tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp
+        +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y
+        BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t
+        OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI
+        h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1
+        oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX
+        7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH
+        AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP
+        0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/
+        IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt
+        L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr
+        +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp
+        PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs
+        A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17
+        AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa
+        MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu
+        DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/
+        SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC
+        rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth
+        EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w
+        JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5
+        MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK
+        qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe
+        OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj
+        8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ
+        V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej
+        9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr
+        bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++
+        1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A
+        0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s
+        2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B
+        Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO
+        RK5CYII=
 </value>
  </data>
  <data name="PictureBox10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
-        3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
-        AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
-        VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
-        pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
-        HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
-        hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
-        JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
-        ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
-        fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
-        qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
-        nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
-        bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
-        Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
-        uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
-        FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
-        ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
-        mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
-        Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
-        qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
-        264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
-        eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
-        ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
-        Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
-        bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
-        DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
-        8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
-        1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
-        vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
-        TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
-        px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
-        8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
-        P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
-        +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
-        4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
-        uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
-        nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
-        27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
+        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t
+        3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d
+        A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v
+        msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh
+        tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp
+        +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y
+        BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t
+        OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI
+        h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1
+        oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX
+        7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH
+        AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP
+        0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/
+        IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt
+        L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr
+        +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp
+        PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs
+        A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17
+        AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa
+        MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu
+        DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/
+        SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC
+        rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth
+        EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w
+        JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5
+        MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK
+        qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe
+        OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj
+        8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ
+        V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej
+        9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr
+        bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++
+        1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A
+        0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s
+        2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B
+        Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO
+        RK5CYII=
 </value>
  </data>
  <data name="PictureBox8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
-        3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
-        AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
-        VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
-        pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
-        HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
-        hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
-        JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
-        ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
-        fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
-        qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
-        nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
-        bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
-        Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
-        uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
-        FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
-        ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
-        mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
-        Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
-        qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
-        264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
-        eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
-        ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
-        Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
-        bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
-        DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
-        8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
-        1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
-        vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
-        TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
-        px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
-        8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
-        P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
-        +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
-        4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
-        uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
-        nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
-        27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
+        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t
+        3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d
+        A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v
+        msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh
+        tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp
+        +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y
+        BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t
+        OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI
+        h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1
+        oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX
+        7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH
+        AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP
+        0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/
+        IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt
+        L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr
+        +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp
+        PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs
+        A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17
+        AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa
+        MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu
+        DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/
+        SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC
+        rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth
+        EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w
+        JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5
+        MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK
+        qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe
+        OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj
+        8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ
+        V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej
+        9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr
+        bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++
+        1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A
+        0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s
+        2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B
+        Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO
+        RK5CYII=
 </value>
  </data>
  <data name="PictureBox9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACpNJREFUeF7t
-        nYGN4wYSBC8Uh+JQPhOH4lAcikP518BHWL/Xe7t7PU2RM1VA4fGA/33qo0okJe1+AwAAAAAAAAAAAAAA
-        AAAAAAAAAAC4Nf8J+NtD6KU2VVu7wnL+G5ADq5/aVG3tCstRB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHo
-        hwBABHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBA
-        BHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBABHVQ
-        uBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CAD8QP2k2D8e/vnwr++qv2TE
-        Dv/+bh1ndcxVlPgJ0CdzPOl5suNVrCjUMUkMwtTI6i8A8QoeIYBmUtd/iAkJQSN1raVGRry6RMCgrqe4
-        zse7W2cD3Bv4BXjy4xSJwBfhyY/TrAjAJ+CaH6daxzb8hN8fquEQp8inRH9CnSap0RCnyKXAO/AhH9wi
-        lwICNRTiRHlX4A180g+3yYeEnuBtP9xmHfPwHTUQ4nTrXa/1cPqPW+UtwQd88Ae3yrsBDwgAbpX7AA/4
-        8A9ulQ8FPSAAuFUC8EAN41qXFXWDBbHL1KXqetQorvUXBtBJHVPqWHNdjxrFlQBANwQghBrFlQBANwQg
-        hBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBA
-        NwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrF
-        lQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlR8Kit3yQ0FDqFEQt7geNQriFtejRkHc
-        4nrUKIhbXI8aBXGL61GjIG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61Gj
-        IG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61GjuNZPcQXopI4pday5rkeN
-        4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsC
-        EEKN4koAoBsCEEKN4koAoBsCEEKN4koAfs5v3/39yfrv8D4EIIQaxZUA/Es9sf/47t8P1V7P1j/z58Pa
-        sMIA/0AAQqhRXAnAP0/4vx6qfb5iBYE9CUAMNYrr5gO2XrU/80r/Vev/s6KyFQIQQo3iujEAdarf8Yr/
-        kRWCjZcGBCCEGsV1WwBSB+d7bjwbIAAh1CiumwJQT0S1wRluigABCKFGcd0SgDNO+T+yzgY2QABCqFFc
-        NwTgCk/+w3rbcDoEIIQaxXV6AF552v+e0y8HCEAINYrr5ADUHXj1mK/g5HcHCEAINYrr5ACox3sV637A
-        1I8UE4AQahTXqQGoa231eK/k1PsBBCCEGsV1YgCufOr/7NQPChGAEGoU14kBuNJd/4+ceBZAAEKoUVyn
-        BeAur/6HE88CCEAINYrrtABc8W2/j5z2tiABCKFGcZ0WgHpFVY/zyk77hCABCKFGcZ0WAPUY7+CkywAC
-        EEKN4jopAKkD7wwJwMeuR43iOikAd3jv/z0n3QcgACHUKK4E4BrWW5dTIAAh1CiukwJwxxuAh5NuBBKA
-        EGoUVwJwDQnAx65HjeI6KQDq8d1FAvCx61GjuBKA6zgFAhBCjeI6KQBcAlwDAhBCjeI6KQB3+hLQW3kX
-        4GPXo0ZxJQDXcNK3AglACDWK66QA3PGLQId8EOhj16NGcZ0UgLt9FfhZPgr8setRo7hOCkD9jD31GO/g
-        JAhACDWK66QAFHe8DzDtpwIRgBBqFNdpAbjjZcCk0/+CAIRQo7hOC8BZv/m3y0nv/x8QgBBqFNdpAShS
-        B2BC9v+861GjuE48AO9yFjDpwz/PEIAQahTXiQEo7nAvYNq1/wEBCKFGcZ0agOLKPyBk2p3/ZwhACDWK
-        6+QAXPVSYOqp/wEBCKFGcZ0cgKIicKVvCU686/8WAhBCjeI6PQDFVSJQf4ap1/3PEIAQahTXDQEoXh2B
-        Da/8BwQghBrFdUsAilfdE5h+zf8WAhBCjeK6KQBFReDMrw1P+71/n4EAhFCjuG4LwEGFIPk2Yb3q179j
-        IwQghBrFdWsADrpDUE/87ZsSgBBqFNftB+tBhaC2+JV7BHWDr071t77iv4UAhFCjuBKAH6kn8hGEOjs4
-        rDjUf9aTvdzwlt6vQABCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBC
-        qFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCcCP
-        HN8FKOvz/u95/DPw/xCAEGoU120BOJ7Uxxd66gs+pfvjwup/f3h8aai2LevftwkCEEKN4jo5APVkf36i
-        q8d/lkccjjBMjgIBCKFGcZ0UgOMJ/+on+2c9zhbqzzwpCAQghBrF9e4BOE7n1WO7m89nCHeGAIRQo7je
-        8WA7XunV45niEYM7nhkQgBBqFNc7BaCe9PXEUI9jsvWY67HfBQIQQo3ievUAbHi1/6x3CQEBCKFGcb1y
-        AHjia68eAgIQQo3iesUA1HXvxlP9r3rVEBCAEGoU1ysFgNP9X/NqESAAIdQorlcJQL3qqz8ffs46G6iA
-        XgECEEKN4nqFAKQOmG1e5ZKAAIRQo7i+OgA8+ft9dQQIQAg1iusrA8CTP+crI0AAQqhRXF8VAK75877q
-        75YAhFCjuL7iIKmbVerPgr2+6sYgAQihRnF9RQDu8m29CVYEzoYAhFCjuJ4dgNTBge979heKCEAINYrr
-        2QGoVyT158CcZ58FEIAQahTXMwPAq//rPPMsgACEUKO4nhmA+n67+jNg3jPfFiQAIdQormcGgJt/r7O2
-        PwsCEEKN4npmALj+f51n3gcgACHUKK5nBkD9+/EcCcAA1CiuBGCPZ0EAQqhRXM8MAOyAAIRQo7gSAOiG
-        AIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gS
-        AOiGAIRQo7gSAOiGAIRQo7gev48escvU177Xw7fpcLPr4fv0uNUzf57BZSEAuNW6rFgPP1ILt0oAHtQN
-        FjUO4nTr2F8Pv1EHt3qVX33+crgPgNvk9P+J+vHOaiTEqXL6/wSXAbhNTv/fwM1A3OKZv9DkNlQR+VQg
-        bhDegbMAnC7X/h/ADUGcKh/9/QR1KcDbgjhNnvxfgPsBOMkzf4XZGDgTwAny5DeoCHBPAO8qp/1NVAS4
-        JMC7WMcq7/U3w9kA3kGe+GGOEHB/AK8ir/gvomJQH6yob1ZVEEouFTBlHVtlHWd1zPGkBwAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGM+3b/8D
-        5YK/CrjgMXgAAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACmdJREFUeF7t
+        nY1t3GYUBK8Ul5JS0olLcSkuxaUkeLA+5LLW+U7WLvnxvRlgEARI4mjFG5G8H91uAAAAAAAAAAAAAAAA
+        AAAAAAAAAABX5u+AX/QPgU9Tm+rODmE4/wTkwPJTm+rODmE4ekA4JAB+CABE0APCIQHwQwAggh4QDgmA
+        HwIAEfSAcEgA/BAAiKAHhEMC4IcAQAQ9IBwSAD8EACLoAeGQAPghABBBDwiHBMAPAYAIekA4JAB+CABE
+        0APCIQHwQwAggh4QDgmAHwIAEfSAcEgA/BAAiKAHhEMC4IcAQAQ9IBwSAD8EACLoAeGQAPghABBBDwiH
+        BMAPAYAIekA4JAB+CABE0APCIQHwQwAggh4QDgmAHwIAEfSAcEgA/BAA+IX6pNivt9vt2+12+/6mfoMR
+        Xf54s46zOuYqSnwC9MGsBz0PdtzFikIdk8QgTI2s4yPu4goBmEld/yEmJARG6lpLB0a8gkTgE9T1FNf5
+        eHXrbIB7A38AD37sIhH4IDz4sZsVAXgBrvmxq3Vsw2/4653REDvJq0R/Q50m6WCIneRS4AG8yAenyKXA
+        O+hIiF3lWQGBV/rhNHmR0B087YfTrGMe3tBxECdYz3qNh9N/nCpPCfLCHxwszwYQABws9wF48Q8OlhcF
+        EQAcLAF4ZxSH6wMbEV2mLlXHo4M4rG8YgJM6pvQ4czgeHcQhAQA3BCCEDuKQAIAbAhBCB3FIAMANAQih
+        gzgkAOCGAITQQRwSAHBDAELoIA4JALghACF0EIcEANwQgBA6iEMCAG4IQAgdxCEBADcEIIQO4pAAgBsC
+        EEIHcUgAwA0BCKGDOCQA4IYAhNBBHBIAcEMAQuggDgkAuCEAIXQQhwQA3BCAEDqIQwIAbghACB3EIQEA
+        NwQghA7ikACAGwIQQgdxSADADQEIoYM45ENB0S0fChpCB0Gc5Hh0EMRJjkcHQZzkeHQQxEmORwdBnOR4
+        dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQxEmORwdBnOR4dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQxEmO
+        RwdBnOR4dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQh/UprgBO6pjS48zheHQQhwQA3BCAEDqIQwIAbghA
+        CB3EIQEANwQghA7ikACAGwIQQgdxSADADQEIoYM4JADghgCE0EEcEgBwQwBC6CAOCQC4IQAhdBCHBADc
+        EIAQOohDAvB7vrz515319/AYAhBCB3FIAP6jHthf3/zxzlZq/TPf3jasMMBPCEAIHcQhAfj5gP/+zjYf
+        tYLAngQghg7icPIBWz+1X/lJ/1Hrv1lRmQoBCKGDOJwYgDrVd/zEf2aFYOKlAQEIoYM4nBaA1MH5yIln
+        A6mNx6ODOJwUgHog6td/lJMiQABC6CAOpwTgiFP+Z9bZwAQIQAgdxOGEAOzw4F/W04bdIQAhdBCH3QNw
+        5mn/I7tfDhCAEDqIw84BqDvw+vXuYudnBwhACB3EYecA6Ne6k3U/oOtLiglACB3EYdcA1LW2fq272fV+
+        AAEIoYM47BiAnU/97+36QiECEEIHcdgxADvd9X9mx7MAAhBCB3HYLQBX+em/7HgWQABC6CAOuwVgx6f9
+        ntntaUECEEIHcdgtAIl396Xt9gpBAhBCB3HYLQD69V3FTpcBBCCEDuKwUwBSB94REoDnjkcHcdgpAFd4
+        7v+Rne4DEIAQOohDArCH9dRlFwhACB3EYacAXPEG4LLTjUACEEIHcUgA9pAAPHc8OojDTgHQr+1KEoDn
+        jkcHcUgA9rELBCCEDuKwUwC4BNgDAhBCB3HYKQBXehOQyrMAzx2PDuKQAOxhp3cFEoAQOojDTgG44huB
+        lrwQ6Lnj0UEcdgrA1d4KfC8vBX7ueHQQh50CUJ+xp1/fVewEAQihgzjsFIDiivcBOl3/FwQghA7isFsA
+        rngZ0On0vyAAIXQQh90CcNRv/nXZ6fn/BQEIoYM47BaAInUAJmT/1x2PDuKw4wF4lbOATi/+uYcAhNBB
+        HHYMQHGFewHdrv0XBCCEDuKwawCKnT8gpNud/3sIQAgdxGHnAOx6KdD11H9BAELoIA47B6CoCOz0LsGO
+        d/0VAhBCB3HYPQDFLhHo+FuA3oMAhNBBHE4IQHF2BCb85F8QgBA6iMMpASjOuifQ/ZpfIQAhdBCHkwJQ
+        VASOfNtwp7f5vgoBCKGDOJwWgEWFIPk0Yf3Urz9jIgQghA7icGoAFu4Q1AN/+qYEIIQO4nD6wbqoENQW
+        f3KPoG7w1an+1J/4CgEIoYM4JAC/Ug/kFYQ6O1hWHOqv9WAvJzyl9ycQgBA6iEMCAG4IQAgdxCEBADcE
+        IIQO4pAAgBsCEEIHcUgAwA0BCKGDOCQA4IYAhNBBHBIAcEMAQuggDgkAuCEAIXQQhwQA3BCAEDqIQwIA
+        bghACB3EIQEANwQghA7ikACAGwIQQgdxSAB+Zb0XoKzX+z9y/TPwfwhACB3E4bQArAf1ekNPvcGn/OzH
+        hdW/v1xvGqpty2lvGiIAIXQQh50DsD79Zz3Q9Ws/0hWHFYbOUSAAIXQQh50CsB7wZz/YX3WdLXR7azEB
+        CKGDOLx6ANbpvH5dV/T+DOHKEIAQOojDKx5sR3+w5xmuGFzxzIAAhNBBHF4pAPWg/+zNuiu6PnLsKhCA
+        EDqIw90DMOGn/ateJQQEIIQO4nDnAPDAf9/dQ0AAQuggDncMQF33TjzV/6i7hoAAhNBBHO4UAE73/8zd
+        IkAAQuggDncJQP3U1/83fN06G9jlZckEIIQO4nCHAKQOmGnuckmQ+n6ORwdxeHYAUgfLZM+OQOp7Oh4d
+        xOGZAUgdKHhuBFLf1/HoIA7PCgDX/HnP+t4SgBA6iMMzDpK6WaX/H+j3rBuDBCCEDuLwjABc5d16HawI
+        HA0BCKGDODw6AKmDAx979BuKUt/j8eggDo8OAK/wO96jzwIIQAgdxOGRAUgdGPjcI88CUt/n8eggDo8M
+        QL2/Xf98PMYjnxYkACF0EIdHBoCbf+dZ2x8FAQihgzg8MgBc/5/nkfcBCEAIHcThkQHQPxuPkwA0QAdx
+        SADmeBQEIIQO4vDIAMAMCEAIHcQhAQA3BCCEDuKQAIAbAhBCB3FIAMANAQihgzgkAOCGAITQQRwSAHBD
+        AELoIA4JALghACF0EIcEANwQgBA6iEMCAG4IQAgdxCEBADcEIIQO4nD9PnpEl6m3fY+Hd9PhZMfD++lx
+        qkd+nsG2EACcal1WjCd1bYW4uwTg7QaLDoM4wTr2x8Nv1MGpnvEbjraE+wA4TU7/76iPd9aBEDvL6f8d
+        XAbgNDn9F7gZiFM88heaXIYqIq8KxAnCAzgLwO5y7f8EbghiV3np7wvUpQBPC2I3efB/AO4HYCeP/BVm
+        beBMADvIg/8TVAS4J4BXldN+ExUBLgnwKtaxynP9ZjgbwCvIAz/MCgH3B3AX+Yl/EhWD9YGNFYSSSwVM
+        WcdWWcdZHXM86AEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAbwL+WCvwp3istGAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/SDL/kunden/frmKundenKontakteDetails.vb
+++ b/SDL/kunden/frmKundenKontakteDetails.vb
@@ -68,6 +68,25 @@
        txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
        txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "")

+        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text) Then
+            lblEmail.ForeColor = Color.Black
+        Else
+            lblEmail.ForeColor = Color.Red
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text) Then
+            lblEmailCC.ForeColor = Color.Black
+        Else
+            lblEmailCC.ForeColor = Color.Red
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text) Then
+            lblEmailBCC.ForeColor = Color.Black
+        Else
+            lblEmailBCC.ForeColor = Color.Red
+        End If
+
+
        txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
        txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "")
        txtGeburtsort.Text = If(KD_KONTAKT.kkd_Geburtsort, "")
@@ -75,6 +94,9 @@
        If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
        If Not IsDBNull(KD_KONTAKT.kkd_Geburtsland) Then cbxGeburtsland.changeItem(KD_KONTAKT.kkd_Geburtsland)

+        If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderung) AndAlso IsDate(KD_KONTAKT.kkd_letzteAenderung) AndAlso CDate(KD_KONTAKT.kkd_letzteAenderung) > New Date("01.01.2000") Then lblAenderung.Text = KD_KONTAKT.kkd_letzteAenderung
+        If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderungUser) Then lblSachbearbeiter.Text = KD_KONTAKT.kkd_letzteAenderungUser
+
    End Sub

    Sub getvalue()
@@ -110,6 +132,34 @@

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        getvalue()
+
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email) Then
+            lblEmail.ForeColor = Color.Red
+            lblEmail.Focus()
+            Exit Sub
+        Else
+            lblEmail.ForeColor = Color.Black
+
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC) Then
+            lblEmailCC.ForeColor = Color.Red
+            lblEmailCC.Focus()
+            Exit Sub
+        Else
+            lblEmailCC.ForeColor = Color.Black
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC) Then
+            lblEmailBCC.ForeColor = Color.Red
+            lblEmailBCC.Focus()
+            Exit Sub
+        Else
+            lblEmailBCC.ForeColor = Color.Black
+        End If
+
+        KD_KONTAKT.kkd_letzteAenderung = DateTime.Now
+        KD_KONTAKT.kkd_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        KD_KONTAKT.SAVE()
        Me.Close()
    End Sub
@@ -125,5 +175,4 @@

    End Sub

-
 End Class
--- a/SDL/kunden/usrCntlKundenKontakte.vb
+++ b/SDL/kunden/usrCntlKundenKontakte.vb
@@ -1,7 +1,4 @@
-
-Imports DocumentFormat.OpenXml.Spreadsheet
-
-Public Class usrCntlKundenKontakte
+Public Class usrCntlKundenKontakte

    'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing
    Public kdNr As Integer
@@ -44,8 +41,15 @@ Public Class usrCntlKundenKontakte
                Dim dt = SQL.loadDgvBySql("SELECT *  FROM [tblKundenKontakt]  where [kkd_KundenNr]=" & kdNr, "FMZOLL")
                If dt IsNot Nothing Then
                    For Each r In dt.Rows
-                        Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).trim
-                        dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
+                        Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).Trim
+
+                        Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
+
+                        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) Then
+                            Dim dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex)
+                            dgvRow.DefaultCellStyle.BackColor = Color.IndianRed
+                        End If
+
                    Next
                End If
            End If
@@ -101,5 +105,4 @@ Public Class usrCntlKundenKontakte
        dgvAufschub_KeyDown(sender, delKey)
    End Sub

-
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
@@ -105,6 +105,8 @@ Public Class cKundenKontakte
    Property kkd_Firmenname As Object = Nothing
    Property kkd_Geburtsort As Object = Nothing
    Property kkd_Geburtsland As Object = Nothing
+    Property kkd_letzteAenderungUser As String
+    Property kkd_letzteAenderung As DateTime

    Public hasEntry = False

@@ -155,6 +157,8 @@ Public Class cKundenKontakte
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderungUser", kkd_letzteAenderungUser))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderung", kkd_letzteAenderung))


        Return list
--- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
@@ -1,7 +1,4 @@
-Imports GrapeCity.ActiveReports
-Imports GrapeCity.ActiveReports.Document
-Imports System.ComponentModel
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
 Imports System.IO

 Public Class cAllgemein
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -900,6 +900,27 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(

    End Function

+    Shared Function checkifMailisOK(email As String) As Boolean
+
+        If String.IsNullOrWhiteSpace(email) Then
+            Return True
+
+        Else
+
+            Try
+                Dim addr As New System.Net.Mail.MailAddress(email)
+                ' zusätzlicher Check: Domain muss einen Punkt enthalten
+                Dim domain As String = addr.Host
+                If Not domain.Contains(".") Then Return False
+                Return True
+            Catch
+                Return False
+            End Try
+
+        End If
+
+    End Function
+
    Public Function MakeScreenshot()
        Dim form As New Form
        form = Form.ActiveForm