diff --git a/SDL/kunden/frmKundenKontakteDetails.Designer.vb b/SDL/kunden/frmKundenKontakteDetails.Designer.vb
index 41420a8a..10f9525b 100644
--- 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
diff --git a/SDL/kunden/frmKundenKontakteDetails.resx b/SDL/kunden/frmKundenKontakteDetails.resx
index b3f30c96..5e82f36e 100644
--- a/SDL/kunden/frmKundenKontakteDetails.resx
+++ b/SDL/kunden/frmKundenKontakteDetails.resx
@@ -120,179 +120,178 @@
- 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=
- 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=
- 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=
- 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
diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb
index 3eff7026..710a1bd5 100644
--- 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
diff --git a/SDL/kunden/usrCntlKundenKontakte.vb b/SDL/kunden/usrCntlKundenKontakte.vb
index 84c6840f..7671954c 100644
--- 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
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
index b7e5ea6b..56e05a56 100644
--- 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
diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
index bbbe8982..f0ac3812 100644
--- 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
diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index 36fbed46..395e39b9 100644
--- 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