update 26.7.22

DPM2016/Behandlung/Behandlung.Designer.vb

@@ -77,11 +77,9 @@ Partial Class Behandlung
         Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
         Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
         Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Leistungen1 = New DPM2016.Leistungen()
         Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
@@ -140,6 +138,8 @@ Partial Class Behandlung
         Me.tsamerstemahnung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsamzweitemahnung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
+        Me.Leistungen1 = New DPM2016.Leistungen()
         Me.tsbtndelete.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -545,18 +545,6 @@ Partial Class Behandlung
         Me.Panel2.Size = New System.Drawing.Size(1416, 970)
         Me.Panel2.TabIndex = 9
         '
-        'Behandungdetail1
-        '
-        Me.Behandungdetail1.Behandlungsnr = 0
-        Me.Behandungdetail1.Behandlungsstatus = 0
-        Me.Behandungdetail1.HasChanges = False
-        Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
-        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
-        Me.Behandungdetail1.Name = "Behandungdetail1"
-        Me.Behandungdetail1.Patientnr = 0
-        Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
-        Me.Behandungdetail1.TabIndex = 0
-        '
         'STBehandlung
         '
         Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
@@ -585,20 +573,6 @@ Partial Class Behandlung
         Me.Panel1.Size = New System.Drawing.Size(1255, 976)
         Me.Panel1.TabIndex = 1
         '
-        'Leistungen1
-        '
-        Me.Leistungen1.behandler = 0
-        Me.Leistungen1.Behandlungnr = 0
-        Me.Leistungen1.Behandlungsstatus = 0
-        Me.Leistungen1.Dentotar = False
-        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Leistungen1.Frankenwert = 0R
-        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
-        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
-        Me.Leistungen1.Name = "Leistungen1"
-        Me.Leistungen1.Size = New System.Drawing.Size(1255, 976)
-        Me.Leistungen1.TabIndex = 0
-        '
         'STLeistung
         '
         Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
@@ -678,31 +652,31 @@ Partial Class Behandlung
         'OffertPDF
         '
         Me.OffertPDF.Name = "OffertPDF"
-        Me.OffertPDF.Size = New System.Drawing.Size(224, 26)
+        Me.OffertPDF.Size = New System.Drawing.Size(177, 26)
         Me.OffertPDF.Text = "PDF"
         '
         'PDFPerMailToolStripMenuItem
         '
         Me.PDFPerMailToolStripMenuItem.Name = "PDFPerMailToolStripMenuItem"
-        Me.PDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(224, 26)
+        Me.PDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
         Me.PDFPerMailToolStripMenuItem.Text = "PDF per Mail"
         '
         'DruckenToolStripMenuItem
         '
         Me.DruckenToolStripMenuItem.Name = "DruckenToolStripMenuItem"
-        Me.DruckenToolStripMenuItem.Size = New System.Drawing.Size(224, 26)
+        Me.DruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
         Me.DruckenToolStripMenuItem.Text = "Drucken"
         '
         'VorschauToolStripMenuItem1
         '
         Me.VorschauToolStripMenuItem1.Name = "VorschauToolStripMenuItem1"
-        Me.VorschauToolStripMenuItem1.Size = New System.Drawing.Size(224, 26)
+        Me.VorschauToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
         Me.VorschauToolStripMenuItem1.Text = "Vorschau"
         '
         'EntwurfToolStripMenuItem1
         '
         Me.EntwurfToolStripMenuItem1.Name = "EntwurfToolStripMenuItem1"
-        Me.EntwurfToolStripMenuItem1.Size = New System.Drawing.Size(224, 26)
+        Me.EntwurfToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
         Me.EntwurfToolStripMenuItem1.Text = "Entwurf"
         '
         'AuftragsbestätigungToolStripMenuItem
@@ -752,31 +726,31 @@ Partial Class Behandlung
         'PDFToolStripMenuItem1
         '
         Me.PDFToolStripMenuItem1.Name = "PDFToolStripMenuItem1"
-        Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
+        Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(224, 26)
         Me.PDFToolStripMenuItem1.Text = "PDF"
         '
         'PDFPerMailToolStripMenuItem2
         '
         Me.PDFPerMailToolStripMenuItem2.Name = "PDFPerMailToolStripMenuItem2"
-        Me.PDFPerMailToolStripMenuItem2.Size = New System.Drawing.Size(177, 26)
+        Me.PDFPerMailToolStripMenuItem2.Size = New System.Drawing.Size(224, 26)
         Me.PDFPerMailToolStripMenuItem2.Text = "PDF per Mail"
         '
         'DruckenToolStripMenuItem2
         '
         Me.DruckenToolStripMenuItem2.Name = "DruckenToolStripMenuItem2"
-        Me.DruckenToolStripMenuItem2.Size = New System.Drawing.Size(177, 26)
+        Me.DruckenToolStripMenuItem2.Size = New System.Drawing.Size(224, 26)
         Me.DruckenToolStripMenuItem2.Text = "Drucken"
         '
         'VorschauToolStripMenuItem3
         '
         Me.VorschauToolStripMenuItem3.Name = "VorschauToolStripMenuItem3"
-        Me.VorschauToolStripMenuItem3.Size = New System.Drawing.Size(177, 26)
+        Me.VorschauToolStripMenuItem3.Size = New System.Drawing.Size(224, 26)
         Me.VorschauToolStripMenuItem3.Text = "Vorschau"
         '
         'EntwurfToolStripMenuItem3
         '
         Me.EntwurfToolStripMenuItem3.Name = "EntwurfToolStripMenuItem3"
-        Me.EntwurfToolStripMenuItem3.Size = New System.Drawing.Size(177, 26)
+        Me.EntwurfToolStripMenuItem3.Size = New System.Drawing.Size(224, 26)
         Me.EntwurfToolStripMenuItem3.Text = "Entwurf"
         '
         'ToolStripMenuItem10
@@ -964,6 +938,32 @@ Partial Class Behandlung
         Me.tsamdrittemahnung.Size = New System.Drawing.Size(246, 24)
         Me.tsamdrittemahnung.Text = "Letzte Mahnung drucken"
         '
+        'Behandungdetail1
+        '
+        Me.Behandungdetail1.Behandlungsnr = 0
+        Me.Behandungdetail1.Behandlungsstatus = 0
+        Me.Behandungdetail1.HasChanges = False
+        Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
+        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Behandungdetail1.Name = "Behandungdetail1"
+        Me.Behandungdetail1.Patientnr = 0
+        Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
+        Me.Behandungdetail1.TabIndex = 0
+        '
+        'Leistungen1
+        '
+        Me.Leistungen1.behandler = 0
+        Me.Leistungen1.Behandlungnr = 0
+        Me.Leistungen1.Behandlungsstatus = 0
+        Me.Leistungen1.Dentotar = False
+        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Leistungen1.Frankenwert = 0R
+        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
+        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Leistungen1.Name = "Leistungen1"
+        Me.Leistungen1.Size = New System.Drawing.Size(1255, 976)
+        Me.Leistungen1.TabIndex = 0
+        '
         'Behandlung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)

DPM2016/Behandlung/Behandlung.resx

@@ -236,7 +236,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
-        DQAAAk1TRnQBSQFMAgEBBQEAARgBBQEYAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DQAAAk1TRnQBSQFMAgEBBQEAATgBBQE4AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

DPM2016/Behandlung/Benhandungdetail.resx

@@ -197,6 +197,636 @@
         eI/h9Y/F/wCHNpqPwUK+FtZ1TVNIssX0kPiyLa/YA/4IdeDf2A/2+/jL+2f4A+JPwth8H/En4e/tH/DT
         wz8Cfhl+zLafBmLwf4Z+O37V2lftLeGrTWfGmk/F7xNoPiqH4N6DpGn/AAS8G2mjfC3wHZt4D0fw1FBB
         o9n4es9EcA//2Q==
