Update 6.12.23

DPM2016/Behandlung/Benhandungdetail.Designer.vb

@@ -24,6 +24,8 @@ Partial Class Benhandungdetail
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Benhandungdetail))
         Me.GrpPatient = New System.Windows.Forms.GroupBox()
+        Me.cbansprechperson = New DPM2016.MyCombobox()
+        Me.lblAnsprechen = New System.Windows.Forms.Label()
         Me.txtProjekt = New System.Windows.Forms.TextBox()
         Me.lblProjekt = New System.Windows.Forms.Label()
         Me.cbboxNRESTyp = New DPM2016.MyCombobox()
@@ -184,6 +186,8 @@ Partial Class Benhandungdetail
         '
         'GrpPatient
         '
+        Me.GrpPatient.Controls.Add(Me.cbansprechperson)
+        Me.GrpPatient.Controls.Add(Me.lblAnsprechen)
         Me.GrpPatient.Controls.Add(Me.txtProjekt)
         Me.GrpPatient.Controls.Add(Me.lblProjekt)
         Me.GrpPatient.Controls.Add(Me.cbboxNRESTyp)
@@ -192,11 +196,34 @@ Partial Class Benhandungdetail
         Me.GrpPatient.Controls.Add(Me.Label7)
         Me.GrpPatient.Location = New System.Drawing.Point(3, 31)
         Me.GrpPatient.Name = "GrpPatient"
-        Me.GrpPatient.Size = New System.Drawing.Size(300, 84)
+        Me.GrpPatient.Size = New System.Drawing.Size(300, 87)
         Me.GrpPatient.TabIndex = 9
         Me.GrpPatient.TabStop = False
         Me.GrpPatient.Text = "Patient / Behandler"
         '
+        'cbansprechperson
+        '
+        Me.cbansprechperson.Dataselection = Nothing
+        Me.cbansprechperson.Displaymember = Nothing
+        Me.cbansprechperson.Location = New System.Drawing.Point(93, 100)
+        Me.cbansprechperson.Name = "cbansprechperson"
+        Me.cbansprechperson.Size = New System.Drawing.Size(192, 21)
+        Me.cbansprechperson.TabIndex = 24
+        Me.cbansprechperson.Table = Nothing
+        Me.cbansprechperson.TableAlias = ""
+        Me.cbansprechperson.Valuemember = Nothing
+        Me.cbansprechperson.Visible = False
+        '
+        'lblAnsprechen
+        '
+        Me.lblAnsprechen.AutoSize = True
+        Me.lblAnsprechen.Location = New System.Drawing.Point(6, 101)
+        Me.lblAnsprechen.Name = "lblAnsprechen"
+        Me.lblAnsprechen.Size = New System.Drawing.Size(84, 13)
+        Me.lblAnsprechen.TabIndex = 25
+        Me.lblAnsprechen.Text = "Ansprechperson"
+        Me.lblAnsprechen.Visible = False
+        '
         'txtProjekt
         '
         Me.txtProjekt.Location = New System.Drawing.Point(72, 24)
@@ -272,7 +299,7 @@ Partial Class Benhandungdetail
         Me.grpZusammenfassugn.Controls.Add(Me.lblBehandlungstotal)
         Me.grpZusammenfassugn.Controls.Add(Me.txtcKVTotal)
         Me.grpZusammenfassugn.Controls.Add(Me.Label2)
-        Me.grpZusammenfassugn.Location = New System.Drawing.Point(0, 364)
+        Me.grpZusammenfassugn.Location = New System.Drawing.Point(0, 371)
         Me.grpZusammenfassugn.Name = "grpZusammenfassugn"
         Me.grpZusammenfassugn.Size = New System.Drawing.Size(306, 141)
         Me.grpZusammenfassugn.TabIndex = 11
@@ -803,7 +830,7 @@ Partial Class Benhandungdetail
         Me.GrpRaten.Controls.Add(Me.Label3)
         Me.GrpRaten.Controls.Add(Me.lblZuschlagRaten)
         Me.GrpRaten.Controls.Add(Me.lblAnzahlRaten)
-        Me.GrpRaten.Location = New System.Drawing.Point(3, 282)
+        Me.GrpRaten.Location = New System.Drawing.Point(3, 289)
         Me.GrpRaten.Name = "GrpRaten"
         Me.GrpRaten.Size = New System.Drawing.Size(303, 76)
         Me.GrpRaten.TabIndex = 12
@@ -905,7 +932,7 @@ Partial Class Benhandungdetail
         Me.grpBehandlungsdaten.Controls.Add(Me.lblRGStellung)
         Me.grpBehandlungsdaten.Controls.Add(Me.Label15)
         Me.grpBehandlungsdaten.Controls.Add(Me.lblBegin)
-        Me.grpBehandlungsdaten.Location = New System.Drawing.Point(3, 124)
+        Me.grpBehandlungsdaten.Location = New System.Drawing.Point(3, 131)
         Me.grpBehandlungsdaten.Name = "grpBehandlungsdaten"
         Me.grpBehandlungsdaten.Size = New System.Drawing.Size(303, 151)
         Me.grpBehandlungsdaten.TabIndex = 10
@@ -1962,4 +1989,6 @@ Partial Class Benhandungdetail
     Friend WithEvents cbboxNrVerguetungsart As MyCombobox
     Friend WithEvents lblmwstsatz As Label
     Friend WithEvents cbboxmwstsatz As MyCombobox
+    Friend WithEvents cbansprechperson As MyCombobox
+    Friend WithEvents lblAnsprechen As Label
 End Class

DPM2016/Behandlung/Benhandungdetail.resx

@@ -202,9 +202,6 @@
   <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>143, 17</value>
   </metadata>
-  <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
@@ -435,7 +432,7 @@
         AHQrG9+C7Bp/GACiFJkBoHxLL3XR+gEAAOiGAaCOU2QzvUzd4ZTyLT3UResDAACgW9n45mTX+MMAEKVI
         DQCbu6uLxg8DAAAA6IMBoI5TaDeNoO5wSvnmruqi9QQAANCtbHwu2TX+MABEKTIDwMnNXdhP+7sDAADo
         tnx8Dtk1/jAARClum2k4dYdTTm7urC5at7j3w95u7MyOLuzMdgAAqCtfftiM7Bp/462G74usaY1i2TRn
-        04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAerisys/uPGWb+r/fLLYbu4qajd0U
+        04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAetitys/uPGWb+r/fLLYbu4qajd0U
         2U3D/H+JQMo3dVDLtHNcObG+A1vybhb5+wAAAERLYZ6ptMSlZIq6jb1IDQAb26mlyj8FiA8HFrVm011m
         8ncBAACItqn29PJiu3GQqNzYSpFNyaduNKV8Y1u1WPmnALHvwGJtXzIBAAAQVda0H4scylWidmMnbrvi
         Im8woXxjG7Vc+acAsa18g/rOPx/v/AEAIEZYla+n2pU0Ub2xEbkBoDU7v69tzFs6Dsf8AQAgtrjtpk9E
@@ -467,7 +464,7 @@
         1TU1WNN+nGxt+UtRtbGZeBwANk7VvgFw79LryUUEAACQcXKv1AbA1aJmYzdFNtMz9I2vKVYGgC/eNZK3
         j/LNtnvIhQQAAJBxaNUtZM+QbKb3Rc3GbqQGgOWxMQDMGK7tDAD+ZQ1nD/FLAAMAAOizdc7VZNdQ3Hbl
         cVGzsZuiPNNfqBtP+ToGBoDTG7RvAFz8fntyEQEAAGStmNiN7BqK26H0EjUbu3HbTU9TN54SCwPAoYXa
-        NwCuK+xDLiIAAICseW+0JLvGn8uq/DzZ2vgyUbOxm3gbALYUat8AuHvREHXRHgIAANDl9P4HWbHTTHZN
+        NwCuK+xDLiIAAICseW+0JLvGn92q/DzZ2vgyUbOxm3gbALYUat8AuHvREHXRHgIAANDl9P4HWbHTTHZN
         TaatomJjO4V5pqfoX6CmWBgAvvxA+wbA45vuIBcSAABAxpF1t5I9Q7Ipn4qKje1IDQBldT8AzB6pbQPg
         9PwMduYgvwTw7wAAAHTZMW8g2TUU/iV7omJjO+qNfdL/xgdS1wPAuc3aNwAuHNuGXEQAAABZq6f0ILuG
         UmhTBoiKje2oNzZuBoAjX6SRt4uyekpPchEBAABkLRzbmuwayjRn04aiYmM7bpvyBPULUOp6ANhWrP0M
@@ -484,7 +481,7 @@
         mvbjZGvLX4pajZ/E+gCwcYr2DYD7lg5SF+1uAAAAXU7tltgAaDeuFpUaX1Fv/O9r/jK0uhgAvnhH+wbA
         77beQi4kAACAjMMrh5I9QzO9Jyo1vqLeeO0DwBe1PwDMGKZtAJgxIpNcRAAAAFnbZl9Bdg3JpvxZVGp8
         xW1THiZ/IUJtDwCnN2jfALjk/bbqot0FAACg24pPO5NdQymwKT1FpcZXZAaAI7U8ABxamEbeDsq6wh7k
-        IgIAAMia90Zzsmv8uazKz5OtjS8TlRpfKbSbH6J+KUptDwBbCrVvANyzaIC6aHcCAADocmbf7azYaSa7
+        IgIAAMia90Zzsmv82a3Kz5OtjS8TlRpfKbSbH6J+KUptDwBbCrVvANyzaIC6aHcCAADocmbf7azYaSa7
         xl9BnnGLqNP4C794AfVLUWp7APhynJG8HZSvN91ALiQAAICMo2uvJXsmgP+KOo2/SA0AS2p3AJg1UtsG
         wOn5Fnb2AL2QAAAAMnbM6092TQDPiTqNv7jtpgeJX4hUmwPA2c3aNwAuHNtKXbQ7AAAAdFv9WReyayiF
         NmWAqNP4i8wA8FUtDgB82KBuA2XNlK7kIgIAAMha+HZLsmso05xNG4o6jb+4baYHqF+KUpsDwLZi7ZcA
@@ -501,7 +498,7 @@
         smtqavzDZGvLX4oKje/E0gCwcYr2DYD7l/YnFxEAAEDG6d3aNwAW5BlXifqM/7gdptupX5IS7QHgi3e0
         bwA8sW2IunA3AgAA6HJ4pdQGwPdEfcZ/ZAaAgwuiNwBc2J3KSodpGwBmjMgkFxEAAEDWtlk9ya6hGR8T
         9Rn/cduV2+hfsqZoDgCn1mvfAPjFuFbkIgIAAMha+Wl7smtITnMPUZ/xn1gZAA4uTCP/Tsr6ws7s+wM3
-        AAAA6DZvTA7ZNf5cVuXnWSNSfy3qM/5TnKfcSv2ilGgOAFsKtG8A3LuoL7mIAAAAMs7uvY4VO8xk1/gr
+        AAAA6DZvTA7ZNf7sVuXnWSNSfy3qM/5TnKfcSv2ilGgOAFsKtG8A3LuoL7mIAAAAMs7uvY4VO8xk1/gr
         yDNuEdWZGImVAeDLcUby76R8s3GQunDXAwAA6HJ0zQCyZyhum2mCqM7EiPpL3eL/SwZyYH70BoBZL2vb
         ADg938LO7acXEgAAQMbOz3uRXUOyKc+K6kyMuPPMN5O/KCFaA8DZTdo3AC56pwW5iAAAALJWT+5Adg3J
         oVwlqjMxEgsDwFdLtG8AXDOlo7po1wEAAOi28O3mZNdQZlqNBlGdiZFiu/km6helRGsA2FasfQPgrnm9
@@ -601,7 +598,7 @@
         MhsATY+IGkPCjZ4BYOWHGAAAACAClpnYqgnaNwAWvWTsImoMCTf8KkrknavBtmlZrHxFcwAAAF1Or8lh
         816nu6YGq3Kef4+NqDEk3OgZAL5eex37+fgTAAAAulw48qhnYznVNf4K85QNosIQvaHuYC2+33cvuZAA
         AAAyTu24h+wZSqHd+LGoL0RvqDs4lJkjzOqiPVZjEQEAAGQdLruW7BqK2256WtQXojfUHRxK2UetyEUE
-        AACQtaWkD9k1JIexn6gvRG9cVuVn8k4OYsesXuQiAgAAyFo6ri3ZNZTJ+ZkNRH0hehPOAHB05RByEQEA
+        AACQtaWkD9k1JIexn6gvRG/sVuVn8k4OYsesXuQiAgAAyFo6ri3ZNZTJ+ZkNRH0hehPOAHB05RByEQEA
         AGRcOPo4m+7KILvGX6Gt6S5RXUgkot6pF/zv5FDO7L6LXEgAAAAZp3ffT/YMxW03fiaqC4lE+DmV1B0d
         yHSXwn4+9idyIQEAAGQcXXkD2TUUt830T1FdSCRSZDWdpO7oQJa+n0suIgAAgKzts/qRXUMzXyOqC4lE
         Cu2mtfQdTdtS0o1cRAAAAFnLx7cnu4bidmSkiupCIpFCm/IGdUcHsmZyB3bwi0EAAAC6lQ7PJLumBmva
@@ -613,8 +610,8 @@
         giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
         giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
         giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
-        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAxnaSk/wdKel0Z
-        lqGCUQAAAABJRU5ErkJggg==
+        giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAxnaSk/wefl10B
+        h339owAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

DPM2016/Behandlung/Benhandungdetail.vb

@@ -19,6 +19,7 @@
                 Get_Stammdaten()
                 Globals.OnLoad = True
                 OnGetData = True
+
                 Get_Data()
                 OnGetData = False
                 Globals.OnLoad = False
@@ -47,6 +48,12 @@
 
 
                     GrpPatient.Text = "Verantwortung / Rechnungsart"
+
+                    GrpPatient.Height = GrpPatient.Height + 30
+                    Me.cbansprechperson.Visible = True
+
+
+                    Me.lblAnsprechen.Visible = True
                     Me.grpZusammenfassugn.Top = grpZusammenfassugn.Top + 20
                     Me.GrpRaten.Top = GrpRaten.Top + 20
                     Me.grpBehandlungsdaten.Top = Me.grpBehandlungsdaten.Top + 20
@@ -368,6 +375,22 @@
             End Try
         End If
         chk_dateien()
+
+        If r("nransprechpartner") > 0 Then
+            Dim pap As New clsDB
+            pap.Get_Tabledata("AP", "", "Select name from privat_ansprechpartner where id=" + r("nransprechpartner").ToString)
+            Dim i As Integer = 0
+            Dim x As Integer
+            Dim result As String
+
+            For Each itm As Object In cbansprechperson.Items
+                result = itm.ToString()
+                If result = pap.dsDaten.Tables(0).Rows(0).Item(0) Then
+                    Me.cbansprechperson.SelectedText = pap.dsDaten.Tables(0).Rows(0).Item(0)
+                End If
+            Next
+        End If
+
         AddChanges(Me)
         Me.HasChanges = False
     End Sub
@@ -565,9 +588,16 @@
         r("mutierer") = Globals.ActUser
         r("total") = Me.txtcTotal.Text
 
+        If Me.cbansprechperson.Text <> "" Then
+            Dim ap As New clsDB
+            ap.Get_Tabledata("Ansprechpartner", "", "select id from privat_ansprechpartner where name='" + Me.cbansprechperson.Text + "' and nrprivat=" + Me.Patientnr.ToString)
+            r("nransprechpartner") = ap.dsDaten.Tables(0).Rows(0).Item(0).ToString
+        End If
+
         db.Update_Data()
 
 
+
         Me.HasChanges = False
 
     End Sub
@@ -706,6 +736,20 @@
         dbx.Dispose()
 
 
+        Try
+            Me.cbansprechperson.Items.Clear()
+            Me.cbansprechperson.Items.Add("")
+            Dim ap As New clsDB
+            ap.Get_Tabledata("Ansprechpartner", "", "Select id,Name from privat_ansprechpartner where aktiv=1 and nrprivat=" + Me.Patientnr.ToString + " order by name")
+            Dim i As Integer = 0
+            Me.cbansprechperson.SelectedIndex = i
+            For Each r1 As DataRow In ap.dsDaten.Tables(0).Rows
+                Me.cbansprechperson.Items.Add(r1("Name"))
+            Next
+            ap.Dispose()
+        Catch ex As Exception
+
+        End Try
 
     End Sub
 
@@ -1092,6 +1136,7 @@
     End Sub
 
     Private Sub cbboxNrAnsatz_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedIndexChanged
+        If Me.OnLoad Then Exit Sub
         If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
         Me.Save_Data()
         db.Recalc_Leistungen(Me.Behandlungsnr, Me.mtxtTaxpunktwert.Text)

DPM2016/Behandlung/LeistungDruck.Designer.vb

@@ -86,11 +86,11 @@ Partial Class LeistungDruck
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.C1Produktzusatz = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
         Me.ToolStrip4 = New System.Windows.Forms.ToolStrip()
         Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
         CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -415,7 +415,6 @@ Partial Class LeistungDruck
         '
         Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
         Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.lbtarif1.CheckStateMember = Nothing
         Me.lbtarif1.ContainerControlProcessDialogKey = True
         Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
         Me.lbtarif1.DragDropSupport = True
@@ -559,7 +558,6 @@ Partial Class LeistungDruck
         '
         Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
         Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.lbPakete.CheckStateMember = Nothing
         Me.lbPakete.ContainerControlProcessDialogKey = True
         Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
         Me.lbPakete.DragDropSupport = True
@@ -735,7 +733,7 @@ Partial Class LeistungDruck
         '
         Me.GroupBox1.Controls.Add(Me.C1Produkte)
         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.GroupBox1.Location = New System.Drawing.Point(35, 16)
+        Me.GroupBox1.Location = New System.Drawing.Point(27, 16)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(498, 152)
         Me.GroupBox1.TabIndex = 0
@@ -766,7 +764,7 @@ Partial Class LeistungDruck
         Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5})
         Me.ToolStrip3.Location = New System.Drawing.Point(3, 16)
         Me.ToolStrip3.Name = "ToolStrip3"
-        Me.ToolStrip3.Size = New System.Drawing.Size(32, 152)
+        Me.ToolStrip3.Size = New System.Drawing.Size(24, 152)
         Me.ToolStrip3.TabIndex = 5
         Me.ToolStrip3.Text = "ToolStrip3"
         '
@@ -776,7 +774,7 @@ Partial Class LeistungDruck
         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(29, 20)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(21, 20)
         Me.ToolStripButton1.Text = "Neues Produkt"
         '
         'ToolStripButton3
@@ -785,7 +783,7 @@ Partial Class LeistungDruck
         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(29, 20)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(21, 20)
         Me.ToolStripButton3.Text = "Speichern"
         '
         'ToolStripButton4
@@ -794,9 +792,18 @@ Partial Class LeistungDruck
         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(29, 20)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(21, 20)
         Me.ToolStripButton4.Text = "Löschen"
         '
+        'ToolStripButton5
+        '
+        Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        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(21, 20)
+        Me.ToolStripButton5.Text = "Kopieren"
+        '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.C1Produktzusatz)
@@ -845,15 +852,6 @@ Partial Class LeistungDruck
         Me.ToolStripButton2.Size = New System.Drawing.Size(21, 20)
         Me.ToolStripButton2.Text = "Speichern"
         '
-        'ToolStripButton5
-        '
-        Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        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(29, 20)
-        Me.ToolStripButton5.Text = "Kopieren"
-        '
         'LeistungDruck
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

DPM2016/Behandlung/LeistungDruck.resx

@@ -158,11 +158,8 @@
 </value>
   </data>
   <data name="C1Leistungen.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{}Style2{}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;ForeColor:ControlText;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{}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" 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, 1140, 104&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, 1140, 104&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;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}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" 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, 1140, 104&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, 1140, 104&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
-  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>983, 17</value>
-  </metadata>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>826, 17</value>
   </metadata>
@@ -202,26 +199,65 @@
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1411, 17</value>
   </metadata>
+  <data name="C1Produkte.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="C1Produkte.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
+        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
+        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
+        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
+        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
+        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
+        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
+        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
+        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
+        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
+        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
+        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
+        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
+        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
+        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
+        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
+        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
+        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
+        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
+        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
+        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
+</value>
+  </data>
+  <data name="C1Produkte.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{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}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" 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, 490, 131&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, 490, 131&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
   <metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1518, 17</value>
   </metadata>
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMMSURBVEhLnVXNS1RRFH8VtKhoUf9ECLWRyXnvDmmQMtp7
-        T7GmItq0apNQQURtpi8IglwargohSReziJhm3rvz0apdH2D0YZpR1qIPnCQtUW/nd99743t6HUeP/Bi5
-        99zfue+c3z1HU1laaJuP5uK7zJy+x+LsrOUaAzaPP7O5Pk6/Y/J/Wut0jZ5OJ763jXxTw6kt/vEaJrRN
-        5qPGbTZPNNh51tfOjR82Z6IWOrKxactld7uKTY2t+X3bfSaFEXmXG9ttOvpput17FdmqyLLFds4mTc7O
-        JLP7d/qMIfPJifhi0jUWlCR1wOTGlFVgl1Ol5h0+s2dIC25ei7yTJ8TxUqs4UW5T7lfhxn5ZBaMnNdyw
-        VZKjoMi5xfV3ygMEkJ96elgMfOgXD8fviWOlQ0q/ACaPf+0o6IYMALWgoCrHAN2FFnH1xQUBq8xNid7X
-        15V+AZI5NkPpHkyN0FdAimup5UixRdx8eUkG+D1XEX1vbiv9wsBXWMUE06BzlUMYGwlAqFiOcUPzHlF0
-        EznvLjRLYgDFvfXqigwwTQH6396p7gHwXc5hZtmc7eiO5r3QKDkKmqac49YAyIc+3pcBZub/iOznTHUP
-        SD8/L06Wk5EAHuJjFADPf2kRt4Va1mMImpkYDBEHaPqEL6DesrQInUOKUAvyDSAtIIEt0t/s/Gx1D/j5
-        97twJh+HiAN4ASIpAqBzSBHFBJBzpAUG8vK3fHUP6B25Jr88wvOELZJURzV0xciGAigkcg3DjUGq8gsj
-        ydk/WWS0XJVDGBsJQPBkin6OlqtwqGLdAai7Iv92Xj+gYVign3uLCmcCdA4potAoKHKu8gtgZWOzpM4h
-        2YswiTAs0M9VzgGg88zEA6mWFQUNQXZkl43aOeOgDADDJMKwQD9XHaoXVNgFO8e+WA4751MvGSYRhgX6
-        uerwWpA3J3LTMdI+5UrDJMKwQCeULVdBtAJUO5lzSovy5ssNkwjDAv0cgYikIhtXmJQekdQ57Um1UEEj
-        Oa/HMCzQz6FlPBivpYCMQC8Ua3IPUlzVNO0/43uuD4YnYP8AAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMOSURBVEhLnVXNS1RRFH8VtKhoUf9ECLXIzHnvSho0g9p7
+        b8SaimjTqk1CBRG1mb4gCHJpuCqEJF3MohGZee+O2qpdH2D0YZpR1qIPnCQt0bmd333vje85Vx098mPk
+        3nN/575zfvccTWVpoW0+novtMnP6Houz85Zr9Ng89szm+gT9jsv/aS3pGh1JJ7Y3Qb6p/tQW//gqJrRN
+        5pPabTZvqLHzrKuFGz9szsRqaB2om7Fcdr9tqL42nt+33WdSGJG3uXW7TUc/S7d7ryJbEVlWauFsyuTs
+        XPPgwZ0+Y8h8ciK+HHeNRSVJFTC5MW0V2NXUcOMOn9kzpAU3X408yRvEyeG4ODWSUO6X4R74ZRWMjlR/
+        zVZJjoIi5xbX3ykPEEB+5ulR0fOhWzyeeCBODB9R+gUweexra0E3ZACoBQVVOQZoLzSJ6y8uCVhxflp0
+        vr6p9AuQyLFZSndvapS+AlJcSy3HhprE7ZdXZIDf80XR9eau0i8MfIU11MA06FzlEMZGAhCKlmPc0rxH
+        FN1EztsLjZIYQHHvvLomA8xQgO6398p7AHyXc5hZNm87uqN5LzRKjoKmKee4NQDyvo8PZYDZhT9i8HOm
+        vAekn18Up0eaIwE8xMYpAJ7/0iJuC7WsxxA0M9kbIg5Q/wlfQL1laRE6hxShFuQbQFpAAivR39zCXHkP
+        +Pn3u3CmBkLEAbwAkRQB0DmkiGICyDnSAgP5yLd8eQ/oHL0hvzzCM8BKJNUxDV0xsqEAColcw3BjkKr8
+        wohz9k8WGS1X5RDGRgIQPJmin6PlKhzKWHcA6q7Iv53XD2kYFujn3qLCmQCdQ4ooNAqKnKv8AljZ/XOk
+        zj7ZizCJMCzQz1XOAaDzzOQjqZaKgoYgO7LLxuyccVgGgGESYVign6sOVQsq7KKdY18sh13wqZcMkwjD
+        Av1cdXgtyJsTuekYaZ+y0jCJMCzQCWXLVRBVgGonc05pUd58uWESYVignyMQkRRl4wqT0iOSOqc9qRYq
+        aCTn1RiGBfo5tIwH47UUkBHohWJN7kGKK5qm/QcPjq3M/qGargAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -315,51 +351,6 @@
         TgDQASA1MVpwzwAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1625, 17</value>
-  </metadata>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1411, 17</value>
-  </metadata>
-  <data name="C1Produkte.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
-        vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="C1Produkte.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
-        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
-        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
-        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
-        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
-        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
-        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
-        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
-        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
-        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
-        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
-        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
-        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
-        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
-        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
-        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
-        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
-        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
-        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
-        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
-        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
-        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
-        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
-        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
-        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
-</value>
-  </data>
-  <data name="C1Produkte.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{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}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" 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, 490, 131&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, 490, 131&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
-  </data>
   <data name="C1Produktzusatz.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -397,7 +388,7 @@
 </value>
   </data>
   <data name="C1Produktzusatz.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{}Style2{}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;}Style1{}Caption{AlignHorz:Center;}Style6{}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" 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, 381, 130&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, 381, 130&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;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}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" 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, 381, 130&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, 381, 130&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1625, 17</value>

DPM2016/DPM2016.vbproj

@@ -804,6 +804,12 @@
     </Compile>
     <Compile Include="Klassen\MySecurity.vb" />
     <Compile Include="Mobile\Models\Patient.vb" />
+    <Compile Include="Patient\frmPrivatAnsprechpartner.Designer.vb">
+      <DependentUpon>frmPrivatAnsprechpartner.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Patient\frmPrivatAnsprechpartner.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Patient\Patient.Designer.vb">
       <DependentUpon>Patient.vb</DependentUpon>
     </Compile>
@@ -1139,6 +1145,9 @@
     <EmbeddedResource Include="KG\Krankengeschichte.resx">
       <DependentUpon>Krankengeschichte.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Patient\frmPrivatAnsprechpartner.resx">
+      <DependentUpon>frmPrivatAnsprechpartner.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Patient\Patient.resx">
       <DependentUpon>Patient.vb</DependentUpon>
     </EmbeddedResource>

DPM2016/Diverses/frmProgrammeinstellungen.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmProgrammeinstellungen
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmProgrammeinstellungen
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProgrammeinstellungen))
@@ -37,6 +37,10 @@ Partial Class frmProgrammeinstellungen
         Me.Properties_DMS = New PropertyGridEx.PropertyGridEx()
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ProduktZusatz = New System.Windows.Forms.TabPage()
+        Me.ProduktZusaatzDetails = New System.Windows.Forms.TabPage()
+        Me.ClsStammdaten_flat4 = New DPM2016.clsStammdaten_flat()
+        Me.ClsStammdaten_flat5 = New DPM2016.clsStammdaten_flat()
         Me.TabControl1.SuspendLayout()
         Me.Tarif.SuspendLayout()
         Me.Konto.SuspendLayout()
@@ -44,6 +48,8 @@ Partial Class frmProgrammeinstellungen
         Me.AllgEinstellungen.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.ToolStrip1.SuspendLayout()
+        Me.ProduktZusatz.SuspendLayout()
+        Me.ProduktZusaatzDetails.SuspendLayout()
         Me.SuspendLayout()
         '
         'Properties
@@ -82,7 +88,7 @@ Partial Class frmProgrammeinstellungen
         Me.Properties.Name = "Properties"
         Me.Properties.PropertySort = System.Windows.Forms.PropertySort.Categorized
         Me.Properties.SelectedObject = Me.Properties.Item
-        Me.Properties.Size = New System.Drawing.Size(898, 584)
+        Me.Properties.Size = New System.Drawing.Size(1166, 559)
         Me.Properties.TabIndex = 5
         '
         '
@@ -106,6 +112,8 @@ Partial Class frmProgrammeinstellungen
         'TabControl1
         '
         Me.TabControl1.Controls.Add(Me.Tarif)
+        Me.TabControl1.Controls.Add(Me.ProduktZusatz)
+        Me.TabControl1.Controls.Add(Me.ProduktZusaatzDetails)
         Me.TabControl1.Controls.Add(Me.Konto)
         Me.TabControl1.Controls.Add(Me.MailTexte)
         Me.TabControl1.Controls.Add(Me.AllgEinstellungen)
@@ -114,7 +122,7 @@ Partial Class frmProgrammeinstellungen
         Me.TabControl1.Location = New System.Drawing.Point(0, 25)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(912, 591)
+        Me.TabControl1.Size = New System.Drawing.Size(1180, 591)
         Me.TabControl1.TabIndex = 6
         '
         'Tarif
@@ -123,19 +131,20 @@ Partial Class frmProgrammeinstellungen
         Me.Tarif.Location = New System.Drawing.Point(4, 22)
         Me.Tarif.Name = "Tarif"
         Me.Tarif.Padding = New System.Windows.Forms.Padding(3)
-        Me.Tarif.Size = New System.Drawing.Size(904, 565)
+        Me.Tarif.Size = New System.Drawing.Size(1172, 565)
         Me.Tarif.TabIndex = 1
         Me.Tarif.Text = "Tarif"
         Me.Tarif.UseVisualStyleBackColor = True
         '
         'ClsStammdaten_flat1
         '
-        Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
-    "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
+    "on id=;packet size=4096;user id=sa;password=*shu29"
         Me.ClsStammdaten_flat1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(3, 3)
         Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
-        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(898, 559)
+        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(1166, 559)
+        Me.ClsStammdaten_flat1.SQL = ""
         Me.ClsStammdaten_flat1.TabIndex = 0
         Me.ClsStammdaten_flat1.Tablename = Nothing
         '
@@ -144,19 +153,20 @@ Partial Class frmProgrammeinstellungen
         Me.Konto.Controls.Add(Me.ClsStammdaten_flat3)
         Me.Konto.Location = New System.Drawing.Point(4, 22)
         Me.Konto.Name = "Konto"
-        Me.Konto.Size = New System.Drawing.Size(904, 590)
+        Me.Konto.Size = New System.Drawing.Size(1172, 565)
         Me.Konto.TabIndex = 4
         Me.Konto.Text = "Konto"
         Me.Konto.UseVisualStyleBackColor = True
         '
         'ClsStammdaten_flat3
         '
-        Me.ClsStammdaten_flat3.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
-    "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat3.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
+    "on id=;packet size=4096;user id=sa;password=*shu29"
         Me.ClsStammdaten_flat3.Dock = System.Windows.Forms.DockStyle.Fill
         Me.ClsStammdaten_flat3.Location = New System.Drawing.Point(0, 0)
         Me.ClsStammdaten_flat3.Name = "ClsStammdaten_flat3"
-        Me.ClsStammdaten_flat3.Size = New System.Drawing.Size(904, 590)
+        Me.ClsStammdaten_flat3.Size = New System.Drawing.Size(1172, 565)
+        Me.ClsStammdaten_flat3.SQL = ""
         Me.ClsStammdaten_flat3.TabIndex = 1
         Me.ClsStammdaten_flat3.Tablename = Nothing
         '
@@ -165,19 +175,20 @@ Partial Class frmProgrammeinstellungen
         Me.MailTexte.Controls.Add(Me.ClsStammdaten_flat2)
         Me.MailTexte.Location = New System.Drawing.Point(4, 22)
         Me.MailTexte.Name = "MailTexte"
-        Me.MailTexte.Size = New System.Drawing.Size(904, 590)
+        Me.MailTexte.Size = New System.Drawing.Size(1172, 565)
         Me.MailTexte.TabIndex = 2
         Me.MailTexte.Text = "Mailtexte"
         Me.MailTexte.UseVisualStyleBackColor = True
         '
         'ClsStammdaten_flat2
         '
-        Me.ClsStammdaten_flat2.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
-    "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat2.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
+    "on id=;packet size=4096;user id=sa;password=*shu29"
         Me.ClsStammdaten_flat2.Dock = System.Windows.Forms.DockStyle.Fill
         Me.ClsStammdaten_flat2.Location = New System.Drawing.Point(0, 0)
         Me.ClsStammdaten_flat2.Name = "ClsStammdaten_flat2"
-        Me.ClsStammdaten_flat2.Size = New System.Drawing.Size(904, 590)
+        Me.ClsStammdaten_flat2.Size = New System.Drawing.Size(1172, 565)
+        Me.ClsStammdaten_flat2.SQL = ""
         Me.ClsStammdaten_flat2.TabIndex = 0
         Me.ClsStammdaten_flat2.Tablename = Nothing
         '
@@ -187,7 +198,7 @@ Partial Class frmProgrammeinstellungen
         Me.AllgEinstellungen.Location = New System.Drawing.Point(4, 22)
         Me.AllgEinstellungen.Name = "AllgEinstellungen"
         Me.AllgEinstellungen.Padding = New System.Windows.Forms.Padding(3)
-        Me.AllgEinstellungen.Size = New System.Drawing.Size(904, 590)
+        Me.AllgEinstellungen.Size = New System.Drawing.Size(1172, 565)
         Me.AllgEinstellungen.TabIndex = 0
         Me.AllgEinstellungen.Text = "Allg. Programm-Einstallungen"
         Me.AllgEinstellungen.UseVisualStyleBackColor = True
@@ -197,7 +208,7 @@ Partial Class frmProgrammeinstellungen
         Me.TabPage1.Controls.Add(Me.Properties_DMS)
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Size = New System.Drawing.Size(904, 590)
+        Me.TabPage1.Size = New System.Drawing.Size(1172, 565)
         Me.TabPage1.TabIndex = 3
         Me.TabPage1.Text = "DMS-Einstellungen"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -238,7 +249,7 @@ Partial Class frmProgrammeinstellungen
         Me.Properties_DMS.Name = "Properties_DMS"
         Me.Properties_DMS.PropertySort = System.Windows.Forms.PropertySort.Categorized
         Me.Properties_DMS.SelectedObject = Me.Properties_DMS.Item
-        Me.Properties_DMS.Size = New System.Drawing.Size(904, 590)
+        Me.Properties_DMS.Size = New System.Drawing.Size(1172, 565)
         Me.Properties_DMS.TabIndex = 6
         '
         '
@@ -264,7 +275,7 @@ Partial Class frmProgrammeinstellungen
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(912, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1180, 25)
         Me.ToolStrip1.TabIndex = 7
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -277,11 +288,55 @@ Partial Class frmProgrammeinstellungen
         Me.ToolStripButton1.Size = New System.Drawing.Size(65, 22)
         Me.ToolStripButton1.Text = "Schliessen"
         '
+        'ProduktZusatz
+        '
+        Me.ProduktZusatz.Controls.Add(Me.ClsStammdaten_flat4)
+        Me.ProduktZusatz.Location = New System.Drawing.Point(4, 22)
+        Me.ProduktZusatz.Name = "ProduktZusatz"
+        Me.ProduktZusatz.Size = New System.Drawing.Size(1172, 565)
+        Me.ProduktZusatz.TabIndex = 5
+        Me.ProduktZusatz.Text = "Produkt Zusatz"
+        Me.ProduktZusatz.UseVisualStyleBackColor = True
+        '
+        'ProduktZusaatzDetails
+        '
+        Me.ProduktZusaatzDetails.Controls.Add(Me.ClsStammdaten_flat5)
+        Me.ProduktZusaatzDetails.Location = New System.Drawing.Point(4, 22)
+        Me.ProduktZusaatzDetails.Name = "ProduktZusaatzDetails"
+        Me.ProduktZusaatzDetails.Size = New System.Drawing.Size(1172, 565)
+        Me.ProduktZusaatzDetails.TabIndex = 6
+        Me.ProduktZusaatzDetails.Text = "Produkt Zusatz Details"
+        Me.ProduktZusaatzDetails.UseVisualStyleBackColor = True
+        '
+        'ClsStammdaten_flat4
+        '
+        Me.ClsStammdaten_flat4.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
+    "on id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ClsStammdaten_flat4.Location = New System.Drawing.Point(0, 0)
+        Me.ClsStammdaten_flat4.Name = "ClsStammdaten_flat4"
+        Me.ClsStammdaten_flat4.Size = New System.Drawing.Size(1172, 565)
+        Me.ClsStammdaten_flat4.SQL = ""
+        Me.ClsStammdaten_flat4.TabIndex = 1
+        Me.ClsStammdaten_flat4.Tablename = Nothing
+        '
+        'ClsStammdaten_flat5
+        '
+        Me.ClsStammdaten_flat5.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
+    "on id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat5.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ClsStammdaten_flat5.Location = New System.Drawing.Point(0, 0)
+        Me.ClsStammdaten_flat5.Name = "ClsStammdaten_flat5"
+        Me.ClsStammdaten_flat5.Size = New System.Drawing.Size(1172, 565)
+        Me.ClsStammdaten_flat5.SQL = ""
+        Me.ClsStammdaten_flat5.TabIndex = 1
+        Me.ClsStammdaten_flat5.Tablename = Nothing
+        '
         'frmProgrammeinstellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(912, 616)
+        Me.ClientSize = New System.Drawing.Size(1180, 616)
         Me.Controls.Add(Me.TabControl1)
         Me.Controls.Add(Me.ToolStrip1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -295,6 +350,8 @@ Partial Class frmProgrammeinstellungen
         Me.TabPage1.ResumeLayout(False)
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()
+        Me.ProduktZusatz.ResumeLayout(False)
+        Me.ProduktZusaatzDetails.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -313,4 +370,8 @@ Partial Class frmProgrammeinstellungen
     Friend WithEvents ClsStammdaten_flat3 As clsStammdaten_flat
     Friend WithEvents ToolStrip1 As ToolStrip
     Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents ProduktZusatz As TabPage
+    Friend WithEvents ProduktZusaatzDetails As TabPage
+    Friend WithEvents ClsStammdaten_flat4 As clsStammdaten_flat
+    Friend WithEvents ClsStammdaten_flat5 As clsStammdaten_flat
 End Class

DPM2016/Diverses/frmProgrammeinstellungen.resx

@@ -452,15 +452,15 @@
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHnSURBVDhPrZO7aoJBEIWNl5AiCYGQNBHJTRFTC0kkiI8Q
-        FETUTisLWxvxGcQ3sPMRxFoRVARRBAUrL1iY1kJxst9m/QmpMzAwzpxzZpzZ3/ZvJiL28Xh8MRgMHvv9
-        /pVJW0aOGhiwJv1jpVLJWS6X35PJpOTzeQmHw/eTycStSie4iZ2FQkHS6fRXpVJ5gwNXW7vdvoQ8HA5l
-        sVhIKpXSIqrrHU6cyWRkv99Lp9PRIkxi6DZ7q9V6RgDydruV5XJpieDE5KhNp1NJJBICBy4Cjmq1euv3
-        +19jsZieYrfbyXq9Frpms1kdk1NdBQzYWq12AxcBVJz1ev3B5/OFAIxGI92NkXHiIxkMWDiGq43A1Wg0
-        PADi8bisVis6HzabjZ6AHDUwYA3HMrbtVMt0B4NBH+D5fH5AAFf//0COGhiwhmPZSbfb9bAwxpzNZkJn
-        RJiEmBw1MGDh/FCV8Uj+ktkDXXHivyK/H5td3faJ07AogFwCoNfr/cCJyVEDgygcuAg41Mu65h00m03p
-        9XrWttWpHvDjdXgD6reAhQMXAbsa6SyXy31Go1Fr2+ZUbNt1PDE1MGDhwEUAcwQCgfNIJPJSLBZDPCyV
-        g8y2cRc5amDAwlFuGUokTpWjfHwk+mMyMTlqYMCqnM32DVkqjxTcKIyIAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHpSURBVDhPrZPNSoJREIbNn2hREURtiuhPEVsLlYR4CaEg
+        ou505cKtG/EaxDtw5yWIa0VQEUQRFNyIfwvbulCcznM6fkTrBgbmm3nf9wwz89n+zUTEPhwOz3q93mO3
+        270wacvIUQMD1qR/rFAoOIvF4ns8HpdsNivBYPB+NBrdqtIRbmJnLpeTZDL5VSqV3uDA1dZsNs8h9/t9
+        mc1mkkgktIh69QYnTqVSstvtpNVqaRE6MXSbvdFoPCMAebPZyHw+t0RwYnLUxuOxxGIxgQMXAUe5XL72
+        er2vkUhEd7HdbmW1WgmvptNpHZNTrwoYsJVK5QouAqg4q9Xqg8fjCQAYDAb6NVrGiQ9kMGDhGK42Alet
+        VrsDEI1GZbFYyHK53K/Xa90BOWpgwBqOZUzbqYZ56/f7PYCn0+keAVzNZk+OGhiwhmPZUbvdvmNgtDmZ
+        TISXEaETYnLUwICF80NVxpH8JTMHXsWJ/4r8Pja72u0Tq2FQANkEQLfb/YETk6MGBlE4cBFwqMu65A7q
+        9bp0Oh1r2mpVD/hhO9yA+hawcOAiYFctnWQymc9wOGxN26yKabsOK6YGBiwcuAhgDp/PdxoKhV7y+XyA
+        w1I5yEwbd5GjBgYsHOWWoUTiWDnKhyPRP5OJyVEDA1blbLZvNs6PAhRFf7MAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

DPM2016/Diverses/frmProgrammeinstellungen.vb

@@ -21,6 +21,18 @@ Public Class frmProgrammeinstellungen
         Me.ClsStammdaten_flat3.Tablename = "Konto"
         Me.ClsStammdaten_flat3.ToolStripButton5.Visible = False
         Me.ClsStammdaten_flat3.get_data()
+        If Globals.DruckBranche Then
+            Me.ClsStammdaten_flat4.Tablename = "ProduktZusatz"
+            Me.ClsStammdaten_flat4.ToolStripButton5.Visible = False
+            Me.ClsStammdaten_flat4.get_data()
+            Me.ClsStammdaten_flat5.Tablename = "ProduktZusatzDetail"
+            Me.ClsStammdaten_flat5.ToolStripButton5.Visible = False
+            Me.ClsStammdaten_flat5.get_data()
+        Else
+            Me.TabControl1.TabPages(1).Visible = False
+            Me.TabControl1.TabPages(2).Visible = False
+        End If
+
         If My.Settings.SoftwareType = "PADM" Then Me.TabControl1.TabPages(0).Text = "Artikel"
         'Properties.ShowCustomProperties = True
         'Properties.Item.Clear()

DPM2016/Firmen/frmFirma.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmFirma
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmFirma
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirma))
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
@@ -101,14 +101,14 @@ Partial Class frmFirma
         Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
         Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.ClsDokumente1 = New DPM2016.clsDokumente()
         Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
-        Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
-        Me.Label4 = New System.Windows.Forms.Label()
         Me.MenuStrip1.SuspendLayout()
         Me.ToolStrip1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -893,6 +893,25 @@ Partial Class frmFirma
         Me.Panel1.Size = New System.Drawing.Size(1003, 583)
         Me.Panel1.TabIndex = 222
         '
+        'chkMail_Kommunikation
+        '
+        Me.chkMail_Kommunikation.AutoSize = True
+        Me.chkMail_Kommunikation.Location = New System.Drawing.Point(906, 322)
+        Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
+        Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14)
+        Me.chkMail_Kommunikation.TabIndex = 223
+        Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(728, 322)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(101, 13)
+        Me.Label4.TabIndex = 222
+        Me.Label4.Text = "Mail-Kommunikation"
+        '
         'Stammdaten
         '
         Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
@@ -943,25 +962,6 @@ Partial Class frmFirma
         Me.Finanzen.Name = "Finanzen"
         Me.Finanzen.Text = "Finanzen"
         '
-        'chkMail_Kommunikation
-        '
-        Me.chkMail_Kommunikation.AutoSize = True
-        Me.chkMail_Kommunikation.Location = New System.Drawing.Point(906, 322)
-        Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
-        Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14)
-        Me.chkMail_Kommunikation.TabIndex = 223
-        Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.BackColor = System.Drawing.Color.Transparent
-        Me.Label4.Location = New System.Drawing.Point(728, 322)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(101, 13)
-        Me.Label4.TabIndex = 222
-        Me.Label4.Text = "Mail-Kommunikation"
-        '
         'frmFirma
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

DPM2016/Klassen/clsStammdaten_flat.vb

@@ -34,6 +34,16 @@ Public Class clsStammdaten_flat
         End Set
     End Property
 
+    Dim m_allowaddnew As Boolean = True
+    Property AllowAddNew As Boolean
+        Get
+            Return m_allowaddnew
+        End Get
+        Set(value As Boolean)
+            m_allowaddnew = value
+        End Set
+    End Property
+
 
 
     Dim db As clsDB
@@ -113,6 +123,10 @@ Public Class clsStammdaten_flat
                     Me.c1daten.AllowDrop = True
 
             End Select
+            If Me.AllowAddNew = False Then
+                Me.c1daten.AllowAddNew = False
+                Me.c1daten.AllowUpdate = False
+            End If
         Catch ex As Exception
         End Try
     End Sub

DPM2016/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -166,7 +166,7 @@ Namespace My
         
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("DPM")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("PADM")>  _
         Public Property SoftwareType() As String
             Get
                 Return CType(Me("SoftwareType"),String)

DPM2016/My Project/Settings.settings

@@ -30,7 +30,7 @@
       <Value Profile="(Default)">http://192.168.111.67</Value>
     </Setting>
     <Setting Name="SoftwareType" Type="System.String" Scope="User">
-      <Value Profile="(Default)">DPM</Value>
+      <Value Profile="(Default)">PADM</Value>
     </Setting>
   </Settings>
 </SettingsFile>

DPM2016/Patient/Patient.Designer.vb

@@ -46,12 +46,12 @@ Partial Class Patient
         Me.btnVTX = New System.Windows.Forms.Button()
         Me.PatientDetails1 = New DPM2016.PatientDetails()
         Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Behandlung1 = New DPM2016.Behandlung()
-        Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
         Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Behandlung1 = New DPM2016.Behandlung()
+        Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Finanzen1 = New DPM2016.Finanzen()
         Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
@@ -75,8 +75,8 @@ Partial Class Patient
         CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuperTabControl1.SuspendLayout()
         Me.SuperTabControlPanel1.SuspendLayout()
-        Me.SuperTabControlPanel3.SuspendLayout()
         Me.SuperTabControlPanel8.SuspendLayout()
+        Me.SuperTabControlPanel3.SuspendLayout()
         Me.SuperTabControlPanel5.SuspendLayout()
         Me.SuperTabControlPanel4.SuspendLayout()
         Me.SuperTabControlPanel7.SuspendLayout()
@@ -237,6 +237,7 @@ Partial Class Patient
         Me.ToolStripButton1.Name = "ToolStripButton1"
         Me.ToolStripButton1.Size = New System.Drawing.Size(24, 24)
         Me.ToolStripButton1.Text = "ToolStripButton1"
+        Me.ToolStripButton1.Visible = False
         '
         'SuperTabControl1
         '
@@ -254,8 +255,8 @@ Partial Class Patient
         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.SuperTabControlPanel1)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
@@ -312,35 +313,6 @@ Partial Class Patient
         Me.Stammdaten.Name = "Stammdaten"
         Me.Stammdaten.Text = "Stammdaten"
         '
-        'SuperTabControlPanel3
-        '
-        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.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
-        Me.SuperTabControlPanel3.TabIndex = 0
-        Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
-        '
-        '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(4)
-        Me.Behandlung1.Name = "Behandlung1"
-        Me.Behandlung1.PatientNr = 0
-        Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
-        Me.Behandlung1.TabIndex = 0
-        '
-        'Behandlungen
-        '
-        Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
-        Me.Behandlungen.GlobalItem = False
-        Me.Behandlungen.Name = "Behandlungen"
-        Me.Behandlungen.Text = "Behandlungen"
-        '
         'SuperTabControlPanel8
         '
         Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
@@ -371,6 +343,35 @@ Partial Class Patient
         Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
         Me.Stammdaten_Firma.Text = "Stammdaten"
         '
+        'SuperTabControlPanel3
+        '
+        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.Name = "SuperTabControlPanel3"
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel3.TabIndex = 0
+        Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
+        '
+        '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(4)
+        Me.Behandlung1.Name = "Behandlung1"
+        Me.Behandlung1.PatientNr = 0
+        Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
+        Me.Behandlung1.TabIndex = 0
+        '
+        'Behandlungen
+        '
+        Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
+        Me.Behandlungen.GlobalItem = False
+        Me.Behandlungen.Name = "Behandlungen"
+        Me.Behandlungen.Text = "Behandlungen"
+        '
         'SuperTabControlPanel5
         '
         Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
@@ -562,8 +563,8 @@ Partial Class Patient
         CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SuperTabControl1.ResumeLayout(False)
         Me.SuperTabControlPanel1.ResumeLayout(False)
-        Me.SuperTabControlPanel3.ResumeLayout(False)
         Me.SuperTabControlPanel8.ResumeLayout(False)
+        Me.SuperTabControlPanel3.ResumeLayout(False)
         Me.SuperTabControlPanel5.ResumeLayout(False)
         Me.SuperTabControlPanel4.ResumeLayout(False)
         Me.SuperTabControlPanel7.ResumeLayout(False)

DPM2016/Patient/Patient.vb

@@ -422,4 +422,7 @@
 
     End Sub
 
+    Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+
+    End Sub
 End Class

DPM2016/Patient/PatientDetails.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<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()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class PatientDetails
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.txtnrprivat = New System.Windows.Forms.TextBox()
         Me.lblNr = New System.Windows.Forms.Label()
@@ -221,7 +221,7 @@ Partial Class PatientDetails
         '
         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.Location = New System.Drawing.Point(584, 42)
         Me.chklbAdresstyp.Name = "chklbAdresstyp"
         Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
         Me.chklbAdresstyp.TabIndex = 30

DPM2016/Patient/PatientDetails.vb

@@ -24,6 +24,10 @@ Public Class PatientDetails
             Catch ex As Exception
                 log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
             End Try
+            If Globals.DruckBranche Or Globals.Applicationtype = ApplicationTypes.Auftragsadministration Then
+                Me.Label13.Visible = False
+                Me.chklbAdresstyp.Visible = False
+            End If
             Me.ResumeLayout()
         End Set
     End Property

DPM2016/Patient/frmPrivatAnsprechpartner.Designer.vb

@@ -0,0 +1,354 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmPrivatAnsprechpartner
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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.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.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtadresse1 = New System.Windows.Forms.TextBox()
+        Me.lblCO = New System.Windows.Forms.Label()
+        Me.txtadresse2 = New System.Windows.Forms.TextBox()
+        Me.lblStrasse = New System.Windows.Forms.Label()
+        Me.txtPLZ = New System.Windows.Forms.TextBox()
+        Me.lblPLZOrt = New System.Windows.Forms.Label()
+        Me.txtOrt = New System.Windows.Forms.TextBox()
+        Me.txttelp = New System.Windows.Forms.TextBox()
+        Me.lblTelefon = New System.Windows.Forms.Label()
+        Me.lblemail = New System.Windows.Forms.Label()
+        Me.txtE_Mail = New System.Windows.Forms.TextBox()
+        Me.txtName = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.txtadresse3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtstrasse = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.SuspendLayout()
+        '
+        'txtMutierer
+        '
+        Me.txtMutierer.Location = New System.Drawing.Point(91, 406)
+        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 = 295
+        '
+        'txtMutiert_am
+        '
+        Me.txtMutiert_am.Location = New System.Drawing.Point(91, 382)
+        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 = 294
+        '
+        'txtErstellt_am
+        '
+        Me.txtErstellt_am.Location = New System.Drawing.Point(91, 360)
+        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 = 293
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.BackColor = System.Drawing.Color.Transparent
+        Me.Label18.Location = New System.Drawing.Point(21, 406)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 13)
+        Me.Label18.TabIndex = 292
+        Me.Label18.Text = "Mutierer"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.BackColor = System.Drawing.Color.Transparent
+        Me.Label17.Location = New System.Drawing.Point(21, 384)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(56, 13)
+        Me.Label17.TabIndex = 291
+        Me.Label17.Text = "Mutiert am"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.BackColor = System.Drawing.Color.Transparent
+        Me.Label16.Location = New System.Drawing.Point(22, 363)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(55, 13)
+        Me.Label16.TabIndex = 290
+        Me.Label16.Text = "Erstellt am"
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(91, 288)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(326, 66)
+        Me.txtBemerkung.TabIndex = 9
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Location = New System.Drawing.Point(20, 291)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(61, 13)
+        Me.Label2.TabIndex = 289
+        Me.Label2.Text = "Bemerkung"
+        '
+        'txtadresse1
+        '
+        Me.txtadresse1.Location = New System.Drawing.Point(91, 84)
+        Me.txtadresse1.Name = "txtadresse1"
+        Me.txtadresse1.Size = New System.Drawing.Size(228, 20)
+        Me.txtadresse1.TabIndex = 1
+        '
+        'lblCO
+        '
+        Me.lblCO.AutoSize = True
+        Me.lblCO.BackColor = System.Drawing.Color.Transparent
+        Me.lblCO.Location = New System.Drawing.Point(20, 87)
+        Me.lblCO.Name = "lblCO"
+        Me.lblCO.Size = New System.Drawing.Size(54, 13)
+        Me.lblCO.TabIndex = 284
+        Me.lblCO.Text = "Adresse 1"
+        '
+        'txtadresse2
+        '
+        Me.txtadresse2.Location = New System.Drawing.Point(91, 108)
+        Me.txtadresse2.Name = "txtadresse2"
+        Me.txtadresse2.Size = New System.Drawing.Size(228, 20)
+        Me.txtadresse2.TabIndex = 2
+        '
+        'lblStrasse
+        '
+        Me.lblStrasse.AutoSize = True
+        Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
+        Me.lblStrasse.Location = New System.Drawing.Point(20, 115)
+        Me.lblStrasse.Name = "lblStrasse"
+        Me.lblStrasse.Size = New System.Drawing.Size(54, 13)
+        Me.lblStrasse.TabIndex = 285
+        Me.lblStrasse.Text = "Adresse 2"
+        '
+        'txtPLZ
+        '
+        Me.txtPLZ.Location = New System.Drawing.Point(91, 189)
+        Me.txtPLZ.Name = "txtPLZ"
+        Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
+        Me.txtPLZ.TabIndex = 5
+        '
+        'lblPLZOrt
+        '
+        Me.lblPLZOrt.AutoSize = True
+        Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
+        Me.lblPLZOrt.Location = New System.Drawing.Point(20, 193)
+        Me.lblPLZOrt.Name = "lblPLZOrt"
+        Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
+        Me.lblPLZOrt.TabIndex = 286
+        Me.lblPLZOrt.Text = "PLZ/Ort"
+        '
+        'txtOrt
+        '
+        Me.txtOrt.Location = New System.Drawing.Point(145, 189)
+        Me.txtOrt.Name = "txtOrt"
+        Me.txtOrt.Size = New System.Drawing.Size(174, 20)
+        Me.txtOrt.TabIndex = 6
+        '
+        'txttelp
+        '
+        Me.txttelp.Location = New System.Drawing.Point(91, 223)
+        Me.txttelp.Name = "txttelp"
+        Me.txttelp.Size = New System.Drawing.Size(228, 20)
+        Me.txttelp.TabIndex = 7
+        '
+        'lblTelefon
+        '
+        Me.lblTelefon.AutoSize = True
+        Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
+        Me.lblTelefon.Location = New System.Drawing.Point(20, 226)
+        Me.lblTelefon.Name = "lblTelefon"
+        Me.lblTelefon.Size = New System.Drawing.Size(43, 13)
+        Me.lblTelefon.TabIndex = 287
+        Me.lblTelefon.Text = "Telefon"
+        '
+        'lblemail
+        '
+        Me.lblemail.AutoSize = True
+        Me.lblemail.BackColor = System.Drawing.Color.Transparent
+        Me.lblemail.Location = New System.Drawing.Point(20, 255)
+        Me.lblemail.Name = "lblemail"
+        Me.lblemail.Size = New System.Drawing.Size(36, 13)
+        Me.lblemail.TabIndex = 288
+        Me.lblemail.Text = "E-Mail"
+        '
+        'txtE_Mail
+        '
+        Me.txtE_Mail.Location = New System.Drawing.Point(91, 252)
+        Me.txtE_Mail.Name = "txtE_Mail"
+        Me.txtE_Mail.Size = New System.Drawing.Size(228, 20)
+        Me.txtE_Mail.TabIndex = 8
+        '
+        'txtName
+        '
+        Me.txtName.Location = New System.Drawing.Point(91, 33)
+        Me.txtName.Name = "txtName"
+        Me.txtName.Size = New System.Drawing.Size(228, 20)
+        Me.txtName.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(20, 36)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(35, 13)
+        Me.Label1.TabIndex = 297
+        Me.Label1.Text = "Name"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(25, 449)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 10
+        Me.Button1.Text = "Speichern"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(355, 449)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 11
+        Me.Button2.Text = "Abbruch"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'txtadresse3
+        '
+        Me.txtadresse3.Location = New System.Drawing.Point(91, 137)
+        Me.txtadresse3.Name = "txtadresse3"
+        Me.txtadresse3.Size = New System.Drawing.Size(228, 20)
+        Me.txtadresse3.TabIndex = 3
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(20, 141)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(54, 13)
+        Me.Label3.TabIndex = 302
+        Me.Label3.Text = "Adresse 3"
+        '
+        'txtstrasse
+        '
+        Me.txtstrasse.Location = New System.Drawing.Point(91, 163)
+        Me.txtstrasse.Name = "txtstrasse"
+        Me.txtstrasse.Size = New System.Drawing.Size(228, 20)
+        Me.txtstrasse.TabIndex = 4
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(20, 167)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(67, 13)
+        Me.Label4.TabIndex = 304
+        Me.Label4.Text = "Strasse / Nr."
+        '
+        'frmPrivatAnsprechpartner
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(442, 494)
+        Me.Controls.Add(Me.txtstrasse)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtadresse3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.txtName)
+        Me.Controls.Add(Me.Label1)
+        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.txtBemerkung)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.txtadresse1)
+        Me.Controls.Add(Me.lblCO)
+        Me.Controls.Add(Me.txtadresse2)
+        Me.Controls.Add(Me.lblStrasse)
+        Me.Controls.Add(Me.txtPLZ)
+        Me.Controls.Add(Me.lblPLZOrt)
+        Me.Controls.Add(Me.txtOrt)
+        Me.Controls.Add(Me.txttelp)
+        Me.Controls.Add(Me.lblTelefon)
+        Me.Controls.Add(Me.lblemail)
+        Me.Controls.Add(Me.txtE_Mail)
+        Me.Name = "frmPrivatAnsprechpartner"
+        Me.Text = "Ansprechpartner-Adressen"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents txtMutierer As TextBox
+    Friend WithEvents txtMutiert_am As TextBox
+    Friend WithEvents txtErstellt_am As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents txtBemerkung As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtadresse1 As TextBox
+    Friend WithEvents lblCO As Label
+    Friend WithEvents txtadresse2 As TextBox
+    Friend WithEvents lblStrasse As Label
+    Friend WithEvents txtPLZ As TextBox
+    Friend WithEvents lblPLZOrt As Label
+    Friend WithEvents txtOrt As TextBox
+    Friend WithEvents txttelp As TextBox
+    Friend WithEvents lblTelefon As Label
+    Friend WithEvents lblemail As Label
+    Friend WithEvents txtE_Mail As TextBox
+    Friend WithEvents txtName As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents txtadresse3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtstrasse As TextBox
+    Friend WithEvents Label4 As Label
+End Class

DPM2016/Patient/frmPrivatAnsprechpartner.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/frmPrivatAnsprechpartner.vb

@@ -0,0 +1,105 @@
+Public Class frmPrivatAnsprechpartner
+    Dim db As New clsDB
+    Dim m_nrprivat As Integer
+    Property nrprivat As Integer
+        Get
+            Return m_nrprivat
+        End Get
+        Set(value As Integer)
+            m_nrprivat = value
+        End Set
+    End Property
+
+    Dim m_id As Integer
+    Property id As Integer
+        Get
+            Return m_id
+        End Get
+        Set(value As Integer)
+            m_id = value
+        End Set
+    End Property
+
+    Dim m_isnew As Boolean
+    Property is_new As Boolean
+        Get
+            Return m_isnew
+        End Get
+        Set(value As Boolean)
+            m_isnew = value
+        End Set
+    End Property
+
+    Private Sub frmPrivatAnsprechpartner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If id > 0 Then
+            db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
+            Fill_Form()
+        End If
+
+        If is_new Then
+            db.Get_Tabledata("Ansprechpartner", "", "Select top 1 * from privat_ansprechpartner order by id desc")
+            Dim idnew As Integer
+            If db.dsDaten.Tables(0).Rows.Count = 0 Then idnew = 1 Else idnew = db.dsDaten.Tables(0).Rows(0).Item(0) + 1
+            Me.id = idnew
+            db.Exec_SQL("Insert Privat_Ansprechpartner (id,nrprivat, erstellt_am, mutiert_am, mutierer,aktiv) values(" + idnew.ToString + "," + Me.nrprivat.ToString + ",'" + Now.ToString + "','" + Now.ToString + "'," + Globals.ActUser.ToString + ",1)")
+            db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
+            Me.txtName.Text = ""
+            Me.txtadresse1.Text = ""
+            Me.txtadresse2.Text = ""
+            Me.txtPLZ.Text = ""
+            Me.txtOrt.Text = ""
+            Me.txttelp.Text = ""
+            Me.txtE_Mail.Text = ""
+            Me.txtBemerkung.Text = ""
+            Me.txtErstellt_am.Text = Now.ToString
+            Me.txtMutiert_am.Text = Now.ToString
+            Me.txtMutierer.Text = Globals.ActUser
+            Me.id = idnew
+            update_data()
+        End If
+    End Sub
+
+    Private Sub Fill_Form()
+        Me.txtName.Text = db.dsDaten.Tables(0).Rows(0).Item("Name")
+        Me.txtadresse1.Text = db.dsDaten.Tables(0).Rows(0).Item("Adresse1")
+        Me.txtadresse2.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse2")
+        Me.txtadresse3.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse3")
+        Me.txtstrasse.Text = db.dsDaten.Tables(0).Rows(0).Item("strasse")
+        Me.txtPLZ.Text = db.dsDaten.Tables(0).Rows(0).Item("plz")
+        Me.txtOrt.Text = db.dsDaten.Tables(0).Rows(0).Item("ort")
+        Me.txttelp.Text = db.dsDaten.Tables(0).Rows(0).Item("telefon")
+        Me.txtE_Mail.Text = db.dsDaten.Tables(0).Rows(0).Item("email")
+        Me.txtBemerkung.Text = db.dsDaten.Tables(0).Rows(0).Item("bemerkung")
+        Me.txtErstellt_am.Text = db.dsDaten.Tables(0).Rows(0).Item("erstellt_am").ToString
+        Me.txtMutiert_am.Text = db.dsDaten.Tables(0).Rows(0).Item("mutiert_am").ToString
+        Me.txtMutierer.Text = db.dsDaten.Tables(0).Rows(0).Item("mutierer").ToString
+    End Sub
+
+    Sub update_data()
+        db.dsDaten.Tables(0).Rows(0).Item("Name") = Me.txtName.Text
+        db.dsDaten.Tables(0).Rows(0).Item("Adresse1") = Me.txtadresse1.Text
+        db.dsDaten.Tables(0).Rows(0).Item("adresse2") = Me.txtadresse2.Text
+        db.dsDaten.Tables(0).Rows(0).Item("adresse3") = Me.txtadresse3.Text
+        db.dsDaten.Tables(0).Rows(0).Item("strasse") = Me.txtstrasse.Text
+        db.dsDaten.Tables(0).Rows(0).Item("plz") = Me.txtPLZ.Text
+        db.dsDaten.Tables(0).Rows(0).Item("ort") = Me.txtOrt.Text
+        db.dsDaten.Tables(0).Rows(0).Item("telefon") = Me.txttelp.Text
+        db.dsDaten.Tables(0).Rows(0).Item("email") = Me.txtE_Mail.Text
+        db.dsDaten.Tables(0).Rows(0).Item("bemerkung") = Me.txtBemerkung.Text
+        db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
+        db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
+        db.Update_Data()
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        update_data()
+        Me.DialogResult = DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.DialogResult = DialogResult.Cancel
+        Me.Close()
+    End Sub
+End Class

DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class PatientDetailsFirma
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,8 +20,9 @@ Partial Class PatientDetailsFirma
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.txtZSR = New System.Windows.Forms.TextBox()
@@ -86,6 +87,9 @@ Partial Class PatientDetailsFirma
         Me.lblTitel = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NeuerAnsprechpartnerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
         Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
         Me.cbboxGeschlecht = New DPM2016.MyCombobox()
@@ -93,6 +97,7 @@ Partial Class PatientDetailsFirma
         Me.cbboxStatus = New DPM2016.MyCombobox()
         Me.cbboxNRTitel = New DPM2016.MyCombobox()
         Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         'chkMail_Kommunikation
@@ -696,7 +701,6 @@ Partial Class PatientDetailsFirma
         Me.Label5.Size = New System.Drawing.Size(55, 13)
         Me.Label5.TabIndex = 282
         Me.Label5.Text = "Ansprech-"
-        Me.Label5.Visible = False
         '
         'Label6
         '
@@ -707,19 +711,37 @@ Partial Class PatientDetailsFirma
         Me.Label6.Size = New System.Drawing.Size(41, 13)
         Me.Label6.TabIndex = 283
         Me.Label6.Text = "Partner"
-        Me.Label6.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 48)
+        '
+        'NeuerAnsprechpartnerToolStripMenuItem
+        '
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Name = "NeuerAnsprechpartnerToolStripMenuItem"
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Text = "Neuer Ansprechpartner"
+        '
+        'BearbeitenToolStripMenuItem
+        '
+        Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
+        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
         '
         'ClsStammdaten_flat1
         '
+        Me.ClsStammdaten_flat1.AllowAddNew = True
         Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" &
     "on id=;packet size=4096;user id=sa;password=*shu29"
+        Me.ClsStammdaten_flat1.ContextMenuStrip = Me.ContextMenuStrip1
         Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(79, 336)
         Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
-        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 119)
+        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 178)
         Me.ClsStammdaten_flat1.SQL = ""
         Me.ClsStammdaten_flat1.TabIndex = 281
         Me.ClsStammdaten_flat1.Tablename = Nothing
-        Me.ClsStammdaten_flat1.Visible = False
         '
         'cbboxNRArbeitgeber
         '
@@ -876,9 +898,10 @@ Partial Class PatientDetailsFirma
         Me.Controls.Add(Me.lblNr)
         Me.Controls.Add(Me.lblAnrede)
         Me.Controls.Add(Me.lblTitel)
-        Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
+        Me.Margin = New System.Windows.Forms.Padding(2)
         Me.Name = "PatientDetailsFirma"
-        Me.Size = New System.Drawing.Size(729, 477)
+        Me.Size = New System.Drawing.Size(729, 535)
+        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -955,4 +978,7 @@ Partial Class PatientDetailsFirma
     Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
     Friend WithEvents Label5 As Label
     Friend WithEvents Label6 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents NeuerAnsprechpartnerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
 End Class

DPM2016/Patient/subclasses/PatientDetailsFirma.resx

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

@@ -23,6 +23,8 @@ Public Class PatientDetailsFirma
             Catch ex As Exception
                 log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
             End Try
+            Me.Label13.Visible = False
+            Me.chklbAdresstyp.Visible = False
             Me.ResumeLayout()
         End Set
     End Property
@@ -383,6 +385,10 @@ Public Class PatientDetailsFirma
                 End If
 
             Next
+            Me.ClsStammdaten_flat1.SQL = "Select * from privat_ansprechpartner where nrprivat=" + Me.PatientNr.ToString
+            Me.ClsStammdaten_flat1.AllowAddNew = False
+            Me.ClsStammdaten_flat1.Tablename = "Privat_Ansprechpartner"
+            Me.ClsStammdaten_flat1.get_data()
         Catch ex As Exception
             log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
         End Try
@@ -565,4 +571,26 @@ Public Class PatientDetailsFirma
     Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
 
     End Sub
+
+    Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
+
+    End Sub
+
+    Private Sub NeuerAnsprechpartnerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerAnsprechpartnerToolStripMenuItem.Click
+        Dim f As New frmPrivatAnsprechpartner
+        f.is_new = True
+        f.id = 0
+        f.nrprivat = txtnrprivat.Text
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then Me.ClsStammdaten_flat1.get_data()
+
+    End Sub
+
+    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
+        Dim f As New frmPrivatAnsprechpartner
+        f.is_new = False
+        f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
+        f.nrprivat = txtnrprivat.Text
+        f.ShowDialog()
+    End Sub
 End Class

DPM2016/Program.vb

@@ -19,7 +19,7 @@ Module Program
                                                            Application.Run(splashForm)
                                                        End Sub))
         splashThread.SetApartmentState(ApartmentState.STA)
-        'splashThread.Start()
+        splashThread.Start()
 
         Application.Run(mainForm)
         mainForm.BringToFront()

DPM2016/Sysadmin/frmStammdaten.Designer.vb

@@ -39,31 +39,33 @@ Partial Class frmStammdaten
         Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
         Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
         Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Zahntechnik (223)")
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
-        Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
-        Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
-        Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
-        Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
-        Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
-        Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode18, TreeNode19, TreeNode20, TreeNode21, TreeNode22, TreeNode23})
-        Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
-        Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
-        Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode25, TreeNode26})
-        Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
-        Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
-        Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode28, TreeNode29})
-        Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
-        Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
-        Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode31, TreeNode32})
-        Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
-        Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
-        Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
-        Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
-        Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
-        Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
-        Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
-        Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode34, TreeNode35, TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40})
+        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz")
+        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz Details")
+        Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16, TreeNode17, TreeNode18})
+        Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
+        Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
+        Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
+        Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
+        Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
+        Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
+        Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode20, TreeNode21, TreeNode22, TreeNode23, TreeNode24, TreeNode25})
+        Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
+        Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
+        Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28})
+        Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
+        Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
+        Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode30, TreeNode31})
+        Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
+        Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
+        Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode33, TreeNode34})
+        Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
+        Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
+        Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
+        Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
+        Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
+        Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
+        Dim TreeNode42 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
+        Dim TreeNode43 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40, TreeNode41, TreeNode42})
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
         Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -86,28 +88,27 @@ Partial Class frmStammdaten
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
-        Me.MenuStrip1.Size = New System.Drawing.Size(1276, 28)
+        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1200, 24)
         Me.MenuStrip1.TabIndex = 0
         Me.MenuStrip1.Text = "MenuStrip1"
         '
         'SchliessenToolStripMenuItem
         '
         Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
-        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(90, 24)
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
         Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
         '
         'DentotarImportToolStripMenuItem
         '
         Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
-        Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(133, 24)
+        Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(106, 20)
         Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
         '
         'TreeView1
         '
         Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.TreeView1.Location = New System.Drawing.Point(0, 28)
-        Me.TreeView1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.TreeView1.Location = New System.Drawing.Point(0, 24)
         Me.TreeView1.Name = "TreeView1"
         TreeNode1.Name = "Konto"
         TreeNode1.Text = "Konto"
@@ -146,63 +147,67 @@ Partial Class frmStammdaten
         TreeNode15.Text = "Dentotar_Parameter"
         TreeNode16.Name = "Dentotar_223"
         TreeNode16.Text = "Zahntechnik (223)"
-        TreeNode17.Name = "Knoten8"
-        TreeNode17.Text = "Tarif"
-        TreeNode18.Name = "Ansatz"
-        TreeNode18.Tag = "Demo"
-        TreeNode18.Text = "Ansatz"
-        TreeNode19.Name = "Abrtyp"
-        TreeNode19.Text = "Abrechnungstyp"
-        TreeNode20.Name = "ESTyp"
-        TreeNode20.Text = "Formulartyp / Einzahlungsschein"
-        TreeNode21.Name = "RGTyp"
-        TreeNode21.Text = "Rechnungstyp"
-        TreeNode22.Name = "Standards"
-        TreeNode22.Text = "Standards"
-        TreeNode23.Name = "Rechtext"
-        TreeNode23.Text = "Rechnungstexte"
-        TreeNode24.Name = "Knoten14"
-        TreeNode24.Text = "Abrechnung"
-        TreeNode25.Name = "Behandlungsart"
-        TreeNode25.Text = "Behandlungsart"
-        TreeNode26.Name = "Gesetz"
-        TreeNode26.Tag = "Demo"
-        TreeNode26.Text = "Gesetz"
-        TreeNode27.Name = "Diverse Stammdaten"
-        TreeNode27.Text = "Diverse Stammdaten"
-        TreeNode28.Name = "Auswertung"
-        TreeNode28.Text = "Auswertung"
-        TreeNode29.Name = "Reporting"
-        TreeNode29.Text = "Reporting"
-        TreeNode30.Name = "Auswertung_Statistiken"
-        TreeNode30.Text = "Auswertung_Statistiken"
-        TreeNode31.Name = "dms_settings"
-        TreeNode31.Tag = "DMS"
-        TreeNode31.Text = "Einstellungen"
-        TreeNode32.Name = "DMS_Struktur"
-        TreeNode32.Tag = "DMS"
-        TreeNode32.Text = "Struktur"
-        TreeNode33.Name = "DokumentManagement"
+        TreeNode17.Name = "ProduktZusatz"
+        TreeNode17.Text = "Produkt Zusatz"
+        TreeNode18.Name = "ProduktZusatzDetail"
+        TreeNode18.Text = "Produkt Zusatz Details"
+        TreeNode19.Name = "Knoten8"
+        TreeNode19.Text = "Tarif"
+        TreeNode20.Name = "Ansatz"
+        TreeNode20.Tag = "Demo"
+        TreeNode20.Text = "Ansatz"
+        TreeNode21.Name = "Abrtyp"
+        TreeNode21.Text = "Abrechnungstyp"
+        TreeNode22.Name = "ESTyp"
+        TreeNode22.Text = "Formulartyp / Einzahlungsschein"
+        TreeNode23.Name = "RGTyp"
+        TreeNode23.Text = "Rechnungstyp"
+        TreeNode24.Name = "Standards"
+        TreeNode24.Text = "Standards"
+        TreeNode25.Name = "Rechtext"
+        TreeNode25.Text = "Rechnungstexte"
+        TreeNode26.Name = "Knoten14"
+        TreeNode26.Text = "Abrechnung"
+        TreeNode27.Name = "Behandlungsart"
+        TreeNode27.Text = "Behandlungsart"
+        TreeNode28.Name = "Gesetz"
+        TreeNode28.Tag = "Demo"
+        TreeNode28.Text = "Gesetz"
+        TreeNode29.Name = "Diverse Stammdaten"
+        TreeNode29.Text = "Diverse Stammdaten"
+        TreeNode30.Name = "Auswertung"
+        TreeNode30.Text = "Auswertung"
+        TreeNode31.Name = "Reporting"
+        TreeNode31.Text = "Reporting"
+        TreeNode32.Name = "Auswertung_Statistiken"
+        TreeNode32.Text = "Auswertung_Statistiken"
+        TreeNode33.Name = "dms_settings"
         TreeNode33.Tag = "DMS"
-        TreeNode33.Text = "DokumentManagement"
-        TreeNode34.Name = "Spalten"
-        TreeNode34.Text = "Spalten"
-        TreeNode35.Name = "Options"
-        TreeNode35.Text = "Options"
-        TreeNode36.Name = "User"
-        TreeNode36.Text = "User"
-        TreeNode37.Name = "Absender"
-        TreeNode37.Text = "Absender"
-        TreeNode38.Name = "vdkonti"
-        TreeNode38.Text = "Konto-Angaben"
-        TreeNode39.Name = "MailTexte"
-        TreeNode39.Text = "MailTexte"
-        TreeNode40.Name = "MailTexte_Replacer"
-        TreeNode40.Text = "MailTexte_Replacer"
-        TreeNode41.Name = "Diverse"
-        TreeNode41.Text = "Diverse"
-        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode17, TreeNode24, TreeNode27, TreeNode30, TreeNode33, TreeNode41})
-        Me.TreeView1.Size = New System.Drawing.Size(271, 525)
+        TreeNode33.Text = "Einstellungen"
+        TreeNode34.Name = "DMS_Struktur"
+        TreeNode34.Tag = "DMS"
+        TreeNode34.Text = "Struktur"
+        TreeNode35.Name = "DokumentManagement"
+        TreeNode35.Tag = "DMS"
+        TreeNode35.Text = "DokumentManagement"
+        TreeNode36.Name = "Spalten"
+        TreeNode36.Text = "Spalten"
+        TreeNode37.Name = "Options"
+        TreeNode37.Text = "Options"
+        TreeNode38.Name = "User"
+        TreeNode38.Text = "User"
+        TreeNode39.Name = "Absender"
+        TreeNode39.Text = "Absender"
+        TreeNode40.Name = "vdkonti"
+        TreeNode40.Text = "Konto-Angaben"
+        TreeNode41.Name = "MailTexte"
+        TreeNode41.Text = "MailTexte"
+        TreeNode42.Name = "MailTexte_Replacer"
+        TreeNode42.Text = "MailTexte_Replacer"
+        TreeNode43.Name = "Diverse"
+        TreeNode43.Text = "Diverse"
+        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode19, TreeNode26, TreeNode29, TreeNode32, TreeNode35, TreeNode43})
+        Me.TreeView1.Size = New System.Drawing.Size(204, 425)
         Me.TreeView1.TabIndex = 1
         '
         'C1TrueDBGrid1
@@ -210,14 +215,13 @@ Partial Class frmStammdaten
         Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
-        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(271, 28)
-        Me.C1TrueDBGrid1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(204, 24)
         Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
         Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
         Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(1005, 525)
+        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(996, 425)
         Me.C1TrueDBGrid1.TabIndex = 2
         Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
         Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
@@ -246,10 +250,10 @@ Partial Class frmStammdaten
         Me.ClsStammdaten_Bez1.KeyField_right = Nothing
         Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
         Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
-        Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(767, 362)
-        Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
+        Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(575, 294)
+        Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
-        Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(579, 209)
+        Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(434, 170)
         Me.ClsStammdaten_Bez1.TabIndex = 4
         Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
         Me.ClsStammdaten_Bez1.Tablename_left = Nothing
@@ -258,18 +262,19 @@ Partial Class frmStammdaten
         'ClsStammdaten_flat1
         '
         Me.ClsStammdaten_flat1.Connectionstring = Nothing
-        Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(309, 69)
-        Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
+        Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(232, 56)
+        Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
-        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(744, 286)
+        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(558, 232)
+        Me.ClsStammdaten_flat1.SQL = ""
         Me.ClsStammdaten_flat1.TabIndex = 3
         Me.ClsStammdaten_flat1.Tablename = Nothing
         '
         'frmStammdaten
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1276, 553)
+        Me.ClientSize = New System.Drawing.Size(1200, 449)
         Me.Controls.Add(Me.ClsStammdaten_Bez1)
         Me.Controls.Add(Me.ClsStammdaten_flat1)
         Me.Controls.Add(Me.C1TrueDBGrid1)
@@ -277,7 +282,6 @@ Partial Class frmStammdaten
         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, 4, 4, 4)
         Me.Name = "frmStammdaten"
         Me.Text = "frmStammdaten"
         Me.MenuStrip1.ResumeLayout(False)

DPM2016/Sysadmin/frmStammdaten.resx

@@ -124,7 +124,7 @@
   <data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -158,7 +158,7 @@
 </value>
   </data>
   <data name="C1TrueDBGrid1.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;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{}RecordSelector{AlignImage:Center;}Style15{}OddRow{}Caption{AlignHorz:Center;}EvenRow{BackColor:Aqua;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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, 1003, 523&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, 1003, 523&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;Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Style5{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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, 994, 423&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, 994, 423&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>239, 17</value>

DPM2016/Sysadmin/frmStammdaten.vb

@@ -1,5 +1,4 @@
 Imports System.ComponentModel
-Imports FlexCel.Core
 Imports FlexCel.XlsAdapter
 Public Class frmStammdaten
 
@@ -93,7 +92,7 @@ Public Class frmStammdaten
     Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.TreeView1.ExpandAll()
         Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
-        If My.Settings.SoftwareType = "PADM" Then
+        If My.Settings.SoftwareType = "PADM" Or Globals.DruckBranche = True Then
             Me.DentotarImportToolStripMenuItem.Visible = False
             For Each n As TreeNode In TreeView1.Nodes
                 For Each nn As TreeNode In n.Nodes
@@ -107,6 +106,8 @@ Public Class frmStammdaten
                                 nn.Text = "Artikel-Gruppen"
                             Case "Tarifpakete"
                                 nn.Text = "Artikel-Pakete"
+                            Case "Produkt Zusatz"
+                            Case "Produkt Zusatz Details"
                         End Select
                     Catch
                     End Try
@@ -144,6 +145,24 @@ Public Class frmStammdaten
                 Catch
                 End Try
             Next i
+
+        Else
+            For i As Integer = 1 To 10
+                Try
+                    For Each n As TreeNode In TreeView1.Nodes
+                        For Each nn As TreeNode In n.Nodes
+                            If nn.Text = "Produkt Zusatz" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Produkt Zusatz Details" Then
+                                nn.Remove()
+                            End If
+                        Next
+                    Next
+                Catch
+                End Try
+            Next i
+
         End If
 
     End Sub

DPM2016/Utils/Globals.vb

@@ -10,7 +10,7 @@ Module Globals
     Public Productname As String = "Dental Practice Manager"
     Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
     Public Version As String = "1.4.0.2215"
-    Public Versionastaum As String = "20.06.2022"
+    Public Versionastaum As String = "15.12.2023"
 
     Public RGCollection As New Collection
     Public Spaltendaten As New DataTable

DPM2016/Utils/SplashForm.Designer.vb

@@ -116,7 +116,7 @@ Partial Class SplashForm
         Me.C1PictureBox2.InitialImage = CType(resources.GetObject("C1PictureBox2.InitialImage"), System.Drawing.Image)
         Me.C1PictureBox2.Location = New System.Drawing.Point(12, 12)
         Me.C1PictureBox2.Name = "C1PictureBox2"
-        Me.C1PictureBox2.Size = New System.Drawing.Size(343, 158)
+        Me.C1PictureBox2.Size = New System.Drawing.Size(274, 158)
         Me.C1PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
         Me.C1PictureBox2.TabIndex = 9
         Me.C1PictureBox2.TabStop = False

DPM2016/Utils/SplashForm.resx

@@ -556,429 +556,429 @@
   </data>
   <data name="C1PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAAUgAAACxCAYAAACm/iRWAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAGK9SURBVHhe7b2Hl1RV0/b9/jXfet/nvhUlRxGVIMEEksOQc84wQ8455yQ5JwkiUcQEigEBM4oY
-        wKy3t/mpb/9q954+3ezpND0zPXBqrVrAMH369Ol9rnNVXVW1/4/kkP3v//6v/PHHn/LXX3/rv//553/l
-        779j/a+/bvc//wy9PLrvu+Q7Di20XLEyBUgA8e+//1Eg/Oeff/TfeCrA6LvhQi9/Hv+94iFIhpYrViYA
-        CRhaEPwn8hPAUmIAMejBm8d3k4Vevj34/Tr/2wYRoYVWplZqAPnnn3+bhf93IUt0Zlnk7R68WXw3Veh3
-        lge/b+esg9BCK0srEYCMhsn/mMX/lzLGoIGPeDwoOg/eJL6bKfQ704Pfu/O4pRNaaKVqWQVIGKLNKdp8
-        os98+cUQFEN3HlwHzlkfoYVWFlZsgAQQ//77bwW+eKboDKxMBRhx300T+t3l8WsCD3OSoZWFpQyQQUYI
-        KP73v3+YPxOv2lTDaNx3o4R+Z3v8GsBZG6GFliuWECABRZtPjIbN+F9//aV/FmX8Vzwg4vE3g++mCf3u
-        8vg1gbNWQgstFywpQAKMV65ckXPnXpYbN74o/Jkr5g5aGEaHnonHrw88DKlDywUrEiAdEBJGf/75Dfnl
-        l1/070E2yb9hiyEwhl5cj18rOGsotNDK0pICJOH0n3/+qc7f+RmlO/zb/PU2UMTjF7rvhgg99HiPXzc4
-        ayy00MrKUmKQDiT/+OMPuXr1qty8eUt+/fW3hMDouwFCDz2ZB9eQc9ZWaKGVhaUEkD/99JOC4uXLVwxI
-        /hUDivHAiPsWfuihp+rx6wk3yzC00ErdEoo0AOSbb74l//3vb/L773+GoBh6Vj1+DeGsrdBCyxXzAiTC
-        y88//yI3bnwZA4rO4xe1b/GHHnoqHr+WcNZYaKHlgt0GkCTFfQs2/me+xR566Jl4/NrCw5A6tFyw2wDy
-        t99+l+vXv5SvvrolP/74i3bM/PknyrV/cYceejbcD5IhkwytbM0bYn/++Rfy7LNH5PnnT8prr70uH310
-        Tb755gf5z39+l99//9u7wO9Ub/H0zlLx8RNOypw5L6ofO/a+vPjiNbn26Q/ec8oV/+mnP6Rbt/3ez5PI
-        i/pcPpDMdpmP73xK0rt13y/z5r2ofuLEB/Lyy9fkxo0fI2dTNvbBB7e85+rziRNPRl6V2zZ02FHv+fs8
-        HSsiB/m/curUKZk7d76sWLFK9uzZJ6+8ckGuXftcvv/+Z8MqKfm5O1il7wKXpgNAK1a8qoAJIPnOsawc
-        IPedczLftOmi93i4DySzySR951NWvmrVawqa3333a+TsSsfSAUicc8xl4/x8512Up2NegMRQsNesWSfj
-        x09UoNyxY5e8+uoF+fTTG/LDD7+YUPyvuwIkfRe4rBywBFy+vvkf77mWtg8ZmvpTO94TfQY/SEYWZjHN
-        dy654DBM2GVpWLoACQuGFOWi8XDh/HznXZSnYwkB8vfffzfAaMK/8RNkwYJFsnv3Xjl//nW5fv0L+fHH
-        /9wVIOm7wLnge/e+W6aMEkbrO69UHfYZBb/SyzX6ziWXnJu9pIEyXYDEt259M/Lq3DJYuO98E3k6ViRA
-        YhSJ//DDD7Js2XKZMGGSLFy42NyY++X119+Uzz//8q4ASd8FzhWHUb7xxg3veZe0kzP1nVOqDhD8/PMf
-        pQ6SvnPJRSen9tZbX0TOOruWCUDivC6XLNPPkY4lBEg3kOLHH3+UlStXK0guWbJM9u9/Vi5efFtu3Pja
-        sJhfFSR9N9Gd4L4LnGsOm/Sde0n5lSs3veeRrr947lohQFqQjCy8EjTfeeSyw5CyHd5mCiy5JtikI8wE
-        PR1LCJAYIEkv9tdffy2zZ881F2mKLF26XA4ePGyecJfkiy9uGibw3ztW3fZd4Fz0RMJHth3RyHcO6To5
-        zCBAWpAsWSbpO49cd9h2NpXvTAESzxXBJl1hJujpWFKAxMhHMqziq6++klmzZsukSVNk+fKVcvjwUXnn
-        ncvm59/IL7/QjnjngaTvAueqlwaTRFzxvXemHs8i8WyX9gTNdw7lwbOZmywOQHIepa26x1smwkzQ07GU
-        ABIj1Ea0uXz5skydOl0mT56qYffRo8/LpUtXDcP89o4ESd8FzmUv6ZwkTNX3vpk6dZ/xAImXFJP0nUN5
-        8myAZHEAEifsL0vLRJgJejqWMkC6yT7//e9/5b333jMAOUWmTJkmq1evk2PHTsiVK+/LzZvf3XHF5L4L
-        nMuOcFNS6namheHJnJymHyQjiy+L5nv/8ubFBcniAiTOMcrCsnHu6VjKAIm5UJvp4m+88YaMGzdB2eS6
-        dRvkxInTcvXqB3Lr1vcKkneKsu27wMmcEpZ0HFYGk8oW+JRUPpJz9b1fcX3z5osBUMy9HKTrhMnEfccr
-        rhc3J5kNkEEgKQvLVJgJejqWFkC6GZGE2ijbL7/8stZITp8+U9avf0ZOnjwj77//kbYl/vrrH3cESPou
-        cDL3HSdVpw2PXGJxwbIkismLUxiezG+a8y0NkPS9dzIvrpEzo2SHWsLi5M6CDlBkqm5nAyDx0hZsiiPM
-        BD0dSwsgMVf689tvvxkg/MawimOGSY6XGTNmycaNm+XMmbPmC/hEvv32xzsCJH0XOJn7jpOuE84WRy3O
-        tmBT3MLwZL5v37uFAGlBMrLgsmy+907m2TZC5GwwoQMH3o0cMT3LFkCWpmBTXGEm6OlY2gCJAZIu1EbZ
-        3rVrl4bbs2bNMeHSVjl79iX5+ONPzYf6qdz3bfsucDL3HSdTzzSshYH6jpepp1sYni6gsviDheMWJLPP
-        JH3vncxLymBExb3pM8kFZgsgcdIIpWHFFWaCno5lBJAYoTZ71LAdw6effio7d+5UkKRWcuvWHfLSS6/K
-        tWvXC4db+G668uC+C5zMfccpjmfKJLM1DSjdwnDAlNelC6o8DIIAiWe75Mf3vsm8JA1mRAG2731T8UwA
-        KpsAiZdUx4+zbJ9vOpYxQAZD7W+//dZ8iA8Myq/W4Rbz5i3Q4RavvHJeJwC54RbxN155cN8FTua+4xTH
-        M1WPARzf8dL1dAEa9sjr0mWRvsJxPJtM0ve+ybykDQJRHJBMl0VmG3CKkw9NxYpzbXyejmUMkJjrsvnP
-        f/6jofa7774r8+fPVyY5f/5CE3rv1XmSn30WHW4Rf/PluvsucDL3Hae4nkn9IcDmO1Y6nm5heHxony6w
-        A6p+kIwsumKa7z2TeWlYcUAyXRaZbYDES0qwyZYwE/R0rFgAiQGShNqo2p999pm8+uqr2m3jhlvs2bNf
-        Lly4qFPKy+NwC98FTua+4xTXKQD3vVcip3TId6x0PF1gjheH+Lfv94ryuXNLNqfle89kXlpWHCEiHbGk
-        JAASz7Zgw0MjW8JM0NOxrAAk+chgqP3iiy8agJyo4fbixUtl376D5gZ/q1wOt/Bd4GTuO05xPdMWP9+x
-        UvVMQvv48qJMzvu9925GVlf2zfd+ybw0LVPGlA6DKymAzLZgQ1mU732K6+lYsQESc6E2qvaXX34p77zz
-        jhw+fFhZ5MSJkyPDLQ7Jm2++EzPcojwwSd8FTua+42TDfe+VzH3HSdXTVdCLYqzp5jBXrHz1ji7zSWaZ
-        lAClM2mnpAASz5ZgU5LnmI5lBSAxp2ozP/LatWsaajtlG5BkuMWhQ0fl7bcvGxC9VW4mAPkucDL3HScb
-        7nuvZO47TqqebmF4UX3gmaQHKBy/08t8ijLqJH3nkcxTFUpKEnwIibMh2GRbmAl6OpY1gMRcr/atW7e0
-        X5t9bdasWSujR4/Vvm073OKYXLp0JWa4RS4zSd8FTua+42TDfe+VzH3HScUzUaB9x3GeLti69sM7vczH
-        ZwCM7zySearsrSQBEs+0gN1ZSQgzQU/HsgqQhNoUkP/8889y48YNE1K/aVjjIZk3b77k54+LDLdYa0K3
-        43L58vvlYgKQ7wInc99xiuvUNPreK5EnA61Eni6gJSspSjdcDxaO3+llPj7LpDA61TxkSQMknmmveLrC
-        TCbpiHQsqwCJubFo33//vXz88cdy7tw52b59u7YjFhSM1+EWa9asl+PHT5WL4Ra+C5zMfccprqfL6PBM
-        VexMJoYn6/1G8PG9LpEHC8fv9DKfeMuERaW6b0wmAJluyJupYJOuMANr9v08kadjWQdIDJD89ddf5ebN
-        m1obSb/28uXLZciQoTJ27DiZNm1GzHALQDJX+7Z9FziZ+45TXAfsfO+VyDPtx073vVKdHpRuyRDsINvm
-        e59kXhaWCYilCkqZHBtG6Pt5Ik93LFu65+U+r+//Enk6ViIA6UJt2hCpjTx//rzs3r3bPIUmyYABw5VJ
-        MgHomWc2yZkzL8qHH+bucAvfBU7mvuMUxzPdA8Z1tKTjmZTlcH6+Y8V7Jp8jGwNig+Z7j2ReFkZNoe9c
-        EnmqSnYmAImRW/T9X1GermCTLkt1dZe+/0vk6ViJACQWrI18//33DVs8aVjjehkxYpR07TpYxowZp8Mt
-        Nm1iuMU5HW6RiyDpu8DJ3HecTL04Q2qThb0+T5flpZvnTDe3mU75Sirme49kXlbmO5dknoplCpDp5gfx
-        VAWbdFMKwXyr7/8TeTpWYgAZrI384osv5OLFi+ZiHZApU6ZI/wFDpWPHQcok7XCL7XLu3CvyySefFQ63
-        yBWQ9F3gZO47TiaOMJPp9qpuYEQ6nmme0HesojyTXCo3dLbMd/xkXlbmO5dknoplCpBYJjm/ZN9fJsJM
-        kJn6fieRp2MlBpAYIEltJILNRx99ZJjiWcNQNsmwYSOkc+dB0qJFPwOSE2TOnHmyfTvh1Gs63CKXQNJ3
-        gZO57zjpOEAF8GTKHPFMwuu0lWZzfpyr71hFeSaMOJt7oPiOn8zLynznksxTseIAJEbuz/c7RXmyKCAT
-        YSZovt9J5OlYiQOkE2wYZuE6bBYvXqyhdosWfQ2THCzjxtkJQDt37pZXX70gn356QycA5QJI+i5wMvcd
-        J5EDGuTnAKjiDMl1nml5T7rAlao4E+/phvF4tvp8fcdO5mVlvnNJ5qlYcQEyk/xoUSVI6Z6LT4jy/V4i
-        T8dKFCAxcpEINgyzoMOGbRq2bt1qmOM4wyRHS50Huki7doO0b3vBgkWye/c+OX/+Dbl+PToBqCxB0neB
-        c90zYY+ZhL6ZzpvMpKZz85bUSliSme/YybwsLBdFmqClmzMsSrDJVJgJmu/3Enk6VuIAiQU7bFzZz6JF
-        i2TUqDEyePBoqVmzs/TsOUImTJhsfr5E9u07IK+//qZ8/vlXZT4mzXeBc9kzrX1MVzzJ9H2cZ1K25LvB
-        0jXfcZN5WVgmIFaSZT7xxneRbpF2fJ1mcYSZoPl+N5GnY6UCkE6wocPm+vXr8tprr2mfNlvH0mGTlzdE
-        7ruvo/RQkJwkS5YskwMH3HALOwGorLptfBc4Vz2TnCCeSflNJiw16Jkw1qJukHTMd9xkXhaWLnjgJVko
-        7rNMjsNrMAC2OMJM0Hy/n8jTsVIBSIxQmw4bNvq6evWqHD9+XFasWKEAmZ8/QRo37i3VqnWRvn1Hy6RJ
-        U2TZshXy7LNH5K23LpXpcAvfBc5FBxwzDXnTZXO8l+846Xq6OU9uqOKa77jJvCws11oNi7J0z9OlAdKt
-        qUzUZ+77/USejpUaQDrBhrIfWOSFCxdkz549MnZsvm4dS592rdpdpUqVbjJkyFgFyRUrVsnhw8/pcIuv
-        vvpGWxJLGyR9FzjXvDjgmElhOO8HqBbX0wVI/Ny54hWO+46ZzEvbYEq+80jmJTmsoigjJ5hJbaTv50V5
-        stSB7zWJPB0rNYDEHIukeJxpPxSPr127VkFy0qTJ0r9/vtxbob3UeaCPDB1aoKC5atUaee655+Xdd6/K
-        zZvflfpwC98FziWn3jGTgnDnmSjKZenkSosz4cd3zGRe2paL484SWSbpgHQ8WQWD7zWJPB0rVYB0uUj2
-        sGHaz+uvvy579+7VLRqYGUn7YYcOw+W++ztJ3Qf7y8iR4yLDLdbJ88+fjAy3+K5UmaTvAueKUxaUSc7R
-        Oa/1HTfX/erVmyYayWzCj+94yby0LZMJNel0HGUbILF01ehUPZW0ge91iTwdK1WAxByL/O6777QFkZmR
-        jkXCGGfOnCMNG/Y2INlZGjQcIiNHjQ8MtzhtmOeHhROASgMkfRe4rB3WVxzW6DzdwvBc8TlzX8x4wo/v
-        eMm8NC1TNpZq/hErCYDM5JjJPJEwEzTfaxN5OlbqAOlykbDIzz//XFnkvn37DHucrixy5sxZMn78TKlc
-        JU8qVuouzZqNkDFjxsuMGbN0uMXp02fNl/GJfPPND9q3XdIg6bvAZeGElkznyQYwOs8kB5grnizsKsp8
-        x0rmpWWZ5POcp3M9SgIgsXQ7YpJ5qjlV32sTeTpW6gCJ+VjkM888I6NHjzNAOUO3jB02fKphkR2lSpU+
-        8vjjY3TrBkBy06Yt8sIL5+Sjj66Z1/9U4iDpu8Cl4U4IgeVlKsAk8kzKbHLJN2+5GFlN6ZnvWMm8NAym
-        lGmYmmr9o7OSAkg+Q6YAH+/pfCbf6xN5OlYmAIm5QRYuF7l//34TZk+WyZOnyezZc2ThwqXyVPPBUuG+
-        PKlWbYC0bFWgIMlwiy1btpkb/BWdAARI8sWUVLeN7wInc0DNuWF+s83PRuLBn/ucekS8OHnFVD3dwvBc
-        9F9+Sb9w3HecZF7SVhxwxAG8dKykABLLVGCK93QYse/1iTwdKzOAjFe0T58+rbWPTPmZMWOmAchF5t+r
-        5YEHusv9FbtKzZrDpHPnSQqSDLfYtm2nvPTSq3Lt2nXt2y6plkTfBU7mwdf/8MPv/9//iVjw52XpmRSG
-        56LzUElXrPEdJ5mXpAEExQHHdNkjVpIAiXFOvmOk6unkUzHfMRJ5OlZmAIm57hqXi4RFtm3bz4TaE2Xu
-        3HlaBzlp0nypWKmTVKrcU2rXGS2du0zSvm2GW+zYETvcoiRA0neBk3nw9bkIkITuvvMub044x7416ZT9
-        +I6TzEvKAILihqTpskespAEyk+njzlMVZoLmO04iT8fKFCCD3TVuF8QlS1ZKmzYDNMxetGiprFv3jHTp
-        UmBC7U5StWo/qfvgeOnde4qCJLnK6HCLL0tkuIXvAifz4OtzDSAzKQzPZX/x3LWIop0ak/QdI5ln2whD
-        MynlifdMdw8saYDEMlXjUxVmguY7TiJPx8oUIF1dJFsz0F1jt2bYI02a9JRRoywAUijO1PEnnhyipT/V
-        awyWhx+ZIn37TdG+bYZb7N0bHW5B33Y2QdJ3gZN58PW5BpCZFIYTkvuOlW3PRDgil5rOxl6+YyTz4hph
-        NDc+Km+2RIxMmJaz0gBIzi3dh0Am6QLMd6xEno6VKUBiwUk/V65c0e6afv3GS/363VWQWbp0uZb3LFq0
-        1oTaHbX0p1atEVK/wSwZPNiCpB1u8axcvPi2offR4RbZAEnfBU7mvuPkgmdSGA4A+Y6VDXfAFvRMACQd
-        1uF7fTLnxs3UfccrrnONMt1WFSsNgMT4XnzHKsrTEWaC5jtWIk/HyhwgYZFug69PP/1UJ/1QylO5cgcZ
-        O3aKLFy4WLeJRZSZOnWZ3H9/J6lcpbfUeSBfmjabK8OGTda+bYD02WcPmy/lXfnii5s63CIbTNJ3gZO5
-        7zi54IgavvNN5LzGd6xseTxAZnKOAFGq5nt9efPibmRWWgCJpfqQSFeYCZrveIk8HStzgMQci/z666/l
-        8uXLOumnXbshUq9eN5k7d74sW7ZSw2xC6U6d8m3pT/UB8mC9SdLsscUGJKfGDLd4553LOtzC9W0XByR9
-        FziZ+46TC55JYXhplBwFAfJmhjnSVBmV77XlybOxy2NpAiSsMFlUUJx0AeY7ZiJPx3ICIBFr2Lvmhx9+
-        0Knjr7zyigHFdXJ/xQ7Sp2++5hnXrdsgu3btka1bd0vNmt0Mk+wqNWoOlYcfmSFPPbVUxoyZWDjc4ujR
-        5w3QvmcA99tityT6LnAy9x2nrD2T/F6mWypk4kGQXLEy/W0nUp2F6HtteXBAJhvgiJUmQGLJBJtMhJmg
-        +Y6ZyNOxnABIzLUfsnfNpUuX5ODBQ/LII70NS+whs2fPV3a4Zct2HaS7bNkmwyC7FJb+NGg4V55uuVxG
-        jZpcONzi2LETcuXK+zoBCJDMlEX6LnAy9x2nrD2TwvCS6OBJ5gAkwyh855PMU8lh+V6X617cnGO8lTZA
-        YkUJNumkR4oy33ETeTqWMwDpSn7YAfHjjz82T8uXZcCAiXJvhQ4ycOB4Wbx4qQ6s2LNnv4bRfftNlQoV
-        OkqVqn219OfRxoulTdsVupUswy3Wrl1vnlzR4RaZ7rftu8DJ3HecsvRMCsMz2TY2Ww5IZgLoqeSxfK/L
-        ZWcgbXHCT5+VBUCWpPnON5GnYzkDkK7kx+2j/dZbb8nu3XulSpUuUq1aVwN6c2XlylUq1hw6dMQwzKPS
-        vAWj0Wzpz0MPT5UmTZdL+/YrTbhtR6dt2LBRTp16Qd5//+PC4RbpgqTvAidz33HK0jMpDC/ulgrF9UzE
-        GphWMjDxvS4XHcZV3NCzKAsBMnXLGYDEYJG//fabFo5/8MEH5iZ9UTrljZb77suT9h1GKouk5Gf//oPm
-        BjppwHKf1KzVXSpWtKU/j9SfJc0eW2NeA5O0wy02brTDLT788Jp8++2PaYOk7wInc99xysoz2UEQMcd3
-        rNL0TGdVJsvT+V6TSw7IF0fRTcVCgEzdcgoggyU/tB9evHhRlixZL5UqdzFA2MswoQUqwtBiiBBDCD11
-        6grd8MuV/jR6dIE89vg66dJ1ueTnT5RZs+bI5s1bDdi+nNFwC98FTua+45SVZ1IYzlg137FK2zM5d5hX
-        IvO9JhecXFy2RJhkFgJk6pZzAIlY8+uvv2rhOO2HR48ekwcf7KOqdfPmwwtZJCLOyZNnTAh9Vrp3n2hC
-        bTv158F6E+XRxkvliSefkZ69FhsmOTEy3GKHDrf45JPP5Pvvf04ZJH0XOJn7jlMWnmlbYTZnThbHM2G/
-        eCKg8f1+WTn5RdhipgXSmVoIkKlbTgEkFiz5oXD8woXXtWPm/ordpFKlnjJ69AxlkTt37tZtGAif9+07
-        KnXq9NCpP7b0Z7o0abpSnmq+UXr0XCrjxrnhFrvklVfOm+N+njJI+i5wMvcdpyw8kzwe+UrfscrKEYt8
-        55nIEymjvt8vSSdk5nxwwBDwzqYinYmFAJm65RxAOrHGlfxQOH7kyHNSo0YvA5A9pHXr0dpauHHjZt0W
-        9syZFzV8XrNmh1St1tWE4z0KS38ee3ytNG+xWfr1WyDjx0/S3u5du/bKa6+9Lp999oUOtwAkfTdm6CXv
-        wdpH55nuNRNaaCVhOQeQGGG2mzj+ySefaPth587jpKIByGrV+sjY/FkRFrlH85CEzoDkyFHz5d7C0p9x
-        0ujRRfL4ExvMU2Or9B8wXycA0bq4Z88+w0xjh1v4buDQS95DkAwtly0nAdKJNa7kh8LxhYs2KINkC4b6
-        9YfJggVLNBd56NBRBUfmQh47dlqaNRsUKf0ZpKU/jZsskyee3CgtW26RwUPs7onkMVHC33jjLRPuWJAs
-        6b1tQi/a/SAZWQyhhVaGlrMASZhNfzYlPx9++KGcOnXagGMvVavpwx46dIasXLlaWeSpU2cMQL6ufuzY
-        Kaldu7thm92kZq3hOvWnabPV8lTzzYZJbleQZAIQwy0OHmS4xSX58ks73CIEybJzP0iGTDK0srWcBEjM
-        ddb8+OOPOiuSwvGhQ6crQFat1l8aNBhpWKRVtGGRL7/8ms6ERISZNm2VduC40p+GjeZr6c9TzbdJm7ab
-        ZcSIaTJ58lRZvnylHD58NDLc4lYIkmXsPpA0yyC00MrMchYgg2LNzZs3teTnhRfOSq1a/aRq1b7aPdO3
-        3zTt0UbRpmMGgHzjjbfl3LlXJK/zOC0wr1pY+rNES3+ear5dnm65XUaOtBOAYKHUVL777tWYCUC+Gzj0
-        kncfSIZMMrSyspwFSAyxhs4a+rOZ8vPGG29IXt5EFWGqVx8kjzwySmbNWqQthSjasEfmQQKUR46clEaN
-        BgSm/kw3ofZKefKpTdK8xXZp136jjB49RYdbrF691oTmJ+TyZTvcIgTJsnU/SEYWRWihlaLlNEASZjux
-        5ssvv9SSn7nz1kmVKn2lWvWBUrPmcOnS1c6BpMYRFnnx4jvy9tuX5fz5i4YdbpdKlfJipv40e2ytYZFb
-        pMXTOyIgaScArVu3Xo4fPyVXrzLcwk4ACkGy9N0PjiGDDK1sLKcB0nXWINawPSxTfmyYPUC7ZtgKtu6D
-        o2Xy5AU66QcWiZp96dJVBUkY5bhxi+W++zvFlP488eQGzUcCkh07bTC/M0GHW3AMunPef/+jwuEWIUiW
-        vocgGVquWE4DJBYUa+jPfuedd2TEyDkq1NSoMdQww1HSpu1kWbp0hWzfvlNOnz6ryvSVKx/onydOvGAA
-        cZgt/TFh+UMPT5HGTZZr6Q+hNiCZl7dOxo6dpMMtEH3OnDkrH374iQHlECTLyv0gGVkUoYVWSpbzABkv
-        1rz//vty9LkTUueBQVK9xhCpXXuk1KtXYFjkQp06To82nTIAJE6t48GDz0uNmt2kYkVKf+yGX5T+PPkU
-        oTYgudOE6muUSc6cOVuHW5w9+1JGwy1CT939IBgyxdByx3IeIDE3Bg2xxvVnt2s3UaoZRlir1kgt5WnZ
-        crIsXLhctm7doWEypTvMgWTrBfbNnjNnXcyGX9HSn63KIgHJHj2X3zbc4tq162kNtwg9PQ9BMrRctnID
-        kAywcGLN1atXZdasVVrCQzF4nQfG6lTxkSPn6XYLbMsAi2SaOHMgL126omDXus1oqXBfJw3PKf1p3MSW
-        /jRvQT7SNrL36bNYxo+foMMt2AMHcL1+/YvClsQQJLPvfpCMfPmhhVaGVi4AMr6zhv7ss2fPGZAbrCU8
-        deqMMQA5QZo3n6odMlu2bNMebVjkxx9/Jh988InmI48fPyNNmw6W+wKlP02arjCh9uZIPjICkn0XabeN
-        a0l0+21nayvZ0G93P0iGTDK0srVyAZBYvFhDf/aIkXO1YJwSHhgk28AOGjRH6xr37TugijbgyHgzlGnq
-        I1eu3GZYZIdI6c8oadBwjk4hJx/ZvIUNtfEhQ2fLpElTZdmyFYGWxFshkyxB94Gk+dpDC63MrNwAZLxY
-        w5YMe/celQfqDlHhpW7dcVLvocnSsOEUmT17qWzatEXnRcIir137XJ1dDin9yc9fJPeZUDt+6o8NtS1I
-        Pt1yh4IkW8lSZ0k7I0XoX3xxMwTJEnQfSIZMMrSysnIDkFiwswax5rXXLpiwepwNsx/Il3r1JhuQnCr9
-        +s/RFkLGmtGjTR7y88+/1GniAObZsy9Lq1ajDEhGSn8eur30B5CkkJwNwIIg+fbb7xYyScp/QpDMvvtB
-        MrIIQgutFK1cASQsErHm559/LhRrZsxYURhmE2I//PB0adhoqg6yYKjuc88dV1BkQC6jzahvJKe4a/dh
-        wyA769SfWrXd1J9VkXxkNNTO67xeu20YbgFIsuUsxwMkw+EW5dtDIA4tmZU7gCTMZs8axBq7f/YrBhSH
-        2TD7wfEqvODtO8w0gLZalWiGVwCMjDWDSZKPRJ1esOAZqVS5s1SuTOnPWC39efyJ2NIfQu3WbTbqcAtA
-        cuXKNYXDLb7+2g63CFlk6NlwHra0uFJ7yzBnUkLMOkUopDqDDegQD9n7HZ89e66cPn1GxcvQSsbKFUBi
-        8WLNu+++KyNGzC8MsxmS+0j9mdKg4XQDaIvlmWc2KqAhsgCOgNpnn91QgNOpP3njpEKFaOmP2/ArmI/E
-        27bbIKMj4bYbbsEC/vrrb3VRhyAZeqYeBMbr17/UsjS2EmFfeEbyTZs2Q6fhO2AEKBnecvPmLU05hVZy
-        Vu4AEhbpBlh8/fXXKtZs23ZQatem7XC0CjXsjw1Idug4S3ORsEiexOQiGWmGk48ENI8ePSmPPho79YcN
-        v6KlPw4kd5jjrTdMcpouWLp27HCLD3QCUDjcIvR0nAcqQh9pmlu3mFZ1Xd588x0tT6Nlln2XWGd0dwGK
-        /LlhwzPyzjuXNBfvjJRT8N+hZdfKJUC6ARbsWeM6axo2HKVh9oMPTlBwrN9grgE78+SdsFCHUJA7ZAHC
-        IlmQqNGE3bQibty4VypX6Rwo/YlO/QnmI5u32Cqd8tZJfn7Rwy1CJhl6Ig8CIw9W2lkpPzt27Li2uC5Y
-        sEi3BXFs0Q5SmaG1v6x9n/3551+Rv4WWbSt3AIm5zpp4scaF2Qg1gFz9BrOlefOZ5mm8UsehsUUs7Ycs
-        TEDS5nnYivO8jGLDr8LSn/GGVVL6s/62UJt/A5Jjx06ODLfYrOEQ9ZZuuEUIkqHHO9EF7arspMn0etYh
-        dbpURmzYsEnmzp2vA5wdMBYUTDO+VrZsOanrnPXOuveBJD/7w0RVReBnaMWwcgmQLIh4seb119+QRx4Z
-        rmE2ZTswyAYN5xmfKZMnL9J5jxR8wxjJ88D4AEqKyFGlyUe2aTtap/7Q461Tf5raDb9iQ23+vl26dV+l
-        TJLhFps22eEWH310LRxuEXqMA4w8NH/4gQ3ovtaUDG2vBw48Wyi8uPwi62nMmCkyYsQaGTnymIzNPyUT
-        Jp4w6/MDrf8ltQRIFmV//RWG2tm2cgmQmBNrfvjhBxVr6KwZMmSBDtElzKZsp2GjBcokm7eYoYMsaEFk
-        gy96tBFXADPykQAbpT87dx6KlP50l1omXCeX2eyxVSbUji39cSDZtdsqs7An63ALhmQAsrQ2hiB5dzvf
-        uxNevv2WPZWiwgu1ueTFiT6CijS57a7d1kjHTjule4+DMnDQcyaqOWFA85RMnsK0+481rQQxKAok+XkI
-        ktm1cguQsMigWMMYtPUbdkuNGkNsmP0I9ZALpNGjC6S+AbqePe1e2rQgUuKDkg2QsYDpswY0+fm8eet1
-        Cnm09GfBbVN/rNsBF3a4xUQNkbZv36WF6XTtwBhCkLy7nO+a/CKlX1HhhZmkpzXFw8zSoPAyduxEGT58
-        uqZsWEtPt9wprVrvlg4d90nPXs/KkKHHZPQYA5IFp2TR4tPy5Vdfq2pNDr6ofCT/l4hlhpaelWuADIo1
-        lD2cP39B6tUbJrVqj5J6JswmxG706GL9s9lj0yPF41vk+PGTuv8MLBIgI9ymkJzSHwCuT5+pMVN/7IZf
-        tCLGqtqINtRJ9uy1zCz6iTJ//kLdhpbcEsfj2Nwwvpsp9DvHAUYehnRXsaaISC5cuKhNCk54oYbWASOh
-        9MCB86V9h43SshVryj10LUi2brPbgOY+6d3nkAwd9rwJu09KwbhTsmr1S2atfquRUyKQRLQp4r9CS9PK
-        LUBiPClJXv/000/yxRdfyJUrV2TmzJVSsxZbMYw3zHG2AbfF2mtNyN2jhy37ob6MnmyYHiwSICMf+ckn
-        bC97SQ4fPiEPPdw7UvozJGHpD84i7z9ggYZMCxcu1jCKG4TQiqR8CJJ3pjvhhfVjhZePAsLLRh2ZFxRe
-        Ro2aIv37LzAM8ZnI+vE7INmm7W7J67xf+vY7IsOGG5Ace1LGjT8lzx66qKINIJmIKYYgmR0r1wAZFGtu
-        3bplntwfyWuvnTdgOMKEx2MU2Bo9ulAaN1mqofLDj7DVq90Fkac7eSFykIAYQ3FpH6T0h7KL3bsPS9Wq
-        XaRipR629KcBU3+iG35FF7QNtWGSgwbN1XB70aKlGsojCBG+u75t300WevnzWOHl5m3CC8JdsLB7zJhJ
-        0stEGfFssSgHIFu22iVt2+2RLl0PSL/+R2TEyOMyNt+C5KlTF2JEGx+TdPdGaMWzcg2QGAvEiTXXr18X
-        9qzp23eOiiz16k3S8Lpxk2XS2ITJDQyL7JQ3W7sTCIURVSgYh0UCYuQjXYvXK69c0NKfChU62tKfutGp
-        P27DL7ug+dMu/Fatt8ngIYxJm6JzKRncS+1lcAKQ74YLPffd5RejHS9f6AOW0rGg8BJUpIcOnSXde6ww
-        YGcfoum4A8l27fdKt+6INkdl5KgTqmxPm37GvPdHCpKhaFOyVu4BkidlvFizcuUW3a/mgboFGlrTPtik
-        6XJlk4/Uny7Tpy8uLB5303ko3AXEyEdS+sPip/vmyaeG2qk/NQZ6pv64BW1Dbffv4cNnaLEvsyTZaTH4
-        HiGTLF8eFF54gH766Q1Nw9AgYIWX5dp+6tgiwDhq1FTNL0bXR2ZuRZtdJiTfKz16PiuDBj8no0Zb0Wbq
-        tBPmwftVobJdVD7y77/9DDO01OyOAEgS1qh7TqwhzG7YcIStiXx4qjK/ps1WKJNkQO5jj083C3ultnQF
-        6xe5CWwhL6U/n2rpz759R6Xug70iG34N19Ifu+FX7BRyyyItSLZtt1nzTW4C0JEjzxWG8yFIlg93wOg6
-        XlgPtuPlhJaLkWsGGIPCy4AB8w2YbdB0S3RdFM+Dok2v3ociyvZJBcmVq86aB/p3uvaTiTb//BOCZCZW
-        7gESI5SIF2vorAHQHqw3QcNstlZo2mylYZMINjNl5MgFsnbtemV4AKELgwmhyEfyb1f6M2vWGt1b2274
-        Zaf++Et/ooBJvslNAKK8iJzn5ctMALLDLUKQzE13irR7UJKTZg3wkGNLYCoVgq2A5Bf79V+oD8XoOsiu
-        P91yV6Fo06fv4ULRBmV7x44XNL2UTNkOQ+3M7I4ASBZFvFhz8uQLhu0h1ow1f85QoabZY6s11G7YaK4B
-        t5kaAm/dul330qb1ixAK8HLhFKU6gBoJ+AEDZphQO0+qVRsQKP2Jn/qzI4Y9EGbl50/U2jeS90w4J78J
-        I+E9QpDMDQcUnfDCwxFhzQkvdF8xmITRYkFgJIzu0WOFAmM2GWNR7hVtDEiOn3BKjh9/S1NMydoRf//9
-        z8i/QkvV7giAxHh6BsWat956yyym6SrWPPTQZM0/ApC4skgTKg8aZHdB3L//WS3LQaAhpOJGgU3a0h87
-        9efIkROGefaNlv48PC1S+rMpJtTmZgneMG3bbdKp5IDk+vUbtGgYZkohcdi3XbbugDEqvNiOFyu87Ffm
-        H1SkCaMp7GZ74NIAxXh3ok3XbgdlwMCjJkJB2T5lopST8u67H6to42tHBBzJRRJmFyXohOa3OwYgWQRO
-        rPnqq69UrFm+fJMOsGDfGcp0mhpAe+zxtZqPJExu0nSGzJ6zVIt5T548bVjDh8ocAS5XxhEs/dm6db9U
-        qpxnS39qu9KfNZ7Sn9ibp2On9ZqrYgIQJUanT78gH3zwsQpCIUiWjccKL5/fJrxMnTrdAKPNL+LDhs2Q
-        vLx1mjoJfrel6U60ad/BKtv9BxyRoUOPmXOjmPw5s35j2xFhjH/8YQWcMAeZmd1RAAmLZIF8++23KtYw
-        Bu3RR0eqWENNZOPGSxUgqWdkT2ym/fTvP1eZwt69B3QvbbcHNnkoxyxgloRc/H9BwWKpcF986c/62/KR
-        8QyjS9fV5mk/SRkJ3Tz05SIOOUAOQbLknWvsOl6IDhg1Rq3q888jvGyXRYuWxAgv5BcHD54jeZ3XxnyX
-        pe+sJTq3tus6s7MBNhuw3ipt2u4wrHK3Ac3dhkk+Zx7oX2ku/vff/wjzjlmwOwYgsaBYc+PGDbl8+bJh
-        bau0s4a8IcXiKNAAWrPHYJELDcDNMOEvk8c3q0J5+fJ7heEvNxMsg3+70p8zZ85JkyYD4zb8Ck79iS7s
-        eJCkJo6bjwkusFbKiLhJAWHeKwTJknGuK4wRYEQkIyJ47TWEl2MqvNDxEhwcgdMZZdli7HdYus57A4pb
-        zJp9xqzZVWa9LtZKCtYda7reQ9T6zjRrkLW93LDePcK0/UT5yNBStzsKIFkMhBfkYhBrPvzwQ9s2+NBw
-        YYAFNZGo2QAkTLJx06XmZ4Yh5M3W/WtoQXTDJlAxAS3HOGyP7ada+H348HF5+OE+haU/9evPjJT+MGA3
-        Nh8Zu+B3av6Kvm0mAG3btkOFAFocEQdCkMyuO+El2vHyofl+nfDyjH4HQeGFqoNevZaWqCKdzJkahfBH
-        GRnrlDw3+XMiICKWmjWHSbVq/XWzuYoVO8t99+fpiL5KlXspEXi65RwD/pfMWkpcHxlaanZHASRmcy9W
-        rPnss88MoL0prVpNklq1RupTl95sSnToiGn2GItvkXn6zpQZMxdrfhBWwXzIYDlO9CajEP0jFXTmzFkn
-        91boIJWr9Lqt9Cc4Gs2Xs+rXb1EhSJLzon+XAmTeA6YTgmTxPKhIkx4hKqDelTQK6RQ6XgrrF41Ts0oK
-        pCyEF+sOFDeZNQQoUmkxX4VAHuyIgpSY3V8RMGwv//pXS/mf/3la/d//bin3399Wnn56kGzatMs83D/V
-        FBMVHT7BJrT07I4DSJ6YQbHmvffei4o1dcebcGSusj1KdAC0Jk0pHp8r7drPjBSP79KbibmODrCCCX1y
-        lJT+nDv3qvTtOy069edBW/pDKBQ/hdx34/U1IIkIwKSXXbv2FuY/Q5DMzF0Yzfdku6FuaAfTqVMvaFsp
-        JV2IZMEeafKLAGPrNuSPY7+fkvVoPpHUDEIfZWisQ6ZQ1akzRmrUGGTWVW9liPfe21buuad1ISgCkA8/
-        3E36958oCxeuMYz4kJw/f15TSlRwhACZPbsjAZLQwok17OVx8eJFA15OrJmhT2gYpAVJyn7I61A8Pl+L
-        xw8dOqKhNAq2Y5HcfITa5CNd6c/Jk2fNsQaZJ3iXQOnPikjpD6BogRGARIEM3iT8jF7d8ePtBKC9e/ff
-        NgEoBMnk7oCR8iz33VD4z4ZqpDAWL16qxfoOFJnBOGTIbOmUt76UGaMHFM0DlYlT9epN1BF91aoPMEyx
-        hzLFfwcAEa9Ysa15CHeTnj3zZd26jfL888flzJkz8tJLL8nrr78uDIxmrUMKyEHSXePU7NAytzsOIDEX
-        ZgfFmkmTEGvorJlkwmo7BPfJpzYaoIRFrtBum6dbsn/Ncr2xUJlJ5hOmcQMCkuQIAS+Akz1oKP1hSO/9
-        93eSSnGlP+Qjk7FIfgaLIQ/Gjcz+x8EJQCFIFu3u+wgKL3S8sMXvxo2bZf78ReY7j85gRJGGtbfv8Ewp
-        AqMDRfKJG0zkgsiySB/GjOOjRrdq1X4GFLubNdTRhMut5V8mZHageM89reSxx/qa9bFA1q/fIocPH1VQ
-        fPnll83D9ILW+rK2ybWTTmIWAakl2CMiTaLOmtBSszsSIH1iDePL6tQZKg+oWDPbLNaV+iTHLYtcYkBy
-        lowebVsQGV0FAJJ3dF0vuK/0Z+LEZeYJnydVqvaJlP4s1BsiWekPTo6S4uOJE+0EIMIlplC74RaApA8g
-        7lbnO7hdeHlNW0YZQMJk99itDKZqzrdNWx5Ysdc++873G80nIrLYmltG7SGyFOhDmhKxSpW6RkCxVQwg
-        1qrVSZ58cqAB9JkmqthnopSTcvbsWXnllVcUFN9++21tpWVNs6MnrbU3b940D/LvzXr5OQTHLNsdC5As
-        EMIMFg5P14sX3zQLdowJZRBrpmp4Q74QtfCJJ0mM24XcoOE0wz6WRYrH7f415B6dwgxgRfNctvTn9Olz
-        0qLFCM0X2dKfySmX/uCMSRs+YrqOSWMUGwNXEYoYwurA2QcWd5M7YAwKL5RJMXdz9eq1t81gHG0YY7fu
-        K/Xaxl/vbDvpFEbgWZGFiGS5RiQMSkHAY7JUVfPwvF/zie3kX/+KgiJeuXI76dBhqIle1moHz/HjJxQU
-        X331VRNRvKEj/Ni5k83pWMuAIg9+hrMQJUEESCkBjBCDEByzZ3ckQGIsEBYMT1Un1qxY4TprxktD3YaB
-        UHhzZGFTPE7Zz2wTis3Vmy5aPP6lsjluUkDSV/rjpv7cXzj1h9KfVXp8C5IWGIsK72hJHDFimubLmC1I
-        qHjpkh1ucbeCZPCBxEOKfYR4cNA7v2vXHn2YBIUXN4OxW7dVJRxGx+cT7dqxIstkE6mMlho1BhumaEWW
-        ChXaxTDF++5rY9ZfH+nUaZT5vufqPEmY4osvvmjW22uaMyenyJp1oMj2xoBikClCAIKgSGqJdR+CY/bs
-        jgbIeLGGp3GTpqNUrHkkItawwJ9qvsUAmc0RwSIpHl+yZJls2rSlcMAEjNGxyCCbIcyj9If815IlmzUf
-        WbjhV0P/1J9Wrf03b5u2m02IP1m7OQBoCtfdcAsnFvmA5E7zIDAivFCXykOIPnZG1MULL/iwYTN1OEjJ
-        ASPHjRVZSMvwQKVgG5GlarUBUq1aLwOAHW9jiXiNGnnmIThLduzYpw9A2ls3bHjGAP5pVaFhirTIslbZ
-        qZMHO9saI7pQlREERQDRMcUQEEvO7liAxOLFmnfffVfGjFmqDK9ePQZYuDbBLcZteKQzIxvMMSxkdmT/
-        mn26fw3sBdboWCR/AlqW2VD6Q8j3ivTsOdkwhvjSHzb8ii/9ib8BrbNfiRtuwRQZQIE8G0Bxp4NkPDv/
-        8EM2YntDnnvued17PH7zKxVe+i6Sjp02eK9lcd0VbftFlglmHVmRpVLl7gqK99zTRv4nUKNYpUp7efrp
-        YeY855kH3lY5cuR5LTt68cWXTPh83jyw39TC9RdeeEFDaHKKgCIP9CAosoYp2QlZYunbHQ2QjkWSoyGR
-        TWJ767b9Ut2EPw88UBBRnG0YbFnkM5GbYKFhBggni7QVjRuUXOOtW98pc3Q3MywnWl5yXevuqKFs0oTS
-        n866Ba0r/XniyfipP7ffkM4BScpR3HALbqoP7uDhFg4Y3QxGPqvd/ArhZaMW1AeFF4CRVsBWrUuiftGJ
-        LJvNAxNQXCmNGtlOFibU16g5TMW4ylUQWTp4i7abNOknM2YsN+f/nEYgpATY3oPPRAkSa+n99z/UNlMe
-        vG+99bbODmCN8jB3+cQQFMve7niAZIE5sYYnNGF2s2ajImLNNM0dUQ9J6GSZwnrzM5LscyMtiKtk587d
-        hfvXcBMHWSSAFb2xCePfMjf1LsMoOtxW+gMIB1lky1bxN2fUO3dZa0ByknZ9ULZy5sxZPf6dNNzCsXAn
-        vJBOQHih3IkxdPSsB1sBR4ycpptfZVeRtqEzW/g6kcVOno+KLNS4Vq3WxxZtx+UT8bp1u0mPHhNk9uxV
-        sm3bPgVFysRYM+SwAUW2FCYVwxqiIYAqBR6433//kwHGb8zvnVfmCGN0Bd4hIJa93dEAibHQnFhDoptQ
-        ZsWKjSY8YmvYCZEWQXYrpEWQm4T80upIKMUgi0VaPkINGsXhACE3tQOo4E1+44Yt/YEpFBQskvsrdgpM
-        /aH0J/nUn6Az3KKgIDrcIrg9RHkGSZg31+y772x6wg4BOau98DyQYM4ujIZJI1517bbKe40y8yAoBjtZ
-        5qjIUrv2aBNlDJLKlXsaUOwkFSq0jQFEWCKgmJeXL8uWsTaOaSoEUKTkiLQAOVPSLrDha9eumwfAl7p2
-        iDb4/nio/uc/vxm2+IdZQwx7/sMA5+fmZ3amYwiOuWF3PEBiQbEGVZCndZMmo7Sly6rNrvtlm3Emp2yI
-        lP3Mk6eeQrBZocXjDFIFoFw7IDc7IOUEhWDpD/nI9u3zpQJTyKsP1BvPV/pDqF0USPLzLl3XqErLROut
-        W3dEmOx1vcmcaBQPQLnowetkhZfrEeHllAoviGJ2BmOgFXDIHJ2lmZ0ZjE55dpNxbAcVg5PJFRNRVK85
-        UKpW7WUAsYPmE4NMkb83btzPAPZ8zSceOHBEy8BYE4AiNbM8QGHBFK0jLMGKHSjyACW3yucHDLkWf/xB
-        PpmdB7lG/5iH63tmbf1g/i/xHjOhlZ7dFQDpxBoS36iDlFAMHrLAijUGuJgwHhVSbKhlVcrFhlXMlDFj
-        bfE4RdyE0CjXLHQHTvzpcmjB0h+K02vWYupKUaU/9uZNprz27rNEGRVF0PSKIxpxA3LT8b7xYJRL7q5N
-        tCyKOZ0XdY8eWDFtlkFF2s1gLL7wwjWN5hNvF1lsJ0uVSCeLKs8xgNhSatToJI8/PlCGD5+tgyCoKjh1
-        6owyeb4D1gJ5Z6IGPhf933RB8TlJhfAg5XPDlh0ouvSMuz6Ao3MYJWszuH1CaGVrdwVA8iQmbHFizQcf
-        fGAW/G4VUUi8E1rBKGAXjmU88SQ3VGTyeBN2QVyuu9khmLB/DQzOsUjc5SNdh4eb+rNmzQ6pVCnPhGu9
-        DGMda97LX/rTslXRIAmA9umzWNkVswupASSMJ8EfZLO55FyPqPByS6+ZFV6OqvDkhJdx4yLAaEJpRo21
-        blPc/GJQZFmvU+S1k+XhaSrMUQdLfSIiS4UKsZNx8AoV2kirVsNk/vy1snPnATl69Lh+5/EiCw0EiCzk
-        E/m+KcVyoOi27eDzO0AMgmK8B0Hy1q1vteKCiCdkkWVvdwVAYk6sofsAscZ21ozW+rWHzM1D+Es+CoCM
-        3mBrI7VusyKTx9eqgOD2rwmySNzlI7lRKC4nB8XUnz59pwam/kxQZhpf+pMo1Mb5P5RbQAXWRXGxHW7x
-        hYJQroCke1C4nCwhJ+BC6yYsPH7zK9osEV7ats10BqMLnalPdAX/VmSp95AVWWrWMqBYhSL+zoYpGlAM
-        MMV7720tjzzSS/OJ06evMKz/WR104ZRnl0+MFVm+lC+/tKDo8omAIt99qqAY7w4gyUd++OFHGu0Q9bBu
-        Qys7u2sA0ivWrNyiZRtOrGFwhQUtat+44Sj7sQzk8cdnGva2VIvHuYEIqwBCbgh3I/An/3alP+TZCMFO
-        n37RgDBdFV2UtT708HTNcRLKB7eKtSAZDwCxPmjwXAVJiqX37bt9uEX8jVda7h4OAAagbYWXFwuFF/KL
-        TnixjHGSKvVBFp268xra+6zI8tjjAZGl3iQVWcj7VtNxYbH9zs4rVWonvXtPMlHBHq1P5Dsln8gAY0CR
-        fGKsyFJ0PjEIir5rk4oHWST5SErSQsGm7O2uAUgWGU9jyijoTkCsYfuERo+OUpZh84PsUujyg45F2rIP
-        OiZ6956jA1fplyXcAghcC6Jb6A4kbWhp91UGxDZt2ifVa3Qr3PCLSeau9Cd2wG48GMQ6vcVDh85UFoaw
-        4YZbMFSDmzZ4LiXtfFZAmWvwzTdB4YWOF7v5FQXvTnhBkR4UmcHo+2yJPSqyPGHYd7NmUZGlrhNZagzU
-        cWGILMxQDIbPKM9PPjnIMNZZsmzZRlWeEVlcPhGRhYdZUGSx+cRvVHzziSyZMMVEHgTJL774yoDxLbOW
-        wlC7LO2uAUjMJ9b06jVHk/VOrCH3CIt8uqUL22CRlP3YYuGZM5do8fixY8c17IJRcMO4Rc7N4tiUDTPt
-        HssAKpOCdMOvKn0098kxyZMx6CAIBonykc6HD5+hTJJBsEyy4eZ2E4BKGiSDwGg3v/pMASYovDB4w7FF
-        gJEe6Q4dnvF+lqLdgiKj46zI4rYfcCLLcO1kqVLVgOJ9HWK6WFzRdoMGvc05LDAPtWe1PpF8IqDI98GD
-        i95uJ7KQ0+VBg8gCKAZFFh56fOZsAmK8BwESv3Llqnn/n8z7hYJNWdldBZBBsYbZeYg1mzfvCYg1cwtZ
-        nQ197c0JiNm81lzJ62yLxxFKCMdgGvHMLQggtvTnhoac3Jh5eePlPi39GeQp/bHAmEqozb4pbF6PAsz5
-        HDnynL4HrBWWUxIgyefiYQBwkIMjJwfQUCOK8ILKDjAGaxj79F0s7dqTSkgllLahs80Bu8k4kXFhuv2A
-        FVko2mZcmE7GiQufq1fvJJ0758uMGStk48bdKrK4fKIr2g6KLNRh+kSWICg6pui7Jtn2IEBSSP7BBx9q
-        1OOKx0MrXbvrAJJwhbDFiTUMHX3yqTEa9pIbpIuGvBbgaFnkNgUwVzze6NGZMmvWEi0eD+5fA3AEbyL+
-        zg0GePL/3IyEn3v3HpXadbpHSn+GxZX+BEPt5IDCVgGjRk1RkCT0pyXy3Xff0/fLJkhynCAj9gkvrhWQ
-        iToAd89ey1KsX+RzBjpZdDJOrMjCA4wqgIqVEFnaGSCMMkUm4zzwQFdp23akKs+097mibZdP9IssdLJE
-        i7YBRRc6lzRTTOZBkPz0U7b+CGsjy8ruKoDEgmINc/UYPrpo0WYFKwqGYSswRhdmu7yXLR63LYitWs+Q
-        pUtXaIEzrBDw85XbACyOcQWn/ixfsdWEf510JzqK1QED180TZFrJWCTOhGyACRGE9jw7fegDvfkBtUxv
-        cl7ngNEKL18q80LIQEF3HS/Bwm6G0yK8JN/jJag8R0SWyGQcRJZatUdLzZqDpUqVnlKhgh0CEcwn8veH
-        HuqhudhVq7aYh84hOX482smCuu+Ktn0iC5+nqHyi71qUhLvry/sDzpwT54azXn79lcEkdBz9po0NrFcX
-        aocgWXp21wEki4vOGifWfPTRR4Z5nZKHHxkREWtmaa6Lvuwgi3TF43Zf4pmGJdn9a8j/wVBgJPGA5G4C
-        bkQHMiijiAIDBsyQeyNTf1DRERxsT3hs6U8y0QZnzNfo0VNUEIHZMkYLMM4EJPldAINzdumBt96ym1/t
-        2LG7UHgJhtHs8ZK4FZDPExVZXNE2OV+uN58fkUX3ZKlsRRZAMQqIT0vVqh2lWbMB0r//VFm9eovmO5OL
-        LBYUk4ksvuuQLXdrgGiC9/7xx1/M+XyvTJwHK+vh9dff0h50mC+fC0Ud9st1p+ng6tX3ze9/oZEPazcE
-        yNKzuw4gMZ7ChCyELuwCxxy+Tp2mmJsUscZuDQtYWRYZe2PbnNh8adWKXRCXy9at2zXHxU0JCLrwLHiD
-        cHPAEgAsV/rz/POnTVjPXiRddLoQtZhFTf1JhUl2yltnQGu8DrcgH8g5wZ4ABwAhGRDw/5y7O0+EF0QM
-        GCmfcdGiJTGjxgilBw1iN8hNeo1852RB0Y0LY/sBJ7LMMKBo93iuXsOKLPfeS9F2qximyBYETzwxSPOJ
-        O3bsLxwXdrvIEp2MA1N3IgugGMwnAlQlCYoc111H3hMmSB6RByODRjhX8qAwXeZBslEb15YHLWuJHC7f
-        H8ycvzNujx0v+S7Pn3/dAGzYYVPadlcCJE9gkt4sOMQahpRu2bJbC4oZLBEVawgVrXgCaFkWaYvHYT5D
-        h83TsNbtXwMrgCXE34D8G5CKL/3ZvfuQAeXuWvoDg8q09Mc55TNMAGL7Aeo1CYeZqYj4UBRIAhju3GDB
-        dLxwEyP6PPMMm18tjGkFJOdpN78iTxt/DlwnW5/4RKHIYvd45gHAfkCkMhgXpiKLdrJERRaYIjv3dew4
-        RiZNWlI4GccnssCQUxFZHCD6PnumzrE4rgNCrh3vzfXjAQhgE1UQ7sNy6R4C6JhpSbMBNax0EsHEEbWC
-        aYp4nzFjpvkeNpqHwlnzPmHxeGnbXQmQWFCsYRbfm2++aW7sMTpt3Io10c4am4u0Nz6DDlzxeKNG02Xu
-        PLd/zemY/Wt8NxRABMt0pT/c8AUFiw176hBT+gPbgnnZ0NSCTyqiDd6z53KB5TEBiNZIgAVhgvflvBxQ
-        8Cfn4/KjnA9h3YEDh5TR8PpgYTeOIu17T8cUo8qzE1mmSJ0Hxug+PUzGqVSps7BznwNE53SzdOgwWjZu
-        3KnMihDTJ7LAiBnU4RNZXOgcBMXgd1Acd98fYEiYzndMOZALkcl5wmrp1d6//1nNTZPqoASL1lAYIXWr
-        8dfT5/n5BebazzavX28eDKfNsS+Y7+aqWTO0lVqxhjA7tNKxuxYgnVhDnZkTa2bNWm/FmnoTDfgtKAQq
-        G0I6FhkpHm9M58ZsGTCAFsQ13v1r4m8yGEcwtwcToli9XbuxUuG+zkVM/bHAmGqojaMgFxRMVJbCFCKm
-        VsNsABNucs6Bv7uOFyu87NeQDvbpFGl85MhpOnYtVnix1wKmSyoC1uu2H7CdLKNUZKFom3Fh91aILdqm
-        37lp0/4mRJ9uQvf1BlQOa/7NTcYJiiw2n3i7yBIERa6rA8XiAKP7jjgm3yHvQ6E43xXgTGqE0B5GSwUD
-        14yHEFEERfuExYAhjJtr6APE/PxxhuUXGOY42YTVy8zDaJ2C4e7duw3AHpNTp+joecE8HOx+10zBp6mB
-        SIe16hhkmIcsHbtrATIo1tCxgFhz8OBzhvEMVbGGDg3XWQMg2FxkJHzU4nE7eZz9a+bOXapDba2C/L7e
-        xNxo8Tcr/4bhREt/PlN2dOTISQOMvW3pT01Kf2bo8TMp/cFd3/a4cXa4BV0tsDFuckJSmA8AxGQahBeY
-        Dip49CaeoIo0ec3ocd0Dwg7ycOPCoiLLCKlWrb9hwj08oXNL89naRZTnGeZ89inb8oksMFlAkbFxiCzB
-        fKITWbiG7vpmAojudUEwjA2RP9BQnmsGcCPE7dy5R79jHiLkY2HY7B0UfJjEOzlh/h/2OG3adC2HOnTo
-        kFkn7EdD6uC0hs6AIdu6si8NG3axtSv7XVOnSylacL/rsB6ydO2uBUgsXqxhYbZtO05v9odUrFmiYGjD
-        7CiLhDlFWxDnSOfOs2TFiuj+NTAObuZ4Fonzs2Bo60p/Fi3aqN0gWvpjwtKGjfylP6nmIzlfcoWAJDcm
-        wg3hMyrpwYOHNS3Ajc5NHhVexku//gt1BiNpBft5bcslbLpJ04DIUteKLNWqsydLNxVZ7rmH8DnKFOl3
-        btdulAGHZeb9dxaKLCi28SILam2wk8XlE7mOLp8YZIrx1zWR8xpeD7g64YQBtnTPELq7EJlrwzASWPe6
-        dTZEJgeLcMJ1AujIF7oJREHn2g0ZMt6w7QmGQc42r19v2OVWc7z9CoZs+A8zPHfuJRNpMD/ydU3rIBAS
-        vZAH5yFNuoe1SFQDMLr9aQBHIp6QPZau3dUAGRRr2CyJRbp16x6pVSjWsDVsEKSsWxa50bA8WzzeuPFM
-        w8AWKwgdPXpMw1ZEA4DQdzNzo3PT2zA3WvozaNAsHetP+1xRpT8W/G4HRJ8DcoOHzNYbmJub8Jmwmxs+
-        yHzYSXHAgPnanRNTtB0jskyVB+rmR8aF9ZHKCoqxRdvkEmvX7qIbVU2btlxD5+BknHRFFq5TqkzR/U6Q
-        FbKdAWAL8PJ+lM3Eh8ibN0dD5GTCCSA4ahQTiMbJwIHjpHv3AmnfvkCaNBlvvquJZq1MNQ+S6dK163TD
-        Og8pKMIMAUMaEgDDS5feVWZI2Aw7pOWV4SmAIWVn5MR5YFP36Nu0izUbAmTp2V0NkJhPrGnefKzUrjNK
-        Hi7srKH0ZkckxLWhtu0PhlXZ4vGOHWfpPs3sXwNDCu5f47uZuZG5iYOlP8eOnZZGjQbo1B82m3elP04s
-        igKfZYhBMCzK+T3KceJvdpzhtD17MoORz+cm47hOFvZ4nmKuwxgtQ7LbD+TJv+OKtnG2M+3ff4oJPzfL
-        rl0HTQjpF1lQyJ3IwozIYD6RawGwcV1SYYlBMLTCyQ8KtFx30hywU0AZgIYx873QQ0+ITK+4C5GjrNAv
-        oIwePd4AXoGJLPLNtck316VAHqlfYB5g43V0Xb2HJpkoYpp5WM42D7L55novllatl5qH5S5zDm8oO3R7
-        WyO0AIrMJIUZsk8S7BAwpP0VMCSiARBhi6SAWJ840U4IjKVvdz1ABsUaFjC5n4kTVwXEmqiqHA2zYZG0
-        IEYnjzNAYfz4hbpVa1H718Tf4IR9gEOw9Gfz5ujUH1v6M1vfA0AO5iNTZZE4AgvDLbjhyS8OGzbdAONi
-        c7zNylBvE1nMw4HJOGxnSscPk3GCTLFy5fa6/QDjwpYupeXyea/IYseFFU9k4d/8H7/3yy+wwp+VbRIi
-        U8IEGwWEeW8GiDACzobIGwpDZJizyxf6gBAQHDFinAH5cea6FEiHDgXStGm+uR75WlmgYGjWAmBI6oWh
-        JY+Y75vr1dA8SBo3XihPPLHUAOMqad9hnXTouMGsoV3m81/RcBlADIIhf+eh7MAQdggY4qxHB4YhWyx7
-        u+sBkgXIwuQJjljDHL59+w5L9epsDWtukvoA1CoDiHZHQgtMLhdJ2Y9lkQ0bzZOWLWfK4sXLC/ev4QYm
-        ZAQAgjd98MYHQF2Psyv9mTp1pW4BEF/6k2k+Em/VeqsMHDRH2rVfbcB2vflMbmOy6B7P1Wv0l0qVusk9
-        DIHwbHzfsGFvfQhs27a3yHFhsSJLdDKOE1kS5RPdNXH5Ql5jVeTPtYQqWFt4+PBzOmuSXOrq1ba2kFxr
-        EAiLYoVjxozXELlLFwOEzcYapm78oQIDguP0WtRTMJxsIoipCob1zTUi19yw4Twt76IDiNZImDZT5+00
-        +nXSpu0myeu8Xbp22yG9eu004H1VwTF+K1f+/uefFgxDIMxtu+sBEmOh8iQn90MohFjTunWBMriHHpqq
-        N0NUrAFwHJOMtiDCwBo0nGVuPtuCiCBCvo2pN9zs8czIAQJAwf8HS38YsNuy1cjI1J+iS3/wREwSxhkr
-        skQm45ibvq4BXkSWqlX7SMWKXVRkiZ+MU6tWZ2nXbqRhnfNl40a3J0sykcV2ssTnE4OgiPN3B4S038Es
-        g+13LkSmMoBriRJPjpce8AULFmmIjPLuQmQfEI4ebVlhjx4F0qlTgTz1VL48+mi+YX+GFda1IfKDhjEr
-        K3x4mlYPUL3A4N2G5oHHg4no4NHGS/UhCBhSXcD3TX6Wa8q6sMNNtpiHz3bp3GWP9Oi5X3r2OmAAe78B
-        SFpQ7eBbxw4tWwyLvcuDhQBpjEXL092JNe+9957uR4IgQXgFc7CKsguzASAXatvicdeCGLt/zRkVBwgp
-        fSwyCJKwK4AFgIApnTp11jCZ3nJ/xa6R0p/o1J9YgIz+PXpermjbgaIVWeoYRkxus0rVXgYUO8m/VXWO
-        AiK5xQoVWsvTTw814akNnX0ii5uMw7lSS0l5TLzIQkjsQNGBIUAZVJGLar/bsiW2/Q7hpKjwGEc8cQJK
-        nz7jDGiNNddurJZrxYTIgOHDgKEJkZUVztZcK9fHgiGsEDB0QLhav3cLhhsiYLhJ/SkTUVhnu2AeWtul
-        bbtdBiABx2eld59D0qv3IcOs39GwmvXFOnP2xx9hsXd5sBAgjRHeOLGG5Pknn3wi589fMDdEvtSpM1rL
-        WmAQDpyi9Yg21Obn3EgwDW66fv3matiXaP+aoMOoABTAw5X+8DpKf+4xzC7x1B/CfrdFhBNZKGJHZJms
-        IkuNQpGl022Tceh3rl+/tznnKTJv3hoTth68bVwY+cSoyPKZglt8JwugyGfE+TufBVYMg7a1hb72O2oL
-        t2ihPSVHhMhORU4EiITHffoUSF5egbn2+QbMmOUJEI6zwkkkROah8Aj5QsMKCZEtGC7Q1IIFw2UBMIQV
-        ro2wQgeGG/W7jQIh2wJbMHQtqM5h8q3b7JaOnfZJ9x4WIPF1688W5hydCh1cc6HltoUAGTHHIoNizejR
-        SyNizaTCPKALs6O5yGDxOHWCC+Sxx2bI4sXLtPcWBkZeDrCARRUVagOSgAssLFj607v3FA21q1aN3fCL
-        m9YWbduN75s0sSILTImNyKrrZBz6vDvFhM62aLutzlDs02eSOcddMZNxiupkCU7GARQBQICRPzlnK5x8
-        VVhbSE6S40VDZNt+h9LvagsT9SGPHRstqRk8eJwJ9fPNZ0Q0iQgnJkS2+cJJBgxtiMyDjBC5fgOAMBoi
-        W1ZIiLwyAIY2RIb9cw0tM7wdDG2aIgqEsWw91lu22mXC7D3SpesBZY8A5NBhB3U9EZ0QZgdzjWGYnfsW
-        AmTEWLgsYNdZg1izf/8RLXFRscaAT6xY426WIIuMFo/36DFbmRGzE8nXUe8HswII4wHSgSShKL8TLP0h
-        H/nEk0MNSNpWRGZWwiQZuwYbIm9GCFm7zgipUXOgAcRu2skCUwwqz7T3tWgxxADSIhO+btPBsm4yjhNZ
-        bD4RkYU9nq3IAigCfpwTf/JvgBAmye8CpK+8Eq0tJESmtpAQ2dUW0n6XjBUChOQLO8EKDXNv1izffL4C
-        A34IJ05FtqxQVeTCEBnhhBDZsUIXIq8sDJEffyIaIkfBMAiEQWaYGAQTuWORnfL2S4+eURa5du1RZZGo
-        1kHWaHOSoTiTyxYCZMRcyMMiZjE7saZdu/FWrDE3ZmPD0rjBLEC6G8MyC1v2A5uzLYjcxBSPu/1rYISA
-        DCzSB5A4IMn/x5f+bNiwWypV6qjDYyuZUJntGtiNsXqNQVK5Cjv3dTaAGNvvzE5+iCyMC2NPFkJnNxkn
-        KLIgCgF0duP7zzWnSAgNCALqADWhNb8HiLrawmefPRwJkTfHhMgIJ4mAkHKaIUNsoTXCSYsW+dKokSun
-        iQ+Rp5kQOSqc2AcD7Z2L9LtwKnJ8iBybL4yyQr6jIDN031080GXqrAlYZPsOe6RrtyiLHDDwiOZbfbsU
-        /vHHn5G/hZaLFgJkwHiis4BJqjuxhrrEWrXZGna8hm3chNxkMMggSFoW6favoXh8jnTvPue2/WsAv6JY
-        JM7/+Up/Zs1arflCym+YiPPvf5NLbB0Dinjlyh0Mex2v9YkITYAi+cT4ThZygty0ACPO33kvWCRAyPme
-        Pv2CdgYxiIPSJRciuwk1waEMvvY7fOhQ23HSvHm+YXiUTRUY4BtnADBaaG1rCwHDCCvUENkJJ/Eh8upA
-        iBzMFSKcWDCk6D0KhMFcYSyglYSzJtq0vZ1FHjhwQdw0nqBYYx/MYW91rloIkAFjsVKCERRrCEGbNrVj
-        0KxYQ2eLHSIRHB5hc1Wox9H9a+o3mGGAZJECC/MVAR+UagSZogSbYKgdLP154YWXDJsdHQOGODv3UZ/Y
-        vft43ZPl4MGjhSLLuXOvKijCFAmFef933rmioTuCCblGgPDMmbNawsMWsnYow5bC2sLghBrbcXI7CJIr
-        hBUSIud1LjDnWWAArEBTE7RsJg6RixJOgiFy0cKJZYUWCK07MCwdQPS5ZZF7Y1jkmLEH9KHrY5EhQOau
-        hQAZZzzdqYmk64HkOuOmBg2aJzVrDo+INYuUuXAzwhZiWSShdnTyODf/k09Ol6XLVsqOHbtMaFv0/jVB
-        d6F2tPTnMwU4WhGrV89TYKxTp4uMHDlHe8fdRlUUpwOK5ARRn3FCaYQXgJ6yIzb2ovWOImvKaeg4Wb48
-        OpQhCoT+ENl5/wHjDBCMlWbNxhrgo6yGQuugcEKhdVQ4idYWUmhtWSFM2wJhvIoczRU6VhgvnJQ1CCby
-        p1vuMixyj3lYxLLIPXtO6rpifbHOHEj+FarZOWshQMaZY5GINXRBWLHmsNSsNTQi1jD1m86JYGeNc8ci
-        oy2IDRrOlPz8BSpaJNq/Jt75P1f6w++Tj+S1u3cfkU2b9mq/M7lAgBGxBUeJPnHilLJB2h0pM4IRUpPJ
-        dBrC/YULlxQKJ4nnFlrhpJ9hhZ27FEhbwwqbNy8wnz/fhMaR2sIHHSuMhMi31RbCCm8PkdmkKyicuBDZ
-        MkNYYTwzDAJiboJivLdstTvCIg8Wssix+Ufl+vUburZYY0EWSWdNaLlnIUB6LCjWMFxAxZr2jEFja9hp
-        esPDcLhx4wu1LYukeDy6f83jj7MLYuz+NeQYk7FI/p/SH0JtBJPLl99XVsgx3NiyffsO6Dh/coSExjBC
-        gHDxYguE1BXSbQIIMqw1HggdGFJWQ5icl5evwkndBym0tiGy7TgJgqELka1w4trvCJGZJm5DZF+hdRAI
-        XYgMM8yd8DhbbnORsSyyb79n5aWXrmgpmWORmHsoh4p27lkIkB5j4VITiVjDKCpG3q9cuSMi1kxQ0OOm
-        t2JN/M0RLftpZsAB0KBQefCQxPvX8CcCDaAIu6T9jrIagBHxBGCELcIKCY3XrFmvwxgWLFis6vH06TMM
-        I4wtpfEBImBIXSF9yK3b5BuAor7QMMP6kVxhJEQubL8jRG5gQmRXW9jICSeA4XLjwRDZ1hbafGEsGAaF
-        k9gi6/jrl+tuzxswtw6w87kc86U+dbN+9qeabzJMcpt5uCLa7FOwHDd+v3ngfVPIIl2ozZ8hi8w9CwGy
-        CINFsogRaxhXRfhav8FI7Uxhco8Ta7hZbp/0HSkeD+xfQ/H4vMj+NQAdRdgAICE0bJK/UyDu2u8ARIQW
-        xB3yhWyghYKMaEIpDSA4Zky+jB49RkaNGqN/Z5Q/oIgzkAHxBBW5Z89xJkQmPWBZ4QNB4UTBsCjhJNh+
-        5/KFQRU5Nl/oagvjy2nKnhkG3z8e3BzA2W6kKMBt1O+Pz8hn5TPDirkGXAu23OBBQRqBBybXDEbNNaQ2
-        lZSDTTvM0P/nNRyH63Ti5Kuai/zvf+3+MhSR4zyUQ8stCwGyCOOJ7sQahppeunRJ+vSZoVNvHqw3WW+M
-        JwJiTfwNyc+50bgp3P41AwfO0VCbHQeZRnPunK1HRFgpqv3ODWWwzJBQuEDB0LkDxZEj3QBXywobN45t
-        vwMMH4qoyLBCWG2DSKE1wkmhihwTIt9eW8iINwsgQeHEgmEUhOKvRzbcB26xoMZOioA151kksBmw53M+
-        qsC2QPvsGxhg48HAdeFBwTUincA140FiHyhcS9t6WqfOSPOgGaldVrVqDzF/Dhb29GYaUrXqfaVylV7G
-        2aSsu1Sq3EOqVusrNSN9/bDx4SO2aGRChIKi7VhkMCcZWm5YCJBFGIuVxUtZBmINU6APHDgstWsP1aLm
-        qFhj+6LjQZKbmP/jhuUGhY3VbwDQzVTQY2grjBAg5E8m1CSbWwgrpNB60KCCwl7kZo8xxDUwt9CFyA9P
-        0XxpYYisKrK/ttCxwsefiJbURIUTgDBeRbbMMDEg+gDNOcCG22NbwLXgBhDHgJsJ3zlHyn8I6y1rWxhg
-        bQbYDNgDbMrazOemtvLBeuahoOBGuRHMeYzmkGvVHqHAVqOmBbaaNQcZUOsv1av3k2oGyAC3KlV7Rto0
-        uxqA6yr3V+wsFe5jLmYHnXp0zz3tdHCw1qL+m1pUu5+38/+Jq03FqV2tQMtotf7m/CfIxYtXFCBhjUQr
-        IUDmpoUAmcCcWMO0ccQaxua378AGVXTWBMWaolkkZSrKIiMtiK1bTzFgZ2cVBj0eDB0gurmFj0WAsH6D
-        AsMEXb4Q4SSVEDm2tpBtJG5XkckV3p4vvN2j4SjgqcxNWVscsMWxtsaRcJTdIpW1GcCm/KeQtT0EsAVZ
-        mwW2unXHmH9Th0p6Y7i6gpsBtpo1BxrA6afgVrUae2331FZLJiDRXUQPO91H91YwwEb75b3ttOOINkwA
-        ix51C25RgLPgdjvAZeock7156tTJM5+7m7RsOUh6955sHrbHVKyJn/ITWm5ZCJAJjIUbL9YsXLhZwyWY
-        WqM4scYHkjAlAARgsmHsDBk+PBYQmWjtJtQw3t8KJ/kGOAwrLFSRXW0hYGhDZAAXsAF0CkNkBUMrntgw
-        2ZbVWLeKcqzzM3xNBDwNsJnXAqgo0sraALbbWNtMC2zmQaHqtgHqeg8BbpyvAbe6LhyNsjZKpWiPZFp5
-        9RoDpGrVvgpsVav21lC0chUTkgJwBtwqGtZ2//15FtwKWVtbZW2x4JaYuaXq//53S/N+bQxzbCs1arQ3
-        593JMPEuJvzubq5HH3niif4G3IZI+/YjpXPnfANyEw2Tn2wY/VQZN262TJu2QHe3XLZsjZZUbdu2UwU1
-        tnI9ceKEsIPhyy+/rA9ZSse+/vrrQgYZAmTuWgiQCYyQx9VEojwi1lB/WLv2EHMDjTHsB7EmuDXs7QBJ
-        eKktiIatATqAzNNPT5V+/cbLk0+OM0CTb25EagsNsNRDOHEhcnzXCTlDO7KLvGGDhvP1WNYNK4v8nZ/b
-        /ye3BpjNNa+3YSjnC7iiTsM6ATYXjjrWxgxFuoYAtrp1R5m/A25DzZ9DDXAMMj7AMDgLbtWq9TYA1yvC
-        2rooayMUreBATRmbAbQIY6M/XCcLKZBll6nF+7/+9bROLYK5NWjQ1Vzr3gbcBkuPHiNk6NAJMmHCLJkz
-        Z7GsWrVBtm/freVSVBjQTXTo0GE5fPiIHDlyVI4efc6A3PPme2dbCQYGMx/ztLrbqZCtW198kc6lc8IW
-        rgAhm3Xh7GDIdq7sT8OmXWwMxzYMiH9uwk8IkLlrIUAmMRZvvFjTvftkAxojDJBFxBoTXsIi3ZxAQlGb
-        Y7MCAgwSlga7A7hgXZQLOTAq9AdMKGmcn1s3LCziFKkX/rwOr7Ptjw/o75vX1gbMTBgaYWuUJNU0oSiM
-        rYbm2QYYQLN5tipVequIgANu5NqYKk5Iyh40991vwtIIayMkjebaXL4tCHJ+gErVYW4AWdWq7c25dzTA
-        3cUw4h7y2GO9zYNkoLRrN0y6dBlt2PUEw9imyciR7NI4VyZNmi8zZiyR+fNXyNKlq2XNmmd0vBybcwFy
-        jrnhbLsaBDZALRmwvfoqbZoW3NiVEGfPapyN3WCC1McCenRbMR4PJ8rAAUIctsh2rrStMgCF7Vx52BJe
-        k75xpT6h5aaFAJnEnFjD056wCLGGThXYFKEjOTNYHeJBk6ZBEWGB/tyGozMMU5uioAioMYmnWrUBUsWw
-        MAtWqJ5Rh5Ux9RsAq4pgUMWEn5W766b87EGNcFC5CqFonhUPYhhbNMemjC0mv+YHqVQcRsYxADScwRn3
-        3ttKJ5Dj993XxpxPWwW7GjU6GbbaXZo16yWtWg2Qrl1HGMY8RkaPniLTp8+XRYuWa9kSo9GOHj0qzz0H
-        SzumDlM7fvx4DLA5cItnbDjAFgS3ILBduHBBgQ325gM2HnYO3Nh9EGBjQAnAxvcMsOFEDgAcu17iAB0O
-        E+ShSUsqwEcahn5rnLWCuMfoPDy4iyFrCXAMKtih5aaFAJnEWLzxnTXcZK1ajTFA1VM31mJOI9szsDVC
-        bZhbrSH2ZzUGqkKq+0gb4KtYsZthZwgHHSIgFsyhWRAqBKUiwayF52fpu2Vu7cw5djAstJMJQ7spa2vR
-        or907DjMsOQxMmDARMPY2K1xgUybtlRmzVou8+atkMWL18jKlRtk7dqNsnHjVt0vhrmXhKYAHMAWZG0A
-        W7JwNB7YcIDNgRvXHHfAhhcFbLA2HGALghvfnQ/YguAGsAXBDbYHuOGIdTjrgMk8OICHwwjJKbqaRqof
-        cNIzOANQcNYRecdgkXhouWshQKZgLOSgWMNNyc6D/0Y4iIgG9k/793gBwYajLeT//T+8ufGn5P/+X/zJ
-        Qudn9v+cA4QtFDTvuYe9YlqpiFCpUlsDyu0MA+1gALmTAeQ8A3BdTbjfXRo27CVPPDFQWrceIp07D5e+
-        fQtk2LCJBuBmyuzZi2XZslVaY0m+zebWoowNjwc2H2sD2JKBW6qszYWjDtwcsMWztiCw+VhbENyCwObA
-        LR7YgqDmgC1VcMNJueCsiaDDCJ0DgM55wAbdAWMIjrlvIUCmYCxkFnpQrDl27KQBwvRzcAAeQFezZgd5
-        8MGO8uij3eWpp/pI27YDpVu3UYa10QEzTSZPXihz5640bG2dLF++QVat2ijr1m02oek22bJlh+zYsVtD
-        VIQFxAQAzheOpsPa0g1H8SBrc8CGu3A0VdYGsOFFAVsm4OaALRG4FQVqzuPBzQGczx3oBT208m0hQKZg
-        LHRuACfWcJMDEoMGTZXmzYeYcHuYCUtHG4AbK/36jZPhwyn9mGXC0vmyYMFyA27rtMXQ5tximVsqubZs
-        sraiQtJErM0BGx7P2BKFo5kCm4+1pQNumYKZz0O7uy0EyBSNm4UbkZsYIABEACCACvAC0IK5NoAtGWvD
-        g8Dmcm3FATYcYCuKtQFsycLRILA5cIsHNgdumQBbMuYWBDgfyMWDGB5aaCVhIUCmYdyc3OiAA+ACywKw
-        ADFALV5ESARuAFsy1ob7wtHigluqrC0RY/OBWyJQw33AVpSHFlouWAiQaRg3LkAAeAA0ABOgBZABas5d
-        OOrLswFqycLRILA5UIsHtnhQSwRsRTG2IKAlAjY8HsCchxbanWwhQKZpgAXgAgABVACXAzUHbKmytqKA
-        LRG4BQHOB3TxwIb7gA0PLbTQElsIkGkawALoAEaAFQAWBLYguCUCtiCopQtszkMLLbSStRAgMzQHUj5g
-        cx4Es6CHFlpo5cNCgAwttNBC85rI/w/h/XAF8OsbGAAAAABJRU5ErkJggg==
+        iVBORw0KGgoAAAANSUhEUgAAAUgAAACxCAYAAACm/iRWAAAABGdBTUEAALGPC/xhBQAAYr1JREFUeF7t
+        vYeXVFXT9v3+Nd963+e+FSVHEZUgwQSSw5BzzjBDzjnnJDknCSJRxASKAQEzihjArLe3+alv/2r3nj7d
+        7Ok0PTM9cGqtWsAwffr06X2uc1VdVbX/j+SQ/e///q/88cef8tdff+u///nnf+Xvv2P9r79u9z//DL08
+        uu+75DsOLbRcsTIFSADx77//USD8559/9N94KsDou+FCL38e/73iIUiGlitWJgAJGFoQ/CfyE8BSYgAx
+        6MGbx3eThV6+Pfj9Ov/bBhGhhVamVmoA+eeff5uF/3chS3RmWeTtHrxZfDdV6HeWB79v56yD0EIrSysR
+        gIyGyf+Yxf+XMsaggY94PCg6D94kvpsp9DvTg9+787ilE1popWpZBUgYos0p2nyiz3z5xRAUQ3ceXAfO
+        WR+hhVYWVmyABBD//vtvBb54pugMrEwFGHHfTRP63eXxawIPc5KhlYWlDJBBRggo/ve/f5g/E6/aVMNo
+        3HejhH5ne/wawFkboYWWK5YQIAFFm0+Mhs34X3/9pX8WZfxXPCDi8TeD76YJ/e7y+DWBs1ZCCy0XLClA
+        AoxXrlyRc+delhs3vij8mSvmDloYRoeeicevDzwMqUPLBSsSIB0QEkZ//vkN+eWXX/TvQTbJv2GLITCG
+        XlyPXys4ayi00MrSkgIk4fSff/6pzt/5GaU7/Nv89TZQxOMXuu+GCD30eI9fNzhrLLTQyspSYpAOJP/4
+        4w+5evWq3Lx5S3799beEwOi7AUIPPZkH15Bz1lZooZWFpQSQP/30k4Li5ctXDEj+FQOK8cCI+xZ+6KGn
+        6vHrCTfLMLTQSt0SijQA5JtvviX//e9v8vvvf4agGHpWPX4N4ayt0ELLFfMCJMLLzz//IjdufBkDis7j
+        F7Vv8Yceeioev5Zw1lhooeWC3QaQJMV9Czb+Z77FHnromXj82sLDkDq0XLDbAPK3336X69e/lK++uiU/
+        /viLdsz8+SfKtX9xhx56NtwPkiGTDK1szRtif/75F/Lss0fk+edPymuvvS4ffXRNvvnmB/nPf36X33//
+        27vA71Rv8fTOUvHxE07KnDkvqh879r68+OI1ufbpD95zyhX/6ac/pFu3/d7Pk8iL+lw+kMx2mY/vfErS
+        u3XfL/Pmvah+4sQH8vLL1+TGjR8jZ1M29sEHt7zn6vOJE09GXpXbNnTYUe/5+zwdKyIH+b9y6tQpmTt3
+        vqxYsUr27Nknr7xyQa5d+1y+//5nwyop+bk7WKXvApemA0ArVryqgAkg+c6xrBwg951zMt+06aL3eLgP
+        JLPJJH3nU1a+atVrCprfffdr5OxKx9IBSJxzzGXj/HznXZSnY16AxFCw16xZJ+PHT1Sg3LFjl7z66gX5
+        9NMb8sMPv5hQ/K+7AiR9F7isHLAEXL6++R/vuZa2Dxma+lM73hN9Bj9IRhZmMc13LrngMEzYZWlYugAJ
+        C4YU5aLxcOH8fOddlKdjCQHy999/N8Bowr/xE2TBgkWye/deOX/+dbl+/Qv58cf/3BUg6bvAueB7975b
+        powSRus7r1Qd9hkFv9LLNfrOJZecm72kgTJdgMS3bn0z8urcMli473wTeTpWJEBiFIn/8MMPsmzZcpkw
+        YZIsXLjY3Jj75fXX35TPP//yrgBJ3wXOFYdRvvHGDe95l7STM/WdU6oOEPz88x+lDpK+c8lFJ6f21ltf
+        RM46u5YJQOK8Lpcs08+RjiUESDeQ4scff5SVK1crSC5Zskz2739WLl58W27c+NqwmF8VJH030Z3gvguc
+        aw6b9J17SfmVKze955Guv3juWiFAWpCMLLwSNN955LLDkLId3mYKLLkm2KQjzAQ9HUsIkBggSS/2119/
+        LbNnzzUXaYosXbpcDh48bJ5wl+SLL24aJvDfO1bd9l3gXPREwke2HdHIdw7pOjnMIEBakCxZJuk7j1x3
+        2HY2le9MARLPFcEmXWEm6OlYUoDEyEcyrOKrr76SWbNmy6RJU2T58pVy+PBReeedy+bn38gvv9COeOeB
+        pO8C56qXBpNEXPG9d6YezyLxbJf2BM13DuXBs5mbLA5Ach6lrbrHWybCTNDTsZQAEiPURrS5fPmyTJ06
+        XSZPnqph99Gjz8ulS1cNw/z2jgRJ3wXOZS/pnCRM1fe+mTp1n/EAiZcUk/SdQ3nybIBkcQASJ+wvS8tE
+        mAl6OpYyQLrJPv/973/lvffeMwA5RaZMmSarV6+TY8dOyJUr78vNm9/dccXkvgucy45wU1LqdqaF4cmc
+        nKYfJCOLL4vme//y5sUFyeICJM4xysKyce7pWMoAiblQm+nib7zxhowbN0HZ5Lp1G+TEidNy9eoHcuvW
+        9wqSd4qy7bvAyZwSlnQcVgaTyhb4lFQ+knP1vV9xffPmiwFQzL0cpOuEycR9xyuuFzcnmQ2QQSApC8tU
+        mAl6OpYWQLoZkYTaKNsvv/yy1khOnz5T1q9/Rk6ePCPvv/+RtiX++usfdwRI+i5wMvcdJ1WnDY9cYnHB
+        siSKyYtTGJ7Mb5rzLQ2Q9L13Mi+ukTOjZIdawuLkzoIOUGSqbmcDIPHSFmyKI8wEPR1LCyAxV/rz22+/
+        GSD8xrCKY4ZJjpcZM2bJxo2b5cyZs+YL+ES+/fbHOwIkfRc4mfuOk64TzhZHLc62YFPcwvBkvm/fu4UA
+        aUEysuCybL73TubZNkLkbDChAwfejRwxPcsWQJamYFNcYSbo6VjaAIkBki7URtnetWuXhtuzZs0x4dJW
+        OXv2Jfn440/Nh/qp3Pdt+y5wMvcdJ1PPNKyFgfqOl6mnWxieLqCy+IOF4xYks88kfe+dzEvKYETFvekz
+        yQVmCyBx0gilYcUVZoKejmUEkBihNnvUsB3Dp59+Kjt37lSQpFZy69Yd8tJLr8q1a9cLh1v4brry4L4L
+        nMx9xymOZ8okszUNKN3CcMCU16ULqjwMggCJZ7vkx/e+ybwkDWZEAbbvfVPxTAAqmwCJl1THj7Nsn286
+        ljFABkPtb7/91nyIDwzKr9bhFvPmLdDhFq+8cl4nALnhFvE3Xnlw3wVO5r7jFMczVY8BHN/x0vV0ARr2
+        yOvSZZG+wnE8m0zS977JvKQNAlEckEyXRWYbcIqTD03FinNtfJ6OZQyQmOuy+c9//qOh9rvvvivz589X
+        Jjl//kITeu/VeZKffRYdbhF/8+W6+y5wMvcdp7ieSf0hwOY7VjqebmF4fGifLrADqn6QjCy6YprvPZN5
+        aVhxQDJdFpltgMRLSrDJljAT9HSsWACJAZKE2qjan332mbz66qvabeOGW+zZs18uXLioU8rL43AL3wVO
+        5r7jFNcpAPe9VyKndMh3rHQ8XWCOF4f4t+/3ivK5c0s2p+V7z2ReWlYcISIdsaQkABLPtmDDQyNbwkzQ
+        07GsACT5yGCo/eKLLxqAnKjh9uLFS2XfvoPmBn+rXA638F3gZO47TnE90xY/37FS9UxC+/jyokzO+733
+        bkZWV/bN937JvDQtU8aUDoMrKYDMtmBDWZTvfYrr6VixARJzoTaq9pdffinvvPOOHD58WFnkxImTI8Mt
+        Dsmbb74TM9yiPDBJ3wVO5r7jZMN975XMfcdJ1dNV0ItirOnmMFesfPWOLvNJZpmUAKUzaaekABLPlmBT
+        kueYjmUFIDGnajM/8tq1axpqO2UbkGS4xaFDR+Xtty8bEL1VbiYA+S5wMvcdJxvue69k7jtOqp5uYXhR
+        feCZpAcoHL/Ty3yKMuokfeeRzFMVSkoSfAiJsyHYZFuYCXo6ljWAxFyv9q1bt7Rfm31t1qxZK6NHj9W+
+        bTvc4phcunQlZrhFLjNJ3wVO5r7jZMN975XMfcdJxTNRoH3HcZ4u2Lr2wzu9zMdnAIzvPJJ5quytJAES
+        z7SA3VlJCDNBT8eyCpCE2hSQ//zzz3Ljxg0TUr9pWOMhmTdvvuTnj4sMt1hrQrfjcvny++ViApDvAidz
+        33GK69Q0+t4rkScDrUSeLqAlKylKN1wPFo7f6WU+PsukMDrVPGRJAySeaa94usJMJumIdCyrAIm5sWjf
+        f/+9fPzxx3Lu3DnZvn27tiMWFIzX4RZr1qyX48dPlYvhFr4LnMx9xymup8vo8ExV7Ewmhifr/Ubw8b0u
+        kQcLx+/0Mp94y4RFpbpvTCYAmW7Im6lgk64wA2v2/TyRp2NZB0gMkPz111/l5s2bWhtJv/by5ctlyJCh
+        MnbsOJk2bUbMcAtAMlf7tn0XOJn7jlNcB+x875XIM+3HTve9Up0elG7JEOwg2+Z7n2ReFpYJiKUKSpkc
+        G0bo+3kiT3csW7rn5T6v7/8SeTpWIgDpQm3aEKmNPH/+vOzevds8hSbJgAHDlUkyAeiZZzbJmTMvyocf
+        5u5wC98FTua+4xTHM90DxnW0pOOZlOVwfr5jxXsmnyMbA2KD5nuPZF4WRk2h71wSeapKdiYAiZFb9P1f
+        UZ6uYJMuS3V1l77/S+TpWIkAJBasjXz//fcNWzxpWON6GTFilHTtOljGjBmnwy02bWK4xTkdbpGLIOm7
+        wMncd5xMvThDapOFvT5Pl+Wlm+dMN7eZTvlKKuZ7j2ReVuY7l2SeimUKkOnmB/FUBZt0UwrBfKvv/xN5
+        OlZiABmsjfziiy/k4sWL5mIdkClTpkj/AUOlY8dByiTtcIvtcu7cK/LJJ58VDrfIFZD0XeBk7jtOJo4w
+        k+n2qm5gRDqeaZ7Qd6yiPJNcKjd0tsx3/GReVuY7l2SeimUKkFgmOb9k318mwkyQmfp+J5GnYyUGkBgg
+        SW0kgs1HH31kmOJZw1A2ybBhI6Rz50HSokU/A5ITZM6cebJ9O+HUazrcIpdA0neBk7nvOOk4QAXwZMoc
+        8UzC67SVZnN+nKvvWEV5Jow4m3ug+I6fzMvKfOeSzFOx4gAkRu7P9ztFebIoIBNhJmi+30nk6ViJA6QT
+        bBhm4TpsFi9erKF2ixZ9DZMcLOPG2QlAO3fulldfvSCffnpDJwDlAkj6LnAy9x0nkQMa5OcAqOIMyXWe
+        aXlPusCVqjgT7+mG8Xi2+nx9x07mZWW+c0nmqVhxATKT/GhRJUjpnotPiPL9XiJPx0oUIDFykQg2DLOg
+        w4ZtGrZu3WqY4zjDJEdLnQe6SLt2g7Rve8GCRbJ79z45f/4NuX49OgGoLEHSd4Fz3TNhj5mEvpnOm8yk
+        pnPzltRKWJKZ79jJvCwsF0WaoKWbMyxKsMlUmAma7/cSeTpW4gCJBTtsXNnPokWLZNSoMTJ48GipWbOz
+        9Ow5QiZMmGx+vkT27Tsgr7/+pnz++VdlPibNd4Fz2TOtfUxXPMn0fZxnUrbku8HSNd9xk3lZWCYgVpJl
+        PvHGd5FukXZ8nWZxhJmg+X43kadjpQKQTrChw+b69evy2muvaZ82W8fSYZOXN0Tuu6+j9FCQnCRLliyT
+        AwfccAs7Aaisum18FzhXPZOcIJ5J+U0mLDXomTDWom6QdMx33GReFpYueOAlWSjus0yOw2swALY4wkzQ
+        fL+fyNOxUgFIjFCbDhs2+rp69aocP35cVqxYoQCZnz9BGjfuLdWqdZG+fUfLpElTZNmyFfLss0fkrbcu
+        lelwC98FzkUHHDMNedNlc7yX7zjpero5T26o4prvuMm8LCzXWg2LsnTP06UB0q2pTNRn7vv9RJ6OlRpA
+        OsGGsh9Y5IULF2TPnj0ydmy+bh1Ln3at2l2lSpVuMmTIWAXJFStWyeHDz+lwi6+++kZbEksbJH0XONe8
+        OOCYSWE47weoFtfTBUj83LniFY77jpnMS9tgSr7zSOYlOayiKCMnmEltpO/nRXmy1IHvNYk8HSs1gMQc
+        i6R4nGk/FI+vXbtWQXLSpMnSv3++3FuhvdR5oI8MHVqgoLlq1Rp57rnn5d13r8rNm9+V+nAL3wXOJafe
+        MZOCcOeZKMpl6eRKizPhx3fMZF7alovjzhJZJumAdDxZBYPvNYk8HStVgHS5SPawYdrP66+/Lnv37tUt
+        GpgZSfthhw7D5b77O0ndB/vLyJHjIsMt1snzz5+MDLf4rlSZpO8C54pTFpRJztE5r/UdN9f96tWbJhrJ
+        bMKP73jJvLQtkwk16XQcZRsgsXTV6FQ9lbSB73WJPB0rVYDEHIv87rvvtAWRmZGORcIYZ86cIw0b9jYg
+        2VkaNBwiI0eNDwy3OG2Y54eFE4BKAyR9F7isHdZXHNboPN3C8FzxOXNfzHjCj+94ybw0LVM2lmr+ESsJ
+        gMzkmMk8kTATNN9rE3k6VuoA6XKRsMjPP/9cWeS+ffsMe5yuLHLmzFkyfvxMqVwlTypW6i7Nmo2QMWPG
+        y4wZs3S4xenTZ82X8Yl8880P2rdd0iDpu8Bl4YSWTOfJBjA6zyQHmCueLOwqynzHSualZZnk85yncz1K
+        AiCxdDtiknmqOVXfaxN5OlbqAIn5WOQzzzwjo0ePM0A5Q7eMHTZ8qmGRHaVKlT7y+ONjdOsGQHLTpi3y
+        wgvn5KOPrpnX/1TiIOm7wKXhTgiB5WUqwCTyTMpscsk3b7kYWU3pme9Yybw0DKaUaZiaav2js5ICSD5D
+        pgAf7+l8Jt/rE3k6ViYAiblBFi4XuX//fhNmT5bJk6fJ7NlzZOHCpfJU88FS4b48qVZtgLRsVaAgyXCL
+        LVu2mRv8FZ0ABEjyxZRUt43vAidzQM25YX6zzc9G4sGf+5x6RLw4ecVUPd3C8Fz0X35Jv3Dcd5xkXtJW
+        HHDEAbx0rKQAEstUYIr3dBix7/WJPB0rM4CMV7RPnz6ttY9M+ZkxY6YByEXm36vlgQe6y/0Vu0rNmsOk
+        c+dJCpIMt9i2bae89NKrcu3ade3bLqmWRN8FTubB1//ww+//3/+JWPDnZemZFIbnovNQSVes8R0nmZek
+        AQTFAcd02SNWkgCJcU6+Y6Tq6eRTMd8xEnk6VmYAibnuGpeLhEW2bdvPhNoTZe7ceVoHOWnSfKlYqZNU
+        qtxTatcZLZ27TNK+bYZb7NgRO9yiJEDSd4GTefD1uQiQhO6+8y5vTjjHvjXplP34jpPMS8oAguKGpOmy
+        R6ykATKT6ePOUxVmguY7TiJPx8oUIIPdNW4XxCVLVkqbNgM0zF60aKmsW/eMdOlSYELtTlK1aj+p++B4
+        6d17ioIkucrocIsvS2S4he8CJ/Pg63MNIDMpDM9lf/HctYiinRqT9B0jmWfbCEMzKeWJ90x3DyxpgMQy
+        VeNTFWaC5jtOIk/HyhQgXV0kWzPQXWO3ZtgjTZr0lFGjLABSKM7U8SeeHKKlP9VrDJaHH5kifftN0b5t
+        hlvs3RsdbkHfdjZB0neBk3nw9bkGkJkUhhOS+46Vbc9EOCKXms7GXr5jJPPiGmE0Nz4qb7ZEjEyYlrPS
+        AEjOLd2HQCbpAsx3rESejpUpQGLBST9XrlzR7pp+/cZL/frdVZBZunS5lvcsWrTWhNodtfSnVq0RUr/B
+        LBk82IKkHW7xrFy8+Lah99HhFtkASd8FTua+4+SCZ1IYDgD5jpUNd8AW9EwAJB3W4Xt9MufGzdR9xyuu
+        c40y3VYVKw2AxPhefMcqytMRZoLmO1YiT8fKHCBhkW6Dr08//VQn/VDKU7lyBxk7doosXLhYt4lFlJk6
+        dZncf38nqVylt9R5IF+aNpsrw4ZN1r5tgPTZZw+bL+Vd+eKLmzrcIhtM0neBk7nvOLngiBq+803kvMZ3
+        rGx5PEBmco4AUarme3158+JuZFZaAIml+pBIV5gJmu94iTwdK3OAxByL/Prrr+Xy5cs66adduyFSr143
+        mTt3vixbtlLDbELpTp3ybelP9QHyYL1J0uyxxQYkp8YMt3jnncs63ML1bRcHJH0XOJn7jpMLnklheGmU
+        HAUB8maGOdJUGZXvteXJs7HLY2kCJKwwWVRQnHQB5jtmIk/HcgIgEWvYu+aHH37QqeOvvPKKAcV1cn/F
+        DtKnb77mGdet2yC7du2RrVt3S82a3QyT7Co1ag6Vhx+ZIU89tVTGjJlYONzi6NHnDdC+ZwD322K3JPou
+        cDL3HaesPZP8XqZbKmTiQZBcsTL9bSdSnYXoe215cEAmG+CIlSZAYskEm0yEmaD5jpnI07GcAEjMtR+y
+        d82lS5fk4MFD8sgjvQ1L7CGzZ89Xdrhly3YdpLts2SbDILsUlv40aDhXnm65XEaNmlw43OLYsRNy5cr7
+        OgEIkMyURfoucDL3HaesPZPC8JLo4EnmACTDKHznk8xTyWH5XpfrXtycY7yVNkBiRQk26aRHijLfcRN5
+        OpYzAOlKftgB8eOPPzZPy5dlwICJcm+FDjJw4HhZvHipDqzYs2e/htF9+02VChU6SpWqfbX059HGi6VN
+        2xW6lSzDLdauXW+eXNHhFpnut+27wMncd5yy9EwKwzPZNjZbDkhmAuip5LF8r8tlZyBtccJPn5UFQJak
+        +c43kadjOQOQruTH7aP91ltvye7de6VKlS5SrVpXA3pzZeXKVSrWHDp0xDDMo9K8BaPRbOnPQw9PlSZN
+        l0v79itNuG1Hp23YsFFOnXpB3n//48LhFumCpO8CJ3PfccrSMykML+6WCsX1TMQamFYyMPG9LhcdxlXc
+        0LMoCwEydcsZgMRgkb/99psWjn/wwQfmJn1ROuWNlvvuy5P2HUYqi6TkZ//+g+YGOmnAcp/UrNVdKla0
+        pT+P1J8lzR5bY14Dk7TDLTZutMMtPvzwmnz77Y9pg6TvAidz33HKyjPZQRAxx3es0vRMZ1Umy9P5XpNL
+        DsgXR9FNxUKATN1yCiCDJT+0H168eFGWLFkvlSp3MUDYyzChBSrC0GKIEEMIPXXqCt3wy5X+NHp0gTz2
+        +Drp0nW55OdPlFmz5sjmzVsN2L6c0XAL3wVO5r7jlJVnUhjOWDXfsUrbMzl3mFci870mF5xcXLZEmGQW
+        AmTqlnMAiVjz66+/auE47YdHjx6TBx/so6p18+bDC1kkIs7Jk2dMCH1WunefaEJtO/XnwXoT5dHGS+WJ
+        J5+Rnr0WGyY5MTLcYocOt/jkk8/k++9/ThkkfRc4mfuOUxaeaVthNmdOFsczYb94IqDx/X5ZOflF2GKm
+        BdKZWgiQqVtOASQWLPmhcPzChde1Y+b+it2kUqWeMnr0DGWRO3fu1m0YCJ/37Tsqder00Kk/tvRnujRp
+        ulKear5RevRcKuPGueEWu+SVV86b436eMkj6LnAy9x2nLDyTPB75St+xysoRi3znmcgTKaO+3y9JJ2Tm
+        fHDAEPDOpiKdiYUAmbrlHEA6scaV/FA4fuTIc1KjRi8DkD2kdevR2lq4ceNm3Rb2zJkXNXxes2aHVK3W
+        1YTjPQpLfx57fK00b7FZ+vVbIOPHT9Le7l279sprr70un332hQ63ACR9N2boJe/B2kfnme41E1poJWE5
+        B5AYYbabOP7JJ59o+2HnzuOkogHIatX6yNj8WREWuUfzkITOgOTIUfPl3sLSn3HS6NFF8vgTG8xTY6v0
+        HzBfJwDRurhnzz7DTGOHW/hu4NBL3kOQDC2XLScB0ok1ruSHwvGFizYog2QLhvr1h8mCBUs0F3no0FEF
+        R+ZCHjt2Wpo1GxQp/RmkpT+NmyyTJ57cKC1bbpHBQ+zuieQxUcLfeOMtE+5YkCzpvW1CL9r9IBlZDKGF
+        VoaWswBJmE1/NiU/H374oZw6ddqAYy9Vq+nDHjp0hqxcuVpZ5KlTZwxAvq5+7NgpqV27u2Gb3aRmreE6
+        9adps9XyVPPNhkluV5BkAhDDLQ4eZLjFJfnySzvcIgTJsnM/SIZMMrSytZwESMx11vz44486K5LC8aFD
+        pytAVq3WXxo0GGlYpFW0YZEvv/yazoREhJk2bZV24LjSn4aN5mvpz1PNt0mbtptlxIhpMnnyVFm+fKUc
+        Pnw0MtziVgiSZew+kDTLILTQysxyFiCDYs3Nmze15OeFF85KrVr9pGrVvto907ffNO3RRtGmYwaAfOON
+        t+XcuVckr/M4LTCvWlj6s0RLf55qvl2ebrldRo60E4BgodRUvvvu1ZgJQL4bOPSSdx9IhkwytLKynAVI
+        DLGGzhr6s5ny88Ybb0he3kQVYapXHySPPDJKZs1apC2FKNqwR+ZBApRHjpyURo0GBKb+TDeh9kp58qlN
+        0rzFdmnXfqOMHj1Fh1usXr3WhOYn5PJlO9wiBMmydT9IRhZFaKGVouU0QBJmO7Hmyy+/1JKfufPWSZUq
+        faVa9YFSs+Zw6dLVzoGkxhEWefHiO/L225fl/PmLhh1ul0qV8mKm/jR7bK1hkVukxdM7IiBpJwCtW7de
+        jh8/JVevMtzCTgAKQbL03Q+OIYMMrWwspwHSddYg1rA9LFN+bJg9QLtm2Aq27oOjZfLkBTrpBxaJmn3p
+        0lUFSRjluHGL5b77O8WU/jzx5AbNRwKSHTttML8zQYdbcAy6c95//6PC4RYhSJa+hyAZWq5YTgMkFhRr
+        6M9+5513ZMTIOSrU1Kgx1DDDUdKm7WRZunSFbN++U06fPqvK9JUrH+ifJ068YABxmC39MWH5Qw9PkcZN
+        lmvpD6E2IJmXt07Gjp2kwy0Qfc6cOSsffviJAeUQJMvK/SAZWRShhVZKlvMAGS/WvP/++3L0uRNS54FB
+        Ur3GEKlde6TUq1dgWORCnTpOjzadMgAkTq3jwYPPS42a3aRiRUp/7IZflP48+RShNiC504Tqa5RJzpw5
+        W4dbnD37UkbDLUJP3f0gGDLF0HLHch4gMTcGDbHG9We3azdRqhlGWKvWSC3ladlysixcuFy2bt2hYTKl
+        O8yBZOsF9s2eM2ddzIZf0dKfrcoiAckePZffNtzi2rXraQ23CD09D0EytFy2cgOQDLBwYs3Vq1dl1qxV
+        WsJDMXidB8bqVPGRI+fpdgtsywCLZJo4cyAvXbqiYNe6zWipcF8nDc8p/WncxJb+NG9BPtI2svfps1jG
+        j5+gwy3YAwdwvX79i8KWxBAks+9+kIx8+aGFVoZWLgAyvrOG/uyzZ88ZkBusJTx16owxADlBmjefqh0y
+        W7Zs0x5tWOTHH38mH3zwieYjjx8/I02bDpb7AqU/TZquMKH25kg+MgKSfRdpt41rSXT7bWdrK9nQb3c/
+        SIZMMrSytXIBkFi8WEN/9oiRc7VgnBIeGCTbwA4aNEfrGvftO6CKNuDIeDOUaeojV67cZlhkh0jpzyhp
+        0HCOTiEnH9m8hQ218SFDZ8ukSVNl2bIVgZbEWyGTLEH3gaT52kMLrcys3ABkvFjDlgx79x6VB+oOUeGl
+        bt1xUu+hydKw4RSZPXupbNq0RedFwiKvXftcnV0OKf3Jz18k95lQO37qjw21LUg+3XKHgiRbyVJnSTsj
+        RehffHEzBMkSdB9IhkwytLKycgOQWLCzBrHmtdcumLB6nA2zH8iXevUmG5CcKv36z9EWQsaa0aNNHvLz
+        z7/UaeIA5tmzL0urVqMMSEZKfx66vfQHkKSQnA3AgiD59tvvFjJJyn9CkMy++0EysghCC60UrVwBJCwS
+        sebnn38uFGtmzFhRGGYTYj/88HRp2GiqDrJgqO5zzx1XUGRALqPNqG8kp7hr92HDIDvr1J9atd3Un1WR
+        fGQ01M7rvF67bRhuAUiy5SzHAyTD4Rbl20MgDi2ZlTuAJMxmzxrEGrt/9isGFIfZMPvB8Sq84O07zDSA
+        tlqVaIZXAIyMNYNJko9EnV6w4BmpVLmzVK5M6c9YLf15/InY0h9C7dZtNupwC0By5co1hcMtvv7aDrcI
+        WWTo2XAetrS4UnvLMGdSQsw6RSikOoMN6BAP2fsdnz17rpw+fUbFy9BKxsoVQGLxYs27774rI0bMLwyz
+        GZL7SP2Z0qDhdANoi+WZZzYqoCGyAI6A2mef3VCA06k/eeOkQoVo6Y/b8CuYj8TbttsgoyPhthtuwQL+
+        +utvdVGHIBl6ph4ExuvXv9SyNLYSYV94RvJNmzZDp+E7YAQoGd5y8+YtTTmFVnJW7gASFukGWHz99dcq
+        1mzbdlBq16btcLQKNeyPDUh26DhLc5GwSJ7E5CIZaYaTjwQ0jx49KY8+Gjv1hw2/oqU/DiR3mOOtN0xy
+        mi5YunbscIsPdAJQONwi9HScBypCH2maW7eYVnVd3nzzHS1Po2WWfZdYZ3R3AYr8uWHDM/LOO5c0F++M
+        lFPw36Fl18olQLoBFuxZ4zprGjYcpWH2gw9OUHCs32CuATvz5J2wUIdQkDtkAcIiWZCo0YTdtCJu3LhX
+        KlfpHCj9iU79CeYjm7fYKp3y1kl+ftHDLUImGXoiDwIjD1baWSk/O3bsuLa4LliwSLcFcWzRDlKZobW/
+        rH2f/fnnX5G/hZZtK3cAibnOmnixxoXZCDWAXP0Gs6V585nmabxSx6GxRSzthyxMQNLmediK87yMYsOv
+        wtKf8YZVUvqz/rZQm38DkmPHTo4Mt9is4RD1lm64RQiSocc70QXtquykyfR61iF1ulRGbNiwSebOna8D
+        nB0wFhRMM75Wtmw5qeuc9c6694EkP/vDRFVF4GdoxbByCZAsiHix5vXX35BHHhmuYTZlOzDIBg3nGZ8p
+        kycv0nmPFHzDGMnzwPgASorIUaXJR7ZpO1qn/tDjrVN/mtoNv2JDbf6+Xbp1X6VMkuEWmzbZ4RYffXQt
+        HG4ReowDjDw0f/iBDei+1pQMba8HDjxbKLy4/CLracyYKTJixBoZOfKYjM0/JRMmnjDr8wOt/yW1BEgW
+        ZX/9FYba2bZyCZCYE2t++OEHFWvorBkyZIEO0SXMpmynYaMFyiSbt5ihgyxoQWSDL3q0EVcAM/KRABul
+        Pzt3HoqU/nSXWiZcJ5fZ7LFVJtSOLf1xINm12yqzsCfrcAuGZACytDaGIHl3O9+7E16+/ZY9laLCC7W5
+        5MWJPoKKNLntrt3WSMdOO6V7j4MycNBzJqo5YUDzlEyewrT7jzWtBDEoCiT5eQiS2bVyC5CwyKBYwxi0
+        9Rt2S40aQ2yY/Qj1kAuk0aMLpL4Bup497V7atCBS4oOSDZCxgOmzBjT5+bx563UKebT0Z8FtU3+s2wEX
+        drjFRA2Rtm/fpYXpdO3AGEKQvLuc75r8IqVfUeGFmaSnNcXDzNKg8DJ27EQZPny6pmxYS0+33CmtWu+W
+        Dh33Sc9ez8qQocdk9BgDkgWnZNHi0/LlV1+rak0Ovqh8JP+XiGWGlp6Va4AMijWUPZw/f0Hq1RsmtWqP
+        knomzCbEbvToYv2z2WPTI8XjW+T48ZO6/wwsEiAj3KaQnNIfAK5Pn6kxU3/shl+0Isaq2og21En27LXM
+        LPqJMn/+Qt2GltwSx+PY3DC+myn0O8cBRh6GdFexpohILly4qE0KTnihhtYBI6H0wIHzpX2HjdKyFWvK
+        PXQtSLZus9uA5j7p3eeQDB32vAm7T0rBuFOyavVLZq1+q5FTIpBEtCniv0JL08otQGI8KUle//TTT/LF
+        F1/IlStXZObMlVKzFlsxjDfMcbYBt8Xaa03I3aOHLfuhvoyebJgeLBIgIx/5ySdsL3tJDh8+IQ893DtS
+        +jMkYekPziLvP2CBhkwLFy7WMIobhNCKpHwIknemO+GF9WOFl48CwstGHZkXFF5GjZoi/fsvMAzxmcj6
+        8Tsg2abtbsnrvF/69jsiw4YbkBx7UsaNPyXPHrqoog0gmYgphiCZHSvXABkUa27dumWe3B/Ja6+dN2A4
+        woTHYxTYGj26UBo3Waqh8sOPsNWr3QWRpzt5IXKQgBhDcWkfpPSHsovduw9L1apdpGKlHrb0pwFTf6Ib
+        fkUXtA21YZKDBs3VcHvRoqUayiMIEb67vm3fTRZ6+fNY4eXmbcILwl2wsHvMmEnSy0QZ8WyxKAcgW7ba
+        JW3b7ZEuXQ9Iv/5HZMTI4zI234LkqVMXYkQbH5N090ZoxbNyDZAYC8SJNdevXxf2rOnbd46KLPXqTdLw
+        unGTZdLYhMkNDIvslDdbuxMIhRFVKBiHRQJi5CNdi9crr1zQ0p8KFTra0p+60ak/bsMvu6D50y78Vq23
+        yeAhjEmbonMpGdxL7WVwApDvhgs9993lF6MdL1/oA5bSsaDwElSkhw6dJd17rDBgZx+i6bgDyXbt90q3
+        7og2R2XkqBOqbE+bfsa890cKkqFoU7JW7gGSJ2W8WLNy5Rbdr+aBugUaWtM+2KTpcmWTj9SfLtOnLy4s
+        HnfTeSjcBcTIR1L6w+Kn++bJp4baqT81Bnqm/rgFbUNt9+/hw2dosS+zJNlpMfgeIZMsXx4UXniAfvrp
+        DU3D0CBghZfl2n7q2CLAOGrUVM0vRtdHZm5Fm10mJN8rPXo+K4MGPyejRlvRZuq0E+bB+1Whsl1UPvLv
+        v/0MM7TU7I4ASBLWqHtOrCHMbthwhK2JfHiqMr+mzVYok2RA7mOPTzcLe6W2dAXrF7kJbCEvpT+faunP
+        vn1Hpe6DvSIbfg3X0h+74VfsFHLLIi1Itm23WfNNbgLQkSPPFYbzIUiWD3fA6DpeWA+24+WElouRawYY
+        g8LLgAHzDZht0HRLdF0Uz4OiTa/ehyLK9kkFyZWrzpoH+ne69pOJNv/8E4JkJlbuARIjlIgXa+isAdAe
+        rDdBw2y2VmjabKVhkwg2M2XkyAWydu16ZXgAoQuDCaHIR/JvV/oza9Ya3Vvbbvhlp/74S3+igEm+yU0A
+        oryInOfly0wAssMtQpDMTXeKtHtQkpNmDfCQY0tgKhWCrYDkF/v1X6gPxeg6yK4/3XJXoWjTp+/hQtEG
+        ZXvHjhc0vZRM2Q5D7czsjgBIFkW8WHPy5AuG7SHWjDV/zlChptljqzXUbthorgG3mRoCb926XffSpvWL
+        EArwcuEUpTqAGgn4AQNmmFA7T6pVGxAo/Ymf+rMjhj0QZuXnT9TaN5L3TDgnvwkj4T1CkMwNBxSd8MLD
+        EWHNCS90XzGYhNFiQWAkjO7RY4UCYzYZY1HuFW0MSI6fcEqOH39LU0zJ2hF///3PyL9CS9XuCIDEeHoG
+        xZq33nrLLKbpKtY89NBkzT8CkLiySBMqDxpkd0Hcv/9ZLctBoCGk4kaBTdrSHzv158iRE4Z59o2W/jw8
+        LVL6sykm1OZmCd4wbdtt0qnkgOT69Ru0aBhmSiFx2Lddtu6AMSq82I4XK7zsV+YfVKQJoynsZnvg0gDF
+        eHeiTdduB2XAwKMmQkHZPmWilJPy7rsfq2jja0cEHMlFEmYXJeiE5rc7BiBZBE6s+eqrr1SsWb58kw6w
+        YN8ZynSaGkB77PG1mo8kTG7SdIbMnrNUi3lPnjxtWMOHyhwBLlfGESz92bp1v1SqnGdLf2q70p81ntKf
+        2JunY6f1mqtiAhAlRqdPvyAffPCxCkIhSJaNxwovn98mvEydOt0Ao80v4sOGzZC8vHWaOgl+t6XpTrRp
+        38Eq2/0HHJGhQ4+Zc6OY/DmzfmPbEWGMf/xhBZwwB5mZ3VEACYtkgXz77bcq1jAG7dFHR6pYQ01k48ZL
+        FSCpZ2RPbKb99O8/V5nC3r0HdC9ttwc2eSjHLGCWhFz8f0HBYqlwX3zpz/rb8pHxDKNL19XmaT9JGQnd
+        PPTlIg45QA5BsuSda+w6XogOGDVGrerzzyO8bJdFi5bECC/kFwcPniN5ndfGfJel76wlOre26zqzswE2
+        G7DeKm3a7jCscrcBzd2GST5nHuhfaS7+99//CPOOWbA7BiCxoFhz48YNuXz5smFtq7SzhrwhxeIo0ABa
+        s8dgkQsNwM0w4S+TxzerQnn58nuF4S83EyyDf7vSnzNnzkmTJgPjNvwKTv2JLux4kKQmjpuPCS6wVsqI
+        uEkBYd4rBMmSca4rjBFgRCQjInjtNYSXYyq80PESHByB0xll2WLsd1i6znsDilvMmn3GrNlVZr0u1koK
+        1h1rut5D1PrONGuQtb3csN49wrT9RPnI0FK3OwogWQyEF+RiEGs+/PBD2zb40HBhgAU1kajZACRMsnHT
+        peZnhiHkzdb9a2hBdMMmUDEBLcc4bI/tp1r4ffjwcXn44T6FpT/168+MlP4wYDc2Hxm74Hdq/oq+bSYA
+        bdu2Q4UAWhwRB0KQzK474SXa8fKh+X6d8PKMfgdB4YWqg169lpaoIp3MmRqF8EcZGeuUPDf5cyIgIpaa
+        NYdJtWr9dbO5ihU7y3335+mIvkqVeykReLrlHAP+l8xaSlwfGVpqdkcBJGZzL1as+eyzzwygvSmtWk2S
+        WrVG6lOX3mxKdOiIafYYi2+RefrOlBkzF2t+EFbBfMhgOU70JqMQ/SMVdObMWSf3Vugglav0uq30Jzga
+        zZez6tdvUSFIkvOif5cCZN4DphOCZPE8qEiTHiEqoN6VNArpFDpeCusXjVOzSgqkLIQX6w4UN5k1BChS
+        aTFfhUAe7IiClJjdXxEwbC//+ldL+Z//eVr93/9uKfff31aefnqQbNq0yzzcP9UUExUdPsEmtPTsjgNI
+        nphBsea9996LijV1x5twZK6yPUp0ALQmTSkenyvt2s+MFI/v0puJuY4OsIIJfXKUlP6cO/eq9O07LTr1
+        50Fb+kMoFD+F3Hfj9TUgiQjApJddu/YW5j9DkMzMXRjN92S7oW5oB9OpUy9oWyklXYhkwR5p8osAY+s2
+        5I9jv5+S9Wg+kdQMQh9laKxDplDVqTNGatQYZNZVb2WI997bVu65p3UhKAKQDz/cTfr3nygLF64xjPiQ
+        nD9/XlNKVHCEAJk9uyMBktDCiTXs5XHx4kUDXk6smaFPaBikBUnKfsjrUDw+X4vHDx06oqE0CrZjkdx8
+        hNrkI13pz8mTZ82xBpkneJdA6c+KSOkPoGiBEYBEgQzeJPyMXt3x4+0EoL179982ASgEyeTugJHyLPfd
+        UPjPhmqkMBYvXqrF+g4UmcE4ZMhs6ZS3vpQZowcUzQOViVP16k3UEX3Vqg8wTLGHMsV/BwARr1ixrXkI
+        d5OePfNl3bqN8vzzx+XMmTPy0ksvyeuvvy4MjGatQwrIQdJd49Ts0DK3Ow4gMRdmB8WaSZMQa+ismWTC
+        ajsE98mnNhqghEWu0G6bp1uyf81yvbFQmUnmE6ZxAwKS5AgBL4CTPWgo/WFI7/33d5JKcaU/5COTsUh+
+        BoshD8aNzP7HwQlAIUgW7e77CAovdLywxe/GjZtl/vxF5juPzmBEkYa1t+/wTCkCowNF8okbTOSCyLJI
+        H8aM46NGt2rVfgYUu5s11NGEy63lXyZkdqB4zz2t5LHH+pr1sUDWr98ihw8fVVB8+eWXzcP0gtb6srbJ
+        tZNOYhYBqSXYIyJNos6a0FKzOxIgfWIN48vq1BkqD6hYM9ss1pX6JMcti1xiQHKWjB5tWxAZXQUAknd0
+        XS+4r/Rn4sRl5gmfJ1Wq9omU/izUGyJZ6Q9OjpLi44kT7QQgwiWmULvhFoCkDyDuVuc7uF14eU1bRhlA
+        wmT32K0MpmrOt01bHlix1z77zvcbzScistiaW0btIbIU6EOaErFKlbpGQLFVDCDWqtVJnnxyoAH0mSaq
+        2GeilJNy9uxZeeWVVxQU3377bW2lZU2zoyettTdv3jQP8u/Nevk5BMcs2x0LkCwQwgwWDk/XixffNAt2
+        jAllEGumanhDvhC18IknSYzbhdyg4TTDPpZFisft/jXkHp3CDGBF81y29Of06XPSosUIzRfZ0p/JKZf+
+        4IxJGz5iuo5JYxQbA1cRihjC6sDZBxZ3kztgDAovlEkxd3P16rW3zWAcbRhjt+4r9drGX+9sO+kURuBZ
+        kYWIZLlGJAxKQcBjslRV8/C8X/OJ7eRf/4qCIl65cjvp0GGoiV7WagfP8eMnFBRfffVVE1G8oSP82LmT
+        zelYy4AiD36GsxAlQQRIKQGMEIMQHLNndyRAYiwQFgxPVSfWrFjhOmvGS0PdhoFQeHNkYVM8TtnPbBOK
+        zdWbLlo8/qWyOW5SQNJX+uOm/txfOPWH0p9VenwLkhYYiwrvaEkcMWKa5suYLUioeOmSHW5xt4Jk8IHE
+        Q4p9hHhw0Du/a9cefZgEhRc3g7Fbt1UlHEbH5xPt2rEiy2QTqYyWGjUGG6ZoRZYKFdrFMMX77mtj1l8f
+        6dRplPm+5+o8SZjiiy++aNbba5ozJ6fImnWgyPbGgGKQKUIAgqBIaol1H4Jj9uyOBsh4sYancZOmo1Ss
+        eSQi1rDAn2q+xQCZzRHBIikeX7JkmWzatKVwwASM0bHIIJshzKP0h/zXkiWbNR9ZuOFXQ//Un1at/Tdv
+        m7abTYg/Wbs5AGgK191wCycW+YDkTvMgMCK8UJfKQ4g+dkbUxQsv+LBhM3U4SMkBI8eNFVlIy/BApWAb
+        kaVqtQFSrVovA4Adb2OJeI0aeeYhOEt27NinD0DaWzdseMYA/mlVoWGKtMiyVtmpkwc72xojulCVEQRF
+        ANExxRAQS87uWIDE4sWad999V8aMWaoMr149Bli4NsEtxm14pDMjG8wxLGR2ZP+afbp/DewF1uhYJH8C
+        WpbZUPpDyPeK9Ow52TCG+NIfNvyKL/2JvwGts1+JG27BFBlAgTwbQHGng2Q8O//wQzZie0Oee+553Xs8
+        fvMrFV76LpKOnTZ4r2Vx3RVt+0WWCWYdWZGlUuXuCor33NNG/idQo1ilSnt5+ulh5jznmQfeVjly5Hkt
+        O3rxxZdM+HzePLDf1ML1F154QUNocoqAIg/0ICiyhinZCVli6dsdDZCORZKjIZFNYnvrtv1S3YQ/DzxQ
+        EFGcbRhsWeQzkZtgoWEGCCeLtBWNG5Rc461b3ylzdDczLCdaXnJd6+6ooWzShNKfzroFrSv9eeLJ+Kk/
+        t9+QzgFJylHccAtuqg/u4OEWDhjdDEY+q938CuFloxbUB4UXgJFWwFatS6J+0Yksm80DE1BcKY0a2U4W
+        JtTXqDlMxbjKVRBZOniLtps06SczZiw35/+cRiCkBNjeg89ECRJr6f33P9Q2Ux68b731ts4OYI3yMHf5
+        xBAUy97ueIBkgTmxhic0YXazZqMiYs00zR1RD0noZJnCevMzkuxzIy2Iq2Tnzt2F+9dwEwdZJIAVvbEJ
+        498yN/Uuwyg63Fb6AwgHWWTLVvE3Z9Q7d1lrQHKSdn1QtnLmzFk9/p003MKxcCe8kE5AeKHciTF09KwH
+        WwFHjJymm19lV5G2oTNb+DqRxU6ej4os1LhWrdbHFm3H5RPxunW7SY8eE2T27FWybds+BUXKxFgz5LAB
+        RbYUJhXDGqIhgCoFHrjff/+TAcZvzO+dV+YIY3QF3iEglr3d0QCJsdCcWEOim1BmxYqNJjxia9gJkRZB
+        diukRZCbhPzS6kgoxSCLRVo+Qg0axeEAITe1A6jgTX7jhi39gSkUFCyS+yt2Ckz9ofQn+dSfoDPcoqAg
+        OtwiuD1EeQZJmDfX7LvvbHrCDgE5q73wPJBgzi6MhkkjXnXttsp7jTLzICgGO1nmqMhSu/ZoE2UMksqV
+        expQ7CQVKrSNAURYIqCYl5cvy5axNo5pKgRQpOSItAA5U9IusOFr166bB8CXunaINvj+eKj+5z+/Gbb4
+        h1lDDHv+wwDn5+ZndqZjCI65YXc8QGJBsQZVkKd1kyajtKXLqs2u+2WbcSanbIiU/cyTp55CsFmhxeMM
+        UgWgXDsgNzsg5QSFYOkP+cj27fOlAlPIqw/UG89X+kOoXRRI8vMuXdeoSstE661bd0SY7HW9yZxoFA9A
+        uejB62SFl+sR4eWUCi+IYnYGY6AVcMgcnaWZnRmMTnl2k3FsBxWDk8kVE1FUrzlQqlbtZQCxg+YTg0yR
+        vzdu3M8A9nzNJx44cETLwFgTgCI1szxAYcEUrSMswYodKPIAJbfK5wcMuRZ//EE+mZ0HuUb/mIfre2Zt
+        /WD+L/EeM6GVnt0VAOnEGhLfqIOUUAwessCKNQa4mDAeFVJsqGVVysWGVcyUMWNt8ThF3ITQKNcsdAdO
+        /OlyaMHSH4rTa9Zi6kpRpT/25k2mvPbus0QZFUXQ9IojGnEDctPxvvFglEvurk20LIo5nRd1jx5YMW2W
+        QUXazWAsvvDCNY3mE28XWWwnS5VIJ4sqzzGA2FJq1Ogkjz8+UIYPn62DIKgqOHXqjDJ5vgPWAnlnogY+
+        F/3fdEHxOUmF8CDlc8OWHSi69Iy7PoCjcxglazO4fUJoZWt3BUDyJCZscWLNBx98YBb8bhVRSLwTWsEo
+        YBeOZTzxJDdUZPJ4E3ZBXK672SGYsH8NDM6xSNzlI12Hh5v6s2bNDqlUKc+Ea70MYx1r3stf+tOyVdEg
+        CYD26bNY2RWzC6kBJIwnwR9ks7nkXI+o8HJLr5kVXo6q8OSEl3HjIsBoQmlGjbVuU9z8YlBkWa9T5LWT
+        5eFpKsxRB0t9IiJLhQqxk3HwChXaSKtWw2T+/LWyc+cBOXr0uH7n8SILDQSILOQT+b4pxXKg6Lbt4PM7
+        QAyCYrwHQfLWrW+14oKIJ2SRZW93BUBiTqyh+wCxxnbWjNb6tYfMzUP4Sz4KgIzeYGsjtW6zIpPH16qA
+        4PavCbJI3OUjuVEoLicHxdSfPn2nBqb+TFBmGl/6kyjUxvk/lFtABdZFcbEdbvGFglCugKR7ULicLCEn
+        4ELrJiw8fvMr2iwRXtq2zXQGowudqU90Bf9WZKn3kBVZatYyoFiFIv7OhikaUAwwxXvvbS2PPNJL84nT
+        p68wrP9ZHXThlGeXT4wVWb6UL7+0oOjyiYAi332qoBjvDiDJR3744Uca7RD1sG5DKzu7awDSK9as3KJl
+        G06sYXCFBS1q37jhKPuxDOTxx2ca9rZUi8e5gQirAEJuCHcj8Cf/dqU/5NkIwU6fftGAMF0VXZS1PvTw
+        dM1xEsoHt4q1IBkPALE+aPBcBUmKpfftu324RfyNV1ruHg4ABqBthZcXC4UX8otOeLGMcZIq9UEWnbrz
+        Gtr7rMjy2OMBkaXeJBVZyPtW03Fhsf3OzitVaie9e08yUcEerU/kOyWfyABjQJF8YqzIUnQ+MQiKvmuT
+        igdZJPlIStJCwabs7a4BSBYZT2PKKOhOQKxh+4RGj45SlmHzg+xS6PKDjkXasg86Jnr3nqMDV+mXJdwC
+        CFwLolvoDiRtaGn3VQbENm3aJ9VrdCvc8ItJ5q70J3bAbjwYxDq9xUOHzlQWhrDhhlswVIObNnguJe18
+        VkCZa/DNN0HhhY4Xu/kVBe9OeEGRHhSZwej7bIk9KrI8Ydh3s2ZRkaWuE1lqDNRxYYgszFAMhs8oz08+
+        Ocgw1lmybNlGVZ4RWVw+EZGFh1lQZLH5xG9UfPOJLJkwxUQeBMkvvvjKgPEts5bCULss7a4BSMwn1vTq
+        NUeT9U6sIfcIi3y6pQvbYJGU/dhi4Zkzl2jx+LFjxzXsglFww7hFzs3i2JQNM+0eywAqk4J0w68qfTT3
+        yTHJkzHoIAgGifKRzocPn6FMkkGwTLLh5nYTgEoaJIPAaDe/+kwBJii8MHjDsUWAkR7pDh2e8X6Wot2C
+        IqPjrMjith9wIstw7WSpUtWA4n0dYrpYXNF2gwa9zTksMA+1Z7U+kXwioMj3wYOL3m4nspDT5UGDyAIo
+        BkUWHnp85mwCYrwHARK/cuWqef+fzPuFgk1Z2V0FkEGxhtl5iDWbN+8JiDVzC1mdDX3tzQmI2bzWXMnr
+        bIvHEUoIx2Aa8cwtCCC29OeGhpzcmHl54+U+Lf0Z5Cn9scCYSqjNvilsXo8CzPkcOfKcvgesFZZTEiDJ
+        5+JhAHCQgyMnB9BQI4rwgsoOMAZrGPv0XSzt2pNKSCWUtqGzzQG7yTiRcWG6/YAVWSjaZlyYTsaJC5+r
+        V+8knTvny4wZK2Tjxt0qsrh8oivaDoos1GH6RJYgKDqm6Lsm2fYgQFJI/sEHH2rU44rHQytdu+sAknCF
+        sMWJNQwdffKpMRr2khuki4a8FuBoWeQ2BTBXPN7o0Zkya9YSLR4P7l8DcARvIv7ODQZ48v/cjISfe/ce
+        ldp1ukdKf4bFlf4EQ+3kgMJWAaNGTVGQJPSnJfLdd9/T98smSHKcICP2CS+uFZCJOgB3z17LUqxf5HMG
+        Oll0Mk6syMIDjCqAipUQWdoZIIwyRSbjPPBAV2nbdqQqz7T3uaJtl0/0iyx0skSLtgFFFzqXNFNM5kGQ
+        /PRTtv4IayPLyu4qgMSCYg1z9Rg+umjRZgUrCoZhKzBGF2a7vJctHrctiK1az5ClS1dogTOsEPDzldsA
+        LI5xBaf+LF+x1YR/nXQnOorVAQPXzRNkWslYJM6EbIAJEYT2PDt96AO9+QG1TG9yXueA0QovXyrzQshA
+        QXcdL8HCbobTIrwk3+MlqDxHRJbIZBxEllq1R0vNmoOlSpWeUqGCHQIRzCfy94ce6qG52FWrtpiHziE5
+        fjzayYK674q2fSILn6eofKLvWpSEu+vL+wPOnBPnhrNefv2VwSR0HP2mjQ2sVxdqhyBZenbXASSLi84a
+        J9Z89NFHhnmdkocfGRERa2Zprou+7CCLdMXjdl/imYYl2f1ryP/BUGAk8YDkbgJuRAcyKKOIAgMGzJB7
+        I1N/UNERHGxPeGzpTzLRBmfM1+jRU1QQgdkyRgswzgQk+V0Ag3N26YG33rKbX+3YsbtQeAmG0ezxkrgV
+        kM8TFVlc0TY5X643nx+RRfdkqWxFFkAxCohPS9WqHaVZswHSv/9UWb16i+Y7k4ssFhSTiSy+65Atd2uA
+        aIL3/vHHX8z5fK9MnAcr6+H119/SHnSYL58LRR32y3Wn6eDq1ffN73+hkQ9rNwTI0rO7DiAxnsKELIQu
+        7ALHHL5OnaaYmxSxxm4NC1hZFhl7Y9uc2Hxp1YpdEJfL1q3bNcfFTQkIuvAseINwc8ASACxX+vP886dN
+        WM9eJF10uhC1mEVN/UmFSXbKW2dAa7wOtyAfyDnBngAHACEZEPD/nLs7T4QXRAwYKZ9x0aIlMaPGCKUH
+        DWI3yE16jXznZEHRjQtj+wEnsswwoGj3eK5ew4os995L0XarGKbIFgRPPDFI84k7duwvHBd2u8gSnYwD
+        U3ciC6AYzCcCVCUJihzXXUfeEyZIHpEHI4NGOFfyoDBd5kGyURvXlgcta4kcLt8fzJy/M26PHS/5Ls+f
+        f90AbNhhU9p2VwIkT2CS3iw4xBqGlG7ZslsLihksERVrCBWteAJoWRZpi8dhPkOHzdOw1u1fAyuAJcTf
+        gPwbkIov/dm9+5AB5e5a+gODyrT0xznlM0wAYvsB6jUJh5mpiPhQFEgCGO7cYMF0vHATI/o88wybXy2M
+        aQUk52k3vyJPG38OXCdbn/hEochi93jmAcB+QKQyGBemIot2skRFFpgiO/d17DhGJk1aUjgZxyeywJBT
+        EVkcIPo+e6bOsTiuA0KuHe/N9eMBCGATVRDuw3LpHgLomGlJswE1rHQSwcQRtYJpinifMWOm+R42mofC
+        WfM+YfF4adtdCZBYUKxhFt+bb75pbuwxOm3cijXRzhqbi7Q3PoMOXPF4o0bTZe48t3/N6Zj9a3w3FEAE
+        y3SlP9zwBQWLDXvqEFP6A9uCednQ1IJPKqIN3rPncoHlMQGI1kiABWGC9+W8HFDwJ+fj8qOcD2HdgQOH
+        lNHw+mBhN44i7XtPxxSjyrMTWaZInQfG6D49TMapVKmzsHOfA0TndLN06DBaNm7cqcyKENMnssCIGdTh
+        E1lc6BwExeB3UBx33x9gSJjOd0w5kAuRyXnCaunV3r//Wc1Nk+qgBIvWUBghdavx19Pn+fkF5trPNq9f
+        bx4Mp82xL5jv5qpZM7SVWrGGMDu00rG7FiCdWEOdmRNrZs1ab8WaehMN+C0oBCobQjoWGSkeb0znxmwZ
+        MIAWxDXe/WvibzIYRzC3BxOiWL1du7FS4b7ORUz9scCYaqiNoyAXFExUlsIUIqZWw2wAE25yzoG/u44X
+        K7zs15AO9ukUaXzkyGk6di1WeLHXAqZLKgLW67YfsJ0so1RkoWibcWH3Vogt2qbfuWnT/iZEn25C9/UG
+        VA5r/s1NxgmKLDafeLvIEgRFrqsDxeIAo/uOOCbfIe9DoTjfFeBMaoTQHkZLBQPXjIcQUQRF+4TFgCGM
+        m2voA8T8/HGG5RcY5jjZhNXLzMNonYLh7t27DcAek1On6Oh5wTwc7H7XTMGnqYFIh7XqGGSYhywdu2sB
+        MijW0LGAWHPw4HOG8QxVsYYODddZAyDYXGQkfNTicTt5nP1r5s5dqkNtrYL8vt7E3GjxNyv/huFES38+
+        U3Z05MhJA4y9belPTUp/ZujxMyn9wV3f9rhxdrgFXS2wMW5yQlKYDwDEZBqEF5gOKnj0Jp6gijR5zehx
+        3QPCDvJw48KiIssIqVatv2HCPTyhc0vz2dpFlOcZ5nz2KdvyiSwwWUCRsXGILMF8ohNZuIbu+mYCiO51
+        QTCMDZE/0FCeawZwI8Tt3LlHv2MeIuRjYdjsHRR8mMQ7OWH+H/Y4bdp0LYc6dOiQWSfsR0Pq4LSGzoAh
+        27qyLw0bdrG1K/tdU6dLKVpwv+uwHrJ07a4FSCxerGFhtm07Tm/2h1SsWaJgaMPsKIuEOUVbEOdI586z
+        ZMWK6P41MA5u5ngWifOzYGjrSn8WLdqo3SBa+mPC0oaN/KU/qeYjOV9yhYAkNybCDeEzKunBg4c1LcCN
+        zk0eFV7GS7/+C3UGI2kF+3ltyyVsuknTgMhS14os1aqzJ0s3FVnuuYfwOcoU6Xdu126UAYdl5v13Foos
+        KLbxIgtqbbCTxeUTuY4unxhkivHXNZHzGl4PuDrhhAG2dM8QursQmWvDMBJY97p1NkQmB4twwnUC6MgX
+        uglEQefaDRky3rDtCYZBzjavX2/Y5VZzvP0Khmz4DzM8d+4lE2kwP/J1TesgEBK9kAfnIU26h7VIVAMw
+        uv1pAEcinpA9lq7d1QAZFGvYLIlFunXrHqlVKNawNWwQpKxbFrnRsDxbPN648UzDwBYrCB09ekzDVkQD
+        gNB3M3Ojc9PbMDda+jNo0Cwd60/7XFGlPxb8bgdEnwNyg4fM1huYm5vwmbCbGz7IfNhJccCA+dqdE1O0
+        HSOyTJUH6uZHxoX1kcoKirFF2+QSa9fuohtVTZu2XEPn4GScdEUWrlOqTNH9TpAVsp0BYAvw8n6UzcSH
+        yJs3R0PkZMIJIDhqFBOIxsnAgeOke/cCad++QJo0GW++q4lmrUw1D5Lp0rXrdMM6DykowgwBQxoSAMNL
+        l95VZkjYDDuk5ZXhKYAhZWfkxHlgU/fo27SLNRsCZOnZXQ2QmE+sad58rNSuM0oeLuysofRmRyTEtaG2
+        7Q+GVdni8Y4dZ+k+zexfA0MK7l/ju5m5kbmJg6U/x46dlkaNBujUHzabd6U/TiyKAp9liEEwLMr5Pcpx
+        4m92nOG0PXsyg5HP5ybjuE4W9nieYq7DGC1DstsP5Mm/44q2cbYz7d9/igk/N8uuXQdNCOkXWVDIncjC
+        jMhgPpFrAbBxXVJhiUEwtMLJDwq0XHfSHLBTQBmAhjHzvdBDT4hMr7gLkaOs0C+gjB493gBegYks8s21
+        yTfXpUAeqV9gHmDjdXRdvYcmmShimnlYzjYPsvnmei+WVq2XmoflLnMObyg7dHtbI7QAiswkhRmyTxLs
+        EDCk/RUwJKIBEGGLpIBYnzjRTgiMpW93PUAGxRoWMLmfiRNXBcSaqKocDbNhkbQgRiePM0Bh/PiFulVr
+        UfvXxN/ghH2AQ7D0Z/Pm6NQfW/ozW98DQA7mI1NlkTgCC8MtuOHJLw4bNt0A42JzvM3KUG8TWczDgck4
+        bGdKxw+TcYJMsXLl9rr9AOPCli6l5fJ5r8hix4UVT2Th3/wfv/fLL7DCn5VtEiJTwgQbBYR5bwaIMALO
+        hsgbCkNkmLPLF/qAEBAcMWKcAflx5roUSIcOBdK0ab65HvlaWaBgaNYCYEjqhaElj5jvm+vV0DxIGjde
+        KE88sdQA4ypp32GddOi4wayhXebzX9FwGUAMgiF/56HswBB2CBjirEcHhiFbLHu76wGSBcjC5AmOWMMc
+        vn37Dkv16mwNa26S+gDUKgOIdkdCC0wuF0nZj2WRDRvNk5YtZ8rixcsL96/hBiZkBACCN33wxgdAXY+z
+        K/2ZOnWlbgEQX/qTaT4Sb9V6qwwcNEfatV9twHa9+UxuY7LoHs/Va/SXSpW6yT0MgfBsfN+wYW99CGzb
+        trfIcWGxIkt0Mo4TWRLlE901cflCXmNV5M+1hCpYW3j48HM6a5Jc6urVtraQXGsQCItihWPGjNcQuUsX
+        A4TNxhqmbvyhAgOC4/Ra1FMwnGwiiKkKhvXNNSLX3LDhPC3vogOI1kiYNlPn7TT6ddKm7SbJ67xdunbb
+        Ib167TTgfVXBMX4rV/7+558WDEMgzG276wESY6HyJCf3QyiEWNO6dYEyuIcemqo3Q1SsAXAck4y2IMLA
+        GjScZW4+24KIIEK+jak33OzxzMgBAkDB/wdLfxiw27LVyMjUn6JLf/BETBLGGSuyRCbjmJu+rgFeRJaq
+        VftIxYpdVGSJn4xTq1ZnaddupGGd82XjRrcnSzKRxXayxOcTg6CI83cHhLTfwSyD7XcuRKYygGuJEk+O
+        lx7wBQsWaYiM8u5CZB8Qjh5tWWGPHgXSqVOBPPVUvjz6aL5hf4YV1rUh8oOGMSsrfHiaVg9QvcDg3Ybm
+        gceDiejg0cZL9SEIGFJdwPdNfpZryrqww022mIfPduncZY/06LlfevY6YAB7vwFIWlDt4FvHDi1bDIu9
+        y4OFAGmMRcvT3Yk17733nu5HgiBBeAVzsIqyC7MBIBdq2+Jx14IYu3/NGRUHCCl9LDIIkrArgAWAgCmd
+        OnXWMJnecn/FrpHSn+jUn1iAjP49el6uaNuBohVZ6hhGTG6zStVeBhQ7yb9VdY4CIrnFChVay9NPDzXh
+        qQ2dfSKLm4zDuVJLSXlMvMhCSOxA0YEhQBlUkYtqv9uyJbb9DuGkqPAYRzxxAkqfPuMMaI01126slmvF
+        hMiA4cOAoQmRlRXO1lwr18eCIawQMHRAuFq/dwuGGyJguEn9KRNRWGe7YB5a26Vtu10GIAHHZ6V3n0PS
+        q/chw6zf0bCa9cU6c/bHH2Gxd3mwECCNEd44sYbk+SeffCLnz18wN0S+1KkzWstaYBAOnKL1iDbU5ufc
+        SDANbrp+/eZq2Jdo/5qgw6gAFMDDlf7wOkp/7jHMLvHUH8J+t0WEE1koYkdkmawiS41CkaXTbZNx6Heu
+        X7+3OecpMm/eGhO2HrxtXBj5xKjI8pmCW3wnC6DIZ8T5O58FVgyDtrWFvvY7agu3aKE9JUeEyE5FTgSI
+        hMd9+hRIXl6Bufb5BsyY5QkQjrPCSSRE5qHwCPlCwwoJkS0YLtDUggXDZQEwhBWujbBCB4Yb9buNAiHb
+        AlswdC2ozmHyrdvslo6d9kn3HhYg8XXrzxbmHJ0KHVxzoeW2hQAZMccig2LN6NFLI2LNpMI8oAuzo7nI
+        YPE4dYIL5LHHZsjixcu09xYGRl4OsIBFFRVqA5KACywsWPrTu/cUDbWrVo3d8Iub1hZt243vmzSxIgtM
+        iY3IqutkHPq8O8WEzrZou63OUOzTZ5I5x10xk3GK6mQJTsYBFAFAgJE/OWcrnHxVWFtITpLjRUNk236H
+        0u9qCxP1IY8dGy2pGTx4nAn1881nRDSJCCcmRLb5wkkGDG2IzIOMELl+A4AwGiJbVkiIvDIAhjZEhv1z
+        DS0zvB0MbZoiCoSxbD3WW7baZcLsPdKl6wFljwDk0GEHdT0RnRBmB3ONYZid+xYCZMRYuCxg11mDWLN/
+        /xEtcVGxxoBPrFjjbpYgi4wWj/foMVuZEbMTyddR7wezAgjjAdKBJKEovxMs/SEf+cSTQw1I2lZEZlbC
+        JBm7Bhsib0YIWbvOCKlRc6ABxG7ayQJTDCrPtPe1aDHEANIiE75u08GybjKOE1lsPhGRhT2ercgCKAJ+
+        nBN/8m+AECbJ7wKkr7wSrS0kRKa2kBDZ1RbSfpeMFQKE5As7wQoNc2/WLN98vgIDfggnTkW2rFBV5MIQ
+        GeGEENmxQhcirywMkR9/IhoiR8EwCIRBZpgYBBO5Y5Gd8vZLj55RFrl27VFlkajWQdZoc5KhOJPLFgJk
+        xFzIwyJmMTuxpl278VasMTdmY8PSuMEsQLobwzILW/YDm7MtiNzEFI+7/WtghIAMLNIHkDggyf/Hl/5s
+        2LBbKlXqqMNjK5lQme0a2I2xeo1BUrkKO/d1NoAY2+/MTn6ILIwLY08WQmc3GScosiAKAXR24/vPNadI
+        CA0IAuoANaE1vweIutrCZ589HAmRN8eEyAgniYCQcpohQ2yhNcJJixb50qiRK6eJD5GnmRA5KpzYBwPt
+        nYv0u3AqcnyIHJsvjLJCvqMgM3TfXTzQZeqsCVhk+w57pGu3KIscMPCI5lt9uxT+8cefkb+FlosWAmTA
+        eKKzgEmqO7GGusRatdkadryGbdyE3GQwyCBIWhbp9q+heHyOdO8+57b9awC/olgkzv/5Sn9mzVqt+ULK
+        b5iI8+9/k0tsHQOKeOXKHQx7Ha/1iQhNgCL5xPhOFnKC3LQAI87feS9YJEDI+Z4+/YJ2BjGIg9IlFyK7
+        CTXBoQy+9jt86FDbcdK8eb5heJRNFRjgG2cAMFpobWsLAcMIK9QQ2Qkn8SHy6kCIHMwVIpxYMKToPQqE
+        wVxhLKCVhLMm2rS9nUUeOHBB3DSeoFhjH8xhb3WuWgiQAWOxUoIRFGsIQZs2tWPQrFhDZ4sdIhEcHmFz
+        VajH0f1r6jeYYYBkkQIL8xUBH5RqBJmiBJtgqB0s/XnhhZcMmx0dA4Y4O/dRn9i9+3jdk+XgwaOFIsu5
+        c68qKMIUCYV5/3feuaKhO4IJuUaA8MyZs1rCwxaydijDlsLawuCEGttxcjsIkiuEFRIi53UuMOdZYACs
+        QFMTtGwmDpGLEk6CIXLRwollhRYIrTswLB1A9LllkXtjWOSYsQf0oetjkSFA5q6FABlnPN2piaTrgeQ6
+        46YGDZonNWsOj4g1i5S5cDPCFmJZJKF2dPI4N/+TT06XpctWyo4du0xoW/T+NUF3oXa09OczBThaEatX
+        z1NgrFOni4wcOUd7x91GVRSnA4rkBFGfcUJphBeAnrIjNvai9Y4ia8pp6DhZvjw6lCEKhP4Q2Xn/AeMM
+        EIyVZs3GGuCjrIZC66BwQqF1VDiJ1hZSaG1ZIUzbAmG8ihzNFTpWGC+clDUIJvKnW+4yLHKPeVjEssg9
+        e07qumJ9sc4cSP4Vqtk5ayFAxpljkYg1dEFYseaw1Kw1NCLWMPWbzolgZ41zxyKjLYgNGs6U/PwFKlok
+        2r8m3vk/V/rD75OP5LW7dx+RTZv2ar8zuUCAEbEFR4k+ceKUskHaHSkzghFSk8l0GsL9hQuXFAoniecW
+        WuGkn2GFnbsUSFvDCps3LzCfP9+ExpHawgcdK4yEyLfVFsIKbw+R2aQrKJy4ENkyQ1hhPDMMAmJugmK8
+        t2y1O8IiDxayyLH5R+X69Ru6tlhjQRZJZ01ouWchQHosKNYwXEDFmvaMQWNr2Gl6w8NwuHHjC7Uti6R4
+        PLp/zeOPswti7P415BiTsUj+n9IfQm0Ek8uX31dWyDHc2LJ9+w7oOH9yhITGMEKAcPFiC4TUFdJtAggy
+        rDUeCB0YUlZDmJyXl6/CSd0HKbS2IbLtOAmCoQuRrXDi2u8IkZkmbkNkX6F1EAhdiAwzzJ3wOFtuc5Gx
+        LLJvv2flpZeuaCmZY5GYeyiHinbuWQiQHmPhUhOJWMMoKkber1y5IyLWTFDQ46a3Yk38zREt+2lmwAHQ
+        oFB58JDE+9fwJwINoAi7pP2OshqAEfEEYIQtwgoJjdesWa/DGBYsWKzq8fTpMwwjjC2l8QEiYEhdIX3I
+        rdvkG4CivtAww/qRXGEkRC5svyNEbmBCZFdb2MgJJ4DhcuPBENnWFtp8YSwYBoWT2CLr+OuX627PGzC3
+        DrDzuRzzpT51s372p5pvMkxym3m4ItrsU7AcN36/eeB9U8giXajNnyGLzD0LAbIIg0WyiBFrGFdF+Fq/
+        wUjtTGFyjxNruFlun/QdKR4P7F9D8fi8yP41AB1F2AAgITRskr9TIO7a7wBEhBbEHfKFbKCFgoxoQikN
+        IDhmTL6MHj1GRo0ao39nlD+giDOQAfEEFblnz3EmRCY9YFnhA0HhRMGwKOEk2H7n8oVBFTk2X+hqC+PL
+        acqeGQbfPx7cHMDZbqQowG3U74/PyGflM8OKuQZcC7bc4EFBGoEHJtcMRs01pDaVlINNO8zQ/+c1HIfr
+        dOLkq5qL/O9/7f4yFJHjPJRDyy0LAbII44nuxBqGml66dEn69JmhU28erDdZb4wnAmJN/A3Jz7nRuCnc
+        /jUDB87RUJsdB5lGc+6crUdEWCmq/c4NZbDMkFC4QMHQuQPFkSPdAFfLChs3jm2/AwwfiqjIsEJYbYNI
+        oTXCSaGKHBMi315byIg3CyBB4cSCYRSE4q9HNtwHbrGgxk6KgDXnWSSwGbDncz6qwLZA++wbGGDjwcB1
+        4UHBNSKdwDXjQWIfKFxL23pap85I86AZqV1WtWoPMX8OFvb0ZhpStep9pXKVXsbZpKy7VKrcQ6pW6ys1
+        I339sPHhI7ZoZEKEgqLtWGQwJxlablgIkEUYi5XFS1kGYg1ToA8cOCy1aw/VouaoWGP7ouNBkpuY/+OG
+        5QaFjdVvANDNVNBjaCuMECDkTybUJJtbCCuk0HrQoILCXuRmjzHENTC30IXID0/RfGlhiKwqsr+20LHC
+        x5+IltREhROAMF5FtswwMSD6AM05wIbbY1vAteAGEMeAmwnfOUfKfwjrLWtbGGBtBtgM2ANsytrM56a2
+        8sF65qGg4Ea5Ecx5jOaQa9UeocBWo6YFtpo1BxlQ6y/Vq/eTagbIALcqVXtG2jS7GoDrKvdX7CwV7mMu
+        ZgedenTPPe10cLDWov6bWlS7n7fz/4mrTcWpXa1Ay2i1/ub8J8jFi1cUIGGNRCshQOamhQCZwJxYw7Rx
+        xBrG5rfvwAZVdNYExZqiWSRlKsoiIy2IrVtPMWBnZxUGPR4MHSC6uYWPRYCwfoMCwwRdvhDhJJUQOba2
+        kG0kbleRyRXeni+83aPhKOCpzE1ZWxywxbG2xpFwlN0ilbUZwKb8p5C1PQSwBVmbBba6dceYf1OHSnpj
+        uLqCmwG2mjUHGsDpp+BWtRp7bffUVksmINFdRA873Uf3VjDARvvlve2044g2TACLHnULblGAs+B2O8Bl
+        6hyTvXnq1Mkzn7ubtGw5SHr3nmwetsdUrImf8hNablkIkAmMhRsv1ixcuFnDJZhaozixxgeSMCUABGCy
+        YewMGT48FhCZaO0m1DDe3won+QY4DCssVJFdbSFgaENkABewAXQKQ2QFQyue2DDZltVYt4pyrPMzfE0E
+        PA2wmdcCqCjSytoAtttY20wLbOZBoeq2Aep6DwFunK8Bt7ouHI2yNkqlaI9kWnn1GgOkatW+CmxVq/bW
+        ULRyFROSAnAG3Coa1nb//XkW3ApZW1tlbbHglpi5per//ndL835tDHNsKzVqtDfn3ckw8S4m/O5urkcf
+        eeKJ/gbchkj79iOlc+d8A3ITDZOfbBj9VBk3brZMm7ZAd7dctmyNllRt27ZTBTW2cj1x4oSwg+HLL7+s
+        D1lKx77++utCBhkCZO5aCJAJjJDH1USiPCLWUH9Yu/YQcwONMewHsSa4NeztAEl4qS2Ihq0BOoDM009P
+        lX79xsuTT44zQJNvbkRqCw2w1EM4cSFyfNcJOUM7sou8YYOG8/VY1g0ri/ydn9v/J7cGmM01r7dhKOcL
+        uKJOwzoBNheOOtbGDEW6hgC2unVHmb8DbkPNn0MNcAwyPsAwOAtu1ar1NgDXK8LauihrIxSt4EBNGZsB
+        tAhjoz9cJwspkGWXqcX7v/71tE4tgrk1aNDVXOveBtwGS48eI2To0AkyYcIsmTNnsaxatUG2b9+t5VJU
+        GNBNdOjQYTl8+IgcOXJUjh59zoDc8+Z7Z1sJBgYzH/O0utupkK1bX3yRzqVzwhauACGbdeHsYMh2ruxP
+        w6ZdbAzHNgyIf27CTwiQuWshQCYxFm+8WNO9+2QDGiMMkEXEGhNewiLdnEBCUZtjswICDBKWBrsDuGBd
+        lAs5MCr0B0woaZyfWzcsLOIUqRf+vA6vs+2PD+jvm9fWBsxMGBpha5Qk1TShKIythubZBhhAs3m2KlV6
+        q4iAA27k2pgqTkjKHjT33W/C0ghrIySN5tpcvi0Icn6AStVhbgBZ1artzbl3NMDdxTDiHvLYY73Ng2Sg
+        tGs3TLp0GW3Y9QTD2KbJyJHs0jhXJk2aLzNmLJH581fI0qWrZc2aZ3S8HJtzAXKOueFsuxoENkAtGbC9
+        +iptmhbc2JUQZ89qnI3dYILUxwJ6dFsxHg8nysABQhy2yHautK0yAIXtXHnYEl6TvnGlPqHlpoUAmcSc
+        WMPTnrAIsYZOFdgUoSM5M1gd4kGTpkERYYH+3IajMwxTm6KgCKgxiadatQFSxbAwC1aonlGHlTH1GwCr
+        imBQxYSflbvrpvzsQY1wULkKoWieFQ9iGFs0x6aMLSa/5gepVBxGxjEANJzBGffe20onkOP33dfGnE9b
+        BbsaNToZttpdmjXrJa1aDZCuXUcYxjxGRo+eItOnz5dFi5Zr2RKj0Y4ePSrPPQdLO6YOUzt+/HgMsDlw
+        i2dsOMAWBLcgsF24cEGBDfbmAzYedg7c2H0QYGNACcDG9wyw4UQOABy7XuIAHQ4T5KFJSyrARxqGfmuc
+        tYK4x+g8PLiLIWsJcAwq2KHlpoUAmcRYvPGdNdxkrVqNMUDVUzfWYk4j2zOwNUJtmFutIfZnNQaqQqr7
+        SBvgq1ixm2FnCAcdIiAWzKFZECoEpSLBrIXnZ+m7ZW7tzDl2MCy0kwlDuylra9Giv3TsOMyw5DEyYMBE
+        w9jYrXGBTJu2VGbNWi7z5q2QxYvXyMqVG2Tt2o2yceNW3S+GuZeEpgAcwBZkbQBbsnA0HthwgM2BG9cc
+        d8CGFwVssDYcYAuCG9+dD9iC4AawBcENtge44Yh1OOuAyTw4gIfDCMkpuppGqh9w0jM4A1Bw1hF5x2CR
+        eGi5ayFApmAs5KBYw03JzoP/RjiIiAb2T/v3eAHBhqMt5P/9P7y58afk//5f/MlC52f2/5wDhC0UNO+5
+        h71iWqmIUKlSWwPK7QwD7WAAuZMB5DwDcF1NuN9dGjbsJU88MVBatx4inTsPl759C2TYsIkG4GbK7NmL
+        ZdmyVVpjSb7N5taijA2PBzYfawPYkoFbqqzNhaMO3BywxbO2ILD5WFsQ3ILA5sAtHtiCoOaALVVww0m5
+        4KyJoMMInQOAznnABt0BYwiOuW8hQKZgLGQWelCsOXbspAHC9HNwAB5AV7NmB3nwwY7y6KPd5amn+kjb
+        tgOlW7dRhrXRATNNJk9eKHPnrjRsbZ0sX75BVq3aKOvWbTah6TbZsmWH7NixW0NUhAXEBADOF46mw9rS
+        DUfxIGtzwIa7cDRV1gaw4UUBWybg5oAtEbgVBWrO48HNAZzPHegFPbTybSFApmAsdG4AJ9ZwkwMSgwZN
+        lebNh5hwe5gJS0cbgBsr/fqNk+HDKf2YZcLS+bJgwXIDbuu0xdDm3GKZWyq5tmyytqJC0kSszQEbHs/Y
+        EoWjmQKbj7WlA26ZgpnPQ7u7LQTIFI2bhRuRmxggAEQAIIAK8ALQgrk2gC0Za8ODwOZybcUBNhxgK4q1
+        AWzJwtEgsDlwiwc2B26ZAFsy5hYEOB/IxYMYHlpoJWEhQKZh3Jzc6IAD4ALLArAAMUAtXkRIBG4AWzLW
+        hvvC0eKCW6qsLRFj84FbIlDDfcBWlIcWWi5YCJBpGDcuQAB4ADQAE6AFkAFqzl046suzAWrJwtEgsDlQ
+        iwe2eFBLBGxFMbYgoCUCNjwewJyHFtqdbCFApmmABeACAAFUAJcDNQdsqbK2ooAtEbgFAc4HdPHAhvuA
+        DQ8ttNASWwiQaRrAAugARoAVABYEtiC4JQK2IKilC2zOQwsttJK1ECAzNAdSPmBzHgSzoIcWWmjlw0KA
+        DC200ELzmsj/D+H9cAXw6xsYAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="C1PictureBox2.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

DPM2016/app.config

@@ -58,7 +58,7 @@
         <value>http://192.168.111.67</value>
       </setting>
       <setting name="SoftwareType" serializeAs="String">
-        <value>DPM</value>
+        <value>PADM</value>
       </setting>
     </DPM2016.My.MySettings>
   </userSettings>

DPM2016/bin/Debug/PADM.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>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
+        <dsig:DigestValue>dj+yWlykiBNw2KLjnKoOrZi/3OtC6mKwbKpubyoP2HI=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/bin/Debug/PADM.exe.config

@@ -58,7 +58,7 @@
         <value>http://192.168.111.67</value>
       </setting>
       <setting name="SoftwareType" serializeAs="String">
-        <value>DPM</value>
+        <value>PADM</value>
       </setting>
     </DPM2016.My.MySettings>
   </userSettings>

DPM2016/bin/Debug/PADM.exe.manifest

@@ -451,14 +451,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7488000">
       <assemblyIdentity name="PADM" 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>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
+        <dsig:DigestValue>2nTFOKOc+AY4ZMetArMXgLjSnqhML745qUWWL6YTEK4=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>
@@ -1509,13 +1509,13 @@
       <dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
     </hash>
   </file>
-  <file name="PADM.exe.config" size="4181">
+  <file name="PADM.exe.config" size="4182">
     <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>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
+      <dsig:DigestValue>STmpXFGnPRHc8/WWOyL6WhkVtZX2oFmfXuChzNeCQs4=</dsig:DigestValue>
     </hash>
   </file>
   <file name="PADM.ico" size="96694">

DPM2016/bin/Release/PADM.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>lVD2J8hHF6AQyj5WC1t60M4jQ+ENORpJQ/uNzTQ74HM=</dsig:DigestValue>
+        <dsig:DigestValue>dbZSv0iNqkYwG8cdQOHNSKAbRZrARNU+85AkiGksRW0=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/bin/Release/PADM.exe.manifest

@@ -307,14 +307,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027528">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027720">
       <assemblyIdentity name="Microsoft.mshtml" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
       <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>iImaEsY4Ajoi2RrsoJYZA8vV2qeezV/nnmEYjymY4C4=</dsig:DigestValue>
+        <dsig:DigestValue>3HNTFd4pFJcavyse0nYGUjKtZ3dln6OJVA1LUa8WgeY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>
@@ -458,7 +458,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>4x0BYHqOwZNPC5IiyUUIcPd8CzM82d8zW6OQEUog9ag=</dsig:DigestValue>
+        <dsig:DigestValue>HJ91RS9OKmsHCoWO8mzNUXlUIlRhLyjIF9lvMQ9zjB4=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/obj/Debug/DPM2016.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-c883852ff6ea95fb8e472eae15f5aafa740b6047
+7160819cd71b6200ce0e841b0906409d41ff7976

DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt

@@ -1,4 +1,3 @@
-E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.AssemblyReference.cache
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertung.resources
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.FrmSearchDialog.resources
@@ -278,3 +277,4 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CopyComplete
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.exe
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.xml
 E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.pdb
+E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrivatAnsprechpartner.resources

DPM2016/obj/Debug/PADM.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>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
+        <dsig:DigestValue>dj+yWlykiBNw2KLjnKoOrZi/3OtC6mKwbKpubyoP2HI=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

DPM2016/obj/Debug/PADM.exe.manifest

@@ -451,14 +451,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7488000">
       <assemblyIdentity name="PADM" 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>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
+        <dsig:DigestValue>2nTFOKOc+AY4ZMetArMXgLjSnqhML745qUWWL6YTEK4=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>
@@ -1509,13 +1509,13 @@
       <dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
     </hash>
   </file>
-  <file name="PADM.exe.config" size="4181">
+  <file name="PADM.exe.config" size="4182">
     <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>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
+      <dsig:DigestValue>STmpXFGnPRHc8/WWOyL6WhkVtZX2oFmfXuChzNeCQs4=</dsig:DigestValue>
     </hash>
   </file>
   <file name="PADM.ico" size="96694">