Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

This commit is contained in:
2025-03-27 08:38:45 +01:00
10 changed files with 533 additions and 306 deletions

View File

@@ -351,6 +351,7 @@ Partial Class frmKundenUebersichtZOLL
Me.Button1.TabIndex = 170 Me.Button1.TabIndex = 170
Me.Button1.Text = "Zusatzblatt" Me.Button1.Text = "Zusatzblatt"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
' '
'btnUbersicht 'btnUbersicht
' '

View File

@@ -224,6 +224,7 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
btnUbersicht.Visible = True btnUbersicht.Visible = True
Button1.Visible = True
End If End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)

View File

@@ -724,6 +724,7 @@ Partial Class usrCntlKundenuebersicht
Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = "" Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
Me.usrCntlAnhaenge._OPEN_ORIGINAL = False Me.usrCntlAnhaenge._OPEN_ORIGINAL = False
Me.usrCntlAnhaenge._TYPE = "" Me.usrCntlAnhaenge._TYPE = ""
Me.usrCntlAnhaenge.AllowDrop = True
Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.Size = New System.Drawing.Size(96, 13)
Me.lblHoechstkredit.TabIndex = 7 Me.lblHoechstkredit.TabIndex = 7
Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.lblHoechstkredit.Visible = False
' '
'Label69 'Label69
' '
@@ -1534,6 +1536,7 @@ Partial Class usrCntlKundenuebersicht
Me.Label69.Size = New System.Drawing.Size(70, 13) Me.Label69.Size = New System.Drawing.Size(70, 13)
Me.Label69.TabIndex = 6 Me.Label69.TabIndex = 6
Me.Label69.Text = "Hochstkredit:" Me.Label69.Text = "Hochstkredit:"
Me.Label69.Visible = False
' '
'lblBonitaet 'lblBonitaet
' '

View File

@@ -123,90 +123,90 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12 i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3 hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7 lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+ CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3 XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3 sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6 etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII= Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="Button5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12 i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3 hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7 lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+ CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3 XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3 sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6 etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII= Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

View File

@@ -175,6 +175,8 @@ Public Class usrCntlKundenuebersicht
txtVorauskasse.Visible = True txtVorauskasse.Visible = True
lblVorkasse.Visible = True lblVorkasse.Visible = True
End If End If
If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
btnThereforeKundeninfo.Visible = True btnThereforeKundeninfo.Visible = True
End If End If

View File

@@ -98,6 +98,12 @@ Public Class cMitarbeiter
Property mit_timasMehrereFirmen As Boolean = False Property mit_timasMehrereFirmen As Boolean = False
Property mit_timasFirmen As Object = Nothing 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 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_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasFirmen", mit_timasFirmen)) 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_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") If Not dr.Item("mit_timasFirmen") Is DBNull.Value Then Me.mit_timasFirmen = dr.Item("mit_timasFirmen")
Me.mit_timasMehrereFirmen = dr.Item("mit_timasMehrereFirmen") 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 Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)

View File