+</value>
+  </data>
+  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>143, 17</value>
+  </metadata>
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8KSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
+        AiEJCXtvKLSlUFYplLbQqljLSQgQEkYYCRBSkpDElu04k2wSnL33XmQw4kxWON890rEty39J9+hKtiS/
+        7/P8Hvp9BEfWkfT+pXvuVRKCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCRDP9rEn/o9gbdTTnp9xpcaT8wexMuSsj39C1
+        pTXpl+KPIAiCIAiSKLHYks0WZ8oYi9XwjcVlYP7Mrl+dNjsNE8yuBh3Ef4IgCIIgSNyGJV2kFv+zBqvh
+        O6r4acnv5Q5r+BvxExAEQRAEiafwj/vNzpQP6ZIPzuwwbFDsjdLEj0IQBEFiJlOSfpGZn9LANKxh0yxb
+        ikn93wr/mNfsamDhFFuDDMXVIJP//3JevqyR2Wr+P/5u0PsfIwkf9fFhcRomUuWuldll2IhPAhAEQaIZ
+        a9LF2Y7LGmc4ktuq79gGqy+8D6kvwC+q3rC4UgoUl2Gh+s/V6r/bke5KPmpxXXbW94VawoV016XlFleD
+        I/xnqf/3WvXnzhNFMVL9389ZnA3vy8g3XJ3hSm7DbxOGhjiMWv78eL7PuuuQMk78VARBECSsqEWanW8w
+        mh0N+1vyUx5RX1xHqkVfrLiSt6dZDT/UfOGNDXxzmPrPteptnWJxpjjUYvldZn5K7wzH5akYDmIwnvIP
+        72P/QLAxEEEQRGOMI42Xqu+qu5mdyY9ZnMnvW+yGNTretccsdXA56fl0wpn8Cv/kINOR0pofdxZ3A1Lb
+        sSZdrA5p46m10kX9meJvQBAEQSrCCy9zWMPO6gvlE/yFkm+eslgNP9V4Ea03GpxXnMllitPwttlleJDv
+        Q8AnBbUQT/mrwya5JjpZDd/wny/+JgRBkPqZTmOTLjHnG7qrZf+8+i6/1GS99BT5ogmVzPbfHFT/+TG/
+        8EyGs1EOBoIIRy1ndfB81/9+j6TMYY2aib8NQRCknkQtK+/mPMM/zM7kORbrr89QL5Agwd7gS8VlmKQO
+        UA94Nhoi4cdb/mPJ+zmCFEfDq8TfiCAIkrjhp8yZ81OuUV/43jDZDPv9XwwhgqyGn9V/LjO7DP/kgxY+
+        HZCIel+p991b1e5PjTLyG7JO72aT/46S4Uy+VvytCIIgiRV+rrziMDysOFIKE3HDXrxQXIYDFqfhTdVA
+        bCgMEm/5v+F//2k1pLgXu35mX/LfUTAAIAiSUGlpbXyZ2ZV8t1o2Jeo70B+pFz6oO/yaB2ZXyih1fbrh
+        kwGfqPeFer+Mpu4zLa4p6skeWX8HBgAEQepX+LeeZbiSr1NL5RO8048fauHtNDtTXrIMa5grlrJ+xlv+
+        o6j7SIvB7h6e8vcOAP3IP0PBAIAgSNyGn6PuedcU4NvQYlnmiEYs+5XGLGfU5Sx3TCpr8WYaazm2KWv9
+        XjprM97I2n5gqvKhH/X/1/p9I2v1brr636Sx5m828fwM/rP4z8wY1pD8O2Nbyip+MSX+CY5Y3voRz8f+
+        Ka/S90logwu7V5b/n9bfiQEAQZDETfaopP9VnMn3mB2GJdSLWizg5Z47OtVT0LywO/zXzDpPzWTd3Nms
+        Z2kO6zOvOev7WYuo6j2nOes5I4d1K8xiXT7NZB0/sbB2HyqslTpk5LyeyjKHx+aQIE7BfIMPd2LJEzfe
+        Y/4jfX9/GYP8yh8DAIIgCZksZ+Nss9MwXC3+E9SLWV1o9urlnnft7dSS7zQlg3UvyvYUL1XIdaXfZy29
+        5rdkV8xvJbRm/VV9Z7dkPYpyWZcpWaz9h2bW8q2mLOvlxuTvWhfMLsNiszPlLj70iYdB4sTzsb9hBPV7
+        azGooJtP+YsBYMOd7IaZV5B/noIBAEGQ2I3nRbLhFRanoZR6Aas1+WrZv3Y5a/VOU9ZhotnzrjrWip4S
+        rPw9FrRhV1Zqy67yaMeumNOa9SzIZZ0mZrLWY42s2SuX0/dLLVFchuN8rwA/q0M8MuI73vIfRv2uWgyc
+        3pUs/0c33IUBAEGQOM+UpF+oL/q38MvPUi9c0cbPp+bH1PnH912nZ7E+cVD2/sIrf9XCdmyAR3uPqz06
+        sP5z27Ie03JZ+/FmljMqlbzfou+ys+og8Br/mmTxSIm/eI/5O+nfL7SrA5Y/BgAEQeI4/GI9/NKy6os8
+        /1pb8kUrGjLUd/i5Y5qwdh+phV+gFv7c+Cv86qjybxV2+V+9qAMb6NHRY9CiTmzAvPasZ0Fz1uGDDJbz
+        Wu0OBJ7TO/l3NOQbWoiHTnzEW/526nfS4uppXYKWP3cjBgAEQeIp3m/aS3mWX06WeqGKBr5Rj3+k3/nT
+        jLj4OF9GRfn38yn/ynf/aulXDQDhlX+FwYs7V7pqTnvWbVIz1urNdM8nKNR9HnH8ioOOlOn8i5vEQymm
+        4znlkfo9NLhqame1+G/3GQC8m/4qPvrnHsMAgCBIvISfv292JT9qsf/2MPUCFWn8OD4/hY7vxvcvzUQR
+        tPyrvftv6zMAtKs2AFSWv0pL+V+zuIvQlQ1Z0pUNXtiZ9S5oxdq/b2ZZ6qBFrUXEOZKnmh0Nm4uHVszF
+        4jRYydutgZby9w4Ad2MAQBAkxjMl6Rf8u+bVF6E9/i9KkcbPi+el36O4GVmYiSQS5e8dALzl73337y1/
+        3wEgWPl7dWNDhSGLu7G+7tas7bvm6F+fwGr4iX+DntFuSBePtJiIetv+XeO2anTlp500l79nAJiFAQBB
+        kFiMd/fzTRZXg83UC1Kk8I/3+YVyuhUm7jt9f57yr3Hcnyp/7wAQuPx9P/qvWf6DfMp/cGX5dyHLf+iS
+        7mzo0u7sWo8ebOiibqz3tFas9Vsmz74Lau0io8F5vstecTVIEY+8OovZaXiBvo2h9Z/iX/6+x/1rlv9j
+        G/kA0J/8WRQMAAiC1ErMrgYd1Bedpf4vQhGjFkqLt9JYl2mZrO88uiQTVe2Vv++7/6ryv6ay/H0HgOrl
+        f51HT6/Pe7IhC7qx7pOas5xXo7qB8FuLM+X5urqOAP+6aeI2adJ/Skfp8v/zxnswACAIEjvxfCOf0/C2
+        +IpY8oVIj6yXG3lO1+NX2KPKMdGFV/6qWiz/agOAWv7Xf96r0g2f92b9i9uztu+Yo7Z50HNWSX7KIPGQ
+        rJXwwYO6LVpcMblDkPKvGgD8yx8DAIIgMRH+ta8ZTsPj6gvNt/4vPJHQ/I0mnh389e3dfnVU+Uf2dD/5
+        8vcOAGT5q/zLv8KNy/qwIfO7s24Tc1n2yChdeMiRPLU2riFgcaU8R/79GlwxKfzy526adSX5cykYABAE
+        iXjUF9p+ZodhA/Wiowc/bsxP3asPG/q0qCj/iJzupwpnx79c+VcNAP7l79WX3aS68fM+rO/0tqz5qDTy
+        caDPZWfN+Sl/52egiIdrRGN2pjxD/72h9fukPfujp/x9BwC1/P0++uen+1UMAL7l//jGezEAIAhSNzFb
+        GyRbnMnvUy82evDd423GGVnPmfXzY35K0PKv9u4/eqf7Rbb8+3jK36sfu3m515VFHVjLMenk40IPkzN5
+        W4bLMEA8dCMSs9PwNPV3adFXY/lXf/dfvfwxACAIUiexOBteH+nz+flu/nYfKaz37FyyBOsr7eXv++4/
+        uqf7VZW/dwCIRPnfvPwKdotwdWln1uZthXyc6OJMGcMvRCUexmHH4jQ8Sf58Dfr+t10Y5e/77t9b/p4B
+        YDYGAARBail8k5/64jeReoEJFy/+9hOUBLgkb+R5yr/Gcf9wyl8MAAHKX8/pfoHLv2oAkCn/W5b3Z7d+
+        4XXNnO6s7dtm8nETNkeDLRZXcjvxkJaO2OtC/+wQ+pDl73vcX3v5P77pPnYzBgAEQaIefl3z/JTb+Te1
+        US8u4eAf9fMd/Yl2ad5Iqb3yD3/Hv2/5Uzv+A5d/35Dlf+sXV7LbPK5ig2Z2Za3GGMnHUTgauwzf8+P3
+        Sdaki8UjXFMUV8M/Uz9Piz4T20a0/J/AAIAgSLTDL7BidhmmUC8q4eCnf/Fj/L1m4aP+QMIrf1Utln+1
+        ASBA+VcfAHzK3+fdf7XyrxwAqsqfu50rG8AGFHeK6GZBszN5jmlYw6bioR406sDwJ+pnaNH74zYhyr9q
+        AKDLv+q4f0X5eweAq8i/j4IBAEEQqSiOlF4mm2E/9YISjpZjm9bbc/i1o8o/fk/38y9/+qP//t4BoFr5
+        eweAivLn7uD//GIA6z+9PWs2MmIXFfrK4mp4g3jIk7G4Uv5I/Hea9Pq4deTKf2NV+T+x6X4MAAiCRCGe
+        6/cb/qW+cFzwfyEJR86oy1m3wiyi7MBfRfkn2ul+Wsu/xrt/n/K/o+xqjztVty0fwHpMbBGxCwrxC1il
+        jkj9tXgGVCbDlfJ76s9r0WuCWv7rbte06S/Y6X5U+T+JAQBBkEgnO99gVByGRdSLiCy+wa/jJ2ay6KCm
+        oOVf7d1/fJ/uRx/3p8rfdwDwlr9nAFgxUBjEblzQN2IbBfnpgoq9UUfxVEgyuwwPUX9Oi54ftdJc/tXf
+        /VPlf2+N8vcOAAPIv5uCAQBBkKDhH4Wq7/y/pl5ApOQbWOv303FKnwTt5e/77j9Sp/sF3vHvLX/vABAT
+        5V9WUf4D2V3qAOA1mF1d1IXlvKL/sECa1fADv7qfp/zDvKR1+OUffNMfL/+qAeABdgsGAARBdMfzkX+K
+        g3rhkMW/h797Uf35Zr5I8JR/jeP+4ZS/GAAClH+snu6nt/zv5lYOZnd8MZD1nNgyat8zoEWPD1sGKH/f
+        4/7hlL/vu/8H2JObMQAgCKIz3iv6GUqoFw0Z/NK97T40sT71+nr98mqv/MPf8e9b/tE83c9T/p4BgDru
+        T5X/oMryv3vlNewe4cb5/VjrMSbycRpNvPz/sPa26Je/6ikMAAiC6Ik539DC8+1pxAuGjJzXU1l3XLNf
+        Wnjlr6rF8q82AAQo/+oDgE/5+7z7r1b+Ph/9R7r871k5hN2r4v+736ftWeawRuRjNtK6f9BCLf9bQ5R/
+        1QBAlz99uh9V/k9tfhADAIIg4YUf7zdZLz1FvVhoxS/mw6/iV7+/pS9cVPnjdD/58h9co/zvXcUNZfep
+        bll4JWv9RnQ/DYh4+RM7/isGgIryxwCAIIh8+FX9XIZ/+79AyOLH+vFNfeGrKH+c7ldx3J8qf5WO8ve6
+        lt23cijrO7ldVPYGdBvf3Fv+UTzdjyr/pz0DwNXkbaJgAECQep5OY5MuUVwpH1AvEDJav5eOa/frELT8
+        q737x+l+XuGX//0e17H7V1/HbvysH2v+WlPyMR2OrpLlX/3dP1X+9Ol+VeXvHQB4+T+9+XcYABAE0Zbc
+        YQ1/ozgNs6gXB634ef2dP80kSw200V7+vu/+cbqfl1r8QY77Byv/BzyuZ/eUDWFdxuWQj28ZXcfl6ij/
+        UJv+qp/uR5U/d+scDAAIgoSIeXjjJhZXymrqhUGr3DGprBe+o18XT/nXOO4fTvmLASBA+Sf66X6Byr9q
+        ALi2agDwKX/uQY8b2NWFXcPeINglaPmLASDs8vd99+893a/6R//e8v/LFgwACIKESIazUY76ArDH/wVB
+        RtsPTGShgXa1V/7h7/j3Lf94ON2P/ui/evl7BwBv+XsHgBvYg2u8bl04QPqQQJf3c2qv/Inj/lUDwEMY
+        ABAECRxzvqG7+uT/yv/FQCu+y7/zpxlkoYF24ZW/qhbLv9oAEKD8qw8APuXv8+6/WvlXDgB1Wf6+7/6r
+        yv93a270uLfsWtbxnSzy8e+vqvxDnetfNQDQ5S93ul/N8scAgCBIkJhdDa+wuC47S70YaJH9SmPs8o8I
+        qvxxup98+Yfa9Cdf/txDa27y/LPnhFbk86BC5/easYfX3BLZ8pfY8e9f/txtcwaSt5WCAQBB6kkUR8Or
+        LNbfnqNeCLRo/kYTXMc/QirKH6f7VRz3p8pfpav8vQNAOOXvsfYm9vDam9lV0zqRpwp28i3/Ojjdjyr/
+        Z7Y8jAEAQZDqsTgNAy2uBuepFwEt2ow34sI+ERK0/Ku9+8fpfl46y99vx7+3/KsGgGDl73ULu7a0d7XN
+        gZ3ezZYu/+rv/qnylzvdr2b5YwBAEMQvZmfKYIPV8B31AhBSvoF1+G9sf3Vvn3nNWc/SHNbNne3Zm9Bh
+        opm1/dDE2owzslbvNGUt3kpjuWOasNzRqZ7LE+eMutxzwSKO/2/+/+NnM/BPOFq8ncZavZfuGXjaTVA8
+        X1vcZWqm54uMes3S/+mH9vL3ffeP0/281OIPetw/OuX/e+HWBQNYs5dTWcd3QpW/70f/VPmH2vRX/XS/
+        YDv+/cvfOwAMop/LBAwACJLAUVzJQxu7DN9TT/5QPJv91PKjiqwu8JLnZdz+Y8Vz0SFe2Fkja+ea7hX4
+        lxvxfRB8qOBDQsdPLKxrQZamQyOe8q9x3D/y5S97up+28q8aAMIrf+8AEM3yD3TcP/zyv7my/H+/7lb2
+        B9W9y4ZGufx93/1rK3/vAOAtfwwACIJ4wp/c3u8xp5/8wfCL+/B31FSR1QZe9p2mZHhKlr97zxxed1/l
+        qhUfDFq+neb5HoSu09WhYE7VVREjV/5iAAhY/uHv+A+//MM43a9a+fse96fKP9SO/8Dl7x0AvOXvHQBq
+        HvfXWv5evPiFaJd/0OP+dPn/devvMQAgSH2PxZXcN9xj/p6d/iW1u9O/x4xmnkMNLcc2rfV39VGT7/1G
+        xLbjTZ5PLvqoA4H28lfVYvlXGwB8yt87AIQof593/9XK3+ej/2rl7xkAIlX+3gEg3PKvHADU8n8oYuVf
+        NQDQ5R/qdD/vABC4/H0/+q9e/hgAEKSex2xv0D7ddWk59YQPpdmoyyNyrDsUXob88ELr99M9Awd1WxIN
+        P3zAP83oMMHMehXn6ij/qgEg4uXvefdfs/yrDwChy9/3uL+3/L0DQCye7udf/pXH/df5DgC3VQ0Amsu/
+        agAgyz8CO/79y5+7HQMAgtTPmIb/NivdlXyUerKHwt+tRvM0P/6zO06yeI6f8/0F1G2oT7JGNmZtx5lY
+        T3eOvvJXVZW/3h3/2stf9lx/70f/VPmrdJW/dwCIaPlXe/fvU/4RO90v1I7/8Mr/2a1/wACAIPUxir1R
+        mvqkDuvyvp7y9zlmHSn82wE7TbZ4Nuzxj8Spvxu8w0C78QrrVdyi2gCQWKf71Sx/zwAgyl/36X5k+VcN
+        ADXKv8Zx/8iUv3cAqPjoP3T5+x7395a/dwAIdbofVf4YABCkHkZxNUgxOwwbqCd5KDmjI1/+fGd8q3eb
+        sow42LwXa3JGpbLOn2Sx/vPaVpZ/oOP+FcXPaS9/7wBQu+XvOwAEL/+6Pt2PPu4fTvmH2vQXuPy9A4B8
+        +XN3zB1MPq4oGAAQJM6TPSrpf80uw2LqCR4KPzc+UuXPfw4/Bz/71fpxTD/a+NXnWr9jZL2LW5DlH5un
+        +0X/XP9Ax/0jebpf6PL3Pe4fTvl7B4CK8g/ndD+q/J/b+kcMAAhSb8KSLlJcKR9QT+5Q+MVv+GY8qsxl
+        8O8G4Ofl47h+9OS+3oR1/zSHDVwoBoAA5Y/T/QIf9w+v/FXRLv+gx/2Dl/9ffcr/WbX8n9uGAQBB6k0s
+        zpRnqSd2KPyYv97y71aY5dnQR/38mGI1/Ow5K8Le4EuTzbDf4jTsMjmTtymu5O0Wm2E3//8ZHSnH9HxJ
+        Um3Jfrkx6/zfLDZwQcewyr/aAIDT/XSWf9UAQJd/qNP9QpW/70f/2srfOwBcQz52KBgAECROw6/yx8uN
+        emIHwz+i17Pbv8u0TM+hA+pn17ILaoHvtThSPrO4kt9T/+8XzU7D78z5KdeYXQ06ZOcbjLnDGv4myZp0
+        sbjLQqafNel/zNYGyfxsCiU/pafZZbjJ7Ep+VB0aXKpP1Pv8C7PDcMLvdtS6rBGNWOeP1UFgfqfwyt/z
+        7r9m+VcfAEKXv+9H/97y9w4AsfTVvoHKP95P96PK/7ltj2AAQJBEjyk/pZXJeukp6kkdDN9t3nNmDlns
+        ofCNfXVW/FbDN2r5zlYLOV9xJt/Dr3Vgtpr/T9wdtZ5sx2WNLY7kfnw4UAeCsRZXymr1tv1I3vYoyhzO
+        B4FsNnhhZ7/y9w4AkSh/nO4XeNNfXZ7uR5X/3zAAIEhiJ+flyxqpT17p0/345X3DucJfd3e29zQ+4mdG
+        jaPBFsVpeFst2Lv5u3G+10H8+jEbPpBYnIZuZlfKX81OQ5H6e3xb4/eKkqyXG7Puk3PZkMVdNZS/73F/
+        qvwjf7qfb/njdL+K8vcOAOGe7keVPwYABEngdBqbdIniMiyknszB8A16stf27zUzx/NtetTPizT1dzqu
+        luYEXvgZjstTxa8b35mS9AvF3qij2WX4p9lhWGKxGn6ifvdIynk1lfUpaCXK3zsA1G75+w4A3vL3DACB
+        yj/oR/9E+eN0v0pU+f9t25/YnfMwACBIQkYtk2HUEzmofAPrMl37t/rxi/e0+0iJ+q5+9Z3yTv6Rfka+
+        oavMcfp4Db9WAz98YXGkTA/3exq0avWWkV09p1OQ8q8aAKJe/jjdr7L8Zb/a13cAqFb+le/+q5f/8xgA
+        ECQxY3amDKGexKHIfJ8/3+AXzWvzq+/0D3g21LmS28XDx/rRSktr48ss+Sm3qwNQcbQ+GeDXEegyoRkb
+        uri7ZPnrPd0vVPmH2vSH0/2ClT/90b+3/J/fzgeAIeTjgYIBAEHiIHxHu/qE/cr/CRwK/7Idquj98S8A
+        4t/ER/0M/RqcV4eXD82Ohv3rwzt92WSOSL3c7DQ8rQ4DG+n7T59mr6SyK4ra+gwAWssfp/t5y79qAKDL
+        v25O9/Mtf88AoJb/89sfxQCAIIkUfmqa+mRd6v/kDYVv3Os7jy58X/wLevgGQepn6NNgq/rPp/hH3+JX
+        QYKFJV2U4Ujuw083TLMafqh5f+rT7j0LG7qwBzEA+JR/gNP9apa/dwDA6X51d7ofVf7cXRgAECRx4v3I
+        nH4CB8I/xg91rj9/1x+NC/mYnclzLPkpg+rzR/x6Yx7euInFmeJQ78+InknALyR0hbsdWf6yp/sFLn9V
+        0PKPoa/2jePT/So/+vcp/797BoCh5NpTMAAgSAzH7EwZTD1xg8kc3jDk6X5dpmZG+l3/BXVQmeg5to9E
+        LPxCRvzwgMX120PEfR62juMz2fVLeocof/HuX5R/zeP+wcu/vp7uV7P8vQNApE/3o8r/79sfwwCAIIkQ
+        fmyYnx5HPXGD4eVOlT7Hd/jz6/ZT/12YLvDT9yzDGuaKm41EIfwaAxlOw+MWV4MjxBqEJfe1JmzQ7C5h
+        lr/vAOAtf88AEKL86+vpfuGXf+DT/bzl7x0AKsofAwCCJEJY0kUWR/JU6kkbTJvxRrL4uZ4zcljOqMvJ
+        /y48KdPMjobNxS1GaiHGkcZLzS7DXyxOw9f0msjhZwr0/rR1ZMo/Zk73C6f8fY/7h1P+vu/+a+d0P6r8
+        /4EBAEHiPxZnyh3UEzYY/r3+gTb9df40w3NogPrvZPGL2pidKT3ETUXqIHxjpToIjGjsMnxPrZGsDu9l
+        sJuW9vUrf+8AEH75h9r0h9P9gpV/qNP9qPL/x44/YwBAkHgOvxKe+uSUOuWPH8/vWUpf47/teCP538gy
+        239zkJ+7js19sRPF1iDD4kopoNZLVvNRaeza+T1xul/A8o+t0/18B4CK8ufuxgCAIHEaz0f//Epx9BM2
+        EOq4f+85zSOyy997SlqKM3VE6q/FrURiLPyF3PPNiMT6ycga0ZgNLO3sU/7eAaB+ne4nyl9Fln+MnO5X
+        7d3/Dt8B4FpybSkYABAkhsKvhU89UYOhjvvzTwOavRaB4/3OBsv5Nw+Km4fEcNKsab/ipw6adX4rId8X
+        0G9aWw3lrwpa/jjdLzLl7x0AtJT/P3c8jgEAQeIxir1RGv/aW+qJGgjf1NfH77h/96LsCJzid9lZ9Z9P
+        8C+0ETcPiZPwr0pW125t9fWU1+3j5t4BIET543S/ivL3DgDh7/jXX/4YABAkTqM+IT/2f4IGw9+p9Siu
+        fr4//9IfvV/io7iSv8gc1qiZuFlIHKalNemXZmeKTV3PC/7rK6Pj+5nstuXeIaCi/D0DQIjyx+l+suUf
+        6nQ/ovw9A0BF+VcNAPfMu45cSwoGAASJgfBvxKOeoMG0m6BUK/9OkzPUoYD+s5rwL6VxGqz80sPiZiFx
+        HiU/pae6tntqrLWEtm+b2a3LrvR5919R/r4f/aulH/S4P0738x8AqpV/5bt/v/L3GQC0lP8LO55g93yG
+        AQBB4id845/LsMz/yRlMzuvVT/nrMNFM/jmtzK5fnfZcvhdJuGTmpzQwuwxTqHXXqtUYI7tlaf8wN/1p
+        K3/vAFDzuD9d/jjdjyr/F3ZiAECQuIo5P+VO6skZiOejf59L/bbXWf7ey8ziEr4JHXXI5FcS1PMlQy1e
+        T/cOAVLl7x0AqPL3DgDBy79yAPDb9Kev/KsGALr84+N0v+rlr1LLHwNAAoapT94p1saXFVjNyRAfFljN
+        /yeWL2j4ld1MNsN+6skZSHufj/7bf6yQf0YrxWVYz79qWNwcJMFjzjd0t9h/e5h6LGjR4vWm7NalV0ao
+        /H0/+tde/jjdr/qmP88AIMr/xZ1PYgBIhEyzZl5eZFeeUy1SnVYxiDPW9KPuPNP0Iof57inWlr8US1st
+        ZqfhBeqJGYjno/9Ilb/TMCvbavituClIPYnnmwYlDzn5qhgCqsofp/tFpvy9A0C45Y8BIAFSOir7f4ts
+        prwiq3KOLBWIVweK85RbxTJ7YhrWsKnF+usz1BMzEH6KHy9/fuEf6t9rZXYY3u00NukScVOQehb+5UKe
+        L3EiHhtatBxtZLcvG6Ch/L0DQNDyFwNAjfKvcdxflL9nAAi//Ku9+w+r/L0DQPg7/qNX/t4B4HpyzSgY
+        AGIoJVZzkwK7soIoD0gcb04R59ZbXCnjqCdlIK3eaeopf/6lPnqu62/OT/k7LueL8MeA2ZXyH+oxokWb
+        NxV25xeDiAGAKH+c7ldJuvw9A0DgTX++5f/izqfYvRgA4i+zrEZDQZ5xK1EYkHg+yBzWsLPFaviZelJS
+        +Ln9vWbmer7ON9wr/PEvjjE7U+4SDzkE8cTsMjzkOQWUeMyE0n5shudQQKDy9333X7vl73vcP5zy9333
+        H5un+9Us/yfZv/gAMB8DQFzFak262G03zSCKAhKQW9XeZthNPSEDafeRyfPuv+XYpuS/D8lq+CbDkdxH
+        POQQpFoszobXG6yG78jHTghdxudUln+g4/6+5e8dALzl7zsA0OUfasd/LZR/0OP+3vL3DgDByz/Sp/tR
+        5f+vXRgA4i5um/I3qiggMeU55Eo8a2Rjzzv/sE/348PGsIa54uGGIGTMroZXyO5JqdB7UpuA5e8dAIKX
+        f+UA4LfpL3j5q4KWf9UAQJd/3Z/u51v+vgOAltP9qPL/166nMQDEU9wOpVeRVfmJKgpIPNNUnVxy1+nv
+        NCWDdS3IYpYwrvLnuazviNTLxcMNQYLG7Ezpke66tJx6LIUysKhrgPL3/ehfe/nX19P9vOXvOwB4y98z
+        AAQt/6fYvzEAxE+KrGmN3HblIFUUkJiecjQhn4iB5IxOZb1m5rCsl8P4ch9HynT+DXHi4YYgmmJxGrqZ
+        rJeeIh9TQWQOa8RumNevdspf46a/0Kf71UX5i3f/gTb9Sez455v+fMvfOwDcQK4PBQNAHQXH/esf/u6/
+        tUtu9363wiyWqw4B1L8LypHyGa7pj4Qbz3cIhHE4IGdkKrvj80F0+YsBoEb51zjuL8rfMwCEX/7V3v2T
+        5R/fp/v5lj//6B8DQBwFx/3rn7870sgnYSAt32nKWr+fTv67YMz23xzEx/6I3iiuhlfyM0eox1gw/PTA
+        +1de61P+Ve/+wyt/7wAQfvmH2vQXn6f7+R73ryj/f+/6C7sPA0BsJ5zj/rNeac32rR7J9kPM27HUSq7h
+        EKf20/f4aX/tPpK/0h9/webfLCgeagiiK2aX4Sb1cSX9lcI9P25VS+Xve9w/nPL3ffcvf7pfwPKvfPfv
+        V/4+A0D45V99059v+Vs9A8CN5JpQMADUcsI77m9mp47NY+zCcYgTu7+wV1tDfupfC4mP/1u8mRbm9/qn
+        /FE81BAkIrHkpzxCP9aCu2ZGj8ry9x0A6PJPnNP9qsrfdwConfK37sYAELMJ97j/3pXDyJKB2PXzT1+y
+        5RNvqFzDqSrqCUjh3/aXOSKMTX/O5PdxhT8kGrE4U8aQj7kgskc09uwHIN/9+236C17+qqDlXzUA0OWf
+        mKf7UeVv3f0Mux8DQGwmnOP+ZZNuVsvkKFkyENt+PLedzRzZ0rOOk+wm8gkYOSmr+PXdxUMNQSKaltak
+        X5odhiX0Yy+wdm9nhCz/iJ/uF6j8Y/J0P2/5ewcAb/l7BoCg5V+149+//P+DASA2E85x/9mvtGE/nt9B
+        lgvEh5NfzvKsZaEqh3gCRoTT8LXZ1cAiHmoIEpV4v0Xwt4fIx2AQAwq6hF/+Gjf91cfT/ajyxwAQg8Fx
+        //qtYj9Af1dj8kmoC/8+AadhoHioIUhUw68RIHtmQNbwRuzOJYOJ4/6i/D0DQPjlX/3dP1X+iXm6X9UA
+        8IzPAPBXDACxlPCP+w8nywTiT8V+gKclTwPUwuwy/FM81BCkVsIfc9RjMZh2b1nY79QBIHj5eweA8Ms/
+        1Ka/xDrdjyp/DAAxlvCO+9+C4/4Jhu8HmDqyOcslnoThUhwphUnqgCkeaggS9WS4ktsYHSnHqMdjKAOm
+        d9ZR/r7H/cMpf993/4lxuh9V/i/xAWDBTeT9T8EAEMXguD/44vsB/uqMzKcAZmfKjsz8lAbioYYgUY/n
+        K6ydhq+px2Mo/DLB183q4xkA6rz8gx7395a/dwCoedyfLn/fAaC2yt87APiX/0t7nsUAEAsJ/7j/Z2R5
+        QGLY8UUeGypxQSAK/7KWTEdKa/FQQ5CoR3Gk9Ar3S4IyhzdiN87pp6H8VUHLv2oAoMu/fp3uR5U/9wAG
+        gLoNjvtDIHw/wMKPr2NXO8PdEHjZWf5iLB5qCBL18EsC88cd/XgMLmt4Y3bzvP7VP/rH6X5VA0DQ8g+1
+        479m+ed5BoCbybWgYACIQsI57v/ZGx3Z6RMT2dlvPoUEd3zPKObOz2APOOW+5CfL3uBLlD9SmzHnp1xj
+        cTU4Tz0eQ8kecTm7dcFV2sofp/sJWsvfOwD4l3/enucwANRlwjnuPyM/i325/SVWfmwM1BPbFz/iWfs3
+        HEY2yNmYZRBPzgp84+B96rDwkT39wCyr0SAeaggS1ZgdhpvTrIYfqMdkKM1eTmW3L7q6evl7BoDwy7/6
+        u3+q/OvX6X6e8hcDQEX5cw9iAKibhPv9/juWPkqWBCS2ssnXVD4GPrKb2N8caexeRyq7Xh0IbnBe7vmE
+        4F+Opmyy+u98Hi9uhsv9IlGO2ZV8t8Vq+IkqjVByRjZhdyweFKT8vQNA+OUfatNf/Tjdr/q7f2/5YwCo
+        o4R73H/Fp0PJcoDE983hV9m8MR3Ix0VQeaa/iIcdgkQ8isPwsOcCU0RhhJL7ahq7a+lgHeXve9w/nPL3
+        ffef2Kf7+X/0z9n2/I09uBADQK1HLf/nyRfrIPhx/28Pv0aWA9QPR7b9h5XkZ5KPj0DG25UfC19K7yYe
+        eggSsWQ4DY9TRaFFi9easruXDRHlj9P9IlP+3gFAa/nb9mIAqPUU2Uy9cdwfwlWxH0BGod24D/sBkEjG
+        4kj5G1USWrR8PZ3ds3yoxvJXBS3/qgGALn+c7heo/L0DwC3kGlEwAOgMP+4/3aocol6kg8Fxf/Dlux9A
+        AvYDIPqjPobMrpT/UAWhRavRJnZv2bWV5Y/T/SoGAG/5ewaAoOUf3ul+VeWvEuVv3/s8BoDaCj/uX5hn
+        KiVemIPCcX/wh/0ASJ2El7/TMJwqBy3avKGw+1Zcp738cbqfoLX8vQNA0PIX7/55+WMAqMXguD9EEvYD
+        ILUa9Q2MxZkyhioGLfgX/Ny/kih/zwAQfvlXf/dPlT9O9wtU/hgAaik47g/RgP0ASK1kStIvLK6UcVQp
+        aNFhbCZ7YNX1IcrfOwCEX/6hNv3V79P9qsofA0CtBsf9IZqwHwCJZjqNTbrE4jR8QhWCFp3ezWYPrr5B
+        Z/n7HvcPp/x93/3Xz9P9fI/7YwCopeC4P0Qb9gMg0Ur2qKT/Vd/5F1BloEWXcTnsd2tu9Cl/nO4XmfL3
+        DgB6yx8DQJSD4/5QG7AfAIl0jCONl6ov+jP9S0Crbh8095T/Q5rLXxW0/KsGALr8cbqfbPlzGACiFBz3
+        h9qE/QBIpNLS2vgy9Z3/fKoEtOjxUUu1+G+qVv443a9iAPCWv2cACFr+kT3dLxAMAFFI+Mf9/6S+mL8O
+        EJayyYPJx1UI2A+AVMZsbZCsvtgv83/x16r3xDby5Y/T/QSt5e8dAIKWP7Hjn4IBIMIJ/7j/EPVFfBRA
+        2L45/DKbN6Y9+fgKCvsBEDVNnb9pqL7zX029+GvRb1I79tAaXv431Sx/zwAQfvlXf/dPlT9O95Mtfw4D
+        QIQT3nH/DuzbwyPUF/FXAXQ5su1F7AdApGMe3riJ2WXYSL3wa9H/044ay987AIRf/qE2/eF0P2/5YwCo
+        9YR73P/o9hfZqWOvAETE9sUPk4+1YLAfoP4mO99gVFzJ26kXfS0GTOscofL3Pe4fTvn7vvvH6X5aYACI
+        UMI97r9z6e/ZqaMvA0RU2aSB5OMtBOwHqGdRbA0y1Bf3Pf4v9lpk5BvYwMJuRPnjdL/IlL93AIhW+XMY
+        ACKQcI/7r5wyWH2xHgEQcd8ecrJ5Y9qRj7ugsB+g3sQyrGGuxfXbQ9SLfSgZ+Q3Z4OLuleWP0/2ClX/V
+        cf9YKn8OA0AEEt5x//bs5CGH+mI9DCAqvtz6PPYDIGQyXMltjI6UY9QLfSi8/IfO6EWWP073qxgAvOXv
+        GQCCln/tnO4XCAYAnQn7uP+259UX6XyAqNq++AHyMRjMdJtpv9tmerTIbvoTJJ5/OJo6M62/PkO9yIeS
+        OawRu25Wn/DKH6f7CVrL3zsABC1/iR3/FAwAOhL+cf8H1RdnJ0CtKJs0gHwcQv0zypHOmrsaki/woWQN
+        b8RumNPXW/41jvuL8vcMAOGXf/V3/1T543S/SJU/hwEgzIR/3H8gO33UAVBrTh56ic0b05Z8PEL9MdKe
+        znKJF3YtskY0ZjfNu0Ki/L0DQPjlH2rTH07385Y/BoA6SXjH/dux8kNW9UXZBlCrjm59Rno/ACSOYeo7
+        /2bEi7oW2SMuZ7fMvzKC5e973D+c8vd994/T/fTAABBGwjvun8mObXtGfTHOA6gTOxbfSz42IbHZHE1Z
+        Zpgf+zcbmcpuWzggQPnjdL/IlL93AKjt8ucwAEimcFjub9Qn1QH/J1koO5fcy05/+R+AOrVi0pXk4xMS
+        k9VT/vQLeig5rzRhty8e6P1WP1H+ON0vWPlXHfePh/LnMABIxm0z/Yd6ogWzcspV6ouvFaDOnTz4Aps3
+        pg35OIXE8k9HGssgXsi1yH01jd25dFDA8g+54z9S5Y/T/UT5qyJc/hwGAIlMsbb85VS7coJ6sgXy2Rtt
+        Wfmhf6ovvv8CiAlHtzzBSlwZ5OMVEsOzzjTyRVyLFq81ZXd9Pjj88sfpfoLW8vcOAEHLPwI7/ikYACRS
+        aFMGUE+2QDzH/bc+wc58+SJATNm56E7yMQvx7ylHE/IFXIuWrxvZ3cuHVJV/jeP+ovw9A0D45V/93T9V
+        /jjdL9rlz2EAkEiRTXmResIFsmvJneqL7T8BYtKKSVeQj1uIT27VozrKv/UYE7v3i6GS5e8dAMIv/1Cb
+        /nC6n7f8MQDUedw207vUE4+yckp/9UX2HwAxq/zgc2zemNbk4xfiCy//h53hl3+bN8zsvrJrI1z+vsf9
+        wyl/33f/ON0vGjAASER9on3g/8QL5Nt9f1FfZJ8HiGlf73qCHVz9IMSx/aseYM9M7ES+aGvR7i0Lu2/F
+        dUHKH6f7Rab8vQNArJQ/hwFAImqxax4Ayg/yAeA5AICoKT/yLPvrtO7kC7YWHd7JZPevvN5T/pUDgN+m
+        v+Dlrwpa/lUDAF3+ON2vrsqfwwAgEbXYtQ8A+59mZ9QnJwBANJw89Az786Qu5Iu1Fp3ey2YPrApe/jjd
+        r2IA8Ja/ZwAIWv6xebpfIBgAJFJkU8ZTZU8p3/+k+iR9BgAg4soPPc3+8ElH8oVaiy7jctiDq2/QV/44
+        3U/QWv7eASBo+Udxxz8FA4BEZAaAU/ufYGeP/AUAIOL+U9SHfJHWotuHzdXy9xZ/ZfnXOO4vyt8zAIRf
+        /tXf/VPlj9P96qr8OQwAEnHblXFU2VPK9/9ZfaI+BQAQUYvX3km+QGvRY0LLyuKXK3/vABB++Yfa9IfT
+        /bzljwEgZlNkM71PlT2lfP9j6pP1SQCAiLr5/VzyBTqU3v9tE6Xy9z3uH075+777x+l+tQkDgESkBoB9
+        j6hP1scBACJmw5b7yBfnUPpObsceXON3zL9G+eN0v8iUv3cAiPXy5zAASKTIbnqPKntK+b4/qk9YfhgA
+        ACAy3pw3gHxxDqb/px2qlX/lAOC36S94+auCln/VAECXP073i7Xy5zAASERuAPi9+oR9FAAgYp7+VO6C
+        PwMKOmsqf5zuVzEAeMvfMwAELf/4Ot0vEAwAEpG5FPCpvQ+zc4f/BAAQMQ981Jp8cabwd/73lA1h95YN
+        rcQv93vfCu46dn+l69kD3EruBvagx40ev/O4yeMhj5s9Hl55i9cqdWBYdauP2zz+sPr2Sn+spA4Payqo
+        w0MldXhYy93t8ZjHPR5/Xsfd6/H4uvsqPbH+/kpPrn9AUIeHDRXU4aGSOjxs5B6u4ZlN3O89/rrpD5We
+        3fzHSs9tfkRQB4ktXs9vUQcJj8fY37mtnDpEVFKHCG7bEx4veDzp8aLHUx7/qmP3zr2efOxQMABIDADl
+        e3+nPmH/CAAQMQ9P1D4AAESU0zBQVGH9jNtueocqe0r53gfVJ+wfAAAi5oWC8K/8B6BHpiOltajC+hmp
+        AWDP/eoTlh8GAACIjEmLB5IvzgBRZf31mU5jky4RVVg/U2QzjqXKnlK+5z71CfsQAEDEHNlzD8sa1oh+
+        kQaIErMr+VNRg/U3cgPAPeoTlh8GAACInCcmtyVfpAGixexo2F/UYP2N2668TZU95dSeu9n5ww8AAETU
+        9m23sZxhjckXaoAomCEqsH5HagDYfaf6ZL0PACDi3pvfl3qhBoiodFfyUdOwhk1FBdbvuG3KW1TZU8p3
+        3cHOH7oXACDizqleKupMvmgDRITT8LVib9RR1B+iFvub/kUfSPmu29Qn6t0AAFFxTvXevN4sB5sCIeJS
+        Vmc5G2eL6kN41GKXGABuUZ+kdwIARNX2rTewJye3Ys0wCIBOZlfKTrX8/9jPmvQ/ovaQihTalDeosqeU
+        77pZfXLywwAAANF3fO8trGT5leyV0i7shent2PNT20IC+f3rZnaPIzWku6yX/6Q4DW9rpRb/SMXV8M9m
+        V4MOSSzpIlF3iH9kBoBTO29k3x26DQAAQLeyCe3JrvFXYG9wXlQWEsm47aYx1B1OObXzBnXRbgUAANAN
+        A0AdR2YAKN95nbpoNwMAAOhWNqEd2TX+MABEKUU202jqDqeU77xWXbSbAAAAdMMAUMeRGwCGqIvGDwMA
+        AADoUzahLdk1/jAARClFdtPr1B1OKd9xDfvu4PUAAAC6YQCo40gNANsHqYt2LQAAgG5lE9qQXeMPA0CU
+        4s4zjqLucMqp7QPZ9weHAgAA6IYBoI4jMwCUbx+gLto1AAAAupVNaE12jT8MAFGKeue+5n9nB+IdAAYD
+        AADohgGgjqPeuRIDwJXqovHDAAAAAPqUTWhFdo0/DABRSlGe8ip1h1PKt/VXF+1qAAAA3TAA1HHcduUV
+        6g6nlG/rpy7aVQAAALqVTWhJdo0/DABRiswAcGprX/bDgSsBAAB0wwBQx1EHgJHUHU45tbW3umhXAAAA
+        6FY2oQXZNf4wAEQpMgNA+dZe6qL1AwAA0A0DQB2nyGZ6mbrDKeVbe6iL1gcAAEC3sgnNya7xhwEgSpEa
+        ALZ0VxeNHwYAAADQBwNAHafQbhpB3eGU8i1d1UXrCQAAoFvZhFyya/xhAIhSZAaAU1u6sB8PdAcAANBt
+        xYQcsmv8YQCIUtw203DqDqec2tJZXbRuce/7fd3Y2Z1d2NkdAABQV774oBnZNf4mWA3fFVnTGsWy6c6m
+        DceO7XSJqNb4iMwAUL65I/txf5e4dHxle7Z2ci6bNyqD/N0AAAD0GG9VfnbnKdvV//1msd3YVdRs7KbI
+        bhrm/0sEUr65g1qmnePKyQ0d2NJ3s8jfBwAAIFoK80ylJS4lU9Rt7EVqANjUTi1V/ilAfDi4uDWb4TKT
+        vwsAAEC0TbOnlxfbjYNE5cZWimxKPnWjKeWb2qrFyj8FiH0Hl2j7kgkAAICosqb9UORQrhK1Gztx2xUX
+        eYMJ5ZvaqOXKPwWIbeUb1Xf++XjnDwAAMcKqfDXNrqSJ6o2NyA0ArdlP+9vGvGXjcMwfAABii9tu+lhU
+        b2ykyKY4qRtKKd/UUi1YPgTErm/WaLu2NAAAQG3ynCVgUzJE/dZ9pAaAjS3Ukm0V0zZOzyZvOwAAQN0z
+        vSDqt+6j3iBHzRtIK9+Qy37apw4BMWzBGxbytgMAANQ5mzJH1G/dR71BEgNAjlqyzWPWD7ubs2InNv8B
+        AEBsmm4z7Rf1W/dx2xQ7dSMp5RuaqUXLh4DY9PVq7R//r552F9vzxT8BAAB0m/Oa1lPPU78V9Vv3kRsA
+        stmFfc1i1r65meTtppw+Npf9/P02AAAAXS58t4HNfkXbNxuqDov6rfu47SYbcQNJ5Rsy1aLNilnrp2g7
+        /l+Sn81+OLORXEgAAAAZ35+aR3YNyWZcKuq37iM1AKzPUIuWDwGxacnb9O32t/Cdq9SJbQu5kAAAADJO
+        HhhHdg1F7dwxon7rPkU2Ux51Iynl6y1q0camn/Za2AwXfbv9rS95jFxEAAAAWQfWvEh2DcVtUx4W9Vv3
+        kRsAzGrZxqaT6m2jbjPl4LrX1UXbCgAAoNu64lvJrqEU5pk7iPqt+7jtppeoG0kpX2diF/bGpoPz6dtM
+        KT9cQi4iAACAjAvfb2LzRrcmu6YGa9oPU6wtfynqt+4jNwAY2c97Y9PmaSbyNvsrdmSw70+vIxcSAABA
+        xg+nF5JdQ3HnmdaK6o2NuG2m/1A3lFK+Nl0t26Yxadm72gaAz97sw346zzcA0osJAACg1akvPya7huK2
+        K+NE9cZG1Btl9b+RgZSvTVPLtklMmjmcvs3+Vk9/iFxEAAAAWUc22siuoagDwOOiemMj6o2SGAB42abG
+        nDObmpC3l7JvxXByEQEAAGRtnnUP2TUUt0PpJao3NlJkU/5N3VBKrA4Ahxc1JW8vZcvcO9j5Ew4AAADd
+        Frzdjuwaf/yrgKdYG18mqjc2IjMAnIzRAWBrofYBYPeSG9nZI48DAADocvrgY5q/gM6dp2wXtRs7cduV
+        f1E3lhKrA0DZeCN5eynHN9+vLtyfAQAAdPlyg/aP/9U325+I2o2dSA0Aa2JzAJjzirYzAEpcGezM4cfI
+        hQQAAJCxY8F1ZNdQ3Dblb6J2YyfqVPIidWMpsTgAnN+qfQPgwrHtyEUEAACQtWZqX7JrKG6H6WpRu7GT
+        eB8Ajn6eRt5WyuqpfdRF458AAAAA6LPoHW0bAD2saY1E7cZOiuymF8gbS4jFAWB7ifYNgDsWXEsuIgAA
+        gIwzhx/1HFamuoZwQFRubEVmAPg2BgeAVR9p3wD45Ya7yYUEAACQcXzLfWTPBOAWlRtbcdtM/yRuLCkW
+        B4DPRmn8DgCnmZ0++Ii6cI8CAADosnvJ9WTXUPgl90XlxlakBoDVsTUAfL9D+wbA+W+0IhcRAABA1rrC
+        K8iuobjtphtE5cZW1Bv2D+oGU2JtADhRpn0AWDmpBzt35E8AAAC6LXm/A9k1lAJbU5Oo3NhKPA8Au2Zq
+        3wC4be5gdu6wunAAAAA6zRyeRXZNDVblK8aSLhKVG1spspn+Tt5owjerYmsAWDMxnbydlMOrbycXEQAA
+        QMbX2x8ge4ZmnCvqNvbitpuep290TbE2ACwco20DIHdq38Pqwj0CAACgy75lN5I9Q3HbTMNF3cZe4nUA
+        +GlXKit20LfT39xRzclFBAAAkLWxuD/ZNZRCh/FOUbexF359YupGU2JpAOC3hbqNlLKPu5KLCAAAIGvZ
+        h53IrqEU5llyRd3GXuJ1ANg7V/sGwC0zB6iL9kcAAADdZr/SjOwaf9OsyhmrNeliUbexF/VGPud/owOJ
+        pQFg/WTtGwAPrriZXEQAAAAZJ3c9SPYMzfi5qNrYjHojtQ8AK9PIMq4LS97WvgGQLxi1kAAAADL4G0qq
+        Z0g202hRtbGZIpvyLHnDCbEyAFzYk8pKXPRt9Mc/qjl3+A8AAAC6bZl5Fdk1lEK7+SFRtbEZmQHg6xgZ
+        AMrXat8AyDdrUIsIAAAgi28qp7qGUphn7iCqNjbjdpj/St1wSqwMAAcWaN8AuLH4CnXRfg8AAKAbP62c
+        6poarGk/TLG2/KWo2thMPA4Am6Zp3wC4b9n15CICAADIOLVPagPgGlGzsZsim+kZ+sbXFCsDwOfvGsnb
+        R/l6+z3kQgIAAMg4vPoWsmdINtP7omZjN1IDwIrYGABmDtd2BgD/soZzh/klgAEAAPTZNvdqsmsobrvy
+        uKjZ2E1Rnukv1I2nfBUDA8CZjdo3AC55vz25iAAAALJWTupGdg3F7VB6iZqN3bjtpqepG0+JhQHg8CLt
+        GwDXF/YhFxEAAEDW/Ddakl3jb7xV+XmKtfFlomZjN/E2AGwt1L4BcM/iIeqiPQQAAKDLmQMPsmKnmeya
+        mkzbRMXGdgrzTE/Rv0BNsTAAfDFe+wbAE5vvIBcSAABAxtH1t5I9Q7Ipn4iKje1IDQBldT8AzBmpbQPg
+        jPwMdvYQvwTw7wAAAHTZOX8g2TUU/iV7omJjO+qNfdL/xgdS1wPA+S3aNwAuGtuGXEQAAABZa6b2ILuG
+        UmhTBoiKje2oNzZuBoCjn6eRt4uyZmpPchEBAABkLRrbmuwaynRn04aiYmM7bpvyBPULUOp6ANherP0M
+        gJ0LBqqLxg8BAAAAhO/soQdYictCdg3hgKjX2I/MAHCijgeAlR9pPwPg6IZbyIUEAACQcWLzbWTPBOAW
+        9Rr74VcrIn4BUl0PAPNe07YBkJ+qcebA/eRCAgAAyNi9eDDZNQFYRb3GfqQGgC/qbgD4fof2DYD8Yg3n
+        Dj8AAACg27qCXmTXUArzTNeLeo39FNmUP1O/BKUuB4ATZdoHgFWTurLz6qIBAADotfT9dmTXUApsTU2i
+        XmM/8TIA7CrVvgFw+9wr1UW7HwAAQLfS4Zlk1/ibaldOMJZ0kajX2E+R3fgY9YtQji+vuwFgzUTtGwCP
+        rLmBXEQAAAAZ32y7newZkk2ZI6o1PhIvA8CC0do2AHKn991DLiQAAICM/cuuIXuGZhomqjU+4raZHqV/
+        kZrqagD4cVcqK3bQt8nfvNdz1UW7DwAAQLdNxX3IrqEUOox3imqNj6gTy5+oX4RSVwPAN6u0bwAsm9iJ
+        XEQAAABZyz5oT3YNZYazaY6o1vhIPAwAe+do3wC4dWY/chEBAABkzX4lm+wawmmrNeliUa3xkSKb6RHi
+        FyHV1QCwfrL2DYCHVgxVF+1eAAAAXcp3yWwANC4VtRo/kRkAji2rmwFg8VvaNwCW776DXEgAAAAZh1YM
+        IXuGZDONFrUaP3HblT+SvwyhLgaAC3tSWYmLvj3++Ec15w/dAwAAoNuW0r5k15Bsxt+JWo2fxPoAUL5O
+        +wbA5R+2JxcRAABAVtnHHcmuoZTYze1FrcZPim3KH6hfhlIXA8CB+do3AG4q7k0uIgAAgKy5o3LIrqnB
+        mvbDFGvLX4pajZ/E+gCwaar2DYD7lw1SF+1uAAAAXU7vkdgAaDeuEZUaX1Fv/O9r/jK0uhgAPn9H+wbA
+        b7fdQi4kAACAjCOrhpI9QzO9Jyo1vqLeeO0DwOe1PwDMHKZtAJg5IpNcRAAAAFnb51xBdg3JpvxZVGp8
+        xW1THiZ/IUJtDwBnNmrfALj0/bbqot0FAACg28pPOpNdQymwKT1FpcZXZAaAo7U8ABxelEbeDsr6wh7k
+        IgIAAMia/0Zzsmv8jbcqP0+xNr5MVGp8pdBufoj6pSi1PQBsLdS+AXDv4gHqot0JAACgy9n9t7Nip5ns
+        Gn8Fecatok7jL/ziBdQvRantAeCLcUbydlC+2nwDuZAAAAAyjq27luyZAP4r6jT+IjUALK3dAWD2SG0b
+        AGfkW9i5g/RCAgAAyNg5vz/ZNQE8J+o0/uK2mx4kfiFSbQ4A57Zo3wC4aGwrddHuAAAA0G3Np13IrqEU
+        2pQBok7jLzIDwJe1OADwYYO6DZS1U7uSiwgAACBr0dstya6hTHc2bSjqNP7itpkeoH4pSm0OANuLtV8C
+        eNf8/uQiAgAAyDh38HZW4rKQXeNvus20X1RpfCZWB4CVH2k/A+DY+qHqwt0OAACgy4lN15E9Q8pTCkWV
+        xmeK7ab7yV+MUJsDwLzXtG0A5KdqnD1wG7mQAAAAMvYsupLsmgCsokrjM1IDwJLaGQC+3659A+CCN5uT
+        iwgAACBrfUE3smtoputElcZnimzKffQvVlNtDQAnvtC+AXD15E7su0O3AQAA6Lb0vdZk11BKrelGUaXx
+        GZkB4EgtDQC7SrVvANwxtw+5iAAAALJKh2eQXeNvql05wVjSRaJK4zNuh3Iv9ctRamsAWPOx9g2AR1cP
+        UhftVgAAAF2+3SqxAdCmzBE1Gr+RGgAW184AsGCMtg2A3Jm9N5ELCQAAIGP/5xIbAG1KvqjR+E2xTbmH
+        /OUItTEA/LgzlRU76L/f37zXc8hFBAAAkLWpqDvZNSSb6Q5Ro/GbWBsAvl6p/QyAFRPbq4t2CwAAgG7L
+        PmhDdg1lhrNpjqjR+E2Rw3w39ctRamMA2DtH+wbArTN7kosIAAAga/bILLJrCKet1qSLRY3Gb9w2413E
+        L0eqjQFg/STtGwAPrxhALiIAAICM8p3Xkz1DKbQrS0SFxndkBoDDi6I/ACx+U/sGwFO7rlcX7mYAAABd
+        DpVdRfYMzfS6qND4TqHDeCf9C9YU7QHgpz1NWImT/rv9zXk1m1xEAAAAWVtLe5BdQ7IZfycqNL4TSwPA
+        ybXaNwAu/7CNumj8FEAAAAB9yia0I7uGUmI3txcVGt/hpzJQvyAl2gPAgfnaNwBuLulGLiIAAICsuaOa
+        kV1TU+Pvp1hb/lJUaHwnlgaATVO1bwA8sKw/uYgAAAAyzuzRvgGwIM+4WtRn/MftMN1O/ZKUaA8An7+j
+        fQPgye1D1IW7EQAAQJcjq6Q2AL4n6jP+IzMAHFoYvQHgwp5UVjpM2wAwc0QmuYgAAACyts/uSXYNzfiY
+        qM/4j9uu3Eb/kjVFcwA4vUH7BsDPx7UiFxEAAEDWqk/ak11Dcpp7iPqM/8TKAHBoURr5d1I2FHZm3x28
+        AQAAQLf5Y3LIrvE33qr8PHtE6q9FfcZ/ivOUW6lflBLNAWBrgfYNgPsW9yUXEQAAQMa5fdexYoeZ7Bp/
+        BXnGraI6EyOxMgB8Mc5I/p2UrzcNUhfuegAAAF2OrR1A9gzFbTNNFNWZGFF/qVv8f8lADi6I3gAw+2Vt
+        GwBn5FvY+QP0QgIAAMjY9VkvsmtINuVZUZ2JEXee+WbyFyVEawA4t1n7BsDF77QgFxEAAEDWmikdyK4h
+        OZSrRHUmRmJhAPhyqfYNgGundlQX7ToAAADdFr3dnOwayiyr0SCqMzFSbDffRP2ilGgNANuLtW8A3D2/
+        F7mIAAAAMs4fuJaVuLRtACy0G/eJ2kycxMIAsOJD7QPAifUDyIUEAACQ8dXGq8meoRTalQJRm4mTojzj
+        jdQvS4nWADDvVW0bAIudZnZu/1B14a4FAADQZc9CqQ2A/xa1mTiRGgDmNyULXI/vt6eSfxdlwZu55CIC
+        AADIWj+9I9k1NNN1ojYTJ2676Qb6l60pGgPA8S+0bwBcPbk9+15dNAAAAL2WvtuC7BpKsd2YLmozcSIz
+        APDv66dKXI+dpdqP/++c211dtKEAAAC6lQ7PILvGX6FVOc5Y0kWiNhMnhXmm66lfmBKNAWD1RO0DwLHV
+        /clFBAAAkHFyi9QGwNmiMhMrUgPAZ5EfABaM1rgB0KGwc3sHqws3BAAAQJcDS3uTXUOyKfmiMhMrfGMD
+        +QsTIj0A/Lgz1VPs1N/l77PRzchFBAAAkLXJ3YnsGorbYbpdVGZipS4HgK9Xat8AuGJiG3IRAQAAZC0b
+        34rsGkpxXnozUZmJFXeeci31C1MiPQDsmd2U/Hso22Z2URftGgAAAN1mjcwku6YGq+mU1Zp0sajMxIrM
+        ALA/wgPAuknaNwAeWdGXXEQAAAAZp3ZIbQBcIuoy8aL+ckOpX5qyf15kB4BFb2nbAMid2XW1unB8EyAA
+        AED4Di3XvgHQnWccJeoy8VKcZx5C/dKUSA4AP+1pwkqc9N/jb86rWeQiAgAAyNo6ozPZNRS33fSgqMvE
+        S10NACfXNiH/DsoXH7YiFxEAAEBW2YTWZNdQivMs7URdJl6K7OZrqF+aEskBYP9n2s8A2FLSSV20QQAA
+        ALrNfS2L7JqaGn8/dmynS0RdJl5kBoB9ERwANn6qfQPgwWU9yUUEAACQcXb3ALJnKG67skpUZWLGbTMO
+        pn5xSiQHgKVjtW8ALN92JbmQAAAAMr5c2YfsGYrbZnpXVGViRmoAmBuZAeDCnlRWmq9tAJg1IkNdtIEA
+        AAC6bZ+tfQNgkd34mKjKxEyx3TiI/sVritQAcHqD9g2An49rQS4iAACArFX/1b4BsMhp7iGqMjFTFwPA
+        oUXaNwBuLOxALiIAAICs+WOakV1DuDB7ROqvRVUmZopspoHEL06K1ACwpUD7BsB9i7uri8YvAgQAABC+
+        c/sGaP4COrc9fYuoycRNXQwAy983kj+f8s3mfuRCAgAAyDi+VmoD4ERRk4kbt8N0NfXLUyI1AMwaQf98
+        fzPyLeqiDQAAANBt17wuZNeQbMqzoiYTNzIDwN45+geAc5u1bwBc/E4uuYgAAACy1kxpQ3YNxW1TrhQ1
+        mbgptCkDqF+eEokB4Mul2jcArpvallxEAAAAWYveziG7hjLLajSImkzcFDmUq6hfnhKJAWBbsfYNgHsW
+        dFEX7SoAAABdvjtwJStxmcmu8VdoN+4TFZnYqe0BYMWH2jcAfrW+N7mQAAAAMr7aoP0rgAvtSoGoyMQO
+        P85B3QGUSAwAc1/VdgXAEqeZfbevP/tendoAAAD02LtA+wZAt135l6jIxI7MALBntr4B4PttqeTPpSx8
+        sxn7QV00AAAAvTZMa0t2DcWdp1wrKjKxU+gw96fuAIreAeD4cu0bANdMak0uIgAAgKyl7+aSXUMpthvT
+        RUUmdmpzANhZqn0D4K65HdVF6w8AAKBb6TAL2TX+Cq3KccaSLhIVmdgptpmvoO4Eit4BYPXH2geA46t7
+        kIsIAAAg4+Rm7RsA3TZllqjHxI/UADBL3wAwf7S2DYD8Ws3n9/QjFxIAAEDGgSVSGwBdoh4TP0UOYz/q
+        TqDoGQB+3Kl9A+Bno7PURbsCAABAt01uiQ2ADtPtoh4TP7U1AHy9UvsGwJUTW5KLCAAAIGvZ+OZk11Dc
+        TmO2qMfET6HN2Je6Eyh6BoA9s7UPANtnticXEQAAQNaslzPIrqnBajpltSZdLOox8SMzAOzWMQCs+0T7
+        BsAvy7qqi8b3AAAAAITv9HapDYCLRTXWjxQ7TH2oO4KiZwBY9Ka2DYDc2Z19yIUEAACQcXiZxAbAPOMo
+        UY31I1IDwMzwBoCf9jRhJU76Z/qb82qmumh9AQAAdNtaIrEB0GZ6QFRj/UiRzdSbuiMo4Q4AJ9doP/5f
+        9mFzchEBAABklX0ksQHQkd5WVGP9iNuh9KLuCEq4A8D+edoHgC3qtEYtIgAAgKy5r2WSXeNvgtXw3dix
+        nS4R1Vg/IjMA7ApzANj4qfYNgIeWdVYXje8BAAAACN/ZXb3InqG47coqUYv1JwU2pSd1Z1DCHQCWjjWS
+        P49yaltPciEBAABkHF0hcwVA0zuiFutPpAaAUvkB4MKeVFaaT/88f/xcTWoRAQAAZO2Y1Y7sGorbZnpU
+        1GL9SZHT3IO6MyjhDACnNzQhfxZl2bgcddF6AwAA6Lbqvy3IrqG47ebuohbrT6I9ABxaqH0D4KbC1uQi
+        AgAAyJo/OovsGsKFImvar0Qt1p/wqYe4M0jhDABbpmvfAHhgcUdyEQEAAGSc39vL882yVNfUkJe+WVRi
+        /YrMALAzjAFg+fvaNwCe3NRNXbheAAAAuhxfI7UB8GNRifUrhS+ld6PuEEo4A8CsEfTP8lc6zEwuIgAA
+        gKxdcyU2ADrMfxWVWL8iNQDMkBsAzm1OJX8OZck7zdRF46cAAgAA6LN2ssQGQJtypajE+pViu7ErdYdQ
+        ZAeAL5dq3wC4flpLchEBAABkLXorm+waSolLSRGVWL8SzQFgW5H2DYB7F7QjFxEAAEDG9/t7qqVuJrum
+        Blv6XlGH9S9FLxm7kHcKQXYAWPGB9g2AX6/nlwDuAQAAoAvvE6pnKO4803RRh/Uv0RwA5r5iIn+OvxKn
+        mX2/rzu5kAAAADL4J8pU11DcduVfog7rXwrtps7UnULZUaJ9APhum/YNgIveymI/HugOAACg24Zp2jcA
+        FtqVoaIO619K8pRO1J1CkRkAji3XvgFw7eTm5CICAADIWvqu9g2AhVZTU1GH9S/RGgD4NQOon0HZPbcN
+        uYgAAACy+HVlqK6pyXiMsaSLRB3Wv6h3QseadwpNZgBY/bH2DYAnVndUF60bAACALuWbO5E9Q3HblFmi
+        Cutn1DtB+wBQrH0AmP+6tg2A/FrN3+3pSi4kAACAjINLtG8ALLIpTlGF9TOFeeYO5B1D0DoA/LBT+wbA
+        +aMzyUUEAACQtdndkuwaituu3CaqsH5GZgDYrnEA+GqF9g2AqybmsB/3dwUAANBt2bhmZNdQ3E5jtqjC
+        +pkSu7k9dcdQtA4Ae2Zp3wC4Y2YrchEBAABkzXrZQnZNDVbTKas16WJRhfUz0RgA1k3Sfgngo2XtyUUE
+        AACQcWab9isAqhaJGqy/Kc6ztCPuGJLWAWDRm9rPADi3s5O6cF0AAAB0ObKsLdkzAbwmarD+RmoAKAo9
+        APy0O5WVOLSdATD31QxyEQEAAGRtLZbYAGgzPSBqsP7G7UhvS905FC0DwMk12jcAln3UTF20zgAAALrx
+        TqG6hsK7T9Rg/Y3MALBNwwCwb572DYBbi1uQiwgAACBr7msZZNf4m2A1fDd2bKdLRA3W3xTkGdtQdxBF
+        ywCwcYr2DYCHP29DLiIAAIAMvp+M6hnSS8pKUYH1O8UOY2vyDiJoGQCWjtW+AfDMtg7qwvFNgAAAAOE7
+        WqZ9A6DbbnpHVGD9jtQA4E4nS7/ChT2pbEY+/d/64+dqUosIAAAga8dMqQ2Aj4oKrN9x55laUXcQJdQA
+        cGp9E/K/oywbl60uWkcAAADdVk3UvgGw8KX0bqIC63ciOQAcXKj9DIBNhbnkIgIAAMiaP1rbBkDVhSJr
+        2q9EBdbvFDqUlsQdRAo1AGyZrn0D4MHF/BLA9EICAABo9d3uDp5vlqW6poa89M2i/hCZAWBriAFg+Xva
+        NwCWb2qrLhzfBAgAABC+E6vbkD1DcdtNH4v6Q0ryzC2oO4kSagCYNYL+7/yVDjOTiwgAACBr99wWZNeQ
+        bKZnRP0hUgNAYeAB4OzmVPK/oSx5J4tcRAAAAFlrJ0lsAHSY+4v6Q4oc5ubUnUQJNgAcWaJ9A+CGqTnq
+        ovFvAQQAANBn0VuZZNdQSlxKiqg/JFIDwDa39ksA75vPLwFMLyQAAIBWP+xrz0ud7Jqa0veI6kN4CvMs
+        ufQdVVOwAWDFB9o3AH6zjl8CmF5MAAAArXifUD1DM00T1YfwyAwAW4IMAHNfof8bf3xS+2FfO3XhAAAA
+        9OGfKFNdQ7IpL4rqQ3hmOJvmkHcUYUsBPQB8t037BsBFb2Wwn9RFAwAA0GvDVIkNgHZlqKg+hCcSA8Cx
+        5do3AK6dnK0uWlsAAADdlr6jfQPgNLuSJqoP4SnOS29G3VGUQAPAjhnaNwDumZtLLiIAAIAsfl0Zqmtq
+        sKYfFbWHVMTtNGaTdxYh0ACweoL2DYBfrW5FLiIAAICM8k2tyZ4JYKaoPaQiMgPA5un0ADD/dRP55/3x
+        azV/v6e1unBtAAAAdDm4uDnZNSSb4hS1h1Rkus2URd5ZBGoA+GGn9g2A80dbyEUEAACQtblQ+wbA4jzl
+        VlF7SEX0DgBfrdC+AXD1f7PIRQQAAJC1fJz2DYC860TtIRUpcSmZ1J1FoQaA3bO1bwDcOTNHXTR+CAAA
+        AECfWS9r2wA4zZ5ebrUmXSxqD6mI3gFg7SfaNwAeK2tOLiIAAICMM1tbkT0TwCJReYhv3DYlg7izSNQA
+        sPAN7QPA+Z38DAB6MQEAALQ68rnEBsA85VVReYhvpAaAadUHgJ92p7ISh7YzAOa9xjcA8gEAAABAn23F
+        EhsA7ab7ReUhvilwmS3UHUbxHwC+Xa19A+CKjzLJRQQAAJBV9qH2DYAFecY2ovIQ38gMAJv8BoB9c7Vv
+        ANxWwi8B3BIAAEC3ua9q2wA4wWr4buzYTpeIykN8U2KzmKk7jeI/AGz4NJ38c5Qjy/gZAPRCAgAAaHV+
+        h/ZvACywKytE3SH+0TMALB2rfQPg2a0t2E/71MUDAADQ4dgXuWTPkGzGsaLuEP8U5Wcq5J1G2DS1agC4
+        sCeVzcin/5y/2S+b1UXjAwAAAIA+O0qzya6hmf4k6g7xT4GtqYm+02ryHQBOrW9C/hlK2fgMdn5zCwAA
+        AF3ObW7OVn2sfQNg4Uvp3UTdIf6RGQA2+gwABxdoPwNg65Rs9s3yXAAAAF3KV+V6vleG6poarMpPk0ca
+        LxV1h/in1JpuJO84gu8AwE8JpP4MZd+MZuRCAgAAyChfk+v5ZlmqawibRNUhVMIdAJa9p20D4AynmR1d
+        kEMuJAAAgIyjS3PIriHZTBNE1SFUiu3GdPKOI/gOADNH0H/G39yRFnXR+AAAAACgz+7ZWWTXkGymZ0TV
+        IVSkBoBPvQPA2c3aNwB+8V4GuYgAAAAyvl2ey9ZN0r4BsNhmvkJUHUKl0GpqSt1xlIoB4MgS7RsAN03K
+        IhcSAABARvnKHLboTY0bAFUFVnOyqDqEiswAwK/8xweAbW7tlwDeU8zPAKAXEwAAQKvTa3JYiZPumprS
+        94iaQwJlml1Jo++8mioGgLLx2jYA8oU68hk/A4BeTAAAAK2OL9f+DYBFdtM0UXNIoIQzAMx5hf73/mYP
+        N7NvltELCQAAIGPvHIkNgHbTC6LmkEApsZqb0HdeTXwA+G5bKvnvKMvHWti36sQGAACg14ZPM8iuoRTn
+        mYeImkMCRWoAmJLOji3TvgFw59zr2A8H7gcAANDlxwN3sKXvaN8AyD/dFjWHBIrbkZFK3XkUPgDsmKF9
+        A+CJjY+zn796FgAAQJ+j97HSYXTX1GBNPyoqDgkW2QFg1QSNVwAclsPO7CMWEQAAQNLZndeRXUMpzDOV
+        iopDgmWaNfNy6g6krJ+czj4bZSL/nb95o7uyn47TCwkAACDjy7I+ZNcE4BAVhwRLqaNJY+LOI639RNu7
+        f27VpEHkIgIAAMjaWtyS7BpKcZ5yq6g4JFhkBoAVH2gfAHbOv4NcRAAAACknnmLL3zeTXUOZbjNliYpD
+        gqXImtaIugMpS8dqHwCOrn2EXkgAAAAZRx9gs16mu6YGa9pJxpIuEhWHBIvMADD/dW3H/0tcWezUnr+q
+        CwcAAKDP+T03kF1DKbQpC0W9IaEy3dm0IXUnUmaN0DYAzHmtI/vxKL2QAAAAMo6v7kt2DSlPeVXUGxIq
+        MgNAkYP4/xG++PgqchEBAABk7ZzVluwakk25T9QbEiqzrEYDeSfqsGXGUHbh2KMAAAD6HH2ErfhQ+xUA
+        ix3G1qLekFCJxgCwvYR/B0AWAACAbotGazsDoMDe4PwCa9L/iHpDQqXEpaRQd6QeRxbxASATAABAl6+W
+        ZLJSl9YBQFkhqg3RkmgMACdXZZALCQAAIOPgrAxWrHH/mduuvC2qDdGSAqs5mbojwzV7pMJOr8EAAAAA
+        +u0s0P4VwEU20yOi2hAtifQAsHycwk6W8QEAAABAn3UTJDYA2o1dRbUhWjIlP7MBdUeGa0uBQi4iAACA
+        rKVvaLwEsFX5afJI46Wi2hAtKbVm/5a8M8N0aIGZXEQAAAAZXy/NYLPytQ0AhXnKRlFriNZEegD4ZgUG
+        AAAA0O/wnAxW4tA4ANiNH4laQ7SmcFjub6g7MxylwxR2dh0/BZBeTAAAAK12FUpsAMwz/UXUGqI1kRwA
+        Pn9XYeUr+AAAAACgz4b/SmwAtJmvELWGaM0Ua+PLqDszHNtn9Wbndwxg57YDAADosLUXW/q2xg2AKn5G
+        m6g1RGsiNwCY2ddbnmA/n3gaAABAlwuHb2YlTqpraiq0Nd0tKg2RyewRqb+m7lBZM19uxc4doBcSAABA
+        xqktV5JdQynMM00VlYbIJFIDwIK3e7ELx+mFBAAAkHFwcSeya2imF0SlITIpsqb9ir5D5aydNoRcRAAA
+        AFkbp2WSXUMzXyMqDZFJpAaAvYvvVhftKQAAAH2O/54tHWsiu4ZSYjU3EZWGyIRfOpG6Q2V9tfExeiEB
+        AABkHLmVlebTXeOvwN70S1FniGwiMQCUDm/Ozu7jC/ckAACALmd3XE12DaUwz1Qq6gyRzQKr+f+oO1XG
+        Z2O6sQvH6IUEAACQ8eXyzmTXUNw2xS7qDJFNJAaAVZMHkYsIAAAga6u7Gdk1Adwi6gyRTemo7P8l7lAp
+        uxbcTi4iAACAlOOPsOXvS2wAdCmZos4Q2UyxtvwldafK2FPamp1e2xYAAECX8xubs1kj6K6pwZp2krGk
+        i0SdIbLROwAUOxR2aLbCvl1mAgAA0OXkCiPZNRS33bRAVBkSTsaO7XQJdcdqVeoys6+X0AsJAAAg4/D8
+        dLJrKG678oqoMiSc6B0AFo02k4sIAAAga1uR9gGgyKbcJ6oMCScLrEn/Q96xGq39EAMAAADod3K5ka34
+        QPshgGKHsbWoMiSc6B0AdkzD8X8AANDv9Cojm/uqtjMACuwNzvP+ElWGhJMpU5J+Qd25WhQ7zOxgKQYA
+        AADQ79RKieP/LyllosaQcKNnACh1KezEInohAQAAZHy5SGoD4NuixpBwY7UmXUzduVoseA3v/gEAIDJ2
+        FstsADQ9ImoMCTd6BoBVH2AAAACACFhuYqsnat8AWPSSsYuoMSTc8KsokXeuBtunZ7Hylc0BAAB0ObM2
+        h81/ne6aGqzKT/x7bESNIeFGzwDw1brr2M8nngAAANDlwtFHPRvLqa7xV5inbBQVhugNdQdr8d3+e8mF
+        BAAAkHF65z1kz1AK7caPRH0hekPdwaHMGmFWF+2xGosIAAAg60jZtWTXUNx209OivhC9oe7gUMo+bEUu
+        IgAAgKytJX3IriE5jP1EfSF6M96q/EzeyUHsnN2LXEQAAABZy8a1JbuGMiU/s4GoL0RvwhkAjq0aQi4i
+        AACAjAvHHmczXBlk1/grtDXdLaoLiUTUO/WC/50cytk9d5ELCQAAIOPMnvvJnqG47cZPRXUhkQg/p5K6
+        owOZ4VLYz8f/RC4kAACAjGOrbiC7huK2mf4pqguJRIqsplPUHR3IsvdzyUUEAACQtWN2P7JraOZrRHUh
+        kUih3bSOvqNpW0u6kYsIAAAga8WE9mTXUNyOjFRRXUgkUmhT3qDu6EDWTunADn0+CAAAQLfS4Zlk19Rg
+        TTsiaguJVIodpj7knQ0AABAj3HbTDFFbSKTi/T4A4xrqDgcAAIgF6gBgE7WFRDJFTmOXIht9pwMAANQ1
+        t8N0tagsJNJRB4A51J0OAABQp6zpR8eO7XSJqCsk0im2G9PH200/knc+AABAHXHbTc+LqkKiFX4nU3c+
+        AABAXXDb07cssJr/T9QUEq1MmZL0C/UOd/svAAAAQK2zpp1055laiYpCoh0+aRXalQJyMQAAAGpBoVU5
+        XvSSsYuoJqS2YrUmXVyUZ/qLugin/RcFAAAgytx8X5qoJKQuUupo0rjIbnqhKE9ZTywQAABAREy1Kyfc
+        NuXDIqe5h6ggJFZSOCz3NwV5xjZuu7k7AABAJBTaTZ1LrelGflE6UTcIgiAIgiAIgiAIgiAIgiAIgiAI
+        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIEtNJSvp/oWVd
+        2TTAdDkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAABEeSURBVGhDrVl3fFZF1r4JpBtAkLKACygIi4sQEH6IIAqW
+        XRU+1lURRBBEemRZqYp0CKEHEoGIQCjSq/SErPQWcIFQkpBIDSWFtLeXZ88zc98k6+/7a8O8OXfunTtz
+        znlmzplz5sZABYvXd3Hp2iGVGx55lgaHkNcFu/ys8tIi7+xmd9XfHOOS/oVyLYIThbY8eDyFwkR6u6UD
+        WTh1V6mkSSR4hYtbao8TTw6A6Kz0lkoBcJsgBACfCcxmkof9qY3q7JXKhXRLNmL3r8K8bYuwMnEFki8d
+        xK3HWcizFquxJdLPLbVGJC0uYSCMKgSAepCpAmEC4DNnVD14PfJHLaWWq6+/umEzSSYztzgXsw7EoWFk
+        W9Qc0RT1v34Jbae8g55xgxC1LxaHM0/gt9wMFFkeCScbHLIkWg4qDoBMlFI+nc1nklc1yB2BcEX40le4
+        DHwW+iXtOF6Z2w1BE59HwPQG8J9SH5UnNELYqKaoNaIF2o1+AxOXjsbxC/tQ5MzTuIWtXW4qDIDLS1LF
+        VIhVKTA+UHcne2mULmXHNC0nruRnYMSWiQiL+hMCVzZF8MpGCF7xHAKWNIFfdBMYk+Q5sgEafdIIkbMG
+        4UzqSTicwpTMxYqeAADatzYRn7Ks9QpIIRICkJWgtXtFqttjk9qOXORj0fkENFvyFp7aEAFj9wswtjVA
+        0LYmCFj/IiqtaA5jfmPUmN4CtT+og5Gzh+Darauw24Q7/0qeGAC6ITWXoie5DIxDbqSmI7OXV7mxVdQv
+        QWLOCby9qz/C1rVGUGIbGEdbwO9IC1RObomQ3W0QnNAS4XERCBxSD236tMKWPQmwecUHnMLNpflWEACV
+        0oqxVjZPpTn9PuJuI212cTy7Mjab9C1BuvsOxp+JQd1tXVHj13dgnG6DoPTXEZDaEX4n2yP0cCdUWdce
+        daZHoEHfplj801w8enQTNkeJYutRV1fFAJANldamQc1NAD7ygRCHpcXT5r1eK4rlt/p2Mjrv/weeOfs3
+        GGlvovLdbgi41x2VM/+CgEsCKOk11F7fFfU+bogZC8biRtq/ZTKswoycXLKGnBBPxQFo8hm6VL8nBUT3
+        o/1bXIVIdd9G/zPL8MLpMah2awD8c3vByO2NygWfIfDexwi50gM1jwiw0U3w2Tef4srpo6K8LKXbCZfb
+        Kuuo15JBseIAZIvkjiLhs1RpVhRAWKoQgJBXWnMl3i7LSkKrk1GonjkdIfkTYDweilCMRUDxUAQ96oca
+        F3vi6ZgOeHF0Z2w+sgNuu3BT27AAkLm3KDOUJhFUMQBKYWFM5eVPPUuh1XB2SFRb96FoG07YstD79HI8
+        lxWLkILFMApnwc86FUGeKQizjkX47YGosbc7qg1qigV7v8edklzFz2UR5/dwuyAXO5zEI/QEAPyOpJQH
+        4PAoJ5AcxoZsET4pfS/apy5FrcJV8Hf9iEDbcoQ6lyLQGY2Q+2PRKPUrVP6uFb6MG4m0+9fFW3T6ofmL
+        r4kPebgVyyOpgiYkxVS6nP6q5hLTjLh92txM51xIKsrA+5dWo8nDBDzlXg/DuwaVXGsR7lmDKvY41P5t
+        Mqov74bWE9/DkavH4HRxu5U8yOTJi8ehHdl8fAIApPhmnAorrkqa3qFYl3jseCDzOPnSHkTcWosqtnUI
+        9P4kwoU86xCOTajycCEan/kOz47ojLVJG5CT90DxISvlsCJEseVFrSqBFMsklAqSol6WIzWCpXyjsurS
+        wnvORxkA6WM6NN/R7ZgqHyi4jL+fiUP9h/Go7EmA4V4DPwHgjw0IscbjhVuLETztr4hcPgUZN65pUcLY
+        Q82lOOSZGQSLSkvElOApgiFxTf1UYOAgBh5qYwYgHyevzKJH8nC9o2sQzMfInsGWteLPvZq2Krc6ffYi
+        EwUYeS0eHbNm44/WOPjZxHmxSmilUCxqFSxEk23D0ebbj5B49RRK7BwlUqkDGSs9yL9sVfVZQQKZQ80R
+        46j0VNoIEQCJU6u04g250XnYW/Iar3qhhqiZUSSMJdTrfpoF7ffngl/RLX0uGj+cgpr2+Qhwx4jiS+Hn
+        jUWwNQqNM6eg9vgumL4lBg8s+Yqf2mVkrBJNZkpDHcQUCOKQdwajIxvVnHIEX5QnAlJ7sG7g4FIjYuUb
+        Q0E0HVGbOTvFEECOXGde3IK2N+agRlEUghzRYjrzBcA8MZ05aHhnOoJj38ObUX1x+rfzogtliVhRWknR
+        YuVepyy0FVNb1cFQpxslXQ/gxBIwW9Qkmwx83FQf3vLCqfK955QpALKisgrc6kqES3L+dXwmUbfJ/RgE
+        OxbAcEbJrM2En2cGqudOwh/3D0bVyPZYdXKT5PqPzVTb1IEXJZBydcalk0etH8lQIdpF4boz7domxKWn
+        n3MmFBO+F45O6ctH/WwSG2iTjMjS4JWAQyDZ4r7fpe1Gh6tLUacwXkxnCSq75yDQNU1M5xvUvBqJsHGv
+        YPiKiUh/kKbGKK2FH1kqOaYw7Xva2H1iKcXQ7i3EQUK+l9oBy7sCmejBxKQACJVlEPQReWsKpDInLBn4
+        a+oPaPBgGcKLl6OSc7GkDHNQzTkVVe+NQPVdH6JJZGccPJcIh11CljJVjhdOkifoW/LSWhEEn9lOHUiy
+        AvqOD7Re7c56AE2BmePtkmxkFmdLHmORn15CuwhjLwLkM8M7/UkxEgkFLgtiMg6h2V3ZNiXahtjjEeaM
+        Rahjmuw641HraB/Uin4No1dNxW+3M2SMKEoAerhSU28UZQAU+dIWksgyfALpyoyWjJk2MaBczyOk27Ow
+        +uIuTD28HDOTV2L/nbPilMXSSyxcxpClAiNkEYNzEYCJ4brtMT4/k4B6xasl2CxFCOJRHUsQWDgedW6N
+        RMOE/0PjYe2xPyVRestk8AuGFGIwcUjhTTnlFUi5JZkLLtuovqd5OEX1PG8OLhRfwpJL69H34BREbB2K
+        F4XarR2GXgkTcOHeZckOLZq3gCAvRgcCZ5rLdvpP/I0LePfyBtR0rBOnXYwAxCHEG42gwrGonfIlwj9v
+        hgUbF6LAVqBOWOXUJFvz8jsAfGaTD4CQwdnjvV1OOvct2Vh6ch16bx6DDlsHo/6m3nh6b1/USByIOtsH
+        onn85/h203zczb8nyytclBDy9MLqLRa+wkkEpNkcGHJhH9rf2Y6qjjWyzHFCs/EUZiEwY7Ac2t9El7Ef
+        4NSZ46XKcyJJ3ETURcUUaqpt32f/SiZBmJgkldCFs7r+xHb8eUkf1N3+OcJ2fIIqif0QntQP1Y4MgiFA
+        au0eiuZRvTEveS2y3Y8lAgt8MhByebV3UO6+OzfQ5cIGNMrdLABWS8Bi4JqGwIIxqH6kD/xHNEfUxjgU
+        FVjUcKpJ5amTUo5ERnJDy2Bs0KT7sFZFBhvs7JK90umwYM3pHWgW10d2h/4wDvaF/4kvEXx2mJxXh8Av
+        dRyCzo3B8wfGo3XcYGxIS8IDew6c/MSnhDlh9ViQ77Fi1rl9aJm+FtUKExDOlNk5F5UckxBw5QvUXvY2
+        Isa8jWPXL+pPRjLyvxRjA9mpSxmA8kBpNbxnmwLAwtP++bzrGLI1Cs/H9kGdY2NgXBgt51U5MT2cDSN7
+        ljqAVLk9H386Pwvv//hPJGdJ3sKkSgmQ46LQqeIb+DBxERrf/QFh9hUIdcXKKsxB8K2v8PS+nqg95CXM
+        3RSDuyWFShEqQfzKdFiU3uVnXvfhhTXHcHvXK8YzsZnicQe658rHwbTjGLBxFlrum4TGN79HUJ7kLG45
+        fEBs2boUod6VeC5/KdocGId+mycjJSdDMaLAPGE7O20nOp6JwrO5sQiwLkSgNRrhORNR/dwXqLbwdbw6
+        /C2kXD2nFKESSitR2pdb6cCijyxM6dSqsPBGXnEM47xOKfhVQsY5ndw6Gaa1ZySJgI/WRqPj2XjULdgs
+        O8gO6bhJpb9Bsp/XsixD47wY1N8xBN8d+gHpD28rhhfsd9Ht1By8dHsunsmZBePBtzByxsH/4peou+1D
+        1PoqAtPWzEHe41ylt7qYAHRR0y8/t2zK+mu2AsBmai57BLv7YhVXXQHgd0vfLLqKilWnPWkX8e7GBYjI
+        3CK2vEVA7DQPH+tlVpdIIjYPje7OxovL+iM+ZQfu2nOx+2EK2pycjAYPZyI44x8IyIqE//UhCE7qhdrR
+        b6DF4NeQ9O/jSgunRTTS+gpRIksZAJ+p/B4Ax2qf0JNd6sRkwRceOf7xZa6tGBtlJTpsmI3W1zeilnWn
+        gNgKQ5zS3yvnWNdi/KEgGo1SvkKLhN5YkfITph37Ac3PfYeqmePxlMx6yImeCDnUA9VW/gXVB7bByKWT
+        cedxXtms+/KQ/6dQcZJ67etv9tWVYiAApFfZbuCBVVIA355721KImHOH8fquJWh5dxtq2LYikMdA/KgS
+        s9CiGQi/GYkaBz9CxMIe6LjyC9Q7I44vgcovsQdCd72DsDVvIHRSW7wc+S52nkhCifldk/x10kdF/vei
+        dyFzIgiAEZU/fQ/clEP0zGMSlPYswkvZmxHOyMrTlHMRQt3zEC6pwdPpQ2DEdkD4po9Q5exwGMk9YWzs
+        grD1XREa1xF+Axtj+OJxyCnI1foqDHRUp8itKADRnBsArYpMdcoqOb0cnJmTENgVcboxyXIoOSRHv7x1
+        CHGuEFOKldVYhADbRAQ/GAHj6MeofKQ3jEN/k6D3PoyVryLs+054ZkYH1B/UFtuO74bHoSM1ibIoifwr
+        UtRXCTLh9xuHi3OunUM1kkQmV/yyzN6wvSvR7sRCNMtfJY4s6YFHTlbOiRInhiLgaj8YR7rD2NUJxvbO
+        MH58FVXndEDNAX/GgOgRyLyfBbeZttP0NRJTTgWK4Ztlkof/DvJ9JiR/ErU3zfbk/Rvo9fMivHI+BvVy
+        lyFIzMhPImylolHwT/8Mxon3YBzuAuOndgiM74iak15Bww9aYFvydjwWf1JFBHl5BqFg8/BSkWL4Dg6a
+        TznG5ncMtlvMAyqPiPuzUtB7zwK0S/se9fJjEFo8BcHFX6NSVh8Yv3YTU+oKY93LqLqwI/4wrDV6TeiP
+        DMn3fVuDmhQGTyXnCawAx7sl8nnUugq5RVkCoDR5aRcH4V7hK/ywuuHav9Bx60REXJuLhsXzJFp/jcDs
+        ATBSe6jP4uE7u6LhojdR99NWWPHzWuTlFyh2VpqQsFYPlKPQVKyUfZkjEjUbJhDzmWIIgDWbuHc8cBcg
+        4cYv6Lx9gkTdaNQumQbjjiSAmZ/A+OUtVNnUFfWndkKnMT1wKvOi/p8W2dLFlM6yw8kZ2pyjChW1AuWZ
+        cFvzbW1spxCnrJDuo8Fxp8osvIdlV/ag1c+j0OzmFFTLl+Qv41NUOtod9TZ3R/3hL2OGRPKbhTl6LGeA
+        ANStxBvF5QkA0FsnqWyWfYqrleaz3mflQXqKo2uALtyy3kf0EdmZNg3B89lTECRBLfTYp3h2RTe06d8R
+        KZdO/hdf8mPOpE7PpZNSsWIwB9KkBbGQMc2GE6ba2ECnE1L/6icA8RmmHY8s9zA5MQ4tEkehaeq3eCF5
+        OEJGyeyvjkL+w3tqLFMdjvIBYKb5ZNQvB8CnPHUjbwrTUUFEMdfgtyMS5ZYSgThwIy8TY/fF4N01/8Tb
+        qyPR5psPcODyLzKSkVaGyU5HhfWVGZnmo06MFSzKhHw2T6bqVmry1qtiAnDKE1eBfXyFfZlVSs/U7HTM
+        2bYc34jdxx/fjkt30syxWm3eqxSY+Q+Bl5NVkSK7ELkIUWNzRliV8qUwea8zF+14fK92XbMTK4sEwFsF
+        OTh/Mx13ivK03/CfWMrWXeq8of+zJcTBPnmlgv63ogGQocmb/HirCh8486IEDzsWIZqVSsFM4aysLn1y
+        ItmFFYf4+CnHlxFFMrJEmY80Ms7wuz8HVAgA8B8tIxj3WWjK0gAAAABJRU5ErkJggg==
 </value>
   </data>
 </root>

DPM2016/Behandlung/Benhandungdetail.vb

@@ -32,6 +32,8 @@
                 If Globals.Applicationtype = ApplicationTypes.Projektabrechnung And Me.lblProjekt.Visible = False And GrpPatient.Height < 100 Then
                     GrpGaramt.Visible = False
                     grpglndiagnose.Visible = False
+                    GrpDateien.Visible = True
+
                     grpBehandlungsdaten.Text = "Projektdaten"
                     lblRGStellung.Text = "Anfrage vom"
                     Label2.Text = "Offert-Betrag"
@@ -41,6 +43,7 @@
                     GrpRechnungstext.Left = grpEmpfaenger.Left
                     GrpRechnungstext.Top = grpEmpfaenger.Top + grpEmpfaenger.Height
 
+
                     GrpPatient.Text = "Verantwortung / Rechnungsart"
                     Me.grpZusammenfassugn.Top = grpZusammenfassugn.Top + 20
                     Me.GrpRaten.Top = GrpRaten.Top + 20
@@ -57,9 +60,39 @@
                     Me.chkAndrucken_Taxpunkte.Text = "Betrag andrucken"
                     Me.grpEmpfaenger.Visible = False
                     Me.GrpRechnungstext.Top = Me.grpEmpfaenger.Top
+                    GrpDateien.Top = GrpRechnungstext.Top + GrpRechnungstext.Height
+                    GrpDateien.Left = GrpRechnungstext.Left
+                    GrpDateien.Width = GrpRechnungstext.Width
+                    Me.txtAnsprechpartner.Visible = True
+                    Me.lblansprechperson.Visible = True
+                    Me.lblunserereferenz.Visible = True
+                    Me.txtunserereferenz.Visible = True
+
                     If db.Get_Option(8000) = "True" Then
                         Me.GrpGaramt.Visible = False
                     End If
+                    lblRechnungstyp.Visible = False
+                    lblAbrechnungstyp.Visible = False
+                    lblAnsatz.Visible = False
+                    lblFrankenwert.Visible = False
+                    lblTaxpunkte.Visible = False
+                    cbboxNRRGtyp.Visible = False
+                    cbboxNrAbrechnungstyp.Visible = False
+                    cbboxNrAnsatz.Visible = False
+                    mtxtTaxpunktwert.Visible = False
+                    cbboxNrtaxpunkt.Visible = False
+                    lblRabattwert.Top = lblRechnungstyp.Top
+                    chkRabattGesamt.Top = lblRechnungstyp.Top
+                    mtxtRabatt.Top = lblRechnungstyp.Top
+                    chkRabattGesamt.Top = lblAbrechnungstyp.Top
+                    chkMitdatum.Top = lblAnsatz.Top
+                    chkAndrucken_Taxpunkte.Top = chkRabattGesamt.Top
+                    grpAbrechnung.Height = GrpPatient.Height
+                    grpAbrechnung.Width = GrpRechnungstext.Width
+                    GrpRechnungstext.Top = grpBehandlungsdaten.Top
+                    GrpRechnungstext.Height = GrpRechnungstext.Height * 2
+                    chkOhneMwst.Visible = True
+                    chkOhneMwst.Top = chkMitdatum.Top
                 End If
 
             End If
@@ -265,6 +298,7 @@
         End Try
 
 
+
         Get_Data_Controls(Me, r)
         Update_cbboxnrtaxpunkt()
         Try
@@ -300,7 +334,18 @@
             If r("nrgarant") > 0 Then check_mailversand(r("nrgarant")) Else check_mailversand(r("nrpatient"))
         Catch
         End Try
-
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Try
+                Me.txtAnsprechpartner.Text = Me.txtGLN_Liste.Text
+                Me.txtunserereferenz.Text = Me.txtFallnummer.Text
+                Me.chkOhneMwst.Checked = Me.txtDiagnose.Text.ToString = "True"
+            Catch ex As Exception
+                Me.txtAnsprechpartner.Text = ""
+                Me.txtunserereferenz.Text = ""
+                Me.chkOhneMwst.Checked = False
+            End Try
+        End If
+        chk_dateien()
         AddChanges(Me)
         Me.HasChanges = False
     End Sub
@@ -315,6 +360,7 @@
             db.Get_Tabledata("privat", " where nrprivat=" + key.ToString)
         End If
         If db.dsDaten.Tables(0).Rows(0).Item("Mail_Kommunikation") = True Then Me.lblMailKommunikaton.Visible = True
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then Me.lblMailKommunikaton.Visible = False
     End Sub
     Sub Get_Data_Controls(ByVal ictl As Control, ByRef R As DataRow)
         For Each ctl As Control In ictl.Controls
@@ -473,6 +519,9 @@
         If Globals.OnLoad = True Then Exit Sub
         If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
             Me.txtBehandlungsgrund.Text = Me.txtProjekt.Text
+            Me.txtGLN_Liste.Text = Me.txtAnsprechpartner.Text
+            Me.txtFallnummer.Text = Me.txtunserereferenz.Text
+            Me.txtDiagnose.Text = Me.chkOhneMwst.Checked
         End If
 
         If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
@@ -490,6 +539,7 @@
 
         db.Update_Data()
 
+
         Me.HasChanges = False
 
     End Sub
@@ -542,7 +592,17 @@
     End Sub
 #End Region
 
+    Public Sub chk_dateien()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Dim db As New clsDB
+            Me.lstdateien.Items.Clear()
 
+            db.Get_Tabledata("Dateien", "", "Select * from Behandlungsdateien where nrbehandlung=" & Me.Behandlungsnr.ToString, "")
+            For Each r In db.dsDaten.Tables(0).Rows
+                Me.lstdateien.Items.Add(r("dateiverweis"))
+            Next
+        End If
+    End Sub
     Public Sub Get_Stammdaten()
         'Me.OnLoad = True
 
@@ -641,15 +701,29 @@
         Dim ssototal As Double
 
         Dim ldb As New clsDB
-        ldb.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            ldb.Get_Tabledata("View_Leistungen", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+
+        Else
+            ldb.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+
+        End If
         Dim total As Double
         For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
-            If r("aktiv") = True Then
-                If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then ssototal = ssototal + r("total")
-                If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then ssototal = ssototal + r("total")
-                'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If r("rabatt") = True Then
+                    ssototal = ssototal + r("total")
+                End If
                 total = total + r("Total")
+            Else
+                If r("aktiv") = True Then
+                    If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then ssototal = ssototal + r("total")
+                    If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then ssototal = ssototal + r("total")
+                    'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                    total = total + r("Total")
+                End If
             End If
+
         Next
         Me.txtcBehandlungstotal.Text = total.ToString("N2")
         total = 0
@@ -676,13 +750,24 @@
                     total = stotal - (ssototal / 100 * Me.mtxtRabatt.Text)
                 Else
                     Dim xldb As New clsDB
-                    xldb.Get_Tabledata("Leistung", "where absolut=0 and nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                        xldb.Get_Tabledata("View_Leistungen", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    Else
+                        xldb.Get_Tabledata("Leistung", "where absolut=0 and nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    End If
 
                     For Each r As DataRow In xldb.dsDaten.Tables(0).Rows
-                        If r("aktiv") = True Then
-                            If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then xxtotal = xxtotal + r("total")
-                            If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then xxtotal = xxtotal + r("total")
-                            'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                            If r("rabatt") = True Then
+                                xxtotal = xxtotal + r("total")
+                            End If
+                        Else
+                            If r("aktiv") = True Then
+                                If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then xxtotal = xxtotal + r("total")
+                                If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then xxtotal = xxtotal + r("total")
+                                'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                            End If
+
                         End If
                     Next
                     xldb.Dispose()
@@ -690,7 +775,7 @@
                 total = stotal - (xxtotal / 100 * Me.mtxtRabatt.Text)
 
             End If
-                Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
+            Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
             Me.txtcRabatt.Text = Globals.Round5(Me.txtcRabatt.Text)
         Catch ex As Exception
             total = 0
@@ -1076,6 +1161,26 @@
                 evh.Refresh_Behandlungen(Me.Behandlungsnr, Me.Patientnr)
                 Exit Sub
             End If
+
+            Dim pdfitem As clspdfcollectionitem = Globals.pdfCollection.Item(1)
+            Dim xdb As New clsDB
+            xdb.Get_Tabledata("Dateien", "", "Select * from behandlungsdateien where nrbehandlung=" + Me.Behandlungsnr.ToString)
+            If xdb.dsDaten.Tables(0).Rows.Count > 0 Then
+
+                Dim tmpcollection As New Collection
+                For i = 1 To Globals.pdfCollection.Count
+                    tmpcollection.Add(Globals.pdfCollection(i))
+                Next
+                Globals.pdfCollection.Clear()
+                For Each r As DataRow In xdb.dsDaten.Tables(0).Rows
+                    Globals.pdfCollection.Add(New clspdfcollectionitem(pdfitem.fakturanr, r("Dateiverweis")))
+                Next
+                For i = 1 To tmpcollection.Count
+                    Globals.pdfCollection.Add(tmpcollection.Item(i))
+                Next
+            End If
+
+
             Dim pdfh As New clspdfhelper
             If result = 5 Then
                 pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromOfferte, "", "Kostenvoranschlag:", Me.Behandlungsnr)
@@ -1173,8 +1278,11 @@
     Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged
         Dim db1 As New clsDB
         Try
-            db1.Get_Tabledata("GLN", "", "Select gln from privat where nrprivat=" + Me.cbboxnrbehandler.SelectedValue)
-            Me.txtGLN_Liste.Text = "1/" + db1.dsDaten.Tables(0).Rows(0).Item(0)
+            If Globals.Applicationtype <> ApplicationTypes.Projektabrechnung Then
+                db1.Get_Tabledata("GLN", "", "Select gln from privat where nrprivat=" + Me.cbboxnrbehandler.SelectedValue)
+                Me.txtGLN_Liste.Text = "1/" + db1.dsDaten.Tables(0).Rows(0).Item(0)
+            End If
+
         Catch
         Finally
             db1.Dispose()
@@ -1512,4 +1620,41 @@
 
     End Function
 
+    Private Sub ToolStripButton1_Click_2(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Dim f As New OpenFileDialog
+        If f.ShowDialog = DialogResult.OK Then
+            If System.IO.File.Exists(f.FileName) Then
+                Me.lstdateien.Items.Add(f.FileName)
+                Dim sql As String
+                sql = "Insert behandlungsdateien (nrbehandlung,dateiverweis,mutierer) values(" + Me.Behandlungsnr.ToString + ",'" + f.FileName + "'," + Globals.ActUser.ToString + ")"
+
+                Dim dbdatei As New clsDB
+                dbdatei.Exec_SQL(sql)
+            Else
+                MsgBox("Die Datei " + f.FileName + " ist nicht vorhanden.", vbExclamation)
+            End If
+        End If
+    End Sub
+
+
+
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        Try
+            Dim dbdatei As New clsDB
+            dbdatei.Exec_SQL("Delete from Behandlungsdateien where nrbehandlung=" + Me.Behandlungsnr.ToString + " and dateiverweis='" + Me.lstdateien.SelectedItem + "'")
+            Me.lstdateien.Items.Remove(Me.lstdateien.SelectedItem)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        For Each i As String In Me.lstdateien.Items
+            If System.IO.File.Exists(i) Then
+            Else
+                MsgBox("Die Datei " + i + " ist nicht vorhanden!")
+            End If
+        Next
+    End Sub
 End Class

DPM2016/DPM2016.vbproj

@@ -518,6 +518,12 @@
     <Compile Include="Patient\PatientDetails.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="Patient\subclasses\PatientDetailsFirma.Designer.vb">
+      <DependentUpon>PatientDetailsFirma.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Patient\subclasses\PatientDetailsFirma.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Program.vb" />
     <Compile Include="Recall\Recall.Designer.vb">
       <DependentUpon>Recall.vb</DependentUpon>
@@ -774,6 +780,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="Dokumente\DokumentDetail.resx">
       <DependentUpon>DokumentDetail.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="Dokumente\frmDokumentList.resx">
       <DependentUpon>frmDokumentList.vb</DependentUpon>
@@ -828,6 +835,9 @@
     <EmbeddedResource Include="Patient\PatientDetails.resx">
       <DependentUpon>PatientDetails.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Patient\subclasses\PatientDetailsFirma.resx">
+      <DependentUpon>PatientDetailsFirma.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Recall\Recall.resx">
       <DependentUpon>Recall.vb</DependentUpon>
     </EmbeddedResource>

DPM2016/Klassen/clsStammdaten_flat.Designer.vb

@@ -88,13 +88,14 @@ Partial Class clsStammdaten_flat
         Me.c1daten.FilterBar = True
         Me.c1daten.GroupByCaption = "Drag a column header here to group by that column"
         Me.c1daten.Images.Add(CType(resources.GetObject("c1daten.Images"), System.Drawing.Image))
-        Me.c1daten.Location = New System.Drawing.Point(0, 25)
+        Me.c1daten.Location = New System.Drawing.Point(0, 31)
+        Me.c1daten.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.c1daten.Name = "c1daten"
         Me.c1daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
         Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.c1daten.Size = New System.Drawing.Size(758, 376)
+        Me.c1daten.Size = New System.Drawing.Size(1011, 463)
         Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
         Me.c1daten.TabIndex = 0
         Me.c1daten.Text = "C1TrueDBGrid1"
@@ -103,10 +104,11 @@ Partial Class clsStammdaten_flat
         'ToolStrip1
         '
         Me.ToolStrip1.AllowDrop = True
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6, Me.ToolStripButton7, Me.tsnewdentotar})
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(758, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1011, 31)
         Me.ToolStrip1.TabIndex = 13
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -116,7 +118,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
         Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton5.Name = "ToolStripButton5"
-        Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton5.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton5.Text = "ToolStripButton5"
         '
         'ToolStripButton1
@@ -125,7 +127,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
         Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton1.Text = "Neues Dokument"
         Me.ToolStripButton1.Visible = False
         '
@@ -135,7 +137,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
         Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
         Me.ToolStripButton4.Visible = False
         '
@@ -145,7 +147,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton2.Text = "Dokument löschen"
         Me.ToolStripButton2.Visible = False
         '
@@ -155,7 +157,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton3.Text = "Dokument anzeigen"
         Me.ToolStripButton3.Visible = False
         '
@@ -165,8 +167,8 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
         Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton6.Name = "ToolStripButton6"
-        Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
-        Me.ToolStripButton6.Text = "ToolStripButton6"
+        Me.ToolStripButton6.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton6.Text = "Daten speichern"
         '
         'ToolStripButton7
         '
@@ -174,7 +176,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
         Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton7.Name = "ToolStripButton7"
-        Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton7.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton7.Text = "ToolStripButton7"
         Me.ToolStripButton7.Visible = False
         '
@@ -184,7 +186,7 @@ Partial Class clsStammdaten_flat
         Me.tsnewdentotar.Image = CType(resources.GetObject("tsnewdentotar.Image"), System.Drawing.Image)
         Me.tsnewdentotar.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsnewdentotar.Name = "tsnewdentotar"
-        Me.tsnewdentotar.Size = New System.Drawing.Size(23, 22)
+        Me.tsnewdentotar.Size = New System.Drawing.Size(29, 28)
         Me.tsnewdentotar.Text = "Neuer Dentotar-Eintrag"
         Me.tsnewdentotar.Visible = False
         '
@@ -203,7 +205,8 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown1.HeadingStyle = Style4
         Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
         Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70)
+        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(21, 86)
+        Me.C1TrueDBDropdown1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
         Me.C1TrueDBDropdown1.OddRowStyle = Style6
         Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
@@ -211,7 +214,7 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
         Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
         Me.C1TrueDBDropdown1.ScrollTips = False
-        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150)
+        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(286, 184)
         Me.C1TrueDBDropdown1.Style = Style8
         Me.C1TrueDBDropdown1.TabIndex = 14
         Me.C1TrueDBDropdown1.Visible = False
@@ -232,7 +235,8 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown2.HeadingStyle = Style12
         Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
         Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153)
+        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(252, 188)
+        Me.C1TrueDBDropdown2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
         Me.C1TrueDBDropdown2.OddRowStyle = Style14
         Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
@@ -240,7 +244,7 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
         Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
         Me.C1TrueDBDropdown2.ScrollTips = False
-        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150)
+        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(310, 184)
         Me.C1TrueDBDropdown2.Style = Style16
         Me.C1TrueDBDropdown2.TabIndex = 15
         Me.C1TrueDBDropdown2.Visible = False
@@ -248,97 +252,104 @@ Partial Class clsStammdaten_flat
         '
         'ContextMenuStrip1
         '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem, Me.PasswortÄndernToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(241, 52)
         '
         'NeuerBenutzerEröffnenToolStripMenuItem
         '
         Me.NeuerBenutzerEröffnenToolStripMenuItem.Name = "NeuerBenutzerEröffnenToolStripMenuItem"
-        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
+        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
         Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen"
         '
         'PasswortÄndernToolStripMenuItem
         '
         Me.PasswortÄndernToolStripMenuItem.Name = "PasswortÄndernToolStripMenuItem"
-        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
+        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
         Me.PasswortÄndernToolStripMenuItem.Text = "Passwort ändern"
         '
         'ctxMenuTarif
         '
+        Me.ctxMenuTarif.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxMenuTarif.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem, Me.NeuerTarifeintragErstellenToolStripMenuItem})
         Me.ctxMenuTarif.Name = "ctxMenuTarif"
-        Me.ctxMenuTarif.Size = New System.Drawing.Size(216, 48)
+        Me.ctxMenuTarif.Size = New System.Drawing.Size(258, 52)
         '
         'TarifBearbeitenToolStripMenuItem
         '
         Me.TarifBearbeitenToolStripMenuItem.Name = "TarifBearbeitenToolStripMenuItem"
-        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
         Me.TarifBearbeitenToolStripMenuItem.Text = "Tarif bearbeiten"
         '
         'NeuerTarifeintragErstellenToolStripMenuItem
         '
         Me.NeuerTarifeintragErstellenToolStripMenuItem.Name = "NeuerTarifeintragErstellenToolStripMenuItem"
-        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
         Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Tarifeintrag erstellen"
         '
         'ctxmenuDentotar
         '
+        Me.ctxmenuDentotar.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxmenuDentotar.Name = "ctxmenuDentotar"
         Me.ctxmenuDentotar.Size = New System.Drawing.Size(61, 4)
         '
         'ContextMenuStrip2
         '
+        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem1})
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(156, 26)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(183, 28)
         '
         'TarifBearbeitenToolStripMenuItem1
         '
         Me.TarifBearbeitenToolStripMenuItem1.Name = "TarifBearbeitenToolStripMenuItem1"
-        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
+        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(182, 24)
         Me.TarifBearbeitenToolStripMenuItem1.Text = "Tarif bearbeiten"
         '
         'ctxMenuMailtext
         '
+        Me.ctxMenuMailtext.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxMenuMailtext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MailTexteBearbeitenToolStripMenuItem})
         Me.ctxMenuMailtext.Name = "ctxMenuMailtext"
-        Me.ctxMenuMailtext.Size = New System.Drawing.Size(189, 26)
+        Me.ctxMenuMailtext.Size = New System.Drawing.Size(225, 28)
         '
         'MailTexteBearbeitenToolStripMenuItem
         '
         Me.MailTexteBearbeitenToolStripMenuItem.Name = "MailTexteBearbeitenToolStripMenuItem"
-        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
+        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(224, 24)
         Me.MailTexteBearbeitenToolStripMenuItem.Text = "Mail-Texte bearbeiten"
         '
         'ctxmenureporting
         '
+        Me.ctxmenureporting.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxmenureporting.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SQLBearbeitenToolStripMenuItem, Me.ReportBearbeitenToolStripMenuItem})
         Me.ctxmenureporting.Name = "ctxmenureporting"
-        Me.ctxmenureporting.Size = New System.Drawing.Size(169, 48)
+        Me.ctxmenureporting.Size = New System.Drawing.Size(200, 52)
         '
         'SQLBearbeitenToolStripMenuItem
         '
         Me.SQLBearbeitenToolStripMenuItem.Name = "SQLBearbeitenToolStripMenuItem"
-        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
+        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
         Me.SQLBearbeitenToolStripMenuItem.Text = "SQL bearbeiten"
         '
         'ReportBearbeitenToolStripMenuItem
         '
         Me.ReportBearbeitenToolStripMenuItem.Name = "ReportBearbeitenToolStripMenuItem"
-        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
+        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
         Me.ReportBearbeitenToolStripMenuItem.Text = "Report bearbeiten"
         '
         'clsStammdaten_flat
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.C1TrueDBDropdown2)
         Me.Controls.Add(Me.C1TrueDBDropdown1)
         Me.Controls.Add(Me.c1daten)
         Me.Controls.Add(Me.ToolStrip1)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "clsStammdaten_flat"
-        Me.Size = New System.Drawing.Size(758, 401)
+        Me.Size = New System.Drawing.Size(1011, 494)
         CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()

DPM2016/Klassen/clsStammdaten_flat.resx

@@ -121,7 +121,7 @@
   <data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -155,7 +155,7 @@
 </value>
   </data>
   <data name="c1daten.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 756, 374&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1009, 461&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1009, 461&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>163, 17</value>
@@ -163,25 +163,25 @@
   <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYW/UDc5jaP
-        Z2durrbOOdtOunJmVJQFWdkPS9P8GVqRw1QqikqtjLKsVDQylLKQcolFhBdJFEF0UfDpqLHYpT3wgfd5
-        4f3wfp/3Ff9TXyYGgh/fj/5q25fO3635ulqa3dVxLJuuslmkJJ3HJa4dtvMkvpuZ8R4+j93h+7t+Lh+w
-        pgo6S2VWrbGzep2NNRv+kbbOykrLen4kekh0HWGkyc/XRB9XDzlSBR0lMulWJza7hN3hSmLNdJK23sbb
-        tggjF3SGzwaZeX2fG0ezUgWOeoFUsYgsuw/JpSBluZEkGZdLZoNVYrzVYPh8iKeNQaZHOuei/j0qhO2U
-        IDHdjtOUZGdouJ0BFMmPInuR3R4yHG5excMMNen012/m/eAV7pYr8wJbhWDsQzOt/YL0coG9RuA8I5BL
-        luJVgnhy/GRm+xi9oNHfoPPj3nLe9LZwv9KLcFUJnk2VEx8SNA+a68l8nk9FePEpPCfZ6AmTmxtE8gR4
-        flblcZ3Gz54VvL7bRG+Nf17wKFFMfFQQHxG0vBK0jgtefovgaBAEc/PZFAjhztUYagzQWxukudjJi85T
-        9NUH5iJY7GaE7jdbaU8IMmYjnBY46gQ5h5ehq1FU3cAXNBio9/OgeiM3jyk8u1LKYKOaHKIls1LQNenD
-        WSswAnswtCKMcAGGESVi5BEIRXlc4+VelY/uCi8DF/cyfC6U8owWp3llpWoxUWMn0fxC8qMFc+SZaFti
-        PKzy0F2ew60THnqaYow2R1IEoq1oLdsKiyiM7aJw+44kMZO8gp08qJS5fVKho8zN7eoQYy15CF3X0bUQ
-        mhZGVWcx16pm9moS1ew3bdbZHwtwqVQxf6DM9eM5jLdvnR/iQinR0w7UHUz7PXEplhphAbXEZJUQwvIH
-        SUTCca7PpSkAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLfS1NhGMdfCPoDuummi+i6K0cW/UDc5jaP
+        Z2duTrfOOdtOunJmVPQLsrKy0rQ0DbXIYSolRqVWhllmKRoZSllItaIfEF0UUQTSRcGno8Zil/XAB97n
+        hffD+33eV/xPfXk5Enz/dvJn++4M/mzNV1d5Tm/34Rx6j8wiJempkLh0wM69+HY+Tw/waeoG318Nc3Gv
+        NVXQUy6TtsrOyjU2Vq37S/oaK8sta5lJDJDoPchEk5+vift07XekCrrLZDKsTmx2CbvDlcSa5SR9rY0X
+        7REmzumMNwf5/OwWVw5lpwoc9QKpagHZdh+SS0HKdiNJMi6XzDqrxHSbwfjZEA8ag3yc6JmL+ueoELbj
+        gsTHDpymJCdTw+0MoEh+FNmL7PaQ6XDzNB5mrElnuH49b0c7uVmpzAtsVYKpdy20DQsyKgX2WoHztEAu
+        W4xXCeLJ9ZOV42PynMZwg85M/1KeD7Zyq9qLcNUIHr6pJD4maBk116+LePQmwuMP4TlJvidMXl4QyRPg
+        UbPK0CmNHwPLeHazicFa/7zgbmIX8UlBfELQ+lTQNi148i2Co0EQzCuiIBDCnacx1hhgsC5Iyy4nj3uO
+        c78+MBfBYjcj9D3fSEdCkDkb4YTAcUqQe2AJuhpF1Q18QYORej+3T+Zz9bDCw85yRhvV5BAtWdWC3tc+
+        nHUCI7ADQyvFCBdjGFEiRiGBUJShWi/9NT76qryMnN/J+JlQyjNanOaVlZqFRI2tRItKKIoWz1Foom2I
+        cafGQ19lLteOehhoijHZEkkRiPbS1WwqKaUkto2SzVuSxEwKi7dyu1rm+jGF7iNurp8MMdVaiNB1HV0L
+        oWlhVHUWc61qZq8mUc2+YL3OnliAC+WK+QNlLlfkMt2xcX6I/0qZnr63bt+KXy8vxFIj/EMtMkkTQlh+
+        A0Tdwm7N1lqbAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -196,22 +196,22 @@
   <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pdyuFRWVeJF1Z
-        0AeGKckIIpBGdzaU8KIomKNFF3YR9AF2MWrfbdb2vltzutW2YnUTghaSb2uE09rbZm5zF23k/j2D57Jt
-        9oM/53nO+Z9znofZCH6W5d62tV2n1/9juqfnwT2Ggb6uDgGZ7OMbubyelqpTnH/UORcT4L55G3fJkHGJ
-        BM8bGzHDst3UUpnfs9eS6ckOJITHiC6IGN/N4n5NDXip9Aa1lGc9qjP88p9GgmvFkpnBsv8EhB9JvFQP
-        faOW8hRjulPpkBIJt4IMkGFpQoqktx3f7ZsQm33WSm3/RvCqN4vBy3mRbE5NHUPcsQ0rU11kkBx//BI1
-        tZVnfW44IHoUWJk+SV6wn2zuQNJ3FFnvjgi1lKcoXFWlvJ346TmE1aASIvnC6us+BO/sK36y19dSW3kK
-        8w/joqcdufdXkJw8gkzoAlJkezG09xy1VCb/+QnSCy6kZ24h86qXbD+LQujwBC1XZmzsogSiC9kvL7C2
-        GEQuHkAu0r1Gy9Vpbt6pON/XhcxXN/JiBChE7dnlD9tpuTpNLS1ntmytxa6GBj61+K6JpjdGOBzeo9Fo
-        RrVarc5gNiv1+qcDFotl0Ol0jpTkcrkGiVREl3ie7+c47rjP55PTdoZxOBwHrFZrL2kaMBqNQyaTaYTE
-        URI1JdFzKTdMpDIYDP02m+0gwzDMXzlsJDwlht2TAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        +sAwJRlBBNLozoYSXhQFc7S6sYugD7CLUftus/bu3ZrTLbclq5sQtJBca4TT3OtmbnMXbeT77xk8l22z
+        H/w5z3PO/5zzPMxW8EkkzumWltv0+n9MdnU9ecQw0NXUwC+Vfn4vk9XSUmWE+Wftc7EIXHfv4yEZMioS
+        4XV9PWYkkk5qKc/v2VvJ9HgbEpHniC7wGN0vweOqKnBi8R1qKc1mVKv/5TuPhLMZSyYGy74ziKwk8VY1
+        8INaSiPEtOfSQQUSLjkZIMXSmBhJTyt+2rYhNvuqmdr+TcSj2s4Hrud5sjk1cQpx+y6sTXSQQTL88YlU
+        1FaazblBP++WY23yLHnBYbK5DUnvSWQ9e8LUUhohclOZ8rRj1X0M6wEFePKF9akeTD04JHyx1VZTW2kK
+        80/jvLsVuY83kBw/gUzwClJkuxA8eIlaypP/+gLpBRbpmXvIvOsm2y+iEDw+RsvlGRm5KgLPIvvtDTYW
+        A8jF/ciFOzdouTKNjXvll3s6kPnuQp4PA4WoLbv8aTctV6ahqenCjp3V2FdXx6UWPzTQ9NYIhUIH1Gr1
+        sEaj0epNJoVO97LPbDb3OxyOoaJYlu0nUhJd4ziu1+l0nvZ6vTLazjB2u/2IxWLpJk19BoNhwGg0DpE4
+        TKK6KHou5gaJlHq9vtdqtR5lGIb5CzWnJDp5jKIWAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -227,7 +227,7 @@
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
         dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
         vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
         809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -243,197 +243,197 @@
   <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsTSURBVHhe7Z0HnBRV1vZX3V19P/d79zWRJDMMGQZmgCEO
-        mQFJIohIjpIzDCBZAfPqmnZd1zWLgQwiSBJBVHZ9BSWjIlGCgAhK9H7nuVWn+tTt2zPVARf2m/vjT/d0
-        V9+uPs9zzw1V1f2b3JJbcktuyS25JbfkltySW3JLbsktuSW35BZZOnTo0OWOtnfs7dmz5y+DBw9WQ4cO
-        VcOGDVPDhw9XI0aMUCNHjlSjRo1SY0aPVlljxqisrCw1duxYNY4YNXKU6t+vn3rtjTfVK7PeUa+9OVu9
-        8fY8NXfeIjVv/rtq/sIlauHipWrxu8vUu0uWqyVLV6j33l+lli3/QL2/Yo1avupDzYpVa/2sXqtWrl6n
-        WfWB5CO1ag2zXq0GH65XH6z9WK1Z+0mIdZ+qDz+SbFBr129w7q/DNh/Ta5zXrqa6VlLdeM8Vq2l/Vq6h
-        fcP+rVZL31+pWbJsBe37cvXue++rxUuW0edZqhYtfk8tXLRELVhIn3PBYvq8C9VcYs68BWrO3Plq9py5
-        6p3Zc9Tb78xWr896S73y2iz10quvqxdfeln17dNHx3gMxXM0xRXxHUVxRqxHUswRd8R/OG0zjPSAJkOH
-        DFFDhgz5ZfjAgQd6dOvR15UvvjKw38BuQ0j0xYsXq5dpx0aToEEZM2q0euShh1Xrlq3U7n2H1Cebdnhs
-        3bmH+NbHlh2xYdbj1L1HbWN27Q3x1V613WOfZsfXfnYy3+z32MXs3q++knwLDmi+Fnwj2L0nxLdgr8G+
-        A2rj1q/U5wRu9393RLVu1Uo9MGOmNa7ZMXnSZLVl8xa1csVKNX7s+EGujLGXgf0H7Ltv6jS1bds29eas
-        N1X/e/pFxdgxWaphg4bq0PHTase+Yx5Hjv+sDpscY34KgLutpZ4jx8+oIyf8HP3hrI/vwUk/x06ec/jR
-        4bjk1Dl1QvADOH1ec5L5yeFHwamfwQXNaXDG4Sfm7AX1M/HtoR/UHnD4B3q/n1Wjho3UiOEjrDHNifFj
-        x6lRI0aq55577qArY+xlQL/+F/r1vUcxfXr1Vh3a3+mjS6fO3vMmjgEakDB+A5iCHD1xNky0oOC1YfW5
-        2IR2xM5BcEIKbopuCh8uejDhfz57UQPhGc8Aw4ZbYxqUx//0+EWS8CpHyRjLPX36+iqtVrWaSklJUalV
-        UlVaairdVlHlypZVd93ZwbcdkzV6jGOAE6fVzv3HPGyieLBwOWF7rYFPaCF2EMFzEj3q1m4R/sw5B2mA
-        E9oADeM2wMMPPqRIwvgNIKlSuYrKqFtXNW7USDVt0kSLC1O0adXatx0DAzSoH24ATwgpTiLgel1MkT0M
-        oXMUHBiCh0QP2tod4c8I4cFZYYC9MMApMgB1mxjg2WIalAcfeAAGiK+YlVZNS9N9equWLdXtbdqoZpmZ
-        qkZ6DdWmdRvfdgxmBjDAETLALmEAqygJxiawxBTbJnjMotuEN0TXnL+ozhEQXnPEMQBiPHxofAZ4YOYl
-        MEB69erU8puquzrcpbp06ULCt1Z1atfWZjC3BaYBGJsgiUYLDFxxTYKIHVHwoKLbhCfBWXjNhV+08Ezi
-        DDAzfgP07d1HSerWqasGDxqs5/iTJkykOelI1bVrV3U7ZQBzWzCapoIN6tUnA/ykvjpwXLOLYBE2fX34
-        kvFFNHzj8OU3RwKxmdltZ4uFrd9KjmrOk/ggzADUaIYNGWqNaVBmzpiReAPUy6inOtOof+jgIVpcOK19
-        u3Y5G+CHkAEAt7jPdn53yfjfnNjFHPLxeQA22vgqMpsYMpsE4l+4GDLAvkQaYHoCDIBpnwSDwLZt22rh
-        B/Tvr3r26KkHhegKzG0BFifqk2lMA3B6tQqTCDxxGb/IQYVmohUcRBIdcOaB+BcJCO9wkrqtM9Rt1teN
-        zBbToMy4f3riDZBSsZK6rXlz1enuTqpr5y6qI40F0qun61mAuS1gAxwlA3xNwjPcn9qEiRebgNEQi9jA
-        ExwIsU3RJRd/IQMQEJ754XRiDDA9EQbo3bOXktSuVVvP+yunVKZsUFmlVEpRZcuUUXff1dG3HYMVKXQb
-        2gAHSXwXHjSd/OlcQvkxO34OcSqM0GDvtI0z52l/LZw9T4M9IAd/F2jA5+csc97hnOaiIu01+46eVPsJ
-        JwP8rOpTtwkD2GIalOn33Z94A4Ce3Xv46EXdgG074BggQxvgGxKe4UBh1JxIpAh+nIUXxhydS+QUTeKN
-        2oE7eDNBSpcgvWvcls6Ca5RTcD/UBThjABgAx2BsMQ3K/ffdd2kMEA1sgO9PkgG+O+HhC7ohTixkJ6gN
-        T2TgCmwVGpCwsQpOd32ia8Fd0X/Rzzvbm7OAhBhgWgIMgNYdDyOHj6BBYrgBfAK42IQKgq0uDYlnI0xg
-        hgSNJDQwxQ4iOP3TBbcQXIoequdiuAGo28R02xbToOAgnitj7MVWcTRIA+wm4RmrAAKbcBLba7KFBMxJ
-        YEYKLPHEBq6Q9M+Po7e1lYdEv0jvE+IcwSuBWA7GwaBEGGBaIgxg9vfRggMaGXXqhhnAFvhfC1NYiU9k
-        wAIS9C8MLs7f/hYOnHovqgtCcC26NmZoUMjHAtgA9ajRDB44yBrToEydMuUyM8AhEt/FDPyvhU9chkXT
-        +AX2YKGBfkyIDeiFofexCG6KLmYIZ86dV99STJhjl5MBenTrruJhuGuAYz/+5PuQHLRLghTGB4sXAUdj
-        XXDfedwQGlBFPrEtKd1s4UAK7kwdHTCV5LigcSBWMMCgAQOtMQ3KlMmXgwGGDlN169TRrpYGoDj+eriC
-        cuG/Q9vYRfYL7YgthfaLbQhutHBTcGcd4Zw67SK7x2OULbG6GrcBJk2O3wDdu3ZT8aANUBsG8GcADjr9
-        C0eKFAn6zw7XG8InLHDFtQlsS9+e0MDSsv1iBxP8tG8R6izNjI57oLuEAQYOGGCNaVAmT5z07zcADmjU
-        IQPkNAaQosSCWZ+fyMJKTJGjFdovdvaC//hTiJMEL5BhlRSxwlHXgf3jM8Cky84AIs3ZBEg0nqDAS9PA
-        Ii4gUcNFtgvtF1sIbRHbJvjJ0+CMXvcHcpn8aKIMMGFi/Abo1qWrigesZ+OEEXwomeY46Dv3fX/J2ZEt
-        Rx32+tmeHXtCbBNs3XPEwXfc32GLj8Nqy+7DajOBKR8Wfr4+cMwDy+YYNw3o198a06BMvHfCZWSAsGMB
-        53XL2vTVd2pjGPajbeHYXkvsypnPo8R/aPmgw04/n0Vix0H1rwggM2KA/BUJzxz54fTlYwAc8o0HrGfj
-        COJR+lBfHySHu3A/GYsYicYvrhA4GpEZi8hhbAcH1D8JNAyYYBcJz8AA6DZxjr8tpkG5d/y9l4EBBoUM
-        IF3OfSQLYIoSDeEC2nAFjSAsYxXVxCZqJLTYB7XYNnCuJATftf97zU4CjyXGAOPjNwAu+ogHrGbVrllL
-        fyhpAB4QoQ9MNEipx07mDFqeB1qiC1qlDQilBXPBqe4exx0OHT/l59gp9Z3g4LEf1cHvQ/DrITyjDUCN
-        Buf222IalHvHXQYGwGIGG0CmOR79/iqcCnEiImQeYJjJMxTwzCOMIwzkN4zTsq2GMY1CxpCD0sP0GAzQ
-        t09fa0yDgkvEXBljL7aKowFTGRjAdDmCjaD7sQmTE+H1RBLSxBMWiMwQSWBbdjBFNoWGmKbYtowA4be7
-        YDttgN59rDENSkIM0PnuTioeMJKtVbMmBeSUzwD+gBOmINFi1qehEbZLmKASi7AhSNTsRAYBhP4OQhvp
-        /wA46iCnmXht7Vq1VO9evawxDcrYrLH/fgNgIKMNQEGR829bsLmVRYutruxxRbUIGyYuiNS/E36RsxHa
-        E9s594/hE0FZ/G0E6tEG6BmvAbLiN0CnjnereMBApmaNmjpYSG+88GILfKIJE5JxBbW2XEmYuEw2IgOL
-        0FJsRp8BdNhBLijhPWpRt9mzRw9rTIOC6zJdGWMvtoqjAdcPaAPQh/KlOVvALzU+EW24whriRiPyfkNk
-        U2g+68fj0A/64JhcRcT7wwA9une3xjQoCTEATveOBwxkataooQOM9MbgQyLgIWyCRINTjycg44oXCZ+o
-        wO2TreICi8CeyAGElshjI3K5GPuFbrN7t+7WmAYF39Diyhh7sVUcDbhAoWY6DPCjL815gTYFiAdPPBOL
-        kCYWUSU2gYOIbAoN9PEQsSyOA0DyWIE2AGXNbl27WWMaFFyU48oYe8GVP/GAgQwuH4cBvDRH2IIMIERQ
-        bK8PiieoRdQwYRn3a1yCiBxJaA99iVxoYWzzt87BIQADoNvs2qWrNaZBuSwMgGsHa6Sn63QMd/PRMVvQ
-        E41VRIkraCRRGZu4wDu66QpsE9kUGujFMHGpPL4v4UsSnjnw/UndbXbp3Nka06DgmgxXxtiLreJowMmJ
-        IQMc9rAF+tfAJqSJJ6whbpjAIILIWmghMgut10FoGmwepv5SX5oODukuSxug02VgAHz3TzzgxARcPApX
-        6zTnwgHesH1/GP8MgO114NNY2BaZTyRbc+bjrfvsbHFYb8Bz/y9IeAZjEnSbGMnbYhqUEcOHX2YGcPs4
-        oFsOtaB1m/cmni/DWZsAPtTscfgie9bY2BQOT/2++BpXFDtgjAID3N2xozWmQcEp+a6MsRfzK+GipVvn
-        LvprZeDqUJo77KVFW6B/LXyCBhBVYhUYWERes+lbHx8I8M0h+EaRTV9/54ELRNFtIo3bYhoUnJDryhh7
-        sVUcDRjIsAE4xaGf437QFtx/F1ZBJVZxQWSBs2M1wQ1CntHEBkArtsU0KIkxQLv2Kh663N1JpVfzGwDw
-        iqDsFhIOBZZxAu2YLxJy/3xQWpYp2mQjiHCa2udgl+3kFecEFK5Xb+eCGUwN6ja1kJaYBgUn5Loyxl7u
-        pIriAQOZ6mQA9GsyaFv34CTKcORiURBsdcj1Bh9iGsrIBRgboS9+EsZy8aZunsEc+AuncjKPNMzn4mwl
-        GADjJls8owHnY7oyxl5sFUdDJAPYgp1wPPEii2gSSVS/sK64gQT2ZwWvpYdlhZABsEYBA7S/o501pkFJ
-        iAGwE/GAgUz1qtV0vyYD4QVWBj1euM4AWMUUgkYSlck25QMhcJjIlPrN8w/xON/fc/iE7jbbtW1rjWlQ
-        cD6mK2PsxVZxNGAgAwNgydULDoEgymAnElOsIIQEDRfVJyywipu9wMy/gD5h9IDHPwm5zZ5DjgHuuD0+
-        AwweNCgBBmh7h4qHu2ggUz2tKvVrJyhYBz1sQb7U+EQEQkSTkKjBhGVCZwT7BfZwzwbe4OEsYMntsWKZ
-        To2mbZs21pgGZfCAgfEboB1VFA93Ul9UjQyAtOYFUmMG2Y9NFIntNeHI93MhkSQ2EU1CrTaYuH6BQyJv
-        cFcXw1Ybt+731YNrJ5E18eWbZjyjASfkujLGXtpRGooHpKJqaWnaAJ8JIWyBvhRo8YBPQBASUSKF0LiC
-        ZitsNuKC0FLxPg9ziVjWvfu742SAqqpNq1bWmAZlUP8B8RsA/VA8wIn4hnGkNSmMDqgt4IkAdeeAX0jG
-        L2h2ogL/8YGQuDaBw48D7FXrN+9VH7nI98ZBp2pkAPzUji2mQRnYv38CDNDmdhUPbSmNVU1NUwuXrqbA
-        O30dROIgcqAThRQoGuwHfCKIyrjCWsU1BGasxy4I1A/xP922Ty1atlp3my2a32aNaVBwRrYrY+zFVnE0
-        wACVK1XSX37ctHGTXALQiGKFr+Rt3aKlNaZBGXBPv/gN0JYqihd8WzhSGo5x46rX+vXqqcYNG6nMJk31
-        9w4j1WE7fOv4XR06ON9D3KWLPiu2T+8+qh99kIE0oBk6ZKj+yTTn5+my9FfW4/q3iRMmqEkTJ+pfzJoy
-        ZYqaNnWquu+++9T999+vZkyfrmbOnKl/PeOhBx9UDz/0kHrk4YfVo488oh579FH12GOPObcEHsNz2Abb
-        PkCvwVeuT6d68K2b902bpqZS3VMmT6b3mqQm0ntOuPdeNW7cOH0OPn4yb9SoUfrn3HBR7ADqg+/pe48+
-        v797t276uAiO8HW4807dNWKQ17JFC9W8WTPVhITHbwTgSzURK3yvkhnHaEHcXBljL2jBvyY2J+eEbQD0
-        a2Lbp5ywffZEg1PyXRljL3BpLlcmOCXflTH2cnur1iqXK5N7qPt0ZYy94HcAcrkywTUZroyxlzY0QMvl
-        ygTXZLgyxl5sFedyZdCnZ6/4DYApWi5XJrgox5Ux9oLFiFyuTHr16BG/AVpRRblcmfTqnggD3NZC5XJl
-        0rNb91wD/P8MvjHclTH20rL5bSqXKxNcleXKGHuxVZzLlUH3Ll3jN0CLZs3V5Qx/WKQ8Hv16c+FWrZxl
-        0dahAyTmQRnbwR0b5uu4Pr3urlfenPfkfeA0zPtn2/dLTbcuXa4cA7CICCICiiDjxEZc4dKxQwfVuePd
-        qmunzjqtYXSLRQ6sdeNbyHDq05CBg9SwIUP05VAjhw/Xl0bjCxKyRo1WY0ePUeOysvT35uHbMyeMv1d/
-        kfKkCRPU5AkT9Q8rTJkEJhtM0s/ha9exLV6D16IO1IU6UTfeA++F9xw5bLjeh2GDh+hvScX3JPa/5x69
-        r9jnnt2765aJz9KpY0fV8c4O+rxJmEwbij5765YtE2Karp07/+dngFwiA5O5MsZebstspi4lTRs11q1q
-        w4YNateuXX527lQ7JTt2aHZItm9X2022bVPbJFu3arYyW7Zothhs3rxZbXHBfcmXX37p44svvghj06ZN
-        mo0bN6pXXnlFNWrYUFUoV15Tvly5EGVD4HeYy5Upq39/uWzpMqp0qVKqdHIpValCRR0bW8yCgusyXRlj
-        L82bZqpLCVLksWPH1N69e9Xu3bv/Yzhw4IBavXo1iV+OxKygT4tLTansUSUlxaGSA36EG6eBVSxfXhui
-        VMlkbQJbzIKCbtOVMfZiqzhRNGvSVP/E+bp16/4jQSaoWL4CCV1ZX+iBb0vTVE/3wFXANapV11cC4VRw
-        nEBbmcyA7FAqOVnHyBa7IGCM4coYe8EOXCoyGzfR5+/ZgvefAAwA8XGRB74wG+f5haijf02NwZdDY5ua
-        6en6OgpkDHQJiJEtdkG4u8Nd8RsAO5Bo0D/xtG3mjJnq448/VuvXr1cfffSRDw7khx9+6LFmzZqIfPDB
-        B/oW261du9YH1yUfM99PwvtkA8998sknejtZH78H8/nnn6u01FTdyiF4w3r1VYN69RwyQtTPyFD1yBSg
-        Tq1aOiOkVq6ixwsYB9hiGATMMFwZYy/YgUSC1MTzaMydcdYuC4agIagy2J9++qkHBop8HyKYyNexkFJo
-        3GcTsVn4lo3DsIgsLu8fv15uC/h5CQyA1lyL0n79uhn6dG8Gp8nDEIw2Am1Tt3ZtvX1VMk4FGg/YYhgU
-        XJfpyhh7adKwkUokmJ7IRZQHZj7gBQwi4VYKJQWIBLY1XyfB4/I9+H3kfRN+zmYq829sz+/B+wA+++yz
-        yAYQ4ksDIFPgW0IxFsDg0RbDoGANxZUx9tKkQUOVSJABYAJ0Ay2aNdPn7nPAGBYO96V4ZmtnASR43MwG
-        gOtg+H3ke8j6swPpX4L68d6oA3Uiq2AGgIxVjYQMMwAJDrT4JDzQBsDYgMYDtckAMA4M0NgSw6DceUe7
-        +A2AHUgkGJzwQgXMgIssIAAjRQK4WAMratkzUA0aMED179fPvQiju+rWtSt1LzPCDGKKyF0K7uNxiIlb
-        bMvC2m55O95PGImFX7VqlVq5cqWu05YBZPrHRTPeWEB3AU4GwOtSKlbU29viGASspLoyxl481yYYDgCu
-        6uGWCKT4oA6NjBHA7NDTKRo4Va2SqtIIzKXLly2rF2C4XsAGg4g28Jzc1oasj4HwLP6KFSs0y5cv1yZB
-        BsDIHgM8+bm1+K7wLH69unUdA9BnwutgAGxnxi4ouEDUlTH2Inc4ESD145RlPmjDrZRblxQfIHg5UaO6
-        M4dOq1JFpRIQHytrWFWDQDYhTfBetn3AY7jFNqhLpni0dIj9/vvvq6VLl6ply5bp+7gFeB2ujMY+QtyG
-        9SkGRAPgzgZwmRxmAQDTw7o0HYQBqqZV1QaAOWxxDALGWa6MsRfp0kSAwQkvVKAbwDV3CHIkA+iFkpzA
-        IgoFrApNnbCIUqlCRb2qVokCyOYy34Mf566AkV0Cnse2Unw2gPk3QNqHEd577z21ZMkS/RxSORZ/kAGQ
-        +nXKd6lP8dDo1s8GqKUzGmeABvS4LY5BwIElV8bYC3YukSA18Si1EfVT+IVriMGCSPEBVsiCgMupMXfG
-        t2ulohugARQWUmTrlvB7MmYLl8h+nVM8p3lu/Sw6ePfdd9XixYv16zCahwHwc/Ce8LrVO0B4Fh8DQCwI
-        sQGwGGSLYVCQYV0ZYy8YmSYSOBPi34YsQAPCqVOmeCKY4gMsoeYEVtr0Eiq1evT7SP0lSySpJAKiQTwA
-        QQBEhdAQnOHWzAbg1zBScBZdir1w4ULNokWLNLiP12C/8K2fEFgbwG2dLJI2AD3nGKC2HvN4BqDPg+ds
-        cQwCullXxthLPXJlItHi42iV2w3AADbhmXRq2TmB9I8BYAql/rKlS2vxSxQrpooXLeYJzfVxRuAWL8WH
-        WSAyQB/OLVu2bvk3bmEAaYIFCxao+fPna2AULOhAULRuPd0jwYE2AIkEgTk26P+xHMwDWnRjeJ2MXzRg
-        tdWVMfaCHUgkmJ5A+MwmznIlrumXorBQDMTNCbSWNEr/mDeX10fSSmoT4GCKrAv1s/Dc0pERZGqXrZxN
-        YDMDiw7YBGj58+bNU3PnzlVz5szR22JWgnEKxPW1fFd8Tv1Az3hoCojvVmYD4HUyftGAk0pcGWMv2IFE
-        gh3TDq3j3I4bO85rgbKlMhA3RyhYOMRaqXwF59h72XKqTKnSejYgxebUz306AwOwCWS/LtM8p3ZO79zK
-        IbgUHcyePVu988472hwwJsYoGNz5hHdFyhCxwQIQZgDYHsbRBiBTyPhFAwbZroyxF7jyUjJ2TJYnEG5N
-        A6Al5AgFGcfUYQAcY8dBlDI0DkhOKukbA7DALDK3bNmiZRqHsLjF3zK1S3gbGACiv/3225q33npL1wVj
-        Ikvhs3qiEyySFwsSvzaJX4vGCxjTwDgwgPe8hcxGjcXRvyZ6/V8+j27WlTH2gh1LJJifyiNWWAnElItX
-        6MIMQIHICQSrCgULC0DICAgcZwIWXaZ4aQCG0ztMwK1cii7vQ2y0crR2bvn4G8K/+eabatasWRpsC2PC
-        AEjtXmsncYAWyo2LI76zqIXtnS6toi92JhhL6QM/7qwKgsvn0dW6MsZesGOJBAGQA5VxWWN1mub+2TRA
-        WuXKOYJWVpnmzDj7JoWmTk7rT1IlCZneObXLvpxvOQPING+agNO9TPmmAd544w31+uuvq9dee00/jqkc
-        BoJo2TjUW6cmiUPUBjUoJgSEx/MQP71aNXdK63RpthgyaPl62ddd+cPf8nk0MFfG2Est2qlEgn5QrwPQ
-        jqMvxO/bIvWzCUwD8ClU2YG0jxkAWnwVChy6AKwBJNNgkFs9xJdpXwovxWfhpRHYBFJspHuAVM+tHuJD
-        +FdffVWfEwhDYDHHGQhW13287uc90XGGkCO8Iz5WNMkAZBju0mwxZNAF8IEkAMHl88gOroyxF965RIH+
-        zzv6RWbA6dVyMcY0AM6oyRF39Q+iY+CXXDJZJRUvoUoUL+4THELL1i5bvC31y5bOouOWWzvEZ+HR6ln4
-        l19+Wb300kvaGBBRL1CRuI7gIeRqJp7XaxrU+tGtYUWzInVjthgySP16VuEOLPG3fB4NzZUx9oI5aSJh
-        5/Pfo0aO9I3SITpP1QACkSO6/6+gyiQ7Z9SWpMEfWj/gls6Cs9BSfG71ZrqH+LZWz8iWz2n/xRdf1Pzj
-        H//Qj+GkDhgUad0TnD63Fhy4C1kaiE/ZIo1Mja4D4xiOkw2kfzmTwN/m866MsZcatGOJBIMTXgwBnAF4
-        eVZO2zBdg7g5gfSP1lKWpn4wBFYC0fqLFC7iE1u2bFNgKTJaN4NWzrDgEFaKzqD1v/DCC+rvf/+7ev75
-        5/Xf6Jawj1gRNFcvITjDU9qqVWhASwbQn4lea4shg3MKeMCHPh9/m8+7MsZebCtv8QC3YsCiBy60g7jK
-        hls7hOflWp6fV6ZA5EQKtf4KmPtT69ergWWo/6csABOw+LKVSyNAeDYCDGAzgtnSWXhO+TLtQ/i//e1v
-        6rnnntN/l6d9SalQQad1fP7qJLIEaxgMxNdjGmr96NKwqGXGD3Dfj9TP/X1NavEYVOMxjK+wHbZxZYy9
-        mDscL9hZpCvsKKaE+HZNTv+2VTn0oR7Uyk3Q8kE5XFRBfT/OqS9ZooQqXqyYKla0mCe+7M+lyGbrhsh8
-        y0BwiM0ic4qXrR2is/B//etf1V/+8hf9PParEnUDENYvtrN+IaeySP3oLpAx8JlgAFsM0YgwhXRSvZtV
-        SHBkEnSvmGJiO2RYV8bYi9zpRIAdxIAFgxcMBDEG4KmabY5egYJQnoKIQDqUdqB0zyD1Q3wM/GAA7v+x
-        HIzWDuEjtWgWmFu02aojiQ2hITLElqI/++yz6plnntFgO6xIIjtBVC0ypq4kNPBmMiQ6cMSvqJe0uUuz
-        xRCgAenug4Tm1VCA2Mr7royxF9+KWwJA69cnLOhZQF1tADlVM6dpZZKTdTpHqy5JAoOkYsU9SgBq6cWK
-        FFFFChXS2+IoIB4vVrSorx+H8AyLDpHNls3wgI4fN8WH2ODpp5/WPPXUU97tk08+qbeBMdGS0TWZYnu4
-        Yxk9niEDYECL18AAthgCpHyM9OVjGAcgK/DfGCC6MsZeHNcmDjhTpj2cz8dTNJ6myalaEvXjRQsXVoUL
-        FlSFbr1VU7BAAc2tIH9+VSBfPpU/b16VjyhMJriVtslHj+W55RZr685OdIDWzqDVm2me7+PWzAoQ/s9/
-        /rN64okndBbAgSlkLJyfgJG9BwkNILgHWj7GM276x5jGjJ8EqV7+ja5B/o3G5soYe+F0lSh0F0DOZHAp
-        tZynm9OzojSSvzV/ARI4n8qXJ6/KmyePykvC5rn5FnXLzTerW266Wd18003qphtv0reFyCgwQAEyRn4y
-        Aad9ZAC+5SxgDuy4n4cpYA42A4vMQGyZ7tHiGQj/+OOPqz/96U/aDFiRLEMGgKjIAia+MQ7Ep+4C4qNr
-        Q/azxZBBY8KYCvfR+nWjEs9jduDKGHshly7jtJUIsKN6EYj6J/RRw4cO9dI9DGDOx9Hy0bK14Cy2K/hN
-        N96obrrhRnXjDTeoG/7HAa0ewuM1uIWwsq9noWU2gNgQGuJyemeQ0iEyp3vc5zQP0Nq5xUN4/fXzxKOP
-        Pqr/xrgEaxMQFgLzoFWC5xgtPo11ytJrSlF3ZouhRBrAfA6PkYRXCaIuV1WsWPH6yuUqvo9+KhGgj+JZ
-        AIwwjAwgW765CNOvXz9KnzQlokCVowCV1Sd8Oid9lqFAlabWhXl/KUBB088TOB+wb58+XmvmdM8p30zx
-        8m+Z0rm1M2wG3EpgCrT4Rx55RD2M3xzAbxKQCTBOgZAQ1Sc0Q5+FwQBWDmrxOlsMTTCWsj0Oc2RkZPyW
-        dLwGWroELvyCa5KSkv67Urlyy21z8GjBdAV9l17CJJABYAAAA5jTNAwQ5elifNBIrh0wPJ3kKSWyiezj
-        WWSZyjF6t7VubtXcshmkdm7hEBvI+w899JB68MEHNTABBqjJNCiFqJjNmOiZDT3nzWhgYsIxQJI1hkHB
-        QJH0uy41NfV30JG42tU0UMGGeAFefN3111+fp3yZMqts/Vg0oJ/CvBUHRZAFhgwa5KV8CC+na3J+Lvtr
-        DOrkQowc1Mm0DvE5rUNonrIx/BhaNpuAkaN5meZlHy+NALGl+GyA4kWK6plLGaxRsMjZQeLrJW1q/Rg/
-        2GIYFMSZtPtv4v8QvyeiygS69RN44fXETddee21SmaRSa7HyFiuYt2IRA2fIIBPg1y2530fqj0V02crN
-        vzmty5TO9xk2gC2t8y2MwOLjlg1hGkEaAIYoVqgwdQPFtKDcurMDRuHWj8xhi2FQsE5AuuUl/kj8F4HG
-        HDgLYCP0H9cRcBEqKvHb3/62RskSSf+0rcoFAYMTXtIEfXv31umeW3wsorPIuMXz/Jhs/RCYB24Aoprp
-        XrZs3DIssEz1wNwGSAOAojQtRTdQisSEuDkBowAYAAtZthgGBWsBpFkxIo+r4bUENI3aAP9DFCDKEDWv
-        ueaadiWLFduMgxXRgsUOHKhA/4RbXMtnm55JA9iMwCZgodGqZd/OrVumfjYChIfoaNUMDMCwEVhYFlym
-        +RkzZugfo5LgMdMARQoW0t1AMmYDrrjZAeG59aPrsMUwCDAAGhvpVZYoRNxIoCvgLJBjYQMgdcAABYly
-        RF2i/dVXX51VomCx3ViqjQZMWXgNGwbAjxpwv2+mfzMLMNIAZiZg8blvN0funM5ln84is8AsMn41zASP
-        YzsGr0Nm4CwhxQdFaBpbvEgREhOzAUfcnID4ye7Kpy2GQcBYi4zwC2mVShQnbiH+QKBLD9QNYAOMAZAB
-        0IdwBqhNtCNGXXXVVc8XLlz4sG0HIoHRKa8Egs6dOmnhAESUgvKUDILKvtsU1+yvTZFtgzYpMrdeFhiY
-        rZthI/B9mAD1ct3Tp0/3gXUMLFNHawBe+rbFMCd4Gli8ePFTpFN1IplAF/5/CTkYzLawAdBv4IWoIImo
-        RrQgBhFPkwneK5Y373Hbjtjg9MS0atlSBwoCyMDhb4Yfw28BTpvm/Haf/v2+KVPU5MmT1ST+Db8JE9S9
-        7u/46d/yGztWZWVlqTFjxqiRI0fq3/MbNmyYhu8PpWkowN9g9OjR2YLfBURdJvz4iBEjfBQvilmAIz4G
-        d0HBGgCwxTA7kPbRyHC/ZMmSO0ijuAzA00D0HehDChMViHpEJ2IK8TKZYEnBggUP0Sj2DE1hzuS7Jc9Z
-        G3iOuoAz1apV82jSsOG5trfffp5pUK/+hfr16mnqZWR4txl1616oXbu2R62aNTU1a9S4UCM9XZORkXEx
-        EVSvVu1C1bQ0D/wNaH8dqlbV8OPNMpudb5aZeT6zSdPzDRs0JBpoGtSvf7583nxny+XJezY/fX6OT04x
-        yg7UYaN86TI/ly1T9qdyRYr8SNsdTiqRtImm7mikMXcBKDIL8EwAlVUmGhNdiDHEDOIx4kniaeIZ4lkB
-        /ka2eCpv3rx/qVix4t8aNWr0fMeOHV8ZMGDAW9Ry5lJLnT9+/PiF1IoXUYt+l1r0EmIptfDl1OpXUutf
-        TayhjLCO0vd6Sr2fEBsoxf+LUv3/Ehsp1W+i1P8FsZnYSmyj7mA7Pb6dRvs7aNud9PdO3Kftd+Bx6g62
-        UereSnVtoXq/pNS+kVL759QNfEb3/0Xvt4H+/pjuf0TPr6PbNcRqehz7hH1bRtloCbGY9n0BZZG3Bw0a
-        9GafPn1mdejQ4XUy1KvJyckv/PGPf3zmd7/7HeLzZwK3TyEm2YDnsZ0JXi95gniceJhAg4ToHYlmRA0C
-        g0CM36IeBKLILMCDwXwETFCJqEPcRrQnOhPdiZ5EL6K3AH/3pIFjjzx58vRNTU0d3KJFi1F9+/adTGl6
-        Jon8EAX8UepHnyCeJKGeJp6lPp66/Of+Tn3/P4iXaDzwCo0LXqPxwevELBoMvkUDxdk0bZxDzCcW0OBx
-        Ed2CxTSgfJf+XkK3SwE99p4Ez7nPL6Z6FtL9hfT4AhqMLqDH5tHtXHpsDg1C3ybeovfDe75GA1GajLxC
-        d19+kQajNHx54Xnar+dooPkMfY4HyRz4TDPI2NM6deo0vk6dOsNorNTnuuuu60ZxAIhTD8QkG/B8UFAf
-        GmMHohXRkEgnyhNFCUwDkf6jmgZy4SyA1AEHwQTIBEWIUkRFIo2A2zBAxCwhwwCPwSy1y5cv3/iOO+5o
-        Ta2kA7X47tQK+9GgbgAJOpAGgIMo0ENJjGEkxAgSYCQJMXr27NlZ8+fPH0eMX7Bgwb10O3HRokWTFy5c
-        OAXQ31Pp8Wlz586dSjOKSbQ9Hrtv3rx503Afj7lMZqjeKTTzmErPgylgzpw5k6kOvHYKvXaSqH8i/T2B
-        nhtP97Ef42jbsVTPGOwf9hP7TGYYQJmlK2WTLuSDTpTJOvbv379t8+bNM5OSkjL+8Ic/1KIYAMQJ8UBc
-        EgHqQr3QAFqgcUIbaATxY1oI4oKNpQlQEdyElIJsgPQCl2GAWJLAG5c2wGMYiJQsVKhQuZo1a6Z07ty5
-        Og3CalHqzKAUXJ9afH1Kz/Wp1TckQzSiVtUYUCvTUItrQuZoSoHOpFbZnMRrRiJoSHx9SyJmkihN8RzA
-        diTQbQy9vjm13ma4TwZrAch0zUi4pmTATHofDe5jW0DbYPtMUXcTqrcR7UcDQNvWo9lHHcpctairqEnC
-        p91///1p1H2l0qCxCn3OSjRmKVugQIHk3//+94gPQCxscYoVji80wMIP5v35iZuJmJeCZZEmgIuQSlAp
-        jICMADPgzTDQgOMigedvzp8//80pKSm3NG7cOA8FKE+vXr3y9uvXLw+lTA2N4PNSCtW37v18DAU3P6BA
-        F7BBZro1Hmx1An5fuS+8fwzvPz4LPhM+Gz4jtf5b8uXLpz+7GwMzLsiosSLrQd03ETcQEB5L+JjGQzNo
-        F3XrNwtejEpQGfoSuApvgKwAQwC8aST0NjRj+K/09HRNt27drsvMzLx28ODBPijA111JmPuPz0UDwOv4
-        c+Iz8+d3Y3EpQN14H2iCRgrhoVPMLT9S4crYDGyIoFzTvn37ayhwVwP6W9fHf1/pmJ8FnxWfmTDjAIES
-        hayX38+LLWEpv/nN/wMIOoDDIeHLYQAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAACsUSURBVHhe7Z0HnBRV1vZX3V19P/d79zUQJTMMDGEYmAGG
+        OGQGJIkoIjlKzjCAJJGgGFbXtOu6rjmTQQQBEVFUdn0FJaMiSUEERFCi9zvPrTrVp27fnqkOuLDf3B9/
+        uqe7+nb1eZ57bqiq7t/kl/ySX/JLfskv+SW/5Jf8kl/yS37JL/klv8jSqVOnbjd3uHlv7969fxk6dKga
+        Pny4GjFihBo5cqQaNWqUGj16tBozZowaN3asyhk3TuXk5Kjx48erCcSY0WPUwAED1Isvv6qef+UN9eKr
+        c9XLry9Q8xcsUQsWvqkWLl6mFi9drpa+uUK9uWylWrZ8lXrr7XfUipXvqrdXrVUr33lPs+qddX7WrFOr
+        17yveeddyQfqnbXMerUGvLdevbvuQ7V23Uch3v9YvfeBZINat36Dc/99bPMhvcZ57RqqazXVjfdctYb2
+        Z/Va2jfs3xq1/O3VmmUrVtG+r1RvvvW2WrpsBX2e5WrJ0rfU4iXL1KLF9DkXLaXPu1jNJ+YtWKTmzV+o
+        5s6br96YO0+9/sZc9dIrr6nnX3xFPfvCS+qZZ59T/fv10zEeR/EcS3FFfMdQnBHr0RRzxB3xH0nbjCA9
+        oMnwYcPUsGHDfhk5ePCBXj169Xfli68MHjC4xzASfenSpeo52rGxJGhQxo0Zq+6fc59q16at2r3voPpo
+        0w6PrTv3EF/72LIjNsx6nLr3qG3Mrr0hvtirtnvs0+z40s9O5qv9HruY3fvVF5KvwQHNl4KvBLv3hPga
+        7DXYd0Bt3PqF+pTA7f5vv1Pt2rZV98yabY1rbkydMlVt2bxFrV61Wk0cP3GIK2PsZfDAQfvuvmu62rZt
+        m3r1lVfVwDsGRMX4cTmqSeMm6uDRk2rHviMe3x39WR0yOcL8FAB3W0s93x09pb475ufwD6d9fA+O+zly
+        /IzDjw5HJSfOqGOCH8DJs5rjzE8OPwpO/AzOaU6CUw4/MafPqZ+Jrw/+oPaAQz/Q+/2smjZpqkaNHGWN
+        aV5MHD9BjRk1Wj355JPfuDLGXgYNGHhuQP87FNOvT1/V6ZZbfXTr0tV73sQxQGMSxm8AU5DDx06HiRYU
+        vDasPheb0I7YeQhOSMFN0U3hw0UPJvzPp89rIDzjGWDESGtMg/LQnx46TxJe5igZY7mjX39fpTVr1FRp
+        aWkqvXq6ykhPp9vqqlLFiuq2Wzv5tmNyxo5zDHDspNq5/4iHTRQPFi4vbK818AktxA4ieF6iR93aLcKf
+        OuMgDXBMG6BJ3Aa47945iiSM3wCS6tWqq6wGDVSzpk1Vi+bNtbgwRfu27XzbMTBA40bhBvCEkOIkAq7X
+        xRTZwxA6T8GBIXhI9KCt3RH+lBAenBYG2AsDnCADULeJAZ4tpkG59557YID4illpjYwM3ae3bdNG3dS+
+        vWqZna1qZ9ZW7du1923HYGYAA3xHBtglDGAVJcHYBJaYYtsEj1l0m/CG6Jqz59UZAsJrvnMMgBiPHB6f
+        Ae6ZfQEMkFmrFrX8Fuq2Trepbt26kfDtVP169bQZzG2BaQDGJkii0QIDV1yTIGJHFDyo6DbhSXAWXnPu
+        Fy08kzgDzI7fAP379lOSBvUbqKFDhuo5/pRJk2lOOlp1795d3UQZwNwWjKWpYOOGjcgAP6kvDhzV7CJY
+        hE1fHrpgfBYNXzl8/tV3gdjM7LazxcLWryWHNWdJfBBmAGo0I4YNt8Y0KLNnzUq8ARpmNVRdadQ/fOgw
+        LS6cdkvHjnkb4IeQAQC3uE92fnvB+N+82MUc9PFpADba+CIymxgymwTinzsfMsC+RBpgZgIMgGmfBIPA
+        Dh06aOEHDRyoevfqrQeF6ArMbQEWJxqRaUwDcHq1CpMIPHEZv8hBhWaiFRxEEh1w5oH45wkI73Ccuq1T
+        1G020o3MFtOgzJoxM/EGSEutqm5s1Up1ub2L6t61m+pMY4HMWpl6FmBuC9gAh8kAX5LwDPenNmHixSZg
+        NMQiNvAEB0JsU3TJ+V/IAASEZ344mRgDzEyEAfr27qMk9erW0/P+amnVKBtUU2lV01TFlBR1+22dfdsx
+        WJFCt6EN8A2J78KDpuM/nUkoP+bGzyFOhBEa7J20ceos7a+F02dpsAfk4O8cDfj8nGbOOpzRnFekvWbf
+        4eNqP+FkgJ9VI+o2YQBbTIMy8+4ZiTcA6N2zl48+1A3YtgOOAbK0Ab4i4RkOFEbNiUSK4MdZeGHM0blE
+        TtEk3qgduIM3E6R0CdK7xm3pLLhGOQX3Q12AMwaAAXAMxhbToMy4++4LY4BoYAN8f5wM8O0xD1/QDXFi
+        ITdBbXgiA1dgq9CAhI1VcLrrE10L7or+i37e2d6cBSTEANMTYAC07ngYPXIUDRLDDeATwMUmVBBsdWlI
+        PBthAjMkaCShgSl2EMHpny64heBS9FA958MNQN0mptu2mAYFB/FcGWMvtoqjQRpgNwnPWAUQ2IST2F6T
+        KyRgXgIzUmCJJzZwhaR/fhy9ra08JPp5ep8QZwheCcRyMA4GJcIA0xNhALO/jxYc0Miq3yDMALbA/1qY
+        wkp8IgMWkKB/YXBx/va3cODUe16dE4Jr0bUxQ4NCPhbABmhIjWbo4CHWmAblrmnTLjIDHCTxXczA/1r4
+        xGVYNI1fYA8WGujHhNiAXhh6H4vgpuhihnDqzFn1NcWEOXIxGaBXj54qHka6Bjjy40++D8lBuyBIYXyw
+        eBFwNNYF953HDaEBVeQT25LSzRYOpODO1NEBU0mOCxoHYgUDDBk02BrToEybejEYYPgI1aB+fe1qaQCK
+        46+HKygX/ju0jV1kv9CO2FJov9iG4EYLNwV31hHOqJMusns8QtkSq6txG2DK1PgN0LN7DxUP2gD1YAB/
+        BuCg079wpEiRoP/scL0hfMICV1ybwLb07QkNLC3bL3YwwU/6FqFO08zoqAe6Sxhg8KBB1pgGZerkKf9+
+        A+CARn0yQF5jAClKLJj1+YksrMQUOVqh/WLnLviPP4U4TvACGVZJESscdR08MD4DTLnoDCDSnE2AROMJ
+        Crw0DSziAhI1XGS70H6xhdAWsW2CHz8JTul1fyCXyQ8nygCTJsdvgB7duqt4wHo2ThjBh5JpjoO+c9/3
+        F5wduXLYYa+f7bmxJ8Q2wdY93zn4jvs7bPFxSG3ZfUhtJjDlw8LPlweOeGDZHOOmQQMGWmMalMl3TrqI
+        DBB2LOCsblmbvvhWbQzDfrQtHNtriV1582mU+A8tf+Ow088nkdjxjfpXBJAZMUD+goRnvvvh5MVjABzy
+        jQesZ+MI4mH6UF9+Qw534X4yFjESjV9cIXA0IjMWkcPYDg6ofxJoGDDBLhKegQHQbeIcf1tMg3LnxDsv
+        AgMMCRlAupz7SBbAFCUawgW04QoaQVjGKqqJTdRIaLG/0WLbwLmSEHzX/u81Owk8lhgDTIzfALjoIx6w
+        mlWvTl39oaQBeECEPjDRIKUeOZ43aHkeaIkuaJU2IJQWzAWnunscdTh49ISfIyfUt4Jvjvyovvk+BL8e
+        wjPaANRocG6/LaZBuXPCRWAALGawAWSa49Hvr8KJEMciQuYBhpk8QwHPPMI4wkB+wzgt22oY0yhkDDko
+        PUSPwQD9+/W3xjQouETMlTH2Yqs4GjCVgQFMlyPYCLofmzB5EV5PJCFNPGGByAyRBLZlB1NkU2iIaYpt
+        ywgQfrsLttMG6NvPGtOgJMQAXW/vouIBI9m6depQQE74DOAPOGEKEi1mfRoaYbuECSqxCBuCRM1NZBBA
+        6G8htJH+D4DDDnKaidfWq1tX9e3TxxrToIzPGf/vNwAGMtoAFBQ5/7YFm1tZtNjqyh1XVIuwYeKCSP07
+        4Rc5F6E9sZ1z/xg+EZTF30agHm2A3vEaICd+A3TpfLuKBwxk6tSuo4OF9MYLL7bAJ5owIRlXUGvLlYSJ
+        y+QiMrAILcVm9BlAhxzkghLeoy51m7179bLGNCi4LtOVMfZiqzgacP2ANgB9KF+aswX8QuMT0YYrrCFu
+        NCLvN0Q2heazfjwO/qAPjslVRLw/DNCrZ09rTIOSEAPgdO94wECmTu3aOsBIbww+JAIewiZINDj1eAIy
+        rniR8IkK3D7ZKi6wCOyJHEBoiTw2IpeLsV/oNnv26GmNaVDwDS2ujLEXW8XRgAsU6mTCAD/60pwXaFOA
+        ePDEM7EIaWIRVWITOIjIptBAHw8Ry+I4ACSPFWgDUNbs0b2HNaZBwUU5royxF1z5Ew8YyODycRjAS3OE
+        LcgAQgTF9vqgeIJaRA0TlnG/xiWIyJGE9tCXyIUWxjZ/7RwcAjAAus3u3bpbYxqUi8IAuHawdmamTsdw
+        Nx8dswU90VhFlLiCRhKVsYkLvKObrsA2kU2hgV4ME5fK4/sSPifhmQPfH9fdZreuXa0xDQquyXBljL3Y
+        Ko4GnJwYMsAhD1ugfw1sQpp4whrihgkMIoishRYis9B6HYSmweZh6s/1pengoO6ytAG6XAQGwHf/xANO
+        TMDFo3C1TnMuHOAN2/eH8c8A2F4HPo6FbZH5SLI1bz7cus/OFof1Bjz3/4yEZzAmQbeJkbwtpkEZNXLk
+        RWYAt48DuuVQC3p/897E83k46xLAe5o9Dp/lzlobm8Lhqd9nX+KKYgeMUWCA2zt3tsY0KDgl35Ux9mJ+
+        JVy09OjaTX+tDFwdSnOHvLRoC/SvhU/QAKJKrAIDi8hrN33t410BvjkE3yiy6ctvPXCBKLpNpHFbTIOC
+        E3JdGWMvtoqjAQMZNgCnOPRz3A/agvvvwiqoxCouiCxwbqwhuEHIM5rYAGjFtpgGJTEG6HiLiodut3dR
+        mTX9BgC8Iii7hYRDgWWcQDvmi4TcPx+UlmWKNtkIIpym9inYZTt5xTkBhevV27lgBlObuk0tpCWmQcEJ
+        ua6MsZdbqaJ4wECmFhkA/ZoM2tY9OIkyHLlYFARbHXK9wYeYhjJyAcZG6IufhLFcvKmbZzAH/sKpvMwj
+        DfOpOFsJBsC4yRbPaMD5mK6MsRdbxdEQyQC2YCccT7zIIppEEtUvrCtuIIH9WcFr6WFZIWQArFHAALfc
+        3NEa06AkxADYiXjAQKZWjZq6X5OB8AIrgx4vXGcArGIKQSOJyuSa8oEQOExkSv3m+Yd4nO/vOXRMd5sd
+        O3SwxjQoOB/TlTH2Yqs4GjCQgQGw5OoFh0AQZbATiSlWEEKChovqExZYxc1dYOZfQJ8wesDjn4TcZs9B
+        xwA33xSfAYYOGZIAA3S4WcXDbTSQqZVRg/q1YxSsbzxsQb7Q+EQEQkSTkKjBhGVCZwT7BfZwzwbe4OEs
+        YMntsWKZSY2mQ/v21pgGZeigwfEboCNVFA+3Ul9UkwyAtOYFUmMG2Y9NFIntNeHI93MhkSQ2EU1CrTaY
+        uH6BQyJvcFcXw1Ybt+731YNrJ5E18eWbZjyjASfkujLGXjpSGooHpKKaGRnaAJ8IIWyBvhBo8YBPQBAS
+        USKF0LiC5ipsLuKC0FLxPg9ziVjWvfvbo2SAGqp927bWmAZlyMBB8RsA/VA8wIn4hnGkNSmMDqgt4IkA
+        deeBX0jGL2huogL/8YGQuDaBw48D7FXrN+9VH7jI98ZBp5pkAPzUji2mQRk8cGACDND+JhUPHSiN1UjP
+        UIuXr6HAO30dROIgcqAThRQoGuwHfCKIyrjCWsU1BGasxy4I1A/xP962Ty1ZsUZ3m61b3WiNaVBwRrYr
+        Y+zFVnE0wADVqlbVX37colnzfALQlGKFr+Rt17qNNaZBGXTHgPgN0IEqihd8WzhSGo5x46rXRg0bqmZN
+        mqrs5i309w4j1WE7fOv4bZ06Od9D3K2bPiu2X99+agB9kME0oBk+bLj+yTTn5+ly9FfW4/q3yZMmqSmT
+        J+tfzJo2bZqaftdd6u6771YzZsxQs2bOVLNnz9a/njHn3nvVfXPmqPvvu089cP/96sEHHlAPPvigc0vg
+        MTyHbbDtPfQafOX6TKoH37p59/Tp6i6qe9rUqfReU9Rkes9Jd96pJkyYoM/Bx0/mjRkzRv+cGy6KHUR9
+        8B3979Dn9/fs0UMfF8ERvk633qq7Rgzy2rRurVq1bKmak/D4jQB8qSZihe9VMuMYLYibK2PsBS3418Tm
+        5LywDYB+TWz7lBe2z55ocEq+K2PsBS7N59IEp+S7MsZebmrbTuVzaXIHdZ+ujLEX/A5APpcmuCbDlTH2
+        0p4GaPlcmuCaDFfG2Iut4nwuDfr17hO/ATBFy+fSBBfluDLGXrAYkc+lSZ9eveI3QFuqKJ9Lkz49E2GA
+        G1urfC5NevfomW+A/5/BN4a7MsZe2rS6UeVzaYKrslwZYy+2ivO5NOjZrXv8BmjdspW6mOEPi5THo19v
+        Lty2rbMs2i50gMQ8KGM7uGPDfB3Xp9fd9cqb8568D5yGef9s+36h6dGt26VjABYRQURAEWSc2IgrXDp3
+        6qS6dr5dde/SVac1jG6xyIG1bnwLGU59GjZ4iBoxbJi+HGr0yJH60mh8QULOmLFq/NhxakJOjv7ePHx7
+        5qSJd+ovUp4yaZKaOmmy/mGFaVPAVIMp+jl87Tq2xWvwWtSBulAn6sZ74L3wnqNHjNT7MGLoMP0tqfie
+        xIF33KH3Ffvcu2dP3TLxWbp07qw639pJnzcJk2lD0Wdv16ZNQkzTvWvX//wMkE9kYDJXxtjLjdkt1YWk
+        RdNmulVt2LBB7dq1y8/OnWqnZMcOzQ7J9u1qu8m2bWqbZOtWzVZmyxbNFoPNmzerLS64L/n88899fPbZ
+        Z2Fs2rRJs3HjRvX888+rpk2aqCqVKmsqV6oUomII/A5zpZSK+veXK1ZIURXKl1cVksurqlVSdWxsMQsK
+        rst0ZYy9tGqRrS4kSJFHjhxRe/fuVbt37/6P4cCBA2rNmjUkfiUSs4o+LS49rZpH9bQ0h6oO+BFunAaW
+        WrmyNkT5csnaBLaYBQXdpitj7MVWcaJo2byF/onz999//z8SZILUylVI6Gr6Qg98W5qmVqYHrgKuXbOW
+        vhIIp4LjBNpqZAZkh/LJyTpGttgFAWMMV8bYC3bgQpHdrLk+f88WvP8EYACIj4s88IXZOM8vRH39a2oM
+        vhwa29TJzNTXUSBjoEtAjGyxC8LtnW6L3wDYgUSD/omnbbNnzVYffvihWr9+vfrggw98cCDfe+89j7Vr
+        10bk3Xff1bfYbt26dT64LvmY+X4S3icbeO6jjz7S28n6+D2YTz/9VGWkp+tWDsGbNGykGjds6JAVolFW
+        lmpIpgD169bVGSG9WnU9XsA4wBbDIGCG4coYe8EOJBKkJp5HY+6Ms3ZZMAQNQZXB/vjjjz0wUOT7EMFE
+        vo6FlELjPpuIzcK3bByGRWRxef/49XJbwM9LYAC05rqU9hs1yNKnezM4TR6GYLQRaJsG9erp7WuQcarQ
+        eMAWw6DgukxXxthL8yZNVSLB9EQuotwz+x4vYBAJt1IoKUAksK35Ogkel+/B7yPvm/BzNlOZf2N7fg/e
+        B/DJJ59ENoAQXxoAmQLfEoqxAAaPthgGBWsoroyxl+aNm6hEggwAE6AbaN2ypT53nwPGsHC4L8UzWzsL
+        IMHjZjYAXAfD7yPfQ9afG0j/EtSP90YdqBNZBTMAZKyaJGSYAUhwoMUn4YE2AMYGNB6oRwaAcWCAZpYY
+        BuXWmzvGbwDsQCLB4IQXKmAGXGQBARgpEsDFGlhRy53BasigQWrggAHuRRg9VY/u3al7mRVmEFNE7lJw
+        H49DTNxiWxbWdsvb8X7CSCz8O++8o1avXq3rtGUAmf5x0Yw3FtBdgJMB8Lq01FS9vS2OQcBKqitj7MVz
+        bYLhAOCqHm6JQIoP6tPIGAHMDT2dooFTjerpKoPAXLpyxYp6AYbrBWwwiGgDz8ltbcj6GAjP4q9atUqz
+        cuVKbRJkAIzsMcCTn1uL7wrP4jds0MAxAH0mvA4GwHZm7IKCC0RdGWMvcocTAVI/TlnmgzbcSrl1SfEB
+        gpcXtWs5c+iM6tVVOgHxsbKGVTUIZBPSBO9l2wc8hltsg7pkikdLh9hvv/22Wr58uVqxYoW+j1uA1+HK
+        aOwjxG3SiGJANAbubACXyWEWADA9bEDTQRigRkYNbQCYwxbHIGCc5coYe5EuTQQYnPBCBboBXHOHIEcy
+        gF4oyQssolDAqtPUCYsoVauk6lW1qhRANpf5Hvw4dwWM7BLwPLaV4rMBzL8B0j6M8NZbb6lly5bp55DK
+        sfiDDIDUr1O+SyOKh0a3fjZAXZ3ROAM0psdtcQwCDiy5MsZesHOJBKmJR6lNqZ/CL1xDDBZEig+wQhYE
+        XE6NuTO+XSsd3QANoLCQIlu3hN+TMVu4RPbrnOI5zXPrZ9HBm2++qZYuXapfh9E8DICfg/eE163eAcKz
+        +BgAYkGIDYDFIFsMg4IM68oYe8HINJHAmRD/RmQBGhDeNW2aJ4IpPsASal5gpU0voVKrR7+P1F+ubJJK
+        IiAaxAMQBEBUCA3BGW7NbAB+DSMFZ9Gl2IsXL9YsWbJEg/t4DfYL3/oJgbUB3NbJImkD0HOOAerpMY9n
+        APo8eM4WxyCgm3VljL00JFcmEi0+jla53QAMYBOeyaSWnRdI/xgAplHqr1ihgha/bOnSqkyp0p7QXB9n
+        BG7xUnyYBSID9OHcsmXrln/jFgaQJli0aJFauHChBkbBgg4ERevW0z0SHGgDkEgQmGOD/h/LwTygRTeG
+        18n4RQNWW10ZYy/YgUSC6QmEz27uLFfimn4pCgvFQNy8QGvJoPSPeXNlfSStnDYBDqbIulA/C88tHRlB
+        pnbZytkENjOw6IBNgJa/YMECNX/+fDVv3jy9LWYlGKdAXF/Ld8Xn1A/0jIemgPhuZTYAXifjFw04qcSV
+        MfaCHUgk2DHt0PrO7YTxE7wWKFsqA3HzhIKFQ6xVK1dxjr1XrKRSylfQswEpNqd+7tMZGIBNIPt1meY5
+        tXN651YOwaXoYO7cueqNN97Q5oAxMUbB4M4nvCtSlogNFoAwA8D2MI42AJlCxi8aMMh2ZYy9wJUXkvHj
+        cjyBcGsaAC0hTyjIOKYOA+AYOw6ipNA4IDmpnG8MwAKzyNyyZYuWaRzC4hZ/y9Qu4W1gAIj++uuva157
+        7TVdF4yJLIXP6olOsEheLEj8eiR+XRovYEwD48AA3vMWsps2E0f/muv1f/k8ullXxtgLdiyRYH4qj1hh
+        JRBTLl6hCzMABSIvEKzqFCwsACEjIHCcCVh0meKlARhO7zABt3IpurwPsdHK0dq55eNvCP/qq6+qV155
+        RYNtYUwYAKnda+0kDtBCuXFxxHcWtbC906Wl+mJngrGUPvDjzqoguHweXa0rY+wFO5ZIEAA5UJmQM16n
+        ae6fTQNkVKuWJ2hl1WjOjLNv0mjq5LT+JFWOkOmdU7vsy/mWM4BM86YJON3LlG8a4OWXX1YvvfSSevHF
+        F/XjmMphIIiWjUO99euQOEQ9UJtiQkB4PA/xM2vWdKe0TpdmiyGDlq+Xfd2VP/wtn0cDc2WMvdSlnUok
+        6Af1OgDtOPpC/L4tUj+bwDQAn0KVG0j7mAGgxVenwKELwBpAMg0GudVDfJn2pfBSfBZeGoFNIMVGugdI
+        9dzqIT6Ef+GFF/Q5gTAEFnOcgWAt3cfrft4THWcIOcI74mNFkwxAhuEuzRZDBl0AH0gCEFw+j+zgyhh7
+        4Z1LFOj/vKNfZAacXi0XY0wD4IyaPHFX/yA6Bn7J5ZJVUpmyqmyZMj7BIbRs7bLF21K/bOksOm65tUN8
+        Fh6tnoV/7rnn1LPPPquNARH1AhWJ6wgeQq5m4nm9pkGtH90aVjRTqRuzxZBB6tezCndgib/l82horoyx
+        F8xJEwk7n/8eM3q0b5QO0XmqBhCIPNH9fxWVkuycUVuOBn9o/YBbOgvOQkvxudWb6R7i21o9I1s+p/1n
+        nnlG849//EM/hpM6YFCkdU9w+txacOAuZGkgPmWLDDI1ug6MYzhONpD+5UwCf5vPuzLGXmrTjiUSDE54
+        MQRwBuDlWTltw3QN4uYF0j9aS0Wa+sEQWAlE6y9ZoqRPbNmyTYGlyGjdDFo5w4JDWCk6g9b/9NNPq7//
+        /e/qqaee0n+jW8I+YkXQXL2E4AxPaWtUpwEtGUB/JnqtLYYMzingAR/6fPxtPu/KGHuxrbzFA9yKAYse
+        uNAO4iobbu0QnpdreX5ejQKRF2nU+qtg7k+tX68GplD/T1kAJmDxZSuXRoDwbAQYwGYEs6Wz8JzyZdqH
+        8H/729/Uk08+qf+uTPuSVqWKTuv4/LVIZAnWMBiIr8c01PrRpWFRy4wf4L4fqZ/7+zrU4jGoxmMYX2E7
+        bOPKGHsxdzhesLNIV9hRTAnx7Zqc/m2rcuhDPaiVm6Dlg0q4qIL6fpxTX65sWVWmdGlVulRpT3zZn0uR
+        zdYNkfmWgeAQm0XmFC9bO0Rn4f/617+qv/zlL/p57FdV6gYgrF9sZ/1CTmWR+tFdIGPgM8EAthiiEWEK
+        6aR6N6uQ4Mgk6F4xxcR2yLCujLEXudOJADuIAQsGLxgIYgzAUzXbHL0KBaEyBRGBdKjgQOmeQeqH+Bj4
+        wQDc/2M5GK0dwkdq0Swwt2izVUcSG0JDZIgtRX/iiSfU448/rsF2WJFEdoKoWmRMXUlo4M1kSHTgiJ+q
+        l7S5S7PFEKAB6e6DhObVUIDYyvuujLEX34pbAkDr1ycs6FlAA20AOVUzp2kpyck6naNVlyOBQVLpMh5l
+        AbX00iVLqpLFi+ttcRQQj5cuVcrXj0N4hkWHyGbLZnhAx4+b4kNs8Nhjj2keffRR7/aRRx7R28CYaMno
+        mkyxPdyxjB7PkAEwoMVrYABbDAFSPkb68jGMA5AV+G8MEF0ZYy+OaxMHnCnTHs7n4ykaT9PkVC2J+vFS
+        JUqoEsWKqeI33KApVrSo5gZQpIgqWriwKlKokCpMlCAT3EDbFKbHChYoYG3duYkO0NoZtHozzfN93JpZ
+        AcL/+c9/Vg8//LDOAjgwhYyF8xMwsvcgoQEE90DLx3jGTf8Y05jxkyDVy7/RNci/0dhcGWMvnK4She4C
+        yJkMLqWW83RzelaKRvI3FClKAhdWhQsWUoUKFlSFSNiC1xdQBa6/XhW47np1/XXXqeuuvU7fFiejwABF
+        yRhFyASc9pEB+JazgDmw434epoA52AwsMgOxZbpHi2cg/EMPPaT+9Kc/aTNgRTKFDABRkQVMfGMciE/d
+        BcRH14bsZ4shg8aEMRXuo/XrRiWex+zAlTH2Qi5dwWkrEWBH9SIQ9U/oo0YOH+6lexjAnI+j5aNla8FZ
+        bFfw6669Vl13zbXq2muuUdf8jwNaPYTHa3ALYWVfz0LLbACxITTE5fTOIKVDZE73uM9pHqC1c4uH8Prr
+        54kHHnhA/41xCdYmICwE5kGrBM8xWnwa61Sk15Sn7swWQ4k0gPkcHiMJLxNEXS5LTU29ulql1LfRTyUC
+        9FE8C4ARRpABZMs3F2EGDBhA6ZOmRBSoShSgivqET+ekzxQKVAVqXZj3lwcUNP08gfMB+/fr57VmTvec
+        8s0UL/+WKZ1bO8NmwK0EpkCLv//++9V9+M0B/CYBmQDjFAgJUX1CM/RZGAxg5aAWr7PF0ARjKdvjMEdW
+        VtZvSccroKVL4MIvuCIpKem/q1aqtNI2B48WTFfQd+klTAIZAAYAMIA5TcMAUZ4uxgeN5NoBw9NJnlIi
+        m8g+nkWWqRyjd1vr5lbNLZtBaucWDrGBvD9nzhx17733amACDFCTaVAKUTGbMdEzG3rOm9HAxIRjgCRr
+        DIOCgSLpd1V6evrvoCNxuatpoIIN8QK8+Kqrr766YOWUlHds/Vg0oJ/CvBUHRZAFhg0Z4qV8CC+na3J+
+        LvtrDOrkQowc1Mm0DvE5rUNonrIx/BhaNpuAkaN5meZlHy+NALGl+GyAMiVL6ZlLCtYoWOTcIPH1kja1
+        fowfbDEMCuJM2v038X+I3xNRZQLd+gm88GriuiuvvDIpJan8Oqy8xQrmrVjEwBkyyAT4dUvu95H6YxFd
+        tnLzb07rMqXzfYYNYEvrfAsjsPi4ZUOYRpAGgCFKFy9B3UBpLSi37tyAUbj1I3PYYhgUrBOQboWIPxL/
+        RaAxB84C2Aj9x1UEXISKyv72t7+tXa5s0j9tq3JBwOCElzRB/759dbrnFh+L6CwybvE8PyZbPwTmgRuA
+        qGa6ly0btwwLLFM9MLcB0gCgFE1L0Q2UJzEhbl7AKAAGwEKWLYZBwVoAaVaaKOhqeCUBTaM2wP8QRYkU
+        os4VV1zRsVzp0ptxsCJasNiBAxXon3CLa/ls0zNpAJsR2AQsNFq17Nu5dcvUz0aA8BAdrZqBARg2AgvL
+        gss0P2vWLP1jVBI8ZhqgZLHiuhtIxmzAFTc3IDy3fnQdthgGAQZAYyO9KhLFiWsJdAWcBfIsbACkDhig
+        GFGJaEDccvnll+eULVZ6N5ZqowFTFl7DhgHwowbc75vp38wCjDSAmQlYfO7bzZE7p3PZp7PILDCLjF8N
+        M8Hj2I7B65AZOEtI8UFJmsaWKVmSxMRswBE3LyB+srvyaYthEDDWIiP8QlqlE2WIAsQfCHTpgboBbIAx
+        ADIA+hDOAPWIjsSYyy677KkSJUocsu1AJDA65ZVA0LVLFy0cgIhSUJ6SQVDZd5vimv21KbJt0CZF5tbL
+        AgOzdTNsBL4PE6BernvmzJk+sI6BZepoDcBL37YY5gVPA8uUKXOCdKpFJBPowv8vIQeDuRY2APoNvBAV
+        JBE1idbEEOIxMsFbpQsVOmrbERucnpi2bdroQEEAGTj8zfBj+C3A6dOd3+7Tv983bZqaOnWqmsK/4Tdp
+        krrT/R0//Vt+48ernJwcNW7cODV69Gj9e34jRozQ8P3hNA0F+BuMHTs2V/C7gKjLhB8fNWqUjzKlMAtw
+        xMfgLihYAwC2GOYG0j4aGe6XK1duB2kUlwF4Goi+A31ICaIK0ZDoQkwjniMTLCtWrNhBGsWeoinMqUIF
+        Cpy2geeoCzhVs2ZNj+ZNmpzpcNNNZ5lGWQ3PNczK0mQ1aODdNqhf/1zdunU96tSuramdmXkus1YtTVZW
+        1vlEULNGjXMZ6eke+BvUYDIyNPx4y+yWZ1tmZ5/Nbt7ibJPGTYjGmsaNGp2tXLDQ6UoFCp4uTJ+f45NX
+        jHIDddioXCHl54opFX+qVLLkj7TdoaSySZto6o5GGnMXgCKzAM8EUFk1ohnRjRhHzCIeJB4hHiMeJ54Q
+        4G9ki0cLFSr0l9TU1L81bdr0qc6dOz8/aNCg16jlzKeWunDixImLqRUvoRb9JrXoZcRyauErqdWvpta/
+        hlhLGeF9St/rKfV+RGygFP8vSvX/S2ykVL+JUv9nxGZiK7GNuoPt9Ph2Gu3voG130t87cZ+234HHqTvY
+        Rql7K9W1her9nFL7Rkrtn1I38And/xe93wb6+0O6/wE9/z7driXW0OPYJ+zbCspGy4iltO+LKIu8PmTI
+        kFf79ev3SqdOnV4iQ72QnJz89B//+MfHf/e73yE+fyZw+yhikgt4HtuZ4PWSh4mHiPsINEiI3ploSdQm
+        MAjE+C3qQSCKzAI8GCxMwARVifrEjcQtRFeiJ9Gb6EP0FeDv3jRw7FWwYMH+6enpQ1u3bj2mf//+UylN
+        zyaR51DAH6B+9GHiERLqMeIJ6uOpy3/y79T3/4N4lsYDz9O44EUaH7xEvEKDwddooDiXpo3ziIXEIho8
+        LqFbsJQGlG/S38vodjmgx96S4Dn3+aVUz2K6v5geX0SD0UX02AK6nU+PzaNB6OvEa/R+eM8XaSBKk5Hn
+        6e5zz9BglIYvTz9F+/UkDTQfp89xL5kDn2kWGXt6ly5dJtavX38EjZX6XXXVVT0oDgBx6oWY5AKeDwrq
+        Q2PsRLQlmhCZRGWiFIFpINJ/VNNALpwFkDrgIJgAmaAkUZ5IJTIIuA0DRMwSsgzwGMxSr3Llys1uvvnm
+        dtRKOlGL70mtcAAN6gaRoINpADiEAj2cxBhBQowiAUaTEGPnzp2bs3DhwgnExEWLFt1Jt5OXLFkydfHi
+        xdMA/X0XPT59/vz5d9GMYgptj8fuXrBgwXTcx2MuUxmqdxrNPO6i58E0MG/evKlUB147jV47RdQ/mf6e
+        RM9NpPvYjwm07XiqZxz2D/uJfSYzDKLM0p2ySTfyQRfKZJ0HDhzYoVWrVtlJSUlZf/jDH+pSDADihHgg
+        LokAdaFeaAAt0DihDTSC+DEtBHHBxtIEqAhuQkpBNkB6gcswQCxH4I0rGOAxDETKFS9evFKdOnXSunbt
+        WosGYXUpdWZRCm5ELb4RpedG1OqbkCGaUqtqBqiVaajFNSdztKBAZ1OrbEXitSQRNCS+viURs0mUFngO
+        YDsS6EaGXt+KWm9L3CeDtQZkupYkXAsyYDa9jwb3sS2gbbB9tqi7OdXblPajMaBtG9Lsoz5lrrrUVdQh
+        4TNmzJiRQd1XOg0aq9PnrFqvXr2KRYsWTf7973+P+ADEwhanWOH4QgMs/GDeX4S4noh5KVgWaQK4CKkE
+        lcIIyAgwA94MAw04LhJ4/voiRYpcn5aWVqBZs2YFKUAF+/TpU2jAgAEFKWVqaARfiFKovnXvF2YouEUA
+        BbqoDTLTDfFgqxPw+8p94f1jeP/xWfCZ8NnwGan1FyhcuLD+7G4MzLggo8aKrAd1X0dcQ0B4LOFjGg/N
+        oF3Urd8seDEqQWXoS+AqvAGyAgwB8KaR0NvQjOG/MjMzNT169LgqOzv7yqFDh/qgAF91KWHuPz4XDQCv
+        4s+Jz8yf343FhQB1432gCRophIdOMbf8SIUrYzOwIYJyxS233HIFBe5yQH/r+vjvSx3zs+Cz4jMTZhwg
+        UKKQ9fL7ebElLOU3v/l/fDWAVAlwM2UAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -448,7 +448,7 @@
   <data name="tsnewdentotar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -463,22 +463,22 @@
   <data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="C1TrueDBDropdown1.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 213, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 213, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 284, 182&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 284, 182&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
   </data>
   <data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="C1TrueDBDropdown2.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 231, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 231, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 308, 182&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 308, 182&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>270, 17</value>

DPM2016/Klassen/clsStammdaten_flat.vb

@@ -25,6 +25,17 @@ Public Class clsStammdaten_flat
             End Try
         End Set
     End Property
+    Dim m_SQL As String = ""
+    Property SQL As String
+        Get
+            Return m_SQL
+        End Get
+        Set(value As String)
+            m_SQL = value
+        End Set
+    End Property
+
+
 
     Dim db As clsDB
     Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
@@ -59,8 +70,12 @@ Public Class clsStammdaten_flat
             Me.c1daten.DataMember = Nothing
             Me.c1daten.Splits(0).DisplayColumns.Clear()
             db.dsDaten.Tables.Clear()
+            If Me.SQL <> "" Then
+                db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
+            Else
+                db.Get_Tabledata(Me.Tablename)
 
-            db.Get_Tabledata(Me.Tablename)
+            End If
 
 
             Me.c1daten.DataSource = db.dsDaten
@@ -144,7 +159,7 @@ Public Class clsStammdaten_flat
         Catch ex As Exception
 
         End Try
-        MsgBox("Daten wurden gespeichert")
+        'MsgBox("Daten wurden gespeichert")
     End Sub
 
 
@@ -260,6 +275,9 @@ Public Class clsStammdaten_flat
                             Me.c1daten.Columns("MitLabor").Value = 0
                         End If
                         Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text
+                        Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1
+                        ToolStripButton6_Click(sender, e)
+                        Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1
                     End If
 
                     Exit Sub

DPM2016/Klassen/clspdfhelper.vb

@@ -43,7 +43,7 @@ Public Class clspdfhelper
             For i = 1 To Globals.pdfCollection.Count
                 pdfitem = Globals.pdfCollection.Item(i)
                 '                System.IO.File.Delete(Globals.pdfCollection.Item(i))
-                System.IO.File.Delete(pdfitem.Path)
+                If pdfitem.Path.IndexOf(My.Settings.DocArchivPath) > -1 Then System.IO.File.Delete(pdfitem.Path)
             Next
         End If
 

DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb

@@ -0,0 +1,863 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class PatientDetails
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.txtnrprivat = New System.Windows.Forms.TextBox()
+        Me.lblNr = New System.Windows.Forms.Label()
+        Me.lblAnrede = New System.Windows.Forms.Label()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.txtMutierer = New System.Windows.Forms.TextBox()
+        Me.txtMutiert_am = New System.Windows.Forms.TextBox()
+        Me.txtErstellt_am = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtFaxG = New System.Windows.Forms.TextBox()
+        Me.txtName = New System.Windows.Forms.TextBox()
+        Me.lbltelg = New System.Windows.Forms.Label()
+        Me.lblName = New System.Windows.Forms.Label()
+        Me.txtTelg = New System.Windows.Forms.TextBox()
+        Me.txtVorname = New System.Windows.Forms.TextBox()
+        Me.lblahv = New System.Windows.Forms.Label()
+        Me.txtahvnr = New System.Windows.Forms.TextBox()
+        Me.lblVorname = New System.Windows.Forms.Label()
+        Me.lblBeruf = New System.Windows.Forms.Label()
+        Me.txtBeruf = New System.Windows.Forms.TextBox()
+        Me.txtCOAdresse = New System.Windows.Forms.TextBox()
+        Me.lblArbeitgeber = New System.Windows.Forms.Label()
+        Me.lblCO = New System.Windows.Forms.Label()
+        Me.txtStrasse = New System.Windows.Forms.TextBox()
+        Me.lblSprache = New System.Windows.Forms.Label()
+        Me.lblStrasse = New System.Windows.Forms.Label()
+        Me.txtPLZ = New System.Windows.Forms.TextBox()
+        Me.lblStatus = New System.Windows.Forms.Label()
+        Me.lblPLZOrt = New System.Windows.Forms.Label()
+        Me.lblBriefanrede = New System.Windows.Forms.Label()
+        Me.txtOrt = New System.Windows.Forms.TextBox()
+        Me.txtBriefanrede = New System.Windows.Forms.TextBox()
+        Me.lblGebDat = New System.Windows.Forms.Label()
+        Me.lblGeschlecht = New System.Windows.Forms.Label()
+        Me.txttelp = New System.Windows.Forms.TextBox()
+        Me.lblInternet = New System.Windows.Forms.Label()
+        Me.lblTelefon = New System.Windows.Forms.Label()
+        Me.txtWeb = New System.Windows.Forms.TextBox()
+        Me.txtFaxp = New System.Windows.Forms.TextBox()
+        Me.lblemail = New System.Windows.Forms.Label()
+        Me.lblFaxP = New System.Windows.Forms.Label()
+        Me.txtE_Mail = New System.Windows.Forms.TextBox()
+        Me.txtNatel = New System.Windows.Forms.TextBox()
+        Me.lblMobile = New System.Windows.Forms.Label()
+        Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
+        Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
+        Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
+        Me.lblGLN = New System.Windows.Forms.Label()
+        Me.txtGLN = New System.Windows.Forms.TextBox()
+        Me.txtZSR = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
+        Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
+        Me.cbboxGeschlecht = New DPM2016.MyCombobox()
+        Me.cbboxSprache = New DPM2016.MyCombobox()
+        Me.cbboxStatus = New DPM2016.MyCombobox()
+        Me.cbboxNRTitel = New DPM2016.MyCombobox()
+        Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.SuspendLayout()
+        '
+        'txtnrprivat
+        '
+        Me.txtnrprivat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtnrprivat.Location = New System.Drawing.Point(74, 14)
+        Me.txtnrprivat.Name = "txtnrprivat"
+        Me.txtnrprivat.ReadOnly = True
+        Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
+        Me.txtnrprivat.TabIndex = 0
+        '
+        'lblNr
+        '
+        Me.lblNr.AutoSize = True
+        Me.lblNr.BackColor = System.Drawing.Color.Transparent
+        Me.lblNr.Location = New System.Drawing.Point(4, 16)
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Size = New System.Drawing.Size(21, 13)
+        Me.lblNr.TabIndex = 103
+        Me.lblNr.Text = "Nr."
+        '
+        'lblAnrede
+        '
+        Me.lblAnrede.AutoSize = True
+        Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblAnrede.Location = New System.Drawing.Point(4, 41)
+        Me.lblAnrede.Name = "lblAnrede"
+        Me.lblAnrede.Size = New System.Drawing.Size(41, 13)
+        Me.lblAnrede.TabIndex = 104
+        Me.lblAnrede.Text = "Anrede"
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.BackColor = System.Drawing.Color.Transparent
+        Me.lblTitel.Location = New System.Drawing.Point(4, 68)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(27, 13)
+        Me.lblTitel.TabIndex = 105
+        Me.lblTitel.Text = "Titel"
+        '
+        'txtMutierer
+        '
+        Me.txtMutierer.Location = New System.Drawing.Point(586, 257)
+        Me.txtMutierer.Name = "txtMutierer"
+        Me.txtMutierer.ReadOnly = True
+        Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtMutierer.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutierer.TabIndex = 207
+        '
+        'txtMutiert_am
+        '
+        Me.txtMutiert_am.Location = New System.Drawing.Point(586, 234)
+        Me.txtMutiert_am.Name = "txtMutiert_am"
+        Me.txtMutiert_am.ReadOnly = True
+        Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutiert_am.TabIndex = 206
+        '
+        'txtErstellt_am
+        '
+        Me.txtErstellt_am.Location = New System.Drawing.Point(586, 212)
+        Me.txtErstellt_am.Name = "txtErstellt_am"
+        Me.txtErstellt_am.ReadOnly = True
+        Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtErstellt_am.TabIndex = 205
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.BackColor = System.Drawing.Color.Transparent
+        Me.Label18.Location = New System.Drawing.Point(527, 260)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 13)
+        Me.Label18.TabIndex = 204
+        Me.Label18.Text = "Mutierer"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.BackColor = System.Drawing.Color.Transparent
+        Me.Label17.Location = New System.Drawing.Point(527, 237)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(56, 13)
+        Me.Label17.TabIndex = 203
+        Me.Label17.Text = "Mutiert am"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.BackColor = System.Drawing.Color.Transparent
+        Me.Label16.Location = New System.Drawing.Point(528, 215)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(55, 13)
+        Me.Label16.TabIndex = 202
+        Me.Label16.Text = "Erstellt am"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.BackColor = System.Drawing.Color.Transparent
+        Me.Label15.Location = New System.Drawing.Point(272, 280)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(50, 13)
+        Me.Label15.TabIndex = 201
+        Me.Label15.Text = "Gültig bis"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.BackColor = System.Drawing.Color.Transparent
+        Me.Label14.Location = New System.Drawing.Point(272, 256)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(49, 13)
+        Me.Label14.TabIndex = 200
+        Me.Label14.Text = "Gültig ab"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.BackColor = System.Drawing.Color.Transparent
+        Me.Label13.Location = New System.Drawing.Point(527, 42)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(53, 13)
+        Me.Label13.TabIndex = 199
+        Me.Label13.Text = "Adresstyp"
+        '
+        'chklbAdresstyp
+        '
+        Me.chklbAdresstyp.FormattingEnabled = True
+        Me.chklbAdresstyp.Items.AddRange(New Object() {"Patient", "Garant", "Zahnarzt", "Ges. Vertreter", "Hausarzt", "Behandler", "DH-Patient", "Nicht annehmen", "Nicht aufbieten", "Betreibung vorhanden"})
+        Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
+        Me.chklbAdresstyp.Name = "chklbAdresstyp"
+        Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
+        Me.chklbAdresstyp.TabIndex = 30
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(275, 327)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
+        Me.txtBemerkung.TabIndex = 29
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Location = New System.Drawing.Point(272, 307)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(61, 13)
+        Me.Label2.TabIndex = 198
+        Me.Label2.Text = "Bemerkung"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(272, 226)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 197
+        Me.Label1.Text = "Fax G."
+        '
+        'txtFaxG
+        '
+        Me.txtFaxG.Location = New System.Drawing.Point(342, 223)
+        Me.txtFaxG.Name = "txtFaxG"
+        Me.txtFaxG.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxG.TabIndex = 26
+        '
+        'txtName
+        '
+        Me.txtName.Location = New System.Drawing.Point(74, 93)
+        Me.txtName.Name = "txtName"
+        Me.txtName.Size = New System.Drawing.Size(162, 20)
+        Me.txtName.TabIndex = 3
+        '
+        'lbltelg
+        '
+        Me.lbltelg.AutoSize = True
+        Me.lbltelg.BackColor = System.Drawing.Color.Transparent
+        Me.lbltelg.Location = New System.Drawing.Point(272, 200)
+        Me.lbltelg.Name = "lbltelg"
+        Me.lbltelg.Size = New System.Drawing.Size(57, 13)
+        Me.lbltelg.TabIndex = 196
+        Me.lbltelg.Text = "Telefon G."
+        '
+        'lblName
+        '
+        Me.lblName.AutoSize = True
+        Me.lblName.BackColor = System.Drawing.Color.Transparent
+        Me.lblName.Location = New System.Drawing.Point(4, 96)
+        Me.lblName.Name = "lblName"
+        Me.lblName.Size = New System.Drawing.Size(35, 13)
+        Me.lblName.TabIndex = 178
+        Me.lblName.Text = "Name"
+        '
+        'txtTelg
+        '
+        Me.txtTelg.Location = New System.Drawing.Point(342, 197)
+        Me.txtTelg.Name = "txtTelg"
+        Me.txtTelg.Size = New System.Drawing.Size(162, 20)
+        Me.txtTelg.TabIndex = 25
+        '
+        'txtVorname
+        '
+        Me.txtVorname.Location = New System.Drawing.Point(74, 119)
+        Me.txtVorname.Name = "txtVorname"
+        Me.txtVorname.Size = New System.Drawing.Size(162, 20)
+        Me.txtVorname.TabIndex = 4
+        '
+        'lblahv
+        '
+        Me.lblahv.AutoSize = True
+        Me.lblahv.BackColor = System.Drawing.Color.Transparent
+        Me.lblahv.Location = New System.Drawing.Point(272, 148)
+        Me.lblahv.Name = "lblahv"
+        Me.lblahv.Size = New System.Drawing.Size(43, 13)
+        Me.lblahv.TabIndex = 195
+        Me.lblahv.Text = "AHV-Nr"
+        '
+        'txtahvnr
+        '
+        Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
+        Me.txtahvnr.Name = "txtahvnr"
+        Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
+        Me.txtahvnr.TabIndex = 22
+        '
+        'lblVorname
+        '
+        Me.lblVorname.AutoSize = True
+        Me.lblVorname.BackColor = System.Drawing.Color.Transparent
+        Me.lblVorname.Location = New System.Drawing.Point(4, 122)
+        Me.lblVorname.Name = "lblVorname"
+        Me.lblVorname.Size = New System.Drawing.Size(49, 13)
+        Me.lblVorname.TabIndex = 179
+        Me.lblVorname.Text = "Vorname"
+        '
+        'lblBeruf
+        '
+        Me.lblBeruf.AutoSize = True
+        Me.lblBeruf.BackColor = System.Drawing.Color.Transparent
+        Me.lblBeruf.Location = New System.Drawing.Point(272, 122)
+        Me.lblBeruf.Name = "lblBeruf"
+        Me.lblBeruf.Size = New System.Drawing.Size(32, 13)
+        Me.lblBeruf.TabIndex = 194
+        Me.lblBeruf.Text = "Beruf"
+        '
+        'txtBeruf
+        '
+        Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
+        Me.txtBeruf.Name = "txtBeruf"
+        Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
+        Me.txtBeruf.TabIndex = 21
+        '
+        'txtCOAdresse
+        '
+        Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
+        Me.txtCOAdresse.Name = "txtCOAdresse"
+        Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
+        Me.txtCOAdresse.TabIndex = 5
+        '
+        'lblArbeitgeber
+        '
+        Me.lblArbeitgeber.AutoSize = True
+        Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent
+        Me.lblArbeitgeber.Location = New System.Drawing.Point(272, 96)
+        Me.lblArbeitgeber.Name = "lblArbeitgeber"
+        Me.lblArbeitgeber.Size = New System.Drawing.Size(61, 13)
+        Me.lblArbeitgeber.TabIndex = 193
+        Me.lblArbeitgeber.Text = "Arbeitgeber"
+        '
+        'lblCO
+        '
+        Me.lblCO.AutoSize = True
+        Me.lblCO.BackColor = System.Drawing.Color.Transparent
+        Me.lblCO.Location = New System.Drawing.Point(4, 148)
+        Me.lblCO.Name = "lblCO"
+        Me.lblCO.Size = New System.Drawing.Size(27, 13)
+        Me.lblCO.TabIndex = 180
+        Me.lblCO.Text = "C/O"
+        '
+        'txtStrasse
+        '
+        Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
+        Me.txtStrasse.Name = "txtStrasse"
+        Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
+        Me.txtStrasse.TabIndex = 6
+        '
+        'lblSprache
+        '
+        Me.lblSprache.AutoSize = True
+        Me.lblSprache.BackColor = System.Drawing.Color.Transparent
+        Me.lblSprache.Location = New System.Drawing.Point(272, 69)
+        Me.lblSprache.Name = "lblSprache"
+        Me.lblSprache.Size = New System.Drawing.Size(47, 13)
+        Me.lblSprache.TabIndex = 192
+        Me.lblSprache.Text = "Sprache"
+        '
+        'lblStrasse
+        '
+        Me.lblStrasse.AutoSize = True
+        Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
+        Me.lblStrasse.Location = New System.Drawing.Point(4, 174)
+        Me.lblStrasse.Name = "lblStrasse"
+        Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
+        Me.lblStrasse.TabIndex = 181
+        Me.lblStrasse.Text = "Strasse"
+        '
+        'txtPLZ
+        '
+        Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
+        Me.txtPLZ.Name = "txtPLZ"
+        Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
+        Me.txtPLZ.TabIndex = 7
+        '
+        'lblStatus
+        '
+        Me.lblStatus.AutoSize = True
+        Me.lblStatus.BackColor = System.Drawing.Color.Transparent
+        Me.lblStatus.Location = New System.Drawing.Point(272, 42)
+        Me.lblStatus.Name = "lblStatus"
+        Me.lblStatus.Size = New System.Drawing.Size(37, 13)
+        Me.lblStatus.TabIndex = 191
+        Me.lblStatus.Text = "Status"
+        '
+        'lblPLZOrt
+        '
+        Me.lblPLZOrt.AutoSize = True
+        Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
+        Me.lblPLZOrt.Location = New System.Drawing.Point(4, 200)
+        Me.lblPLZOrt.Name = "lblPLZOrt"
+        Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
+        Me.lblPLZOrt.TabIndex = 182
+        Me.lblPLZOrt.Text = "PLZ/Ort"
+        '
+        'lblBriefanrede
+        '
+        Me.lblBriefanrede.AutoSize = True
+        Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblBriefanrede.Location = New System.Drawing.Point(4, 435)
+        Me.lblBriefanrede.Name = "lblBriefanrede"
+        Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13)
+        Me.lblBriefanrede.TabIndex = 190
+        Me.lblBriefanrede.Text = "Brief-Anrede"
+        '
+        'txtOrt
+        '
+        Me.txtOrt.Location = New System.Drawing.Point(128, 197)
+        Me.txtOrt.Name = "txtOrt"
+        Me.txtOrt.Size = New System.Drawing.Size(108, 20)
+        Me.txtOrt.TabIndex = 8
+        '
+        'txtBriefanrede
+        '
+        Me.txtBriefanrede.Location = New System.Drawing.Point(74, 432)
+        Me.txtBriefanrede.Name = "txtBriefanrede"
+        Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20)
+        Me.txtBriefanrede.TabIndex = 17
+        '
+        'lblGebDat
+        '
+        Me.lblGebDat.AutoSize = True
+        Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
+        Me.lblGebDat.Location = New System.Drawing.Point(4, 253)
+        Me.lblGebDat.Name = "lblGebDat"
+        Me.lblGebDat.Size = New System.Drawing.Size(44, 13)
+        Me.lblGebDat.TabIndex = 183
+        Me.lblGebDat.Text = "GebDat"
+        '
+        'lblGeschlecht
+        '
+        Me.lblGeschlecht.AutoSize = True
+        Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
+        Me.lblGeschlecht.Location = New System.Drawing.Point(4, 408)
+        Me.lblGeschlecht.Name = "lblGeschlecht"
+        Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13)
+        Me.lblGeschlecht.TabIndex = 189
+        Me.lblGeschlecht.Text = "Geschlecht"
+        '
+        'txttelp
+        '
+        Me.txttelp.Location = New System.Drawing.Point(74, 275)
+        Me.txttelp.Name = "txttelp"
+        Me.txttelp.Size = New System.Drawing.Size(162, 20)
+        Me.txttelp.TabIndex = 11
+        '
+        'lblInternet
+        '
+        Me.lblInternet.AutoSize = True
+        Me.lblInternet.BackColor = System.Drawing.Color.Transparent
+        Me.lblInternet.Location = New System.Drawing.Point(4, 382)
+        Me.lblInternet.Name = "lblInternet"
+        Me.lblInternet.Size = New System.Drawing.Size(43, 13)
+        Me.lblInternet.TabIndex = 188
+        Me.lblInternet.Text = "Internet"
+        '
+        'lblTelefon
+        '
+        Me.lblTelefon.AutoSize = True
+        Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
+        Me.lblTelefon.Location = New System.Drawing.Point(4, 278)
+        Me.lblTelefon.Name = "lblTelefon"
+        Me.lblTelefon.Size = New System.Drawing.Size(55, 13)
+        Me.lblTelefon.TabIndex = 184
+        Me.lblTelefon.Text = "Telefon p."
+        '
+        'txtWeb
+        '
+        Me.txtWeb.Location = New System.Drawing.Point(74, 379)
+        Me.txtWeb.Name = "txtWeb"
+        Me.txtWeb.Size = New System.Drawing.Size(162, 20)
+        Me.txtWeb.TabIndex = 15
+        '
+        'txtFaxp
+        '
+        Me.txtFaxp.Location = New System.Drawing.Point(74, 301)
+        Me.txtFaxp.Name = "txtFaxp"
+        Me.txtFaxp.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxp.TabIndex = 12
+        '
+        'lblemail
+        '
+        Me.lblemail.AutoSize = True
+        Me.lblemail.BackColor = System.Drawing.Color.Transparent
+        Me.lblemail.Location = New System.Drawing.Point(4, 356)
+        Me.lblemail.Name = "lblemail"
+        Me.lblemail.Size = New System.Drawing.Size(36, 13)
+        Me.lblemail.TabIndex = 187
+        Me.lblemail.Text = "E-Mail"
+        '
+        'lblFaxP
+        '
+        Me.lblFaxP.AutoSize = True
+        Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
+        Me.lblFaxP.Location = New System.Drawing.Point(4, 304)
+        Me.lblFaxP.Name = "lblFaxP"
+        Me.lblFaxP.Size = New System.Drawing.Size(36, 13)
+        Me.lblFaxP.TabIndex = 185
+        Me.lblFaxP.Text = "Fax p."
+        '
+        'txtE_Mail
+        '
+        Me.txtE_Mail.Location = New System.Drawing.Point(74, 353)
+        Me.txtE_Mail.Name = "txtE_Mail"
+        Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
+        Me.txtE_Mail.TabIndex = 14
+        '
+        'txtNatel
+        '
+        Me.txtNatel.Location = New System.Drawing.Point(74, 327)
+        Me.txtNatel.Name = "txtNatel"
+        Me.txtNatel.Size = New System.Drawing.Size(162, 20)
+        Me.txtNatel.TabIndex = 13
+        '
+        'lblMobile
+        '
+        Me.lblMobile.AutoSize = True
+        Me.lblMobile.BackColor = System.Drawing.Color.Transparent
+        Me.lblMobile.Location = New System.Drawing.Point(4, 330)
+        Me.lblMobile.Name = "lblMobile"
+        Me.lblMobile.Size = New System.Drawing.Size(38, 13)
+        Me.lblMobile.TabIndex = 186
+        Me.lblMobile.Text = "Mobile"
+        '
+        'dtgebdat
+        '
+        Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgebdat.Location = New System.Drawing.Point(74, 247)
+        Me.dtgebdat.Name = "dtgebdat"
+        Me.dtgebdat.Size = New System.Drawing.Size(162, 20)
+        Me.dtgebdat.TabIndex = 10
+        '
+        'dtGueltigab
+        '
+        Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtGueltigab.Location = New System.Drawing.Point(342, 251)
+        Me.dtGueltigab.Name = "dtGueltigab"
+        Me.dtGueltigab.Size = New System.Drawing.Size(162, 20)
+        Me.dtGueltigab.TabIndex = 27
+        '
+        'dtgueltigbis
+        '
+        Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgueltigbis.Location = New System.Drawing.Point(342, 277)
+        Me.dtgueltigbis.Name = "dtgueltigbis"
+        Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
+        Me.dtgueltigbis.TabIndex = 28
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(3, 225)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(41, 13)
+        Me.Label3.TabIndex = 208
+        Me.Label3.Text = "Kanton"
+        '
+        'cbtxtboxKanton
+        '
+        Me.cbtxtboxKanton.FormattingEnabled = True
+        Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
+        Me.cbtxtboxKanton.Location = New System.Drawing.Point(74, 221)
+        Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
+        Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
+        Me.cbtxtboxKanton.TabIndex = 9
+        '
+        'lblGLN
+        '
+        Me.lblGLN.AutoSize = True
+        Me.lblGLN.BackColor = System.Drawing.Color.Transparent
+        Me.lblGLN.Location = New System.Drawing.Point(272, 174)
+        Me.lblGLN.Name = "lblGLN"
+        Me.lblGLN.Size = New System.Drawing.Size(56, 13)
+        Me.lblGLN.TabIndex = 210
+        Me.lblGLN.Text = "GLN/ZSR"
+        '
+        'txtGLN
+        '
+        Me.txtGLN.Location = New System.Drawing.Point(342, 171)
+        Me.txtGLN.Name = "txtGLN"
+        Me.txtGLN.Size = New System.Drawing.Size(107, 20)
+        Me.txtGLN.TabIndex = 23
+        '
+        'txtZSR
+        '
+        Me.txtZSR.Location = New System.Drawing.Point(455, 171)
+        Me.txtZSR.Name = "txtZSR"
+        Me.txtZSR.Size = New System.Drawing.Size(49, 20)
+        Me.txtZSR.TabIndex = 24
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(528, 308)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(101, 13)
+        Me.Label4.TabIndex = 211
+        Me.Label4.Text = "Mail-Kommunikation"
+        '
+        'chkMail_Kommunikation
+        '
+        Me.chkMail_Kommunikation.AutoSize = True
+        Me.chkMail_Kommunikation.Location = New System.Drawing.Point(706, 308)
+        Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
+        Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14)
+        Me.chkMail_Kommunikation.TabIndex = 212
+        Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
+        '
+        'cbboxNRArbeitgeber
+        '
+        Me.cbboxNRArbeitgeber.Dataselection = Nothing
+        Me.cbboxNRArbeitgeber.Displaymember = Nothing
+        Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
+        Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
+        Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRArbeitgeber.TabIndex = 20
+        Me.cbboxNRArbeitgeber.Table = Nothing
+        Me.cbboxNRArbeitgeber.TableAlias = ""
+        Me.cbboxNRArbeitgeber.Valuemember = Nothing
+        '
+        'cbboxGeschlecht
+        '
+        Me.cbboxGeschlecht.Dataselection = Nothing
+        Me.cbboxGeschlecht.Displaymember = Nothing
+        Me.cbboxGeschlecht.Location = New System.Drawing.Point(74, 405)
+        Me.cbboxGeschlecht.Name = "cbboxGeschlecht"
+        Me.cbboxGeschlecht.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxGeschlecht.TabIndex = 16
+        Me.cbboxGeschlecht.Table = Nothing
+        Me.cbboxGeschlecht.TableAlias = ""
+        Me.cbboxGeschlecht.Valuemember = Nothing
+        '
+        'cbboxSprache
+        '
+        Me.cbboxSprache.Dataselection = Nothing
+        Me.cbboxSprache.Displaymember = Nothing
+        Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
+        Me.cbboxSprache.Name = "cbboxSprache"
+        Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxSprache.TabIndex = 19
+        Me.cbboxSprache.Table = Nothing
+        Me.cbboxSprache.TableAlias = ""
+        Me.cbboxSprache.Valuemember = Nothing
+        '
+        'cbboxStatus
+        '
+        Me.cbboxStatus.Dataselection = Nothing
+        Me.cbboxStatus.Displaymember = Nothing
+        Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
+        Me.cbboxStatus.Name = "cbboxStatus"
+        Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxStatus.TabIndex = 18
+        Me.cbboxStatus.Table = Nothing
+        Me.cbboxStatus.TableAlias = ""
+        Me.cbboxStatus.Valuemember = Nothing
+        '
+        'cbboxNRTitel
+        '
+        Me.cbboxNRTitel.Dataselection = Nothing
+        Me.cbboxNRTitel.Displaymember = Nothing
+        Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
+        Me.cbboxNRTitel.Name = "cbboxNRTitel"
+        Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRTitel.TabIndex = 2
+        Me.cbboxNRTitel.Table = Nothing
+        Me.cbboxNRTitel.TableAlias = ""
+        Me.cbboxNRTitel.Valuemember = Nothing
+        '
+        'cbboxNrAnrede
+        '
+        Me.cbboxNrAnrede.Dataselection = Nothing
+        Me.cbboxNrAnrede.Displaymember = Nothing
+        Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
+        Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
+        Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNrAnrede.TabIndex = 1
+        Me.cbboxNrAnrede.Table = Nothing
+        Me.cbboxNrAnrede.TableAlias = ""
+        Me.cbboxNrAnrede.Valuemember = Nothing
+        '
+        'PatientDetails
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.chkMail_Kommunikation)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtZSR)
+        Me.Controls.Add(Me.txtGLN)
+        Me.Controls.Add(Me.lblGLN)
+        Me.Controls.Add(Me.cbtxtboxKanton)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.cbboxNRArbeitgeber)
+        Me.Controls.Add(Me.cbboxGeschlecht)
+        Me.Controls.Add(Me.cbboxSprache)
+        Me.Controls.Add(Me.cbboxStatus)
+        Me.Controls.Add(Me.cbboxNRTitel)
+        Me.Controls.Add(Me.cbboxNrAnrede)
+        Me.Controls.Add(Me.dtgueltigbis)
+        Me.Controls.Add(Me.dtGueltigab)
+        Me.Controls.Add(Me.dtgebdat)
+        Me.Controls.Add(Me.txtMutierer)
+        Me.Controls.Add(Me.txtMutiert_am)
+        Me.Controls.Add(Me.txtErstellt_am)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.chklbAdresstyp)
+        Me.Controls.Add(Me.txtBemerkung)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFaxG)
+        Me.Controls.Add(Me.txtName)
+        Me.Controls.Add(Me.lbltelg)
+        Me.Controls.Add(Me.lblName)
+        Me.Controls.Add(Me.txtTelg)
+        Me.Controls.Add(Me.txtVorname)
+        Me.Controls.Add(Me.lblahv)
+        Me.Controls.Add(Me.txtahvnr)
+        Me.Controls.Add(Me.lblVorname)
+        Me.Controls.Add(Me.lblBeruf)
+        Me.Controls.Add(Me.txtBeruf)
+        Me.Controls.Add(Me.txtCOAdresse)
+        Me.Controls.Add(Me.lblArbeitgeber)
+        Me.Controls.Add(Me.lblCO)
+        Me.Controls.Add(Me.txtStrasse)
+        Me.Controls.Add(Me.lblSprache)
+        Me.Controls.Add(Me.lblStrasse)
+        Me.Controls.Add(Me.txtPLZ)
+        Me.Controls.Add(Me.lblStatus)
+        Me.Controls.Add(Me.lblPLZOrt)
+        Me.Controls.Add(Me.lblBriefanrede)
+        Me.Controls.Add(Me.txtOrt)
+        Me.Controls.Add(Me.txtBriefanrede)
+        Me.Controls.Add(Me.lblGebDat)
+        Me.Controls.Add(Me.lblGeschlecht)
+        Me.Controls.Add(Me.txttelp)
+        Me.Controls.Add(Me.lblInternet)
+        Me.Controls.Add(Me.lblTelefon)
+        Me.Controls.Add(Me.txtWeb)
+        Me.Controls.Add(Me.txtFaxp)
+        Me.Controls.Add(Me.lblemail)
+        Me.Controls.Add(Me.lblFaxP)
+        Me.Controls.Add(Me.txtE_Mail)
+        Me.Controls.Add(Me.txtNatel)
+        Me.Controls.Add(Me.lblMobile)
+        Me.Controls.Add(Me.txtnrprivat)
+        Me.Controls.Add(Me.lblNr)
+        Me.Controls.Add(Me.lblAnrede)
+        Me.Controls.Add(Me.lblTitel)
+        Me.Name = "PatientDetailFirma"
+        Me.Size = New System.Drawing.Size(737, 461)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtnrprivat As System.Windows.Forms.TextBox
+    Friend WithEvents lblNr As System.Windows.Forms.Label
+    Friend WithEvents lblAnrede As System.Windows.Forms.Label
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
+    Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
+    Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents chklbAdresstyp As System.Windows.Forms.CheckedListBox
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtFaxG As System.Windows.Forms.TextBox
+    Friend WithEvents txtName As System.Windows.Forms.TextBox
+    Friend WithEvents lbltelg As System.Windows.Forms.Label
+    Friend WithEvents lblName As System.Windows.Forms.Label
+    Friend WithEvents txtTelg As System.Windows.Forms.TextBox
+    Friend WithEvents txtVorname As System.Windows.Forms.TextBox
+    Friend WithEvents lblahv As System.Windows.Forms.Label
+    Friend WithEvents txtahvnr As System.Windows.Forms.TextBox
+    Friend WithEvents lblVorname As System.Windows.Forms.Label
+    Friend WithEvents lblBeruf As System.Windows.Forms.Label
+    Friend WithEvents txtBeruf As System.Windows.Forms.TextBox
+    Friend WithEvents txtCOAdresse As System.Windows.Forms.TextBox
+    Friend WithEvents lblArbeitgeber As System.Windows.Forms.Label
+    Friend WithEvents lblCO As System.Windows.Forms.Label
+    Friend WithEvents txtStrasse As System.Windows.Forms.TextBox
+    Friend WithEvents lblSprache As System.Windows.Forms.Label
+    Friend WithEvents lblStrasse As System.Windows.Forms.Label
+    Friend WithEvents txtPLZ As System.Windows.Forms.TextBox
+    Friend WithEvents lblStatus As System.Windows.Forms.Label
+    Friend WithEvents lblPLZOrt As System.Windows.Forms.Label
+    Friend WithEvents lblBriefanrede As System.Windows.Forms.Label
+    Friend WithEvents txtOrt As System.Windows.Forms.TextBox
+    Friend WithEvents txtBriefanrede As System.Windows.Forms.TextBox
+    Friend WithEvents lblGebDat As System.Windows.Forms.Label
+    Friend WithEvents lblGeschlecht As System.Windows.Forms.Label
+    Friend WithEvents txttelp As System.Windows.Forms.TextBox
+    Friend WithEvents lblInternet As System.Windows.Forms.Label
+    Friend WithEvents lblTelefon As System.Windows.Forms.Label
+    Friend WithEvents txtWeb As System.Windows.Forms.TextBox
+    Friend WithEvents txtFaxp As System.Windows.Forms.TextBox
+    Friend WithEvents lblemail As System.Windows.Forms.Label
+    Friend WithEvents lblFaxP As System.Windows.Forms.Label
+    Friend WithEvents txtE_Mail As System.Windows.Forms.TextBox
+    Friend WithEvents txtNatel As System.Windows.Forms.TextBox
+    Friend WithEvents lblMobile As System.Windows.Forms.Label
+    Friend WithEvents dtgebdat As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtGueltigab As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtgueltigbis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents cbboxNrAnrede As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox
+    Friend WithEvents cbboxStatus As DPM2016.MyCombobox
+    Friend WithEvents cbboxSprache As DPM2016.MyCombobox
+    Friend WithEvents cbboxGeschlecht As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents cbtxtboxKanton As ComboBox
+    Friend WithEvents lblGLN As Label
+    Friend WithEvents txtGLN As TextBox
+    Friend WithEvents txtZSR As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents chkMail_Kommunikation As CheckBox
+End Class

DPM2016/Patient/Firma/PatientDetailFirma.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

DPM2016/Patient/Firma/PatientDetailFirma.vb

@@ -0,0 +1,551 @@
+Imports DPM2016.MyCombobox
+Public Class PatientDetailFirma
+
+#Region "Properties"
+    Dim m_patientnr As Integer
+
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                m_patientnr = value
+                Fill_Stammdaten()
+                log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
+                Get_Data()
+                log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
+                AddChanges(Me)
+                Me.cbboxNrAnrede.Select()
+                Me.HasChanges = False
+                Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
+
+            Catch ex As Exception
+                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
+            End Try
+        End Set
+    End Property
+
+    Dim m_patname As String
+    Property Patientname As String
+        Get
+            Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim FormReadonly As Boolean = False
+    Dim log As New clsLog
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            chklbAdresstyp.Items.Clear()
+            chklbAdresstyp.Items.Add("Leistungserbringer")
+
+        End If
+        log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
+        Me.cbboxNrAnrede.Table = "Anrede"
+        Me.cbboxNrAnrede.Displaymember = "Anrede_D"
+        Me.cbboxNrAnrede.Valuemember = "NRANREDE"
+
+        Me.cbboxNRTitel.Table = "Titel"
+        Me.cbboxNRTitel.Displaymember = "Titel_D"
+        Me.cbboxNRTitel.Valuemember = "NRTITEL"
+
+        Me.cbboxSprache.Table = "Sprache"
+        Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
+        Me.cbboxSprache.Valuemember = "Sprachcode"
+
+        Me.cbboxStatus.Table = "Status"
+        Me.cbboxStatus.Displaymember = "Status"
+        Me.cbboxStatus.Valuemember = "nrstatus"
+
+        Me.cbboxGeschlecht.Table = "Geschlecht"
+        Me.cbboxGeschlecht.Displaymember = "Geschlecht"
+        Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
+
+        Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
+        Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
+        Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
+        Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
+
+        log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
+
+    End Sub
+
+    Sub Get_Data()
+        Dim ctlname As String
+        Dim colname As String
+        Try
+            If Globals.Hide_Gueltig_bis Then
+                Me.Label15.Visible = False
+                Me.dtgueltigbis.Visible = False
+            End If
+
+            DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+            Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+
+                colname = c.ColumnName
+                Debug.Print(colname)
+                For Each Ctl As Control In Me.Controls
+                    'Dim objtype As System.Type = Ctl.GetType
+                    'If objtype.Name = "Label" Then
+                    '    Exit For
+                    'End If
+                    ctlname = Ctl.Name
+                    log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
+                    If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Ctl.Text = r(c.ColumnName).ToString
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As MyCombobox
+                        Dim o As Object = Ctl
+                        Try
+                            o.SelectedValue = r(c.ColumnName)
+                        Catch
+                            o.SelectedValue = -1
+                        End Try
+
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As ComboBox
+                        Dim o As Object = Ctl
+                        Try
+                            o.text = r(c.ColumnName)
+                        Catch
+                            o.Text = ""
+                        End Try
+
+                        Exit For
+                    End If
+
+                    If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim dt As DateTimePicker
+                        dt = Ctl
+                        'Try
+                        '    dt.Value = r(c.ColumnName)
+                        'Catch
+                        '    dt.Value = "  .  .    "
+                        'End Try
+
+                        Try
+                            dt.Value = r(c.ColumnName)
+                            dt.Format = DateTimePickerFormat.Short
+                        Catch
+
+                            dt.CustomFormat = " "  'An empty SPACE
+                            dt.Format = DateTimePickerFormat.Custom
+
+                        End Try
+
+
+                        Exit For
+                    End If
+                    'If UCase(Ctl.Name) = "CHKMAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Hallo")
+                    'End If
+                    'If UCase(r(c.ColumnName)) = "MAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Bello")
+                    'End If
+                    If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                        Dim cb As CheckBox
+                        cb = Ctl
+
+                        Try
+                            cb.Checked = r(c.ColumnName)
+                        Catch ex As Exception
+
+                        End Try
+                        Exit For
+                    End If
+                Next
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    If LCase(c.ColumnName) = "behandler" Then
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                    End If
+                Else
+
+                    Select Case LCase(c.ColumnName)
+                        Case "patient"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "garant"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "gesvertreter"
+                            Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "hausarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "zahnarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "behandler"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "dhpat"
+                            Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtaufbieten"
+                            Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtannehmen"
+                            Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "betreibung"
+                            Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    End Select
+                End If
+
+            Next
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+    End Sub
+
+    Private Sub Set_Adresstype(ByVal feldname, value)
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            If value <> False Then chklbAdresstyp.SetItemCheckState(0, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(0, CheckState.Unchecked)
+
+        End If
+        Dim i As Integer
+        For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+            If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                Try
+                    If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                Catch ex As Exception
+                    chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                End Try
+            End If
+        Next
+    End Sub
+
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            For Each Ctl As Control In Me.Controls
+                If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
+                        r(c.ColumnName) = Ctl.Text
+                        Exit For
+                    End If
+                End If
+                If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.selectedvalue
+                    Catch ex As Exception
+                        r(c.ColumnName) = 0
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.text
+                    Catch ex As Exception
+                        r(c.ColumnName) = ""
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = Ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+
+                If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim cb As CheckBox
+                    cb = Ctl
+                    r(c.ColumnName) = cb.Checked
+                    Exit For
+                End If
+            Next
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Select Case LCase(c.ColumnName)
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                End Select
+            Else
+                Select Case LCase(c.ColumnName)
+                    Case "patient"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "garant"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "gesvertreter"
+                        r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
+                    Case "hausarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "zahnarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "dhpat"
+                        r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
+                    Case "nichtaufbieten"
+                        r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
+                    Case "nichtannehmen"
+                        r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
+                    Case "betreibung"
+                        r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
+                End Select
+            End If
+
+        Next
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+
+    End Sub
+
+    Private Function Get_Adresstype(ByVal feldname, value) As Integer
+        Try
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If UCase(feldname) = "BEHANDLER" Then Return chklbAdresstyp.GetItemChecked(0)
+            Else
+                Dim i As Integer
+                For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+                    If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                        Return chklbAdresstyp.GetItemChecked(i)
+                    End If
+                Next
+            End If
+        Catch
+            Return -1
+        End Try
+
+    End Function
+
+
+
+#End Region
+
+    Public Function Create_new()
+
+    End Function
+
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+
+    Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
+        Dim alt As String = Me.txtBriefanrede.Text
+        Dim neu As String
+        If Me.cbboxNrAnrede.Text = "Frau" Then
+            neu = "Sehr geehrte Frau "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        Else
+            neu = "Sehr geehrter Herr "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        End If
+        If alt <> neu Then Me.txtBriefanrede.Text = neu
+    End Sub
+
+
+    Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
+        If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
+    End Sub
+
+    Private Sub PatientDetailFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
+        If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
+    End Sub
+
+
+End Class

DPM2016/Patient/Patient.Designer.vb

@@ -41,30 +41,33 @@ Partial Class Patient
         Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
         Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.btnVTX = New System.Windows.Forms.Button()
-        Me.PatientDetails1 = New DPM2016.PatientDetails()
         Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
         Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.ClsDokumente1 = New DPM2016.clsDokumente()
         Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Recall1 = New DPM2016.Recall()
         Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Behandlung1 = New DPM2016.Behandlung()
         Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
         Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Finanzen1 = New DPM2016.Finanzen()
         Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.PatientDetails1 = New DPM2016.PatientDetails()
+        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
+        Me.ClsDokumente1 = New DPM2016.clsDokumente()
+        Me.Recall1 = New DPM2016.Recall()
+        Me.Finanzen1 = New DPM2016.Finanzen()
+        Me.Behandlung1 = New DPM2016.Behandlung()
+        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
+        Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
         Me.ToolStrip1.SuspendLayout()
         CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuperTabControl1.SuspendLayout()
@@ -76,6 +79,7 @@ Partial Class Patient
         Me.SuperTabControlPanel2.SuspendLayout()
         Me.SuperTabControlPanel5.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
+        Me.SuperTabControlPanel8.SuspendLayout()
         Me.SuspendLayout()
         '
         'ToolStrip1
@@ -83,9 +87,9 @@ Partial Class Patient
         Me.ToolStrip1.AllowDrop = True
         Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.tstxtsuche, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 30)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1278, 27)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1704, 31)
         Me.ToolStrip1.TabIndex = 15
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -95,7 +99,7 @@ Partial Class Patient
         Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
         Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnquit.Name = "tsbtnquit"
-        Me.tsbtnquit.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnquit.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnquit.Text = "Schliessen"
         '
         'tsbtnnew
@@ -104,7 +108,7 @@ Partial Class Patient
         Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
         Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnew.Name = "tsbtnnew"
-        Me.tsbtnnew.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnnew.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnnew.Text = "Neuer Datensatz"
         '
         'tsbtnSave
@@ -113,7 +117,7 @@ Partial Class Patient
         Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
         Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnSave.Name = "tsbtnSave"
-        Me.tsbtnSave.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnSave.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnSave.Text = "Speichern"
         '
         'ToolStripButton4
@@ -122,14 +126,15 @@ Partial Class Patient
         Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
         Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(24, 24)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
         Me.ToolStripButton4.Visible = False
         '
         'tstxtsuche
         '
+        Me.tstxtsuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.tstxtsuche.Name = "tstxtsuche"
-        Me.tstxtsuche.Size = New System.Drawing.Size(100, 27)
+        Me.tstxtsuche.Size = New System.Drawing.Size(132, 31)
         '
         'ToolStripButton2
         '
@@ -137,7 +142,7 @@ Partial Class Patient
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(24, 24)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton2.Text = "Dokument löschen"
         Me.ToolStripButton2.Visible = False
         '
@@ -147,14 +152,14 @@ Partial Class Patient
         Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(24, 24)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton3.Text = "Dokument anzeigen"
         Me.ToolStripButton3.Visible = False
         '
         'ToolStripLabel1
         '
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 24)
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(48, 28)
         Me.ToolStripLabel1.Text = "Suche"
         '
         'tsbtnfirst
@@ -163,7 +168,7 @@ Partial Class Patient
         Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
         Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnfirst.Name = "tsbtnfirst"
-        Me.tsbtnfirst.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnfirst.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnfirst.Text = "Erster Datensatz"
         '
         'tsbtprev
@@ -172,7 +177,7 @@ Partial Class Patient
         Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
         Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtprev.Name = "tsbtprev"
-        Me.tsbtprev.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtprev.Size = New System.Drawing.Size(29, 28)
         Me.tsbtprev.Text = "Vorheriger Datensatz"
         '
         'tsbtnnext
@@ -181,7 +186,7 @@ Partial Class Patient
         Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
         Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnext.Name = "tsbtnnext"
-        Me.tsbtnnext.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnnext.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnnext.Text = "nächster Datensatz"
         '
         'tsbtnlast
@@ -190,13 +195,13 @@ Partial Class Patient
         Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
         Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnlast.Name = "tsbtnlast"
-        Me.tsbtnlast.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnlast.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnlast.Text = "Letzter Datensatz"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 27)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
         '
         'tsbtnVTX
         '
@@ -204,7 +209,7 @@ Partial Class Patient
         Me.tsbtnVTX.Image = CType(resources.GetObject("tsbtnVTX.Image"), System.Drawing.Image)
         Me.tsbtnVTX.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnVTX.Name = "tsbtnVTX"
-        Me.tsbtnVTX.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnVTX.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnVTX.Text = "ToolStripButton1"
         '
         'SuperTabControl1
@@ -222,23 +227,25 @@ Partial Class Patient
         Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
         Me.SuperTabControl1.ControlBox.Name = ""
         Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
         Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 51)
+        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 61)
+        Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControl1.Name = "SuperTabControl1"
         Me.SuperTabControl1.ReorderTabsEnabled = True
         Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
         Me.SuperTabControl1.SelectedTabIndex = 0
-        Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 635)
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1704, 783)
         Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.SuperTabControl1.TabIndex = 18
-        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
+        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Stammdaten_Firma, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
         Me.SuperTabControl1.Text = "SuperTabControl1"
         '
         'SuperTabControlPanel1
@@ -246,33 +253,23 @@ Partial Class Patient
         Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
         Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
         Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
-        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel1.TabIndex = 1
         Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
         '
         'btnVTX
         '
         Me.btnVTX.Image = CType(resources.GetObject("btnVTX.Image"), System.Drawing.Image)
-        Me.btnVTX.Location = New System.Drawing.Point(739, 38)
+        Me.btnVTX.Location = New System.Drawing.Point(985, 47)
+        Me.btnVTX.Margin = New System.Windows.Forms.Padding(4)
         Me.btnVTX.Name = "btnVTX"
-        Me.btnVTX.Size = New System.Drawing.Size(75, 41)
+        Me.btnVTX.Size = New System.Drawing.Size(100, 50)
         Me.btnVTX.TabIndex = 18
         Me.btnVTX.UseVisualStyleBackColor = True
         '
-        'PatientDetails1
-        '
-        Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientDetails1.HasChanges = False
-        Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientDetails1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PatientDetails1.Name = "PatientDetails1"
-        Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
-        Me.PatientDetails1.PatientNr = 0
-        Me.PatientDetails1.Size = New System.Drawing.Size(1278, 610)
-        Me.PatientDetails1.TabIndex = 17
-        '
         'Stammdaten
         '
         Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
@@ -284,22 +281,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
         Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel4.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
-        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel4.TabIndex = 0
         Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
         '
-        'Krankengeschichte1
-        '
-        Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
-        Me.Krankengeschichte1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Krankengeschichte1.Name = "Krankengeschichte1"
-        Me.Krankengeschichte1.Patientnr = 0
-        Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
-        Me.Krankengeschichte1.TabIndex = 0
-        '
         'Krankengeschichte
         '
         Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
@@ -311,22 +299,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
         Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel7.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
-        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel7.TabIndex = 0
         Me.SuperTabControlPanel7.TabItem = Me.Dokumente
         '
-        'ClsDokumente1
-        '
-        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
-        Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.ClsDokumente1.Name = "ClsDokumente1"
-        Me.ClsDokumente1.Patientnr = 0
-        Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 612)
-        Me.ClsDokumente1.TabIndex = 0
-        '
         'Dokumente
         '
         Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
@@ -338,22 +317,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
         Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel6.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
-        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel6.TabIndex = 0
         Me.SuperTabControlPanel6.TabItem = Me.Recall
         '
-        'Recall1
-        '
-        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Recall1.Location = New System.Drawing.Point(0, 0)
-        Me.Recall1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Recall1.Name = "Recall1"
-        Me.Recall1.Patientnr = 0
-        Me.Recall1.Size = New System.Drawing.Size(1278, 612)
-        Me.Recall1.TabIndex = 0
-        '
         'Recall
         '
         Me.Recall.AttachedControl = Me.SuperTabControlPanel6
@@ -365,23 +335,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
         Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel3.TabIndex = 0
         Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
         '
-        'Behandlung1
-        '
-        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Behandlung1.HasChanges = False
-        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
-        Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Behandlung1.Name = "Behandlung1"
-        Me.Behandlung1.PatientNr = 0
-        Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
-        Me.Behandlung1.TabIndex = 0
-        '
         'Behandlungen
         '
         Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
@@ -393,23 +353,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
         Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
-        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel2.TabIndex = 0
         Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
         '
-        'PatientAbrechnung1
-        '
-        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientAbrechnung1.HasChanges = False
-        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
-        Me.PatientAbrechnung1.PatientNr = 0
-        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 612)
-        Me.PatientAbrechnung1.TabIndex = 0
-        '
         'Abrechnung
         '
         Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
@@ -421,22 +371,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
         Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel5.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
-        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel5.TabIndex = 0
         Me.SuperTabControlPanel5.TabItem = Me.Finanzen
         '
-        'Finanzen1
-        '
-        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
-        Me.Finanzen1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Finanzen1.Name = "Finanzen1"
-        Me.Finanzen1.Patientnr = 0
-        Me.Finanzen1.Size = New System.Drawing.Size(1278, 612)
-        Me.Finanzen1.TabIndex = 0
-        '
         'Finanzen
         '
         Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
@@ -451,8 +392,8 @@ Partial Class Patient
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
-        Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
+        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1704, 30)
         Me.MenuStrip1.TabIndex = 19
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -460,37 +401,142 @@ Partial Class Patient
         '
         Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
         Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
-        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(59, 26)
         Me.DateiToolStripMenuItem.Text = "&Datei"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(150, 26)
         Me.BeendenToolStripMenuItem.Text = "&Beenden"
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(928, 0)
+        Me.Label1.Location = New System.Drawing.Point(1237, 0)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(63, 20)
+        Me.Label1.Size = New System.Drawing.Size(77, 25)
         Me.Label1.TabIndex = 20
         Me.Label1.Text = "Label1"
         Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'Stammdaten_Firma
+        '
+        Me.Stammdaten_Firma.AttachedControl = Me.SuperTabControlPanel8
+        Me.Stammdaten_Firma.GlobalItem = False
+        Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
+        Me.Stammdaten_Firma.Text = "Stammdaten"
+        '
+        'SuperTabControlPanel8
+        '
+        Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
+        Me.SuperTabControlPanel8.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel8.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel8.Name = "SuperTabControlPanel8"
+        Me.SuperTabControlPanel8.Size = New System.Drawing.Size(1704, 755)
+        Me.SuperTabControlPanel8.TabIndex = 0
+        Me.SuperTabControlPanel8.TabItem = Me.Stammdaten_Firma
+        '
+        'PatientDetails1
+        '
+        Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetails1.HasChanges = False
+        Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetails1.Margin = New System.Windows.Forms.Padding(5)
+        Me.PatientDetails1.Name = "PatientDetails1"
+        Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
+        Me.PatientDetails1.PatientNr = 0
+        Me.PatientDetails1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientDetails1.TabIndex = 17
+        '
+        'Krankengeschichte1
+        '
+        Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
+        Me.Krankengeschichte1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Krankengeschichte1.Name = "Krankengeschichte1"
+        Me.Krankengeschichte1.Patientnr = 0
+        Me.Krankengeschichte1.Size = New System.Drawing.Size(1704, 755)
+        Me.Krankengeschichte1.TabIndex = 0
+        '
+        'ClsDokumente1
+        '
+        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
+        Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(5)
+        Me.ClsDokumente1.Name = "ClsDokumente1"
+        Me.ClsDokumente1.Patientnr = 0
+        Me.ClsDokumente1.Size = New System.Drawing.Size(1704, 755)
+        Me.ClsDokumente1.TabIndex = 0
+        '
+        'Recall1
+        '
+        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Recall1.Location = New System.Drawing.Point(0, 0)
+        Me.Recall1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Recall1.Name = "Recall1"
+        Me.Recall1.Patientnr = 0
+        Me.Recall1.Size = New System.Drawing.Size(1704, 755)
+        Me.Recall1.TabIndex = 0
+        '
+        'Finanzen1
+        '
+        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
+        Me.Finanzen1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Finanzen1.Name = "Finanzen1"
+        Me.Finanzen1.Patientnr = 0
+        Me.Finanzen1.Size = New System.Drawing.Size(1704, 755)
+        Me.Finanzen1.TabIndex = 0
+        '
+        'Behandlung1
+        '
+        Me.Behandlung1.Auftragsmanagement = False
+        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Behandlung1.HasChanges = False
+        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
+        Me.Behandlung1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Behandlung1.Name = "Behandlung1"
+        Me.Behandlung1.PatientNr = 0
+        Me.Behandlung1.Size = New System.Drawing.Size(1704, 755)
+        Me.Behandlung1.TabIndex = 0
+        '
+        'PatientAbrechnung1
+        '
+        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientAbrechnung1.HasChanges = False
+        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(5)
+        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
+        Me.PatientAbrechnung1.PatientNr = 0
+        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientAbrechnung1.TabIndex = 0
+        '
+        'PatientDetailsFirma1
+        '
+        Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetailsFirma1.HasChanges = False
+        Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
+        Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
+        Me.PatientDetailsFirma1.PatientNr = 0
+        Me.PatientDetailsFirma1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientDetailsFirma1.TabIndex = 0
+        '
         'Patient
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1278, 686)
+        Me.ClientSize = New System.Drawing.Size(1704, 844)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.SuperTabControl1)
         Me.Controls.Add(Me.ToolStrip1)
         Me.Controls.Add(Me.MenuStrip1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MainMenuStrip = Me.MenuStrip1
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "Patient"
         Me.ShowInTaskbar = False
         Me.Text = "Patient"
@@ -507,6 +553,7 @@ Partial Class Patient
         Me.SuperTabControlPanel5.ResumeLayout(False)
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
+        Me.SuperTabControlPanel8.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -553,4 +600,7 @@ Partial Class Patient
     Friend WithEvents SuperTabControlPanel7 As DevComponents.DotNetBar.SuperTabControlPanel
     Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
     Friend WithEvents ClsDokumente1 As clsDokumente
+    Friend WithEvents SuperTabControlPanel8 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Stammdaten_Firma As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents PatientDetailsFirma1 As PatientDetailsFirma
 End Class

DPM2016/Patient/Patient.resx

@@ -124,7 +124,7 @@
   <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
         PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
         PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
         ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
@@ -142,7 +142,7 @@
   <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -157,7 +157,7 @@
   <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
         dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
         AElFTkSuQmCC
 </value>
@@ -165,7 +165,7 @@
   <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
         +sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
         /eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
         ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
@@ -180,7 +180,7 @@
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -196,7 +196,7 @@
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
         dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
         vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
         809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -212,7 +212,7 @@
   <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
         ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
         mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
         y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
@@ -248,7 +248,7 @@
   <data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
         dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
         JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
         /+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
@@ -275,7 +275,7 @@
   <data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
         CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
         8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
         mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
@@ -303,7 +303,7 @@
   <data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
         KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
         oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
         txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
@@ -339,7 +339,7 @@
   <data name="tsbtnVTX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACMAAAAhCAYAAABTERJSAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
         MH2GoWliYrK6pmgSNeGJaBCDNEFAivTepIOgEhuKYRyCGluwoBEFE6xY9uy5V58Vk/3hZYZ7v7nfue93
         3vOe9y9/j6vDzNgW2Kmb4WXqgzy4FW7aTjhoqiFbVY+3zfsgWVkKe30RXM11mB1aC9fIXtjqD0Ji7oOD
         thmOmkY4aushZcgMTZBFNkNqbIW9bj+kho6XYWxj8LqpAdLIakjNZfA07cIJ6yX8ZDkuxl/eiqnBzKh6

DPM2016/Patient/Patient.vb

@@ -9,7 +9,13 @@
             Cursor = Cursors.WaitCursor
             Globals.OnLoad = True
             m_nrpatient = value
-            Me.PatientDetails1.PatientNr = value
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Me.PatientDetailsFirma1.PatientNr = value
+            Else
+                Me.PatientDetails1.PatientNr = value
+            End If
+
+
             Me.PatientAbrechnung1.PatientNr = value
             Me.Behandlung1.PatientNr = value
             Me.Finanzen1.Patientnr = value
@@ -37,6 +43,7 @@
     Function detail_has_changes()
         Dim res As Boolean = False
         If Me.PatientDetails1.HasChanges Then res = True
+        If Me.PatientDetailsFirma1.HasChanges Then res = True
         If PatientAbrechnung1.HasChanges Then res = True
         If res = True Then
             Dim qres As MsgBoxResult
@@ -78,11 +85,18 @@
         Dim db1 As New clsDB
         If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
             'Me.PatientDetails1.chklbAdresstyp.Visible = False
+            Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
+            Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
             Me.PatientDetails1.Label13.Visible = False
+            Me.PatientDetailsFirma1.Label13.Visible = False
             Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
             Me.SuperTabControl1.Tabs("Recall").Visible = False
             Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
             Me.PatientDetails1.lblName.Text = "Name/Firma"
+        Else
+            Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
+            Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
+
         End If
         If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
         Try
@@ -118,8 +132,13 @@
     End Sub
 
     Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
+
         If nr = Me.PatientNr Then Me.Text = name
-        Me.Label1.Text = PatientDetails1.Patientname
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Me.Label1.Text = PatientDetailsFirma1.Patientname
+        Else
+            Me.Label1.Text = PatientDetails1.Patientname
+        End If
         Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
     End Sub
 
@@ -133,8 +152,13 @@
 
     Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
         If Me.PatientNr = Nr Then
-            Me.Text = PatientDetails1.Patientname
-            Me.Label1.Text = PatientDetails1.Patientname
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Me.Text = PatientDetailsFirma1.Patientname
+                Me.Label1.Text = PatientDetailsFirma1.Patientname
+            Else
+                Me.Text = PatientDetails1.Patientname
+                Me.Label1.Text = PatientDetails1.Patientname
+            End If
         End If
 
     End Sub

DPM2016/Patient/subclasses/PatientDetailsFirma.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

@@ -0,0 +1,563 @@
+Imports DPM2016.MyCombobox
+Public Class PatientDetailsFirma
+#Region "Properties"
+    Dim m_patientnr As Integer
+
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                m_patientnr = value
+                Fill_Stammdaten()
+                log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
+                Get_Data()
+                log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
+                AddChanges(Me)
+                Me.cbboxNrAnrede.Select()
+                Me.HasChanges = False
+                Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
+
+            Catch ex As Exception
+                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
+            End Try
+        End Set
+    End Property
+
+    Dim m_patname As String
+    Property Patientname As String
+        Get
+            Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim FormReadonly As Boolean = False
+    Dim log As New clsLog
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            chklbAdresstyp.Items.Clear()
+            chklbAdresstyp.Items.Add("Leistungserbringer")
+
+        End If
+        log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
+        Me.cbboxNrAnrede.Table = "Anrede"
+        Me.cbboxNrAnrede.Displaymember = "Anrede_D"
+        Me.cbboxNrAnrede.Valuemember = "NRANREDE"
+
+        Me.cbboxNRTitel.Table = "Titel"
+        Me.cbboxNRTitel.Displaymember = "Titel_D"
+        Me.cbboxNRTitel.Valuemember = "NRTITEL"
+
+        Me.cbboxSprache.Table = "Sprache"
+        Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
+        Me.cbboxSprache.Valuemember = "Sprachcode"
+
+        Me.cbboxStatus.Table = "Status"
+        Me.cbboxStatus.Displaymember = "Status"
+        Me.cbboxStatus.Valuemember = "nrstatus"
+
+        Me.cbboxGeschlecht.Table = "Geschlecht"
+        Me.cbboxGeschlecht.Displaymember = "Geschlecht"
+        Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
+
+        Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
+        Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
+        Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
+        Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
+        Try
+            Me.ClsStammdaten_flat1.Tablename = "PADM_Ansprechpartner"
+            Me.ClsStammdaten_flat1.SQL = "Select * from padm_ansprechpartner where aktiv=1 and nrprivat=" + Me.PatientNr.ToString
+            Me.ClsStammdaten_flat1.get_data()
+            Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
+        Catch
+        End Try
+
+        log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
+
+    End Sub
+
+    Sub Get_Data()
+        Dim ctlname As String
+        Dim colname As String
+        Try
+            If Globals.Hide_Gueltig_bis Then
+                Me.Label15.Visible = False
+                Me.dtgueltigbis.Visible = False
+            End If
+
+            DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+            Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+
+                colname = c.ColumnName
+                Debug.Print(colname)
+                For Each Ctl As Control In Me.Controls
+                    'Dim objtype As System.Type = Ctl.GetType
+                    'If objtype.Name = "Label" Then
+                    '    Exit For
+                    'End If
+                    ctlname = Ctl.Name
+                    log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
+                    If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Ctl.Text = r(c.ColumnName).ToString
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As MyCombobox
+                        Dim o As Object = Ctl
+                        Try
+                            o.SelectedValue = r(c.ColumnName)
+                        Catch
+                            o.SelectedValue = -1
+                        End Try
+
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As ComboBox
+                        Dim o As Object = Ctl
+                        Try
+                            o.text = r(c.ColumnName)
+                        Catch
+                            o.Text = ""
+                        End Try
+
+                        Exit For
+                    End If
+
+                    If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim dt As DateTimePicker
+                        dt = Ctl
+                        'Try
+                        '    dt.Value = r(c.ColumnName)
+                        'Catch
+                        '    dt.Value = "  .  .    "
+                        'End Try
+
+                        Try
+                            dt.Value = r(c.ColumnName)
+                            dt.Format = DateTimePickerFormat.Short
+                        Catch
+
+                            dt.CustomFormat = " "  'An empty SPACE
+                            dt.Format = DateTimePickerFormat.Custom
+
+                        End Try
+
+
+                        Exit For
+                    End If
+                    'If UCase(Ctl.Name) = "CHKMAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Hallo")
+                    'End If
+                    'If UCase(r(c.ColumnName)) = "MAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Bello")
+                    'End If
+                    If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                        Dim cb As CheckBox
+                        cb = Ctl
+
+                        Try
+                            cb.Checked = r(c.ColumnName)
+                        Catch ex As Exception
+
+                        End Try
+                        Exit For
+                    End If
+                Next
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    If LCase(c.ColumnName) = "behandler" Then
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                    End If
+                Else
+
+                    Select Case LCase(c.ColumnName)
+                        Case "patient"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "garant"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "gesvertreter"
+                            Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "hausarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "zahnarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "behandler"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "dhpat"
+                            Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtaufbieten"
+                            Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtannehmen"
+                            Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "betreibung"
+                            Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    End Select
+                End If
+
+            Next
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+    End Sub
+
+    Private Sub Set_Adresstype(ByVal feldname, value)
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            If value <> False Then chklbAdresstyp.SetItemCheckState(0, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(0, CheckState.Unchecked)
+
+        End If
+        Dim i As Integer
+        For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+            If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                Try
+                    If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                Catch ex As Exception
+                    chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                End Try
+            End If
+        Next
+    End Sub
+
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            For Each Ctl As Control In Me.Controls
+                If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
+                        r(c.ColumnName) = Ctl.Text
+                        Exit For
+                    End If
+                End If
+                If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.selectedvalue
+                    Catch ex As Exception
+                        r(c.ColumnName) = 0
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.text
+                    Catch ex As Exception
+                        r(c.ColumnName) = ""
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = Ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+
+                If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim cb As CheckBox
+                    cb = Ctl
+                    r(c.ColumnName) = cb.Checked
+                    Exit For
+                End If
+            Next
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Select Case LCase(c.ColumnName)
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                End Select
+            Else
+                Select Case LCase(c.ColumnName)
+                    Case "patient"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "garant"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "gesvertreter"
+                        r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
+                    Case "hausarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "zahnarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "dhpat"
+                        r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
+                    Case "nichtaufbieten"
+                        r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
+                    Case "nichtannehmen"
+                        r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
+                    Case "betreibung"
+                        r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
+                End Select
+            End If
+
+        Next
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+
+    End Sub
+
+    Private Function Get_Adresstype(ByVal feldname, value) As Integer
+        Try
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If UCase(feldname) = "BEHANDLER" Then Return chklbAdresstyp.GetItemChecked(0)
+            Else
+                Dim i As Integer
+                For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+                    If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                        Return chklbAdresstyp.GetItemChecked(i)
+                    End If
+                Next
+            End If
+        Catch
+            Return -1
+        End Try
+
+    End Function
+
+
+
+#End Region
+
+    Public Function Create_new()
+
+    End Function
+
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+
+    Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
+        Dim alt As String = Me.txtBriefanrede.Text
+        Dim neu As String
+        If Me.cbboxNrAnrede.Text = "Frau" Then
+            neu = "Sehr geehrte Frau "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        Else
+            neu = "Sehr geehrter Herr "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        End If
+        If alt <> neu Then Me.txtBriefanrede.Text = neu
+    End Sub
+
+
+    Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
+        If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
+    End Sub
+
+    Private Sub PatientDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
+        If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
+    End Sub
+
+    Private Sub lblName_Click(sender As Object, e As EventArgs) Handles lblName.Click
+
+    End Sub
+
+    Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
+
+    End Sub
+End Class

DPM2016/Reporting/frmReportView.vb

@@ -283,6 +283,7 @@ Public Class frmReportView
     Public Sub Print_Rechnung(Optional vorschaue As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0, Optional doktype As String = "")
 
         If Rate > 1 Then ReportNr = ReportNr + 1
+        ' If Rate > 1 And ReportNr = 4 Then ReportNr = 2
         Dim kopien As Integer = 1
 
         db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)

DPM2016/Sysadmin/frmStammdaten.vb

@@ -11,6 +11,7 @@ Public Class frmStammdaten
 
     Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
         Refresh_Details()
+
     End Sub
     Sub Refresh_Details()
         Try
@@ -112,6 +113,7 @@ Public Class frmStammdaten
 
                 Next
                 If n.Text = "Tarif" Then n.Text = "Artikel"
+                If n.Text = "Patienten" Then n.Text = "Allgemein"
             Next
 
             For i As Integer = 1 To 10

DPM2016/Zahlung/clscamt054.vb

@@ -125,7 +125,7 @@ Public Class clscamt054
             Next
 
             Dim directoryName As String = extractPath
-            For Each deleteFile In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
+            For Each deleteFile In Directory.GetFiles(directoryName, "*.pdf", SearchOption.TopDirectoryOnly)
                 File.Delete(deleteFile)
             Next
 

DPM2016/bin/Debug/DPM2018.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>jNiObtzwirc4UxNzQUd5Rf0cdY+mOrTgte2fUskTaVQ=</dsig:DigestValue>
+        <dsig:DigestValue>r0kaGxKo2rhFYW7Vag61MLRCGPXDJD386zWm80PbXFE=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/bin/Debug/DPM2018.exe.manifest

@@ -163,14 +163,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="7264768">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="7345152">
       <assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>hf4/fM3BKkyZyBT7yqXbvQYUxkexRv5MImwhNGY+RKU=</dsig:DigestValue>
+        <dsig:DigestValue>6vBRlnYo5xe5fPUM2tq5fe/HcuhPFqEUL4nZaINN0Oo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/bin/Debug/DPM2018.xml

@@ -387,6 +387,39 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
  </returns>
  <remarks></remarks>
 </member>
+<member name="M:DPM2016.PatientDetailsFirma.Check_Changes">
+ <summary>
+ Prüfung, ob Datenänderungen vorgenommen wurden. 
+ </summary>
+ <remarks></remarks>
+</member>
+<member name="M:DPM2016.PatientDetailsFirma.AddChanges(System.Windows.Forms.Control)">
+ <summary>
+ Allg Eventhandler für Chanage-Ereignise festlegen
+ </summary>
+ <param name="Container"></param>
+ <remarks></remarks>
+</member>
+<member name="M:DPM2016.PatientDetailsFirma.ChangesMade(System.Object,System.EventArgs)">
+ <summary>
+ Envent-Handler für Change-Ereignisse
+ </summary>
+ <param name="sender"></param>
+ <param name="e"></param>
+ <remarks></remarks>
+</member>
+<member name="M:DPM2016.PatientDetailsFirma.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
+ <summary>
+ Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+ die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+ </summary>
+ <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+ <param name="Key">Schlüssel welcher gesucht werden soll</param>
+ <param name="L">Liste der gefundenen Objekte</param>
+ <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+ </returns>
+ <remarks></remarks>
+</member>
 <member name="M:DPM2016.DPMSecurity.Set_Form_Security(System.Windows.Forms.Form@)">
  <summary>
  Formularsecurity setzen