diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b46da4c4..f1b45f8d 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + 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