@@ -28,7 +28,6 @@ Partial Class frmMitarbeitersuche
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.btnClose = New System.Windows.Forms.Button() Me.btnClose = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
@@ -73,6 +72,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag = New System.Windows.Forms.Panel() Me.pnlGeburtstag = New System.Windows.Forms.Panel()
Me.lblGeburtstag = New System.Windows.Forms.Label() Me.lblGeburtstag = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() 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.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblPosition = New System.Windows.Forms.Label() Me.lblPosition = New System.Windows.Forms.Label()
@@ -83,7 +83,12 @@ Partial Class frmMitarbeitersuche
Me.lblFirma = New System.Windows.Forms.Label() Me.lblFirma = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = 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() Me.pnlSrch.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
@@ -99,6 +104,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.SuspendLayout() Me.pnlGeburtstag.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout() Me.MyPanel1.SuspendLayout()
Me.pnlNotfallkontakt.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlSrch 'pnlSrch
@@ -156,32 +162,6 @@ Partial Class frmMitarbeitersuche
Me.PictureBox2.TabIndex = 18 Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False 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 'pnlMain
' '
Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
@@ -704,6 +684,11 @@ Partial Class frmMitarbeitersuche
Me.PictureBox1.TabIndex = 13 Me.PictureBox1.TabIndex = 13
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = False
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'MyPanel1 'MyPanel1
' '
Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer)) 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.lblFirma)
Me.MyPanel1.Controls.Add(Me.Label4) Me.MyPanel1.Controls.Add(Me.Label4)
Me.MyPanel1.Controls.Add(Me.Label3) Me.MyPanel1.Controls.Add(Me.Label3)
Me.MyPanel1.Controls.Add(Me.pnlNotfallkontakt)
Me.MyPanel1.Location = New System.Drawing.Point(197, 188) Me.MyPanel1.Location = New System.Drawing.Point(197, 188)
Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(578, 109) 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.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.Location = New System.Drawing.Point(158, 80)
Me.lblPosition.Name = "lblPosition" 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.TabIndex = 10
Me.lblPosition.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 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.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.Location = New System.Drawing.Point(158, 55)
Me.lblAbteilung.Name = "lblAbteilung" 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.TabIndex = 8
Me.lblAbteilung.Text = "IT" Me.lblAbteilung.Text = "IT"
Me.lblAbteilung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 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.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.Location = New System.Drawing.Point(158, 30)
Me.lblNiederlassung.Name = "lblNiederlassung" 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.TabIndex = 7
Me.lblNiederlassung.Text = "SUBEN" Me.lblNiederlassung.Text = "SUBEN"
Me.lblNiederlassung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 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.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.Location = New System.Drawing.Point(158, 5)
Me.lblFirma.Name = "lblFirma" 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.TabIndex = 6
Me.lblFirma.Text = "VERAG" Me.lblFirma.Text = "VERAG"
Me.lblFirma.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.lblFirma.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -817,10 +803,88 @@ Partial Class frmMitarbeitersuche
Me.Label3.Text = "Niederlassung:" Me.Label3.Text = "Niederlassung:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
' '
'ContextMenuStrip1 'pnlNotfallkontakt
' '
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.pnlNotfallkontakt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) 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 'frmMitarbeitersuche
' '
@@ -856,6 +920,8 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.PerformLayout() Me.pnlGeburtstag.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.ResumeLayout(False)
Me.pnlNotfallkontakt.ResumeLayout(False)
Me.pnlNotfallkontakt.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -920,4 +986,9 @@ Partial Class frmMitarbeitersuche
Friend WithEvents btnAkten As Windows.Forms.Button Friend WithEvents btnAkten As Windows.Forms.Button
Friend WithEvents Button3 As Windows.Forms.Button Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip 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 End Class

View File

@@ -100,6 +100,11 @@ Public Class frmMitarbeitersuche
pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse 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 lblMotto.Text = MA.mit_MAVerzeichnis_Motto
If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """" If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """"
pnlMotto.Visible = (lblMotto.Text <> "") pnlMotto.Visible = (lblMotto.Text <> "")
@@ -169,10 +174,11 @@ Public Class frmMitarbeitersuche
'requestDone = Not callTimasSaldo 'requestDone = Not callTimasSaldo
initTimasData() initTimasData()
pnlNotfallkontakt.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
btnEdit.Visible = True btnEdit.Visible = True
pnlNotfallkontakt.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
pnlZeiten.Visible = True pnlZeiten.Visible = True
Else Else
@@ -186,11 +192,15 @@ Public Class frmMitarbeitersuche
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
btnEdit.Visible = True btnEdit.Visible = True
btnSettings.Visible = True btnSettings.Visible = True
pnlNotfallkontakt.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MA_TeamBearbeiten", "SDL") Then 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 If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
btnSettings.Visible = True btnSettings.Visible = True
pnlNotfallkontakt.Visible = True
End If End If
End If End If
@@ -230,6 +240,12 @@ Public Class frmMitarbeitersuche
pic.BackgroundImage = My.Resources.personGray_m pic.BackgroundImage = My.Resources.personGray_m
picGeschlecht.Visible = False picGeschlecht.Visible = False
pnlZeiten.Visible = False pnlZeiten.Visible = False
lblNotfall_Name.Text = ""
lblNotfall_Handy.Text = ""
lblNotfall_Mail.Text = ""
End Sub End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -237,15 +253,19 @@ Public Class frmMitarbeitersuche
End Sub End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnEdit.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
If sbMitarbeiter._value = "" Then Exit Sub If sbMitarbeiter._value = "" Then Exit Sub
Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value) Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value)
f.ShowDialog(Me) f.ShowDialog(Me)
initMA() initMA()
End Sub End Sub
Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If mit_id > 0 Then If mit_id > 0 Then
sbMitarbeiter.SET_VALUE(mit_id) sbMitarbeiter.SET_VALUE(mit_id)
sbMitarbeiter._value = mit_id
initMA() initMA()
End If End If
End Sub End Sub

View File

