diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
index 1ae4a641..f1e95e88 100644
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -351,6 +351,7 @@ Partial Class frmKundenUebersichtZOLL
Me.Button1.TabIndex = 170
Me.Button1.Text = "Zusatzblatt"
Me.Button1.UseVisualStyleBackColor = True
+ Me.Button1.Visible = False
'
'btnUbersicht
'
diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb
index f70652ef..5124ca82 100644
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -224,6 +224,7 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
btnUbersicht.Visible = True
+ Button1.Visible = True
End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
index f48d72e6..23f197c7 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -724,6 +724,7 @@ Partial Class usrCntlKundenuebersicht
Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
Me.usrCntlAnhaenge._OPEN_ORIGINAL = False
Me.usrCntlAnhaenge._TYPE = ""
+ Me.usrCntlAnhaenge.AllowDrop = True
Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1524,6 +1525,7 @@ Partial Class usrCntlKundenuebersicht
Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13)
Me.lblHoechstkredit.TabIndex = 7
Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ Me.lblHoechstkredit.Visible = False
'
'Label69
'
@@ -1534,6 +1536,7 @@ Partial Class usrCntlKundenuebersicht
Me.Label69.Size = New System.Drawing.Size(70, 13)
Me.Label69.TabIndex = 6
Me.Label69.Text = "Hochstkredit:"
+ Me.Label69.Visible = False
'
'lblBonitaet
'
diff --git a/SDL/kunden/usrCntlKundenuebersicht.resx b/SDL/kunden/usrCntlKundenuebersicht.resx
index 411f6c1c..99bb42bd 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.resx
+++ b/SDL/kunden/usrCntlKundenuebersicht.resx
@@ -123,90 +123,90 @@
- iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
- mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
- qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
- zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
- jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
- kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
- XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
- e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
- 1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
- bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
- 0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
- vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
- IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
- QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
- xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
- yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
- fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
- hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
- yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
- auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
- TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
- VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
- nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
- EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
- Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
- m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
- 2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
- 3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
- sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
- Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
- 5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
- ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
- ++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
- y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
- Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
- v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
- OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
- cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
- LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
- ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
+ iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
+ mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
+ i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
+ p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
+ hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
+ Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
+ XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
+ 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
+ k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
+ uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+ dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+ lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+ AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+ CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+ oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+ F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+ O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+ pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+ rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+ XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+ tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+ kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+ NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+ mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+ sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+ vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+ PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+ a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+ etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+ zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+ HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+ 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+ sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+ EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+ nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+ Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+ Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+ 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+ GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+ Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
- iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
- mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
- qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
- zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
- jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
- kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
- XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
- e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
- 1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
- bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
- 0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
- vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
- IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
- QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
- xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
- yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
- fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
- hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
- yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
- auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
- TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
- VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
- nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
- EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
- Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
- m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
- 2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
- 3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
- sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
- Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
- 5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
- ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
- ++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
- y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
- Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
- v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
- OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
- cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
- LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
- ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
+ iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
+ mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
+ i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
+ p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
+ hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
+ Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
+ XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
+ 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
+ k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
+ uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+ dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+ lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+ AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+ CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+ oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+ F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+ O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+ pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+ rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+ XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+ tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+ kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+ NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+ mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+ sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+ vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+ PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+ a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+ etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+ zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+ HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+ 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+ sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+ EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+ nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+ Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+ Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+ 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+ GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+ Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 2848d1ab..aedf058f 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -175,6 +175,8 @@ Public Class usrCntlKundenuebersicht
txtVorauskasse.Visible = True
lblVorkasse.Visible = True
End If
+
+
If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
btnThereforeKundeninfo.Visible = True
End If
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
index 64bb94dc..52ace0c9 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -98,6 +98,12 @@ Public Class cMitarbeiter
Property mit_timasMehrereFirmen As Boolean = False
Property mit_timasFirmen As Object = Nothing
+ Property mit_Notfall_Name As Object = Nothing
+ Property mit_Notfall_Handy As Object = Nothing
+ Property mit_Notfall_Mail As Object = Nothing
+
+
+
Dim SQL As New SQL
@@ -210,6 +216,9 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasFirmen", mit_timasFirmen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasMehrereFirmen", mit_timasMehrereFirmen))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
@@ -416,6 +425,10 @@ Public Class cMitarbeiter
If Not dr.Item("mit_timasFirmen") Is DBNull.Value Then Me.mit_timasFirmen = dr.Item("mit_timasFirmen")
Me.mit_timasMehrereFirmen = dr.Item("mit_timasMehrereFirmen")
+ If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
+ If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
+ If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
+
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
index 964c5d17..4893670c 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
@@ -28,7 +28,6 @@ Partial Class frmMitarbeitersuche
Me.Button4 = New System.Windows.Forms.Button()
Me.btnClose = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
- Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
@@ -73,6 +72,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag = New System.Windows.Forms.Panel()
Me.lblGeburtstag = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblPosition = New System.Windows.Forms.Label()
@@ -83,7 +83,12 @@ Partial Class frmMitarbeitersuche
Me.lblFirma = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
- Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.pnlNotfallkontakt = New System.Windows.Forms.Panel()
+ Me.lblNotfall_Mail = New System.Windows.Forms.Label()
+ Me.Label17 = New System.Windows.Forms.Label()
+ Me.lblNotfall_Handy = New System.Windows.Forms.Label()
+ Me.lblNotfall_Name = New System.Windows.Forms.Label()
+ Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlSrch.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout()
@@ -99,6 +104,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
+ Me.pnlNotfallkontakt.SuspendLayout()
Me.SuspendLayout()
'
'pnlSrch
@@ -156,32 +162,6 @@ Partial Class frmMitarbeitersuche
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
- 'sbMitarbeiter
- '
- Me.sbMitarbeiter._allowFreitext = False
- Me.sbMitarbeiter._AllowSetValue = False
- Me.sbMitarbeiter._allowSpaceAsSplitter = True
- Me.sbMitarbeiter._autoSizeGross = False
- Me.sbMitarbeiter._hideIfListEmpty = True
- Me.sbMitarbeiter._value = Nothing
- Me.sbMitarbeiter.conn_art = "FMZOLL"
- Me.sbMitarbeiter.dgvpos = "LEFT"
- Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
- Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
- Me.sbMitarbeiter.key_visible = False
- Me.sbMitarbeiter.KEYPARAM = Nothing
- Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
- Me.sbMitarbeiter.Name = "sbMitarbeiter"
- Me.sbMitarbeiter.searchActive = True
- Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
- Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
- Me.sbMitarbeiter.SQL_SELECT = Nothing
- Me.sbMitarbeiter.SQL_WHERE = Nothing
- Me.sbMitarbeiter.SQL_WhereParamList = Nothing
- Me.sbMitarbeiter.TabIndex = 0
- Me.sbMitarbeiter.usrcntl = Nothing
- '
'pnlMain
'
Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
@@ -704,6 +684,11 @@ Partial Class frmMitarbeitersuche
Me.PictureBox1.TabIndex = 13
Me.PictureBox1.TabStop = False
'
+ 'ContextMenuStrip1
+ '
+ Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+ Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+ '
'MyPanel1
'
Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -716,6 +701,7 @@ Partial Class frmMitarbeitersuche
Me.MyPanel1.Controls.Add(Me.lblFirma)
Me.MyPanel1.Controls.Add(Me.Label4)
Me.MyPanel1.Controls.Add(Me.Label3)
+ Me.MyPanel1.Controls.Add(Me.pnlNotfallkontakt)
Me.MyPanel1.Location = New System.Drawing.Point(197, 188)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(578, 109)
@@ -735,7 +721,7 @@ Partial Class frmMitarbeitersuche
Me.lblPosition.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblPosition.Location = New System.Drawing.Point(158, 80)
Me.lblPosition.Name = "lblPosition"
- Me.lblPosition.Size = New System.Drawing.Size(411, 25)
+ Me.lblPosition.Size = New System.Drawing.Size(209, 25)
Me.lblPosition.TabIndex = 10
Me.lblPosition.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
@@ -768,7 +754,7 @@ Partial Class frmMitarbeitersuche
Me.lblAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbteilung.Location = New System.Drawing.Point(158, 55)
Me.lblAbteilung.Name = "lblAbteilung"
- Me.lblAbteilung.Size = New System.Drawing.Size(411, 25)
+ Me.lblAbteilung.Size = New System.Drawing.Size(209, 25)
Me.lblAbteilung.TabIndex = 8
Me.lblAbteilung.Text = "IT"
Me.lblAbteilung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -779,7 +765,7 @@ Partial Class frmMitarbeitersuche
Me.lblNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblNiederlassung.Location = New System.Drawing.Point(158, 30)
Me.lblNiederlassung.Name = "lblNiederlassung"
- Me.lblNiederlassung.Size = New System.Drawing.Size(411, 25)
+ Me.lblNiederlassung.Size = New System.Drawing.Size(209, 25)
Me.lblNiederlassung.TabIndex = 7
Me.lblNiederlassung.Text = "SUBEN"
Me.lblNiederlassung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -790,7 +776,7 @@ Partial Class frmMitarbeitersuche
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblFirma.Location = New System.Drawing.Point(158, 5)
Me.lblFirma.Name = "lblFirma"
- Me.lblFirma.Size = New System.Drawing.Size(411, 25)
+ Me.lblFirma.Size = New System.Drawing.Size(209, 25)
Me.lblFirma.TabIndex = 6
Me.lblFirma.Text = "VERAG"
Me.lblFirma.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -817,10 +803,88 @@ Partial Class frmMitarbeitersuche
Me.Label3.Text = "Niederlassung:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
- 'ContextMenuStrip1
+ 'pnlNotfallkontakt
'
- Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
- Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+ Me.pnlNotfallkontakt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+ Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Mail)
+ Me.pnlNotfallkontakt.Controls.Add(Me.Label17)
+ Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Handy)
+ Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Name)
+ Me.pnlNotfallkontakt.Location = New System.Drawing.Point(374, 5)
+ Me.pnlNotfallkontakt.Name = "pnlNotfallkontakt"
+ Me.pnlNotfallkontakt.Size = New System.Drawing.Size(200, 100)
+ Me.pnlNotfallkontakt.TabIndex = 49
+ Me.pnlNotfallkontakt.Visible = False
+ '
+ 'lblNotfall_Mail
+ '
+ Me.lblNotfall_Mail.BackColor = System.Drawing.Color.Transparent
+ Me.lblNotfall_Mail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.lblNotfall_Mail.Location = New System.Drawing.Point(-1, 75)
+ Me.lblNotfall_Mail.Name = "lblNotfall_Mail"
+ Me.lblNotfall_Mail.Size = New System.Drawing.Size(202, 25)
+ Me.lblNotfall_Mail.TabIndex = 48
+ Me.lblNotfall_Mail.Text = "-"
+ Me.lblNotfall_Mail.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'Label17
+ '
+ Me.Label17.AutoSize = True
+ Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
+ Me.Label17.Location = New System.Drawing.Point(-4, 1)
+ Me.Label17.Name = "Label17"
+ Me.Label17.Size = New System.Drawing.Size(139, 24)
+ Me.Label17.TabIndex = 45
+ Me.Label17.Text = "Notfallkontakt:"
+ Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'lblNotfall_Handy
+ '
+ Me.lblNotfall_Handy.BackColor = System.Drawing.Color.Transparent
+ Me.lblNotfall_Handy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.lblNotfall_Handy.Location = New System.Drawing.Point(-1, 50)
+ Me.lblNotfall_Handy.Name = "lblNotfall_Handy"
+ Me.lblNotfall_Handy.Size = New System.Drawing.Size(202, 25)
+ Me.lblNotfall_Handy.TabIndex = 47
+ Me.lblNotfall_Handy.Text = "-"
+ Me.lblNotfall_Handy.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'lblNotfall_Name
+ '
+ Me.lblNotfall_Name.BackColor = System.Drawing.Color.Transparent
+ Me.lblNotfall_Name.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.lblNotfall_Name.Location = New System.Drawing.Point(-1, 25)
+ Me.lblNotfall_Name.Name = "lblNotfall_Name"
+ Me.lblNotfall_Name.Size = New System.Drawing.Size(202, 25)
+ Me.lblNotfall_Name.TabIndex = 46
+ Me.lblNotfall_Name.Text = "-"
+ Me.lblNotfall_Name.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'sbMitarbeiter
+ '
+ Me.sbMitarbeiter._allowFreitext = False
+ Me.sbMitarbeiter._AllowSetValue = False
+ Me.sbMitarbeiter._allowSpaceAsSplitter = True
+ Me.sbMitarbeiter._autoSizeGross = False
+ Me.sbMitarbeiter._hideIfListEmpty = True
+ Me.sbMitarbeiter._value = Nothing
+ Me.sbMitarbeiter.conn_art = "FMZOLL"
+ Me.sbMitarbeiter.dgvpos = "LEFT"
+ Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
+ Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
+ Me.sbMitarbeiter.key_visible = False
+ Me.sbMitarbeiter.KEYPARAM = Nothing
+ Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
+ Me.sbMitarbeiter.Name = "sbMitarbeiter"
+ Me.sbMitarbeiter.searchActive = True
+ Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
+ Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
+ Me.sbMitarbeiter.SQL_SELECT = Nothing
+ Me.sbMitarbeiter.SQL_WHERE = Nothing
+ Me.sbMitarbeiter.SQL_WhereParamList = Nothing
+ Me.sbMitarbeiter.TabIndex = 0
+ Me.sbMitarbeiter.usrcntl = Nothing
'
'frmMitarbeitersuche
'
@@ -856,6 +920,8 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
+ Me.pnlNotfallkontakt.ResumeLayout(False)
+ Me.pnlNotfallkontakt.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -920,4 +986,9 @@ Partial Class frmMitarbeitersuche
Friend WithEvents btnAkten As Windows.Forms.Button
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip
+ Friend WithEvents pnlNotfallkontakt As Windows.Forms.Panel
+ Friend WithEvents lblNotfall_Mail As Windows.Forms.Label
+ Friend WithEvents Label17 As Windows.Forms.Label
+ Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
+ Friend WithEvents lblNotfall_Name As Windows.Forms.Label
End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
index 30ee1a4b..469d738e 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
@@ -100,6 +100,11 @@ Public Class frmMitarbeitersuche
pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse
+
+ lblNotfall_Name.Text = If(MA.mit_Notfall_Name, "")
+ lblNotfall_Handy.Text = If(MA.mit_Notfall_Handy, "")
+ lblNotfall_Mail.Text = If(MA.mit_Notfall_Mail, "")
+
lblMotto.Text = MA.mit_MAVerzeichnis_Motto
If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """"
pnlMotto.Visible = (lblMotto.Text <> "")
@@ -169,10 +174,11 @@ Public Class frmMitarbeitersuche
'requestDone = Not callTimasSaldo
initTimasData()
+ pnlNotfallkontakt.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
btnEdit.Visible = True
-
+ pnlNotfallkontakt.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
pnlZeiten.Visible = True
Else
@@ -186,11 +192,15 @@ Public Class frmMitarbeitersuche
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
btnEdit.Visible = True
btnSettings.Visible = True
+ pnlNotfallkontakt.Visible = True
+
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MA_TeamBearbeiten", "SDL") Then
If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
btnSettings.Visible = True
+ pnlNotfallkontakt.Visible = True
+
End If
End If
@@ -230,6 +240,12 @@ Public Class frmMitarbeitersuche
pic.BackgroundImage = My.Resources.personGray_m
picGeschlecht.Visible = False
pnlZeiten.Visible = False
+
+
+ lblNotfall_Name.Text = ""
+ lblNotfall_Handy.Text = ""
+ lblNotfall_Mail.Text = ""
+
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -237,15 +253,19 @@ Public Class frmMitarbeitersuche
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
+
+
If sbMitarbeiter._value = "" Then Exit Sub
Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value)
f.ShowDialog(Me)
initMA()
+
End Sub
Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If mit_id > 0 Then
sbMitarbeiter.SET_VALUE(mit_id)
+ sbMitarbeiter._value = mit_id
initMA()
End If
End Sub
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb
index 247087fc..6154089b 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb
@@ -26,9 +26,14 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch = New System.Windows.Forms.Panel()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnlMain = New System.Windows.Forms.Panel()
+ Me.pnlHoverPic = New System.Windows.Forms.Panel()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+ Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button()
- Me.txtMotto = New System.Windows.Forms.TextBox()
+ Me.txtNotfall_Name = New System.Windows.Forms.TextBox()
Me.cbxMotto = New System.Windows.Forms.CheckBox()
Me.cbxGeburtsdatumOhneJahr = New System.Windows.Forms.CheckBox()
Me.txtHandynummer = New System.Windows.Forms.TextBox()
@@ -41,17 +46,20 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.lblWohnadresse = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
- Me.pnlHoverPic = New System.Windows.Forms.Panel()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.PictureBox2 = New System.Windows.Forms.PictureBox()
- Me.PictureBox1 = New System.Windows.Forms.PictureBox()
- Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtNotfall_Handy = New System.Windows.Forms.TextBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtNotfall_Mail = New System.Windows.Forms.TextBox()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.txtMotto = New System.Windows.Forms.TextBox()
Me.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout()
- CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHoverPic.SuspendLayout()
- CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlSrch
@@ -85,10 +93,18 @@ Partial Class frmMitarbeitersucheBearbeiten
'pnlMain
'
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlMain.Controls.Add(Me.txtMotto)
+ Me.pnlMain.Controls.Add(Me.Label6)
+ Me.pnlMain.Controls.Add(Me.Label5)
+ Me.pnlMain.Controls.Add(Me.txtNotfall_Mail)
+ Me.pnlMain.Controls.Add(Me.Label4)
+ Me.pnlMain.Controls.Add(Me.txtNotfall_Handy)
+ Me.pnlMain.Controls.Add(Me.Label3)
+ Me.pnlMain.Controls.Add(Me.Label2)
Me.pnlMain.Controls.Add(Me.pnlHoverPic)
Me.pnlMain.Controls.Add(Me.cbxAllowFoto)
Me.pnlMain.Controls.Add(Me.btn)
- Me.pnlMain.Controls.Add(Me.txtMotto)
+ Me.pnlMain.Controls.Add(Me.txtNotfall_Name)
Me.pnlMain.Controls.Add(Me.cbxMotto)
Me.pnlMain.Controls.Add(Me.cbxGeburtsdatumOhneJahr)
Me.pnlMain.Controls.Add(Me.txtHandynummer)
@@ -104,196 +120,21 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
- Me.pnlMain.Size = New System.Drawing.Size(703, 364)
+ Me.pnlMain.Size = New System.Drawing.Size(703, 525)
Me.pnlMain.TabIndex = 1
'
- 'cbxAllowFoto
- '
- Me.cbxAllowFoto.AutoSize = True
- Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187)
- Me.cbxAllowFoto.Name = "cbxAllowFoto"
- Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
- Me.cbxAllowFoto.TabIndex = 33
- Me.cbxAllowFoto.Text = "Foto anzeigen"
- Me.cbxAllowFoto.UseVisualStyleBackColor = True
- '
- 'btn
- '
- Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.btn.Location = New System.Drawing.Point(357, 261)
- Me.btn.Name = "btn"
- Me.btn.Size = New System.Drawing.Size(333, 51)
- Me.btn.TabIndex = 32
- Me.btn.Text = "Speichern"
- Me.btn.UseVisualStyleBackColor = True
- '
- 'txtMotto
- '
- Me.txtMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.txtMotto.Location = New System.Drawing.Point(357, 210)
- Me.txtMotto.Name = "txtMotto"
- Me.txtMotto.Size = New System.Drawing.Size(333, 29)
- Me.txtMotto.TabIndex = 31
- '
- 'cbxMotto
- '
- Me.cbxMotto.AutoSize = True
- Me.cbxMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxMotto.Location = New System.Drawing.Point(186, 212)
- Me.cbxMotto.Name = "cbxMotto"
- Me.cbxMotto.Size = New System.Drawing.Size(75, 28)
- Me.cbxMotto.TabIndex = 30
- Me.cbxMotto.Text = "Motto"
- Me.cbxMotto.UseVisualStyleBackColor = True
- '
- 'cbxGeburtsdatumOhneJahr
- '
- Me.cbxGeburtsdatumOhneJahr.AutoSize = True
- Me.cbxGeburtsdatumOhneJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxGeburtsdatumOhneJahr.Location = New System.Drawing.Point(489, 110)
- Me.cbxGeburtsdatumOhneJahr.Name = "cbxGeburtsdatumOhneJahr"
- Me.cbxGeburtsdatumOhneJahr.Size = New System.Drawing.Size(114, 28)
- Me.cbxGeburtsdatumOhneJahr.TabIndex = 29
- Me.cbxGeburtsdatumOhneJahr.Text = "ohne Jahr"
- Me.cbxGeburtsdatumOhneJahr.UseVisualStyleBackColor = True
- '
- 'txtHandynummer
- '
- Me.txtHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.txtHandynummer.Location = New System.Drawing.Point(357, 176)
- Me.txtHandynummer.Name = "txtHandynummer"
- Me.txtHandynummer.Size = New System.Drawing.Size(333, 29)
- Me.txtHandynummer.TabIndex = 28
- '
- 'txtSpitzname
- '
- Me.txtSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.txtSpitzname.Location = New System.Drawing.Point(357, 142)
- Me.txtSpitzname.Name = "txtSpitzname"
- Me.txtSpitzname.Size = New System.Drawing.Size(333, 29)
- Me.txtSpitzname.TabIndex = 27
- '
- 'lblGeburtstag
- '
- Me.lblGeburtstag.AutoSize = True
- Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
- Me.lblGeburtstag.Location = New System.Drawing.Point(353, 111)
- Me.lblGeburtstag.Name = "lblGeburtstag"
- Me.lblGeburtstag.Size = New System.Drawing.Size(110, 24)
- Me.lblGeburtstag.TabIndex = 12
- Me.lblGeburtstag.Text = "01.01.2020"
- Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
- '
- 'cbxHandynummer
- '
- Me.cbxHandynummer.AutoSize = True
- Me.cbxHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxHandynummer.Location = New System.Drawing.Point(186, 178)
- Me.cbxHandynummer.Name = "cbxHandynummer"
- Me.cbxHandynummer.Size = New System.Drawing.Size(155, 28)
- Me.cbxHandynummer.TabIndex = 26
- Me.cbxHandynummer.Text = "Handynummer"
- Me.cbxHandynummer.UseVisualStyleBackColor = True
- '
- 'cbxSpitzname
- '
- Me.cbxSpitzname.AutoSize = True
- Me.cbxSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxSpitzname.Location = New System.Drawing.Point(186, 144)
- Me.cbxSpitzname.Name = "cbxSpitzname"
- Me.cbxSpitzname.Size = New System.Drawing.Size(117, 28)
- Me.cbxSpitzname.TabIndex = 25
- Me.cbxSpitzname.Text = "Spitzname"
- Me.cbxSpitzname.UseVisualStyleBackColor = True
- '
- 'cbxGeburtsdatum
- '
- Me.cbxGeburtsdatum.AutoSize = True
- Me.cbxGeburtsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxGeburtsdatum.Location = New System.Drawing.Point(186, 110)
- Me.cbxGeburtsdatum.Name = "cbxGeburtsdatum"
- Me.cbxGeburtsdatum.Size = New System.Drawing.Size(147, 28)
- Me.cbxGeburtsdatum.TabIndex = 24
- Me.cbxGeburtsdatum.Text = "Geburtsdatum"
- Me.cbxGeburtsdatum.UseVisualStyleBackColor = True
- '
- 'cbxWohnort
- '
- Me.cbxWohnort.AutoSize = True
- Me.cbxWohnort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.cbxWohnort.Location = New System.Drawing.Point(186, 76)
- Me.cbxWohnort.Name = "cbxWohnort"
- Me.cbxWohnort.Size = New System.Drawing.Size(101, 28)
- Me.cbxWohnort.TabIndex = 23
- Me.cbxWohnort.Text = "Wohnort"
- Me.cbxWohnort.UseVisualStyleBackColor = True
- '
- 'lblWohnadresse
- '
- Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
- Me.lblWohnadresse.Location = New System.Drawing.Point(353, 76)
- Me.lblWohnadresse.Name = "lblWohnadresse"
- Me.lblWohnadresse.Size = New System.Drawing.Size(341, 28)
- Me.lblWohnadresse.TabIndex = 11
- Me.lblWohnadresse.Text = "A 4975 Suben"
- '
- 'lblName
- '
- Me.lblName.BackColor = System.Drawing.Color.Transparent
- Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
- Me.lblName.Location = New System.Drawing.Point(178, 6)
- Me.lblName.Name = "lblName"
- Me.lblName.Size = New System.Drawing.Size(452, 52)
- Me.lblName.TabIndex = 1
- Me.lblName.Text = "Max Mustermann"
- Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
- '
- 'pic
- '
- Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
- Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
- Me.pic.Location = New System.Drawing.Point(7, 3)
- Me.pic.Name = "pic"
- Me.pic.Size = New System.Drawing.Size(165, 178)
- Me.pic.TabIndex = 0
- Me.pic.TabStop = False
- '
'pnlHoverPic
'
Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis)
Me.pnlHoverPic.Controls.Add(Me.Label1)
- Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232)
+ Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 280)
Me.pnlHoverPic.Name = "pnlHoverPic"
Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
Me.pnlHoverPic.TabIndex = 37
Me.pnlHoverPic.Visible = False
'
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
- Me.Label1.Location = New System.Drawing.Point(4, 1)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(98, 24)
- Me.Label1.TabIndex = 36
- Me.Label1.Text = "Hover-Pic:"
- '
- 'PictureBox2
- '
- Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
- Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
- Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
- Me.PictureBox2.Name = "PictureBox2"
- Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
- Me.PictureBox2.TabIndex = 35
- Me.PictureBox2.TabStop = False
- '
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
@@ -305,6 +146,17 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
+ 'PictureBox2
+ '
+ Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
+ Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
+ Me.PictureBox2.Name = "PictureBox2"
+ Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
+ Me.PictureBox2.TabIndex = 35
+ Me.PictureBox2.TabStop = False
+ '
'txtKonfigHinweis
'
Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White
@@ -316,13 +168,257 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.txtKonfigHinweis.TabIndex = 38
Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" &
"önnen. Sie können die Einstellungen jederzeit ändern."
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.Label1.Location = New System.Drawing.Point(4, 1)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(98, 24)
+ Me.Label1.TabIndex = 36
+ Me.Label1.Text = "Hover-Pic:"
+ '
+ 'cbxAllowFoto
+ '
+ Me.cbxAllowFoto.AutoSize = True
+ Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 235)
+ Me.cbxAllowFoto.Name = "cbxAllowFoto"
+ Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
+ Me.cbxAllowFoto.TabIndex = 33
+ Me.cbxAllowFoto.Text = "Foto anzeigen"
+ Me.cbxAllowFoto.UseVisualStyleBackColor = True
+ '
+ 'btn
+ '
+ Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.btn.Location = New System.Drawing.Point(357, 449)
+ Me.btn.Name = "btn"
+ Me.btn.Size = New System.Drawing.Size(333, 51)
+ Me.btn.TabIndex = 32
+ Me.btn.Text = "Speichern"
+ Me.btn.UseVisualStyleBackColor = True
+ '
+ 'txtNotfall_Name
+ '
+ Me.txtNotfall_Name.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtNotfall_Name.Location = New System.Drawing.Point(357, 348)
+ Me.txtNotfall_Name.Name = "txtNotfall_Name"
+ Me.txtNotfall_Name.Size = New System.Drawing.Size(333, 29)
+ Me.txtNotfall_Name.TabIndex = 31
+ '
+ 'cbxMotto
+ '
+ Me.cbxMotto.AutoSize = True
+ Me.cbxMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxMotto.Location = New System.Drawing.Point(186, 260)
+ Me.cbxMotto.Name = "cbxMotto"
+ Me.cbxMotto.Size = New System.Drawing.Size(75, 28)
+ Me.cbxMotto.TabIndex = 30
+ Me.cbxMotto.Text = "Motto"
+ Me.cbxMotto.UseVisualStyleBackColor = True
+ '
+ 'cbxGeburtsdatumOhneJahr
+ '
+ Me.cbxGeburtsdatumOhneJahr.AutoSize = True
+ Me.cbxGeburtsdatumOhneJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxGeburtsdatumOhneJahr.Location = New System.Drawing.Point(489, 158)
+ Me.cbxGeburtsdatumOhneJahr.Name = "cbxGeburtsdatumOhneJahr"
+ Me.cbxGeburtsdatumOhneJahr.Size = New System.Drawing.Size(114, 28)
+ Me.cbxGeburtsdatumOhneJahr.TabIndex = 29
+ Me.cbxGeburtsdatumOhneJahr.Text = "ohne Jahr"
+ Me.cbxGeburtsdatumOhneJahr.UseVisualStyleBackColor = True
+ '
+ 'txtHandynummer
+ '
+ Me.txtHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtHandynummer.Location = New System.Drawing.Point(357, 224)
+ Me.txtHandynummer.Name = "txtHandynummer"
+ Me.txtHandynummer.Size = New System.Drawing.Size(333, 29)
+ Me.txtHandynummer.TabIndex = 28
+ '
+ 'txtSpitzname
+ '
+ Me.txtSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtSpitzname.Location = New System.Drawing.Point(357, 190)
+ Me.txtSpitzname.Name = "txtSpitzname"
+ Me.txtSpitzname.Size = New System.Drawing.Size(333, 29)
+ Me.txtSpitzname.TabIndex = 27
+ '
+ 'lblGeburtstag
+ '
+ Me.lblGeburtstag.AutoSize = True
+ Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
+ Me.lblGeburtstag.Location = New System.Drawing.Point(353, 159)
+ Me.lblGeburtstag.Name = "lblGeburtstag"
+ Me.lblGeburtstag.Size = New System.Drawing.Size(110, 24)
+ Me.lblGeburtstag.TabIndex = 12
+ Me.lblGeburtstag.Text = "01.01.2020"
+ Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'cbxHandynummer
+ '
+ Me.cbxHandynummer.AutoSize = True
+ Me.cbxHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxHandynummer.Location = New System.Drawing.Point(186, 226)
+ Me.cbxHandynummer.Name = "cbxHandynummer"
+ Me.cbxHandynummer.Size = New System.Drawing.Size(155, 28)
+ Me.cbxHandynummer.TabIndex = 26
+ Me.cbxHandynummer.Text = "Handynummer"
+ Me.cbxHandynummer.UseVisualStyleBackColor = True
+ '
+ 'cbxSpitzname
+ '
+ Me.cbxSpitzname.AutoSize = True
+ Me.cbxSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxSpitzname.Location = New System.Drawing.Point(186, 192)
+ Me.cbxSpitzname.Name = "cbxSpitzname"
+ Me.cbxSpitzname.Size = New System.Drawing.Size(117, 28)
+ Me.cbxSpitzname.TabIndex = 25
+ Me.cbxSpitzname.Text = "Spitzname"
+ Me.cbxSpitzname.UseVisualStyleBackColor = True
+ '
+ 'cbxGeburtsdatum
+ '
+ Me.cbxGeburtsdatum.AutoSize = True
+ Me.cbxGeburtsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxGeburtsdatum.Location = New System.Drawing.Point(186, 158)
+ Me.cbxGeburtsdatum.Name = "cbxGeburtsdatum"
+ Me.cbxGeburtsdatum.Size = New System.Drawing.Size(147, 28)
+ Me.cbxGeburtsdatum.TabIndex = 24
+ Me.cbxGeburtsdatum.Text = "Geburtsdatum"
+ Me.cbxGeburtsdatum.UseVisualStyleBackColor = True
+ '
+ 'cbxWohnort
+ '
+ Me.cbxWohnort.AutoSize = True
+ Me.cbxWohnort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.cbxWohnort.Location = New System.Drawing.Point(186, 124)
+ Me.cbxWohnort.Name = "cbxWohnort"
+ Me.cbxWohnort.Size = New System.Drawing.Size(101, 28)
+ Me.cbxWohnort.TabIndex = 23
+ Me.cbxWohnort.Text = "Wohnort"
+ Me.cbxWohnort.UseVisualStyleBackColor = True
+ '
+ 'lblWohnadresse
+ '
+ Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
+ Me.lblWohnadresse.Location = New System.Drawing.Point(353, 124)
+ Me.lblWohnadresse.Name = "lblWohnadresse"
+ Me.lblWohnadresse.Size = New System.Drawing.Size(341, 28)
+ Me.lblWohnadresse.TabIndex = 11
+ Me.lblWohnadresse.Text = "A 4975 Suben"
+ '
+ 'lblName
+ '
+ Me.lblName.BackColor = System.Drawing.Color.Transparent
+ Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+ Me.lblName.Location = New System.Drawing.Point(178, 54)
+ Me.lblName.Name = "lblName"
+ Me.lblName.Size = New System.Drawing.Size(452, 52)
+ Me.lblName.TabIndex = 1
+ Me.lblName.Text = "Max Mustermann"
+ Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pic
+ '
+ Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
+ Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.pic.Location = New System.Drawing.Point(7, 51)
+ Me.pic.Name = "pic"
+ Me.pic.Size = New System.Drawing.Size(165, 178)
+ Me.pic.TabIndex = 0
+ Me.pic.TabStop = False
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
+ Me.Label2.Location = New System.Drawing.Point(186, 309)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(139, 24)
+ Me.Label2.TabIndex = 38
+ Me.Label2.Text = "Notfallkontakt:"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.Label3.Location = New System.Drawing.Point(189, 350)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(66, 24)
+ Me.Label3.TabIndex = 39
+ Me.Label3.Text = "Name:"
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label4
+ '
+ Me.Label4.AutoSize = True
+ Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.Label4.Location = New System.Drawing.Point(189, 379)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(141, 24)
+ Me.Label4.TabIndex = 41
+ Me.Label4.Text = "Handynummer:"
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtNotfall_Handy
+ '
+ Me.txtNotfall_Handy.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtNotfall_Handy.Location = New System.Drawing.Point(357, 376)
+ Me.txtNotfall_Handy.Name = "txtNotfall_Handy"
+ Me.txtNotfall_Handy.Size = New System.Drawing.Size(333, 29)
+ Me.txtNotfall_Handy.TabIndex = 40
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.Label5.Location = New System.Drawing.Point(189, 406)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(68, 24)
+ Me.Label5.TabIndex = 43
+ Me.Label5.Text = "E-Mail:"
+ Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtNotfall_Mail
+ '
+ Me.txtNotfall_Mail.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtNotfall_Mail.Location = New System.Drawing.Point(357, 404)
+ Me.txtNotfall_Mail.Name = "txtNotfall_Mail"
+ Me.txtNotfall_Mail.Size = New System.Drawing.Size(333, 29)
+ Me.txtNotfall_Mail.TabIndex = 42
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label6.Location = New System.Drawing.Point(354, 309)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(334, 34)
+ Me.Label6.TabIndex = 44
+ Me.Label6.Text = "Nur für mich und berechtigte Personen einsehbar. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Im Notfall wird der angegebene" &
+ " Kontakt verständigt."
+ Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'txtMotto
+ '
+ Me.txtMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+ Me.txtMotto.Location = New System.Drawing.Point(357, 258)
+ Me.txtMotto.Name = "txtMotto"
+ Me.txtMotto.Size = New System.Drawing.Size(333, 29)
+ Me.txtMotto.TabIndex = 45
'
'frmMitarbeitersucheBearbeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
- Me.ClientSize = New System.Drawing.Size(703, 364)
+ Me.ClientSize = New System.Drawing.Size(703, 525)
Me.Controls.Add(Me.pnlSrch)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -333,11 +429,11 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch.ResumeLayout(False)
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
- CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHoverPic.ResumeLayout(False)
Me.pnlHoverPic.PerformLayout()
- CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -350,7 +446,7 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents lblWohnadresse As Windows.Forms.Label
Friend WithEvents btnClose As Windows.Forms.Button
Friend WithEvents btn As Windows.Forms.Button
- Friend WithEvents txtMotto As Windows.Forms.TextBox
+ Friend WithEvents txtNotfall_Name As Windows.Forms.TextBox
Friend WithEvents cbxMotto As Windows.Forms.CheckBox
Friend WithEvents cbxGeburtsdatumOhneJahr As Windows.Forms.CheckBox
Friend WithEvents txtHandynummer As Windows.Forms.TextBox
@@ -365,4 +461,12 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
Friend WithEvents pnlHoverPic As Windows.Forms.Panel
Friend WithEvents txtKonfigHinweis As Windows.Forms.TextBox
+ Friend WithEvents Label5 As Windows.Forms.Label
+ Friend WithEvents txtNotfall_Mail As Windows.Forms.TextBox
+ Friend WithEvents Label4 As Windows.Forms.Label
+ Friend WithEvents txtNotfall_Handy As Windows.Forms.TextBox
+ Friend WithEvents Label3 As Windows.Forms.Label
+ Friend WithEvents Label2 As Windows.Forms.Label
+ Public WithEvents Label6 As Windows.Forms.Label
+ Friend WithEvents txtMotto As Windows.Forms.TextBox
End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
index af05b3dc..eb9391dd 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
@@ -44,6 +44,11 @@ Public Class frmMitarbeitersucheBearbeiten
cbxAllowFoto.Checked = MA.mit_MAVerzeichnis_allowFoto
+ txtNotfall_Name.Text = If(MA.mit_Notfall_Name, "")
+ txtNotfall_Handy.Text = If(MA.mit_Notfall_Handy, "")
+ txtNotfall_Mail.Text = If(MA.mit_Notfall_Mail, "")
+
+
txtSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "")
txtHandynummer.Text = If(MA.mit_mobiltel, "")
@@ -138,6 +143,13 @@ Public Class frmMitarbeitersucheBearbeiten
MA.mit_MAVerzeichnis_allowHandynummer = cbxHandynummer.Checked
MA.mit_MAVerzeichnis_allowFoto = cbxAllowFoto.Checked
+
+ MA.mit_Notfall_Name = txtNotfall_Name.Text
+ MA.mit_Notfall_Handy = txtNotfall_Handy.Text
+ MA.mit_Notfall_Mail = txtNotfall_Mail.Text
+
+
+
If MA.mit_id = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
MA.mit_MAVerzeichnis_SettingsTstmp = Now
End If