@@ -26,9 +26,14 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch = New System.Windows.Forms.Panel() Me.pnlSrch = New System.Windows.Forms.Panel()
Me.btnClose = New System.Windows.Forms.Button() Me.btnClose = New System.Windows.Forms.Button()
Me.pnlMain = New System.Windows.Forms.Panel() 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.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button() 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.cbxMotto = New System.Windows.Forms.CheckBox()
Me.cbxGeburtsdatumOhneJahr = New System.Windows.Forms.CheckBox() Me.cbxGeburtsdatumOhneJahr = New System.Windows.Forms.CheckBox()
Me.txtHandynummer = New System.Windows.Forms.TextBox() Me.txtHandynummer = New System.Windows.Forms.TextBox()
@@ -41,17 +46,20 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.lblWohnadresse = New System.Windows.Forms.Label() Me.lblWohnadresse = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label() Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox() Me.pic = New System.Windows.Forms.PictureBox()
Me.pnlHoverPic = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.txtNotfall_Handy = New System.Windows.Forms.TextBox()
Me.txtKonfigHinweis = 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.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHoverPic.SuspendLayout() Me.pnlHoverPic.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, 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() Me.SuspendLayout()
' '
'pnlSrch 'pnlSrch
@@ -85,10 +93,18 @@ Partial Class frmMitarbeitersucheBearbeiten
'pnlMain 'pnlMain
' '
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.pnlHoverPic)
Me.pnlMain.Controls.Add(Me.cbxAllowFoto) Me.pnlMain.Controls.Add(Me.cbxAllowFoto)
Me.pnlMain.Controls.Add(Me.btn) 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.cbxMotto)
Me.pnlMain.Controls.Add(Me.cbxGeburtsdatumOhneJahr) Me.pnlMain.Controls.Add(Me.cbxGeburtsdatumOhneJahr)
Me.pnlMain.Controls.Add(Me.txtHandynummer) Me.pnlMain.Controls.Add(Me.txtHandynummer)
@@ -104,196 +120,21 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0) Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain" 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 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 'pnlHoverPic
' '
Me.pnlHoverPic.Controls.Add(Me.PictureBox1) Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2) Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis) Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis)
Me.pnlHoverPic.Controls.Add(Me.Label1) 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.Name = "pnlHoverPic"
Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100) Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
Me.pnlHoverPic.TabIndex = 37 Me.pnlHoverPic.TabIndex = 37
Me.pnlHoverPic.Visible = False 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 'PictureBox1
' '
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m 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.TabIndex = 34
Me.PictureBox1.TabStop = False 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 'txtKonfigHinweis
' '
Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White
@@ -316,13 +168,257 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.txtKonfigHinweis.TabIndex = 38 Me.txtKonfigHinweis.TabIndex = 38
Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" & Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" &
"önnen. Sie können die Einstellungen jederzeit ändern." "ö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 'frmMitarbeitersucheBearbeiten
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White 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.pnlSrch)
Me.Controls.Add(Me.pnlMain) Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -333,11 +429,11 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch.ResumeLayout(False) Me.pnlSrch.ResumeLayout(False)
Me.pnlMain.ResumeLayout(False) Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout() Me.pnlMain.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHoverPic.ResumeLayout(False) Me.pnlHoverPic.ResumeLayout(False)
Me.pnlHoverPic.PerformLayout() Me.pnlHoverPic.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, 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) Me.ResumeLayout(False)
End Sub End Sub
@@ -350,7 +446,7 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents lblWohnadresse As Windows.Forms.Label Friend WithEvents lblWohnadresse As Windows.Forms.Label
Friend WithEvents btnClose As Windows.Forms.Button Friend WithEvents btnClose As Windows.Forms.Button
Friend WithEvents btn 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 cbxMotto As Windows.Forms.CheckBox
Friend WithEvents cbxGeburtsdatumOhneJahr As Windows.Forms.CheckBox Friend WithEvents cbxGeburtsdatumOhneJahr As Windows.Forms.CheckBox
Friend WithEvents txtHandynummer As Windows.Forms.TextBox Friend WithEvents txtHandynummer As Windows.Forms.TextBox
@@ -365,4 +461,12 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents PictureBox1 As Windows.Forms.PictureBox Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
Friend WithEvents pnlHoverPic As Windows.Forms.Panel Friend WithEvents pnlHoverPic As Windows.Forms.Panel
Friend WithEvents txtKonfigHinweis As Windows.Forms.TextBox 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 End Class

View File

@@ -44,6 +44,11 @@ Public Class frmMitarbeitersucheBearbeiten
cbxAllowFoto.Checked = MA.mit_MAVerzeichnis_allowFoto 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, "") txtSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "")
txtHandynummer.Text = If(MA.mit_mobiltel, "") txtHandynummer.Text = If(MA.mit_mobiltel, "")
@@ -138,6 +143,13 @@ Public Class frmMitarbeitersucheBearbeiten
MA.mit_MAVerzeichnis_allowHandynummer = cbxHandynummer.Checked MA.mit_MAVerzeichnis_allowHandynummer = cbxHandynummer.Checked
MA.mit_MAVerzeichnis_allowFoto = cbxAllowFoto.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 If MA.mit_id = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
MA.mit_MAVerzeichnis_SettingsTstmp = Now MA.mit_MAVerzeichnis_SettingsTstmp = Now
End If End If