update 26.7.22

DPM2016/Behandlung/Behandlung.Designer.vb

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

DPM2016/Behandlung/Behandlung.resx

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

DPM2016/Behandlung/Benhandungdetail.Designer.vb

@@ -82,6 +82,10 @@ Partial Class Benhandungdetail
         Me.lblZuschlagRaten = New System.Windows.Forms.Label()
         Me.lblAnzahlRaten = New System.Windows.Forms.Label()
         Me.grpBehandlungsdaten = New System.Windows.Forms.GroupBox()
+        Me.lblunserereferenz = New System.Windows.Forms.Label()
+        Me.txtunserereferenz = New System.Windows.Forms.TextBox()
+        Me.lblansprechperson = New System.Windows.Forms.Label()
+        Me.txtAnsprechpartner = New System.Windows.Forms.TextBox()
         Me.DDTRGDatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
         Me.lblRGDatum = New System.Windows.Forms.Label()
         Me.DDTRGStellung = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
@@ -93,6 +97,7 @@ Partial Class Benhandungdetail
         Me.Label15 = New System.Windows.Forms.Label()
         Me.lblBegin = New System.Windows.Forms.Label()
         Me.grpAbrechnung = New System.Windows.Forms.GroupBox()
+        Me.chkOhneMwst = New System.Windows.Forms.CheckBox()
         Me.mtxtRabatt = New Syncfusion.Windows.Forms.Tools.DoubleTextBox()
         Me.mtxtTaxpunktwert = New Syncfusion.Windows.Forms.Tools.DoubleTextBox()
         Me.lblRabattwert = New System.Windows.Forms.Label()
@@ -119,8 +124,8 @@ Partial Class Benhandungdetail
         Me.lblfakturanr = New System.Windows.Forms.ToolStripLabel()
         Me.txtrgnummer = New System.Windows.Forms.ToolStripTextBox()
         Me.GrpRechnungstext = New System.Windows.Forms.GroupBox()
-        Me.cbboxrgtext = New DPM2016.MyCombobox()
         Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
+        Me.cbboxrgtext = New DPM2016.MyCombobox()
         Me.lblDiagnose = New System.Windows.Forms.Label()
         Me.txtDiagnose = New System.Windows.Forms.TextBox()
         Me.lblGLNListe = New System.Windows.Forms.Label()
@@ -138,6 +143,17 @@ Partial Class Benhandungdetail
         Me.Label8 = New System.Windows.Forms.Label()
         Me.txtSuchePrivat = New System.Windows.Forms.TextBox()
         Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
+        Me.GrpDateien = New System.Windows.Forms.GroupBox()
+        Me.lstdateien = New System.Windows.Forms.ListBox()
+        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
         Me.GrpPatient.SuspendLayout()
         Me.grpZusammenfassugn.SuspendLayout()
         Me.GrpGaramt.SuspendLayout()
@@ -159,6 +175,8 @@ Partial Class Benhandungdetail
         Me.GrpRechnungstext.SuspendLayout()
         Me.grpglndiagnose.SuspendLayout()
         Me.grpEmpfaenger.SuspendLayout()
+        Me.GrpDateien.SuspendLayout()
+        Me.ToolStrip2.SuspendLayout()
         Me.SuspendLayout()
         '
         'GrpPatient
@@ -193,7 +211,7 @@ Partial Class Benhandungdetail
         Me.lblProjekt.Location = New System.Drawing.Point(9, 34)
         Me.lblProjekt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblProjekt.Name = "lblProjekt"
-        Me.lblProjekt.Size = New System.Drawing.Size(49, 16)
+        Me.lblProjekt.Size = New System.Drawing.Size(52, 17)
         Me.lblProjekt.TabIndex = 22
         Me.lblProjekt.Text = "Projekt"
         Me.lblProjekt.Visible = False
@@ -217,7 +235,7 @@ Partial Class Benhandungdetail
         Me.Label6.Location = New System.Drawing.Point(8, 69)
         Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(78, 16)
+        Me.Label6.Size = New System.Drawing.Size(83, 17)
         Me.Label6.TabIndex = 21
         Me.Label6.Text = "Formulartyp"
         '
@@ -240,7 +258,7 @@ Partial Class Benhandungdetail
         Me.Label7.Location = New System.Drawing.Point(8, 34)
         Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(69, 16)
+        Me.Label7.Size = New System.Drawing.Size(73, 17)
         Me.Label7.TabIndex = 19
         Me.Label7.Text = "Behandler"
         '
@@ -320,7 +338,7 @@ Partial Class Benhandungdetail
         Me.lblRabatt.Location = New System.Drawing.Point(9, 119)
         Me.lblRabatt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRabatt.Name = "lblRabatt"
-        Me.lblRabatt.Size = New System.Drawing.Size(60, 16)
+        Me.lblRabatt.Size = New System.Drawing.Size(66, 17)
         Me.lblRabatt.TabIndex = 8
         Me.lblRabatt.Text = "./. Rabatt"
         '
@@ -341,7 +359,7 @@ Partial Class Benhandungdetail
         Me.lblVorauszahlungen.Location = New System.Drawing.Point(9, 103)
         Me.lblVorauszahlungen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblVorauszahlungen.Name = "lblVorauszahlungen"
-        Me.lblVorauszahlungen.Size = New System.Drawing.Size(124, 16)
+        Me.lblVorauszahlungen.Size = New System.Drawing.Size(135, 17)
         Me.lblVorauszahlungen.TabIndex = 6
         Me.lblVorauszahlungen.Text = "./. Vorauszahlungen"
         '
@@ -362,7 +380,7 @@ Partial Class Benhandungdetail
         Me.lblRatenzuschlag.Location = New System.Drawing.Point(9, 87)
         Me.lblRatenzuschlag.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRatenzuschlag.Name = "lblRatenzuschlag"
-        Me.lblRatenzuschlag.Size = New System.Drawing.Size(106, 16)
+        Me.lblRatenzuschlag.Size = New System.Drawing.Size(114, 17)
         Me.lblRatenzuschlag.TabIndex = 4
         Me.lblRatenzuschlag.Text = "+ Ratenzuschlag"
         '
@@ -383,7 +401,7 @@ Partial Class Benhandungdetail
         Me.lblBehandlungstotal.Location = New System.Drawing.Point(8, 71)
         Me.lblBehandlungstotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblBehandlungstotal.Name = "lblBehandlungstotal"
-        Me.lblBehandlungstotal.Size = New System.Drawing.Size(111, 16)
+        Me.lblBehandlungstotal.Size = New System.Drawing.Size(118, 17)
         Me.lblBehandlungstotal.TabIndex = 2
         Me.lblBehandlungstotal.Text = "Behandlungstotal"
         '
@@ -404,7 +422,7 @@ Partial Class Benhandungdetail
         Me.Label2.Location = New System.Drawing.Point(7, 37)
         Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.Size = New System.Drawing.Size(73, 17)
         Me.Label2.TabIndex = 0
         Me.Label2.Text = "KV-Betrag"
         '
@@ -452,7 +470,7 @@ Partial Class Benhandungdetail
         Me.lblahvnr.Location = New System.Drawing.Point(379, 143)
         Me.lblahvnr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblahvnr.Name = "lblahvnr"
-        Me.lblahvnr.Size = New System.Drawing.Size(0, 16)
+        Me.lblahvnr.Size = New System.Drawing.Size(0, 17)
         Me.lblahvnr.TabIndex = 226
         '
         'Label10
@@ -461,7 +479,7 @@ Partial Class Benhandungdetail
         Me.Label10.Location = New System.Drawing.Point(335, 143)
         Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(38, 16)
+        Me.Label10.Size = New System.Drawing.Size(40, 17)
         Me.Label10.TabIndex = 225
         Me.Label10.Text = "AHV:"
         '
@@ -481,7 +499,7 @@ Partial Class Benhandungdetail
         Me.lblGesetz.Location = New System.Drawing.Point(11, 171)
         Me.lblGesetz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblGesetz.Name = "lblGesetz"
-        Me.lblGesetz.Size = New System.Drawing.Size(49, 16)
+        Me.lblGesetz.Size = New System.Drawing.Size(53, 17)
         Me.lblGesetz.TabIndex = 223
         Me.lblGesetz.Text = "Gesetz"
         '
@@ -519,7 +537,7 @@ Partial Class Benhandungdetail
         Me.Label5.Location = New System.Drawing.Point(11, 299)
         Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(61, 16)
+        Me.Label5.Size = New System.Drawing.Size(65, 17)
         Me.Label5.TabIndex = 220
         Me.Label5.Text = "Zuweiser"
         '
@@ -549,7 +567,7 @@ Partial Class Benhandungdetail
         Me.Label1.Location = New System.Drawing.Point(11, 266)
         Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(67, 16)
+        Me.Label1.Size = New System.Drawing.Size(76, 17)
         Me.Label1.TabIndex = 217
         Me.Label1.Text = "Ko.-Gu. Nr"
         '
@@ -613,7 +631,7 @@ Partial Class Benhandungdetail
         Me.lblDatumKostengutsprache.Location = New System.Drawing.Point(9, 234)
         Me.lblDatumKostengutsprache.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblDatumKostengutsprache.Name = "lblDatumKostengutsprache"
-        Me.lblDatumKostengutsprache.Size = New System.Drawing.Size(92, 16)
+        Me.lblDatumKostengutsprache.Size = New System.Drawing.Size(102, 17)
         Me.lblDatumKostengutsprache.TabIndex = 214
         Me.lblDatumKostengutsprache.Text = "Datum Ko.-Gu."
         '
@@ -669,7 +687,7 @@ Partial Class Benhandungdetail
         Me.lblUnfalldatum.Location = New System.Drawing.Point(9, 203)
         Me.lblUnfalldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblUnfalldatum.Name = "lblUnfalldatum"
-        Me.lblUnfalldatum.Size = New System.Drawing.Size(78, 16)
+        Me.lblUnfalldatum.Size = New System.Drawing.Size(83, 17)
         Me.lblUnfalldatum.TabIndex = 33
         Me.lblUnfalldatum.Text = "Unfalldatum"
         '
@@ -679,7 +697,7 @@ Partial Class Benhandungdetail
         Me.lblFallNummer.Location = New System.Drawing.Point(11, 143)
         Me.lblFallNummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblFallNummer.Name = "lblFallNummer"
-        Me.lblFallNummer.Size = New System.Drawing.Size(80, 16)
+        Me.lblFallNummer.Size = New System.Drawing.Size(83, 17)
         Me.lblFallNummer.TabIndex = 32
         Me.lblFallNummer.Text = "FallNummer"
         '
@@ -687,7 +705,7 @@ Partial Class Benhandungdetail
         '
         Me.cbboxNrAnsprechpartner.Dataselection = Nothing
         Me.cbboxNrAnsprechpartner.Displaymember = Nothing
-        Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(125, 103)
+        Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(126, 105)
         Me.cbboxNrAnsprechpartner.Margin = New System.Windows.Forms.Padding(4)
         Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
         Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(200, 24)
@@ -702,7 +720,7 @@ Partial Class Benhandungdetail
         Me.lblAnsprechpartner.Location = New System.Drawing.Point(11, 108)
         Me.lblAnsprechpartner.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblAnsprechpartner.Name = "lblAnsprechpartner"
-        Me.lblAnsprechpartner.Size = New System.Drawing.Size(106, 16)
+        Me.lblAnsprechpartner.Size = New System.Drawing.Size(114, 17)
         Me.lblAnsprechpartner.TabIndex = 30
         Me.lblAnsprechpartner.Text = "Ansprechpartner"
         '
@@ -733,7 +751,7 @@ Partial Class Benhandungdetail
         Me.lblgarant.Location = New System.Drawing.Point(11, 80)
         Me.lblgarant.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblgarant.Name = "lblgarant"
-        Me.lblgarant.Size = New System.Drawing.Size(47, 16)
+        Me.lblgarant.Size = New System.Drawing.Size(52, 17)
         Me.lblgarant.TabIndex = 27
         Me.lblgarant.Text = "Garant"
         '
@@ -743,7 +761,7 @@ Partial Class Benhandungdetail
         Me.rbPrivatPersonen.Location = New System.Drawing.Point(265, 50)
         Me.rbPrivatPersonen.Margin = New System.Windows.Forms.Padding(4)
         Me.rbPrivatPersonen.Name = "rbPrivatPersonen"
-        Me.rbPrivatPersonen.Size = New System.Drawing.Size(124, 20)
+        Me.rbPrivatPersonen.Size = New System.Drawing.Size(131, 21)
         Me.rbPrivatPersonen.TabIndex = 5
         Me.rbPrivatPersonen.TabStop = True
         Me.rbPrivatPersonen.Text = "Privat-Personen"
@@ -755,7 +773,7 @@ Partial Class Benhandungdetail
         Me.rbkk.Location = New System.Drawing.Point(141, 49)
         Me.rbkk.Margin = New System.Windows.Forms.Padding(4)
         Me.rbkk.Name = "rbkk"
-        Me.rbkk.Size = New System.Drawing.Size(114, 20)
+        Me.rbkk.Size = New System.Drawing.Size(119, 21)
         Me.rbkk.TabIndex = 4
         Me.rbkk.TabStop = True
         Me.rbkk.Text = "Krankenkasse"
@@ -767,7 +785,7 @@ Partial Class Benhandungdetail
         Me.rbdiverseFirmen.Location = New System.Drawing.Point(15, 47)
         Me.rbdiverseFirmen.Margin = New System.Windows.Forms.Padding(4)
         Me.rbdiverseFirmen.Name = "rbdiverseFirmen"
-        Me.rbdiverseFirmen.Size = New System.Drawing.Size(119, 20)
+        Me.rbdiverseFirmen.Size = New System.Drawing.Size(124, 21)
         Me.rbdiverseFirmen.TabIndex = 3
         Me.rbdiverseFirmen.TabStop = True
         Me.rbdiverseFirmen.Text = "Diverse Firmen"
@@ -779,7 +797,7 @@ Partial Class Benhandungdetail
         Me.rbiv.Location = New System.Drawing.Point(265, 25)
         Me.rbiv.Margin = New System.Windows.Forms.Padding(4)
         Me.rbiv.Name = "rbiv"
-        Me.rbiv.Size = New System.Drawing.Size(78, 20)
+        Me.rbiv.Size = New System.Drawing.Size(81, 21)
         Me.rbiv.TabIndex = 2
         Me.rbiv.TabStop = True
         Me.rbiv.Text = "IV-Stelle"
@@ -791,7 +809,7 @@ Partial Class Benhandungdetail
         Me.rbfs.Location = New System.Drawing.Point(139, 23)
         Me.rbfs.Margin = New System.Windows.Forms.Padding(4)
         Me.rbfs.Name = "rbfs"
-        Me.rbfs.Size = New System.Drawing.Size(104, 20)
+        Me.rbfs.Size = New System.Drawing.Size(109, 21)
         Me.rbfs.TabIndex = 1
         Me.rbfs.TabStop = True
         Me.rbfs.Text = "Fürsorgeamt"
@@ -803,7 +821,7 @@ Partial Class Benhandungdetail
         Me.rbversicherung.Location = New System.Drawing.Point(15, 22)
         Me.rbversicherung.Margin = New System.Windows.Forms.Padding(4)
         Me.rbversicherung.Name = "rbversicherung"
-        Me.rbversicherung.Size = New System.Drawing.Size(107, 20)
+        Me.rbversicherung.Size = New System.Drawing.Size(113, 21)
         Me.rbversicherung.TabIndex = 0
         Me.rbversicherung.TabStop = True
         Me.rbversicherung.Text = "Versicherung"
@@ -889,7 +907,7 @@ Partial Class Benhandungdetail
         Me.Label4.Location = New System.Drawing.Point(231, 41)
         Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(47, 16)
+        Me.Label4.Size = New System.Drawing.Size(50, 17)
         Me.Label4.TabIndex = 29
         Me.Label4.Text = "Betrag"
         '
@@ -899,7 +917,7 @@ Partial Class Benhandungdetail
         Me.Label3.Location = New System.Drawing.Point(231, 25)
         Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(162, 16)
+        Me.Label3.Size = New System.Drawing.Size(173, 17)
         Me.Label3.TabIndex = 1
         Me.Label3.Text = "Erste Rate mit ungeradem"
         '
@@ -909,7 +927,7 @@ Partial Class Benhandungdetail
         Me.lblZuschlagRaten.Location = New System.Drawing.Point(12, 63)
         Me.lblZuschlagRaten.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblZuschlagRaten.Name = "lblZuschlagRaten"
-        Me.lblZuschlagRaten.Size = New System.Drawing.Size(96, 16)
+        Me.lblZuschlagRaten.Size = New System.Drawing.Size(102, 17)
         Me.lblZuschlagRaten.TabIndex = 26
         Me.lblZuschlagRaten.Text = "Ratenzuschlag"
         '
@@ -919,12 +937,16 @@ Partial Class Benhandungdetail
         Me.lblAnzahlRaten.Location = New System.Drawing.Point(12, 28)
         Me.lblAnzahlRaten.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblAnzahlRaten.Name = "lblAnzahlRaten"
-        Me.lblAnzahlRaten.Size = New System.Drawing.Size(86, 16)
+        Me.lblAnzahlRaten.Size = New System.Drawing.Size(93, 17)
         Me.lblAnzahlRaten.TabIndex = 23
         Me.lblAnzahlRaten.Text = "Anzahl Raten"
         '
         'grpBehandlungsdaten
         '
+        Me.grpBehandlungsdaten.Controls.Add(Me.lblunserereferenz)
+        Me.grpBehandlungsdaten.Controls.Add(Me.txtunserereferenz)
+        Me.grpBehandlungsdaten.Controls.Add(Me.lblansprechperson)
+        Me.grpBehandlungsdaten.Controls.Add(Me.txtAnsprechpartner)
         Me.grpBehandlungsdaten.Controls.Add(Me.DDTRGDatum)
         Me.grpBehandlungsdaten.Controls.Add(Me.lblRGDatum)
         Me.grpBehandlungsdaten.Controls.Add(Me.DDTRGStellung)
@@ -944,6 +966,46 @@ Partial Class Benhandungdetail
         Me.grpBehandlungsdaten.TabStop = False
         Me.grpBehandlungsdaten.Text = "Behandlung"
         '
+        'lblunserereferenz
+        '
+        Me.lblunserereferenz.AutoSize = True
+        Me.lblunserereferenz.BackColor = System.Drawing.Color.Transparent
+        Me.lblunserereferenz.Location = New System.Drawing.Point(12, 150)
+        Me.lblunserereferenz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblunserereferenz.Name = "lblunserereferenz"
+        Me.lblunserereferenz.Size = New System.Drawing.Size(116, 17)
+        Me.lblunserereferenz.TabIndex = 215
+        Me.lblunserereferenz.Text = "Unsere Referenz"
+        Me.lblunserereferenz.Visible = False
+        '
+        'txtunserereferenz
+        '
+        Me.txtunserereferenz.Location = New System.Drawing.Point(172, 147)
+        Me.txtunserereferenz.Margin = New System.Windows.Forms.Padding(4)
+        Me.txtunserereferenz.Name = "txtunserereferenz"
+        Me.txtunserereferenz.Size = New System.Drawing.Size(215, 22)
+        Me.txtunserereferenz.TabIndex = 214
+        Me.txtunserereferenz.Visible = False
+        '
+        'lblansprechperson
+        '
+        Me.lblansprechperson.AutoSize = True
+        Me.lblansprechperson.BackColor = System.Drawing.Color.Transparent
+        Me.lblansprechperson.Location = New System.Drawing.Point(12, 124)
+        Me.lblansprechperson.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblansprechperson.Name = "lblansprechperson"
+        Me.lblansprechperson.Size = New System.Drawing.Size(127, 17)
+        Me.lblansprechperson.TabIndex = 213
+        Me.lblansprechperson.Text = "Referenz Kunde    "
+        '
+        'txtAnsprechpartner
+        '
+        Me.txtAnsprechpartner.Location = New System.Drawing.Point(172, 118)
+        Me.txtAnsprechpartner.Margin = New System.Windows.Forms.Padding(4)
+        Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
+        Me.txtAnsprechpartner.Size = New System.Drawing.Size(215, 22)
+        Me.txtAnsprechpartner.TabIndex = 212
+        '
         'DDTRGDatum
         '
         '
@@ -997,7 +1059,7 @@ Partial Class Benhandungdetail
         Me.lblRGDatum.Location = New System.Drawing.Point(12, 126)
         Me.lblRGDatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRGDatum.Name = "lblRGDatum"
-        Me.lblRGDatum.Size = New System.Drawing.Size(112, 16)
+        Me.lblRGDatum.Size = New System.Drawing.Size(119, 17)
         Me.lblRGDatum.TabIndex = 211
         Me.lblRGDatum.Text = "Rechnungsdatum"
         '
@@ -1169,7 +1231,7 @@ Partial Class Benhandungdetail
         Me.lblRGStellung.Location = New System.Drawing.Point(12, 94)
         Me.lblRGStellung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRGStellung.Name = "lblRGStellung"
-        Me.lblRGStellung.Size = New System.Drawing.Size(131, 16)
+        Me.lblRGStellung.Size = New System.Drawing.Size(143, 17)
         Me.lblRGStellung.TabIndex = 207
         Me.lblRGStellung.Text = "RG-Stellung nicht vor"
         '
@@ -1180,7 +1242,7 @@ Partial Class Benhandungdetail
         Me.Label15.Location = New System.Drawing.Point(12, 62)
         Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(39, 16)
+        Me.Label15.Size = New System.Drawing.Size(41, 17)
         Me.Label15.TabIndex = 205
         Me.Label15.Text = "Ende"
         '
@@ -1191,12 +1253,13 @@ Partial Class Benhandungdetail
         Me.lblBegin.Location = New System.Drawing.Point(12, 32)
         Me.lblBegin.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblBegin.Name = "lblBegin"
-        Me.lblBegin.Size = New System.Drawing.Size(49, 16)
+        Me.lblBegin.Size = New System.Drawing.Size(52, 17)
         Me.lblBegin.TabIndex = 204
         Me.lblBegin.Text = "Beginn"
         '
         'grpAbrechnung
         '
+        Me.grpAbrechnung.Controls.Add(Me.chkOhneMwst)
         Me.grpAbrechnung.Controls.Add(Me.mtxtRabatt)
         Me.grpAbrechnung.Controls.Add(Me.mtxtTaxpunktwert)
         Me.grpAbrechnung.Controls.Add(Me.lblRabattwert)
@@ -1221,6 +1284,18 @@ Partial Class Benhandungdetail
         Me.grpAbrechnung.TabStop = False
         Me.grpAbrechnung.Text = "Abrechnung"
         '
+        'chkOhneMwst
+        '
+        Me.chkOhneMwst.AutoSize = True
+        Me.chkOhneMwst.Location = New System.Drawing.Point(239, 266)
+        Me.chkOhneMwst.Margin = New System.Windows.Forms.Padding(4)
+        Me.chkOhneMwst.Name = "chkOhneMwst"
+        Me.chkOhneMwst.Size = New System.Drawing.Size(102, 21)
+        Me.chkOhneMwst.TabIndex = 39
+        Me.chkOhneMwst.Text = "Ohne MwSt"
+        Me.chkOhneMwst.UseVisualStyleBackColor = True
+        Me.chkOhneMwst.Visible = False
+        '
         'mtxtRabatt
         '
         Me.mtxtRabatt.BackGroundColor = System.Drawing.SystemColors.Window
@@ -1261,7 +1336,7 @@ Partial Class Benhandungdetail
         Me.lblRabattwert.Location = New System.Drawing.Point(11, 206)
         Me.lblRabattwert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRabattwert.Name = "lblRabattwert"
-        Me.lblRabattwert.Size = New System.Drawing.Size(75, 16)
+        Me.lblRabattwert.Size = New System.Drawing.Size(81, 17)
         Me.lblRabattwert.TabIndex = 38
         Me.lblRabattwert.Text = "Rabatt in %"
         '
@@ -1271,7 +1346,7 @@ Partial Class Benhandungdetail
         Me.lblTaxpunkte.Location = New System.Drawing.Point(11, 174)
         Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblTaxpunkte.Name = "lblTaxpunkte"
-        Me.lblTaxpunkte.Size = New System.Drawing.Size(70, 16)
+        Me.lblTaxpunkte.Size = New System.Drawing.Size(74, 17)
         Me.lblTaxpunkte.TabIndex = 37
         Me.lblTaxpunkte.Text = "Taxpunkte"
         '
@@ -1281,7 +1356,7 @@ Partial Class Benhandungdetail
         Me.lblFrankenwert.Location = New System.Drawing.Point(11, 138)
         Me.lblFrankenwert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblFrankenwert.Name = "lblFrankenwert"
-        Me.lblFrankenwert.Size = New System.Drawing.Size(80, 16)
+        Me.lblFrankenwert.Size = New System.Drawing.Size(86, 17)
         Me.lblFrankenwert.TabIndex = 36
         Me.lblFrankenwert.Text = "Frankenwert"
         '
@@ -1291,7 +1366,7 @@ Partial Class Benhandungdetail
         Me.chkMitdatum.Location = New System.Drawing.Point(15, 267)
         Me.chkMitdatum.Margin = New System.Windows.Forms.Padding(4)
         Me.chkMitdatum.Name = "chkMitdatum"
-        Me.chkMitdatum.Size = New System.Drawing.Size(156, 20)
+        Me.chkMitdatum.Size = New System.Drawing.Size(167, 21)
         Me.chkMitdatum.TabIndex = 8
         Me.chkMitdatum.Text = "Leistungen mit Datum"
         Me.chkMitdatum.UseVisualStyleBackColor = True
@@ -1302,7 +1377,7 @@ Partial Class Benhandungdetail
         Me.chkAndrucken_Taxpunkte.Location = New System.Drawing.Point(239, 238)
         Me.chkAndrucken_Taxpunkte.Margin = New System.Windows.Forms.Padding(4)
         Me.chkAndrucken_Taxpunkte.Name = "chkAndrucken_Taxpunkte"
-        Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(132, 20)
+        Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(140, 21)
         Me.chkAndrucken_Taxpunkte.TabIndex = 7
         Me.chkAndrucken_Taxpunkte.Text = "TP/Fr. andrucken"
         Me.chkAndrucken_Taxpunkte.UseVisualStyleBackColor = True
@@ -1313,7 +1388,7 @@ Partial Class Benhandungdetail
         Me.chkRabattGesamt.Location = New System.Drawing.Point(15, 239)
         Me.chkRabattGesamt.Margin = New System.Windows.Forms.Padding(4)
         Me.chkRabattGesamt.Name = "chkRabattGesamt"
-        Me.chkRabattGesamt.Size = New System.Drawing.Size(179, 20)
+        Me.chkRabattGesamt.Size = New System.Drawing.Size(190, 21)
         Me.chkRabattGesamt.TabIndex = 6
         Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag"
         Me.chkRabattGesamt.UseVisualStyleBackColor = True
@@ -1350,7 +1425,7 @@ Partial Class Benhandungdetail
         Me.lblAnsatz.Location = New System.Drawing.Point(11, 105)
         Me.lblAnsatz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblAnsatz.Name = "lblAnsatz"
-        Me.lblAnsatz.Size = New System.Drawing.Size(47, 16)
+        Me.lblAnsatz.Size = New System.Drawing.Size(51, 17)
         Me.lblAnsatz.TabIndex = 27
         Me.lblAnsatz.Text = "Ansatz"
         '
@@ -1373,7 +1448,7 @@ Partial Class Benhandungdetail
         Me.lblAbrechnungstyp.Location = New System.Drawing.Point(11, 70)
         Me.lblAbrechnungstyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblAbrechnungstyp.Name = "lblAbrechnungstyp"
-        Me.lblAbrechnungstyp.Size = New System.Drawing.Size(104, 16)
+        Me.lblAbrechnungstyp.Size = New System.Drawing.Size(111, 17)
         Me.lblAbrechnungstyp.TabIndex = 25
         Me.lblAbrechnungstyp.Text = "Abrechnungstyp"
         '
@@ -1396,7 +1471,7 @@ Partial Class Benhandungdetail
         Me.lblRechnungstyp.Location = New System.Drawing.Point(11, 36)
         Me.lblRechnungstyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblRechnungstyp.Name = "lblRechnungstyp"
-        Me.lblRechnungstyp.Size = New System.Drawing.Size(93, 16)
+        Me.lblRechnungstyp.Size = New System.Drawing.Size(99, 17)
         Me.lblRechnungstyp.TabIndex = 23
         Me.lblRechnungstyp.Text = "Rechnungstyp"
         '
@@ -1477,8 +1552,8 @@ Partial Class Benhandungdetail
         '
         'GrpRechnungstext
         '
-        Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
         Me.GrpRechnungstext.Controls.Add(Me.txtRechnungsbemerkung)
+        Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
         Me.GrpRechnungstext.Location = New System.Drawing.Point(823, 208)
         Me.GrpRechnungstext.Margin = New System.Windows.Forms.Padding(4)
         Me.GrpRechnungstext.Name = "GrpRechnungstext"
@@ -1488,36 +1563,37 @@ Partial Class Benhandungdetail
         Me.GrpRechnungstext.TabStop = False
         Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
         '
+        'txtRechnungsbemerkung
+        '
+        Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Right
+        Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(4, 43)
+        Me.txtRechnungsbemerkung.Margin = New System.Windows.Forms.Padding(4)
+        Me.txtRechnungsbemerkung.Multiline = True
+        Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung"
+        Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(565, 83)
+        Me.txtRechnungsbemerkung.TabIndex = 1
+        '
         'cbboxrgtext
         '
         Me.cbboxrgtext.Dataselection = Nothing
         Me.cbboxrgtext.Displaymember = Nothing
-        Me.cbboxrgtext.Location = New System.Drawing.Point(4, 25)
+        Me.cbboxrgtext.Dock = System.Windows.Forms.DockStyle.Top
+        Me.cbboxrgtext.Location = New System.Drawing.Point(4, 19)
         Me.cbboxrgtext.Margin = New System.Windows.Forms.Padding(4)
         Me.cbboxrgtext.Name = "cbboxrgtext"
-        Me.cbboxrgtext.Size = New System.Drawing.Size(564, 24)
+        Me.cbboxrgtext.Size = New System.Drawing.Size(565, 24)
         Me.cbboxrgtext.TabIndex = 0
         Me.cbboxrgtext.Table = Nothing
         Me.cbboxrgtext.TableAlias = ""
         Me.cbboxrgtext.Valuemember = Nothing
         '
-        'txtRechnungsbemerkung
-        '
-        Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(4, 52)
-        Me.txtRechnungsbemerkung.Margin = New System.Windows.Forms.Padding(4)
-        Me.txtRechnungsbemerkung.Multiline = True
-        Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung"
-        Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(565, 74)
-        Me.txtRechnungsbemerkung.TabIndex = 1
-        '
         'lblDiagnose
         '
         Me.lblDiagnose.AutoSize = True
         Me.lblDiagnose.Location = New System.Drawing.Point(12, 66)
         Me.lblDiagnose.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblDiagnose.Name = "lblDiagnose"
-        Me.lblDiagnose.Size = New System.Drawing.Size(66, 16)
+        Me.lblDiagnose.Size = New System.Drawing.Size(68, 17)
         Me.lblDiagnose.TabIndex = 219
         Me.lblDiagnose.Text = "Diagnose"
         '
@@ -1535,7 +1611,7 @@ Partial Class Benhandungdetail
         Me.lblGLNListe.Location = New System.Drawing.Point(12, 34)
         Me.lblGLNListe.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblGLNListe.Name = "lblGLNListe"
-        Me.lblGLNListe.Size = New System.Drawing.Size(69, 16)
+        Me.lblGLNListe.Size = New System.Drawing.Size(76, 17)
         Me.lblGLNListe.TabIndex = 221
         Me.lblGLNListe.Text = "GLN-Liste:"
         '
@@ -1572,7 +1648,7 @@ Partial Class Benhandungdetail
         Me.lblBehandlungsart.Location = New System.Drawing.Point(12, 98)
         Me.lblBehandlungsart.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblBehandlungsart.Name = "lblBehandlungsart"
-        Me.lblBehandlungsart.Size = New System.Drawing.Size(101, 16)
+        Me.lblBehandlungsart.Size = New System.Drawing.Size(108, 17)
         Me.lblBehandlungsart.TabIndex = 226
         Me.lblBehandlungsart.Text = "Behandlungsart"
         '
@@ -1605,7 +1681,7 @@ Partial Class Benhandungdetail
         Me.lblBehandlungsgrund.Location = New System.Drawing.Point(12, 133)
         Me.lblBehandlungsgrund.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund"
-        Me.lblBehandlungsgrund.Size = New System.Drawing.Size(74, 16)
+        Me.lblBehandlungsgrund.Size = New System.Drawing.Size(82, 17)
         Me.lblBehandlungsgrund.TabIndex = 223
         Me.lblBehandlungsgrund.Text = "Beh.-Grund"
         '
@@ -1653,7 +1729,7 @@ Partial Class Benhandungdetail
         Me.Label9.Location = New System.Drawing.Point(175, 25)
         Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(98, 16)
+        Me.Label9.Size = New System.Drawing.Size(102, 17)
         Me.Label9.TabIndex = 6
         Me.Label9.Text = "Firmenadresse"
         '
@@ -1671,7 +1747,7 @@ Partial Class Benhandungdetail
         Me.Label8.Location = New System.Drawing.Point(8, 25)
         Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(91, 16)
+        Me.Label8.Size = New System.Drawing.Size(95, 17)
         Me.Label8.TabIndex = 4
         Me.Label8.Text = "Privatadresse"
         '
@@ -1686,17 +1762,112 @@ Partial Class Benhandungdetail
         'txtEmpfaenger
         '
         Me.txtEmpfaenger.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(4, 77)
+        Me.txtEmpfaenger.Location = New System.Drawing.Point(4, 75)
         Me.txtEmpfaenger.Margin = New System.Windows.Forms.Padding(4)
         Me.txtEmpfaenger.Multiline = True
         Me.txtEmpfaenger.Name = "txtEmpfaenger"
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(435, 116)
+        Me.txtEmpfaenger.Size = New System.Drawing.Size(435, 118)
         Me.txtEmpfaenger.TabIndex = 2
         '
+        'GrpDateien
+        '
+        Me.GrpDateien.Controls.Add(Me.lstdateien)
+        Me.GrpDateien.Controls.Add(Me.ToolStrip2)
+        Me.GrpDateien.Location = New System.Drawing.Point(157, 629)
+        Me.GrpDateien.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GrpDateien.Name = "GrpDateien"
+        Me.GrpDateien.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GrpDateien.Size = New System.Drawing.Size(564, 174)
+        Me.GrpDateien.TabIndex = 224
+        Me.GrpDateien.TabStop = False
+        Me.GrpDateien.Text = "Dateien / Rechnung als Beilage"
+        Me.GrpDateien.Visible = False
+        '
+        'lstdateien
+        '
+        Me.lstdateien.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lstdateien.FormattingEnabled = True
+        Me.lstdateien.ItemHeight = 16
+        Me.lstdateien.Location = New System.Drawing.Point(3, 44)
+        Me.lstdateien.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.lstdateien.Name = "lstdateien"
+        Me.lstdateien.Size = New System.Drawing.Size(558, 128)
+        Me.lstdateien.TabIndex = 17
+        '
+        'ToolStrip2
+        '
+        Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripDropDownButton2, Me.ToolStripButton3, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton2})
+        Me.ToolStrip2.Location = New System.Drawing.Point(3, 17)
+        Me.ToolStrip2.Name = "ToolStrip2"
+        Me.ToolStrip2.Size = New System.Drawing.Size(558, 27)
+        Me.ToolStrip2.TabIndex = 16
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        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, 24)
+        Me.ToolStripButton1.Text = "Datei anfügen"
+        '
+        'ToolStripDropDownButton2
+        '
+        Me.ToolStripDropDownButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
+        Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image)
+        Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
+        Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(34, 24)
+        Me.ToolStripDropDownButton2.Text = "Datei löschen"
+        Me.ToolStripDropDownButton2.Visible = False
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(244, 26)
+        Me.ToolStripMenuItem1.Text = "Vorschau Rechnung/KV"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(244, 26)
+        Me.ToolStripMenuItem2.Text = "Design Rechnung/KV"
+        '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        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, 24)
+        Me.ToolStripButton3.Text = "Dateieintrag löschen"
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 27)
+        '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 27)
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
+        Me.ToolStripButton2.Text = "Dateien prüfen"
+        '
         'Benhandungdetail
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GrpDateien)
         Me.Controls.Add(Me.grpEmpfaenger)
         Me.Controls.Add(Me.grpglndiagnose)
         Me.Controls.Add(Me.GrpRechnungstext)
@@ -1741,6 +1912,10 @@ Partial Class Benhandungdetail
         Me.grpglndiagnose.PerformLayout()
         Me.grpEmpfaenger.ResumeLayout(False)
         Me.grpEmpfaenger.PerformLayout()
+        Me.GrpDateien.ResumeLayout(False)
+        Me.GrpDateien.PerformLayout()
+        Me.ToolStrip2.ResumeLayout(False)
+        Me.ToolStrip2.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1860,4 +2035,20 @@ Partial Class Benhandungdetail
     Friend WithEvents lblMailKommunikaton As Label
     Friend WithEvents txtProjekt As TextBox
     Friend WithEvents lblProjekt As Label
+    Friend WithEvents GrpDateien As GroupBox
+    Friend WithEvents lstdateien As ListBox
+    Friend WithEvents ToolStrip2 As ToolStrip
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents ToolStripDropDownButton2 As ToolStripDropDownButton
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents ToolStripButton3 As ToolStripButton
+    Friend WithEvents lblansprechperson As Label
+    Friend WithEvents txtAnsprechpartner As TextBox
+    Friend WithEvents lblunserereferenz As Label
+    Friend WithEvents txtunserereferenz As TextBox
+    Friend WithEvents chkOhneMwst As CheckBox
 End Class

DPM2016/Behandlung/Benhandungdetail.resx

@@ -197,6 +197,636 @@
         eI/h9Y/F/wCHNpqPwUK+FtZ1TVNIssX0kPiyLa/YA/4IdeDf2A/2+/jL+2f4A+JPwth8H/En4e/tH/DT
         wz8Cfhl+zLafBmLwf4Z+O37V2lftLeGrTWfGmk/F7xNoPiqH4N6DpGn/AAS8G2mjfC3wHZt4D0fw1FBB
         o9n4es9EcA//2Q==
+</value>
+  </data>
+  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>143, 17</value>
+  </metadata>
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8KSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
+        AiEJCXtvKLSlUFYplLbQqljLSQgQEkYYYYSUJCSxZTvOJJsEZ++9FxmMOJORcL57pGNblv+S7tGVbEl+
+        3+f5PfT7CI6sI+n9S/fcqyQEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
+        QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEiWb6WZP+R7E36mjOT7nT4kj5g9mZcldGvqFr
+        S2vSL8UfQRAEQRAkUWKxJZstzpQxFqvhW4vLwPyZXb86ZXYaxptdDTqI/wRBEARBkLgNS7pILf5nDVbD
+        91Tx05Lfyx3W8DfiJyAIgiAIEk/hH/ebnSkf0SUfnNlhWK/YG6WJH4UgCILETCYn/SIzP6WBaVjDplm2
+        FJP6vxX+Ma/Z1cDCKbYGGYqrQSb//+W8fFkjs9X8f/zdoPc/RhI+6uPD4jRMoMpdK7PLsAGfBCAIgkQz
+        1qSLsx2XNc5wJLdV37ENVl94H1JfgF9UvWFxpRQoLsMC9Z+r1H+3Pd2VfMTiuuyM7wu1hAvprkvLLa4G
+        h/nPUv/vNerPnSuKYqT6v5+zOBvel5FvuDrDldyG3yYMDXEYtfz58XyfddchZZz4qQiCIEhYUYs0O99g
+        NDsa9rfkpzyivriOVIu+WHElb0uzGn6s+cIbG/jmMPWfa9TbOtniTHGoxfK7zPyU3hmOy1MxHMRgPOUf
+        3sf+gWBjIIIgiMYYRxovVd9VdzM7kx+zOJPft9gNq3W8a49Z6uBywvPphDP5Ff7JQaYjpTU/7izuBqS2
+        Y026WB3SPqDWShf1Z4q/AUEQBKkIL7zMYQ07qy+UT/AXSr55ymI1nK/xIlpvNDinOJPLFKfhbbPL8CDf
+        h4BPCmohnvJXh01yTXSyGr7lP1/8TQiCIPUzncYmXWLON3RXy/559V1+qcl66UnyRRMqme2/OaD+8xN+
+        4ZkMZ6McDAQRjlrO6uD5rv/9HkmZwxo1E38bgiBIPYlaVt7NeYZ/mJ3Jsy3WX5+mXiBBgr3BV4rLMFEd
+        oB7wbDREwo+3/MeS93MEKY6GV4m/EUEQJHHDT5kz56dco77wvWGyGfb5vxhCBFkNP6v/XGp2Gf7JBy18
+        OiAR9b5S77u3qt2fGmXkN2Sd3s0m/x0lw5l8rfhbEQRBEiv8XHnFYXhYcaQUJuKGvXihuAz7LU7Dm6qB
+        2FAYJN7yf8P//tNqSHEvdv2MvuS/o2AAQBAkodLS2vgysyv5brVsStR3oD9RL3xQd/g1D8yulFHq+nTD
+        JwM+Ue8L9X4ZTd1nWlxT1JM9su4ODAAIgtSv8G89y3AlX6eWyqd4px8/1MLbYXamvGQZ1jBXLGX9jLf8
+        R1H3kRaD3T085e8dAPqRf4aCAQBBkLgNP0fd864pwLehxbLMEY1Y9iuNWc6oy1numFTW4s001nJsU9b6
+        vXTW5gMja/uhqcpHftT/X+v3jazVu+nqf5PGmr/ZxPMz+M/iPzNjWEPy74xtKSv5xZT4JzhieetHPB/7
+        p7xK3yehDS7sXln+f1p3JwYABEESN9mjkv5XcSbfY3YYFlMvarGAl3vu6FRPQfPC7vBfM+s8JZN1c2ez
+        nqU5rM/c5qzv5y2iqvfs5qzn9BzWrTCLdfksk3X81MLafaSwVuqQkfN6KsscHptDgjgF8w0+3IklT9x4
+        j/mP9P39ZQzyK38MAAiCJGSynI2zzU7DcLX4j1MvZnWh2auXe961t1NLvtPkDNa9KNtTvFQh15V+n7f0
+        mteSXTGvldCa9Vf1ndWS9SjKZV0mZ7H2H5lZy7easqyXG5O/a10wuwyLzM6Uu/jQJx4GiRPPx/6GEdTv
+        rcWggm4+5S8GgPV3shtmXEH+eQoGAARBYjeeF8mGV1ichlLqBazW5Ktl/9rlrNU7TVmHCWbPu+pYK3pK
+        sPL3mN+GXVmpLbvKox27YnZr1rMgl3WakMlajzWyZq9cTt8vtURxGY7xvQL8rA7xyIjveMt/GPW7ajFw
+        Wley/B9dfxcGAARB4jyTk36hvujfwi8/S71wRRs/n5ofU+cf33edlsX6xEHZ+wuv/FUL2rEBHu09rvbo
+        wPrPact6TM1l7T8ws5xRqeT9Fn2XnVEHgdf41ySLR0r8xXvM30n/fqFdHbD8MQAgCBLH4Rfr4ZeWVV/k
+        +dfaki9a0ZChvsPPHdOEtftYLfwCtfDnxF/hV0eVf6uwy//qhR3YQI+OHoMWdmID5rZnPQuasw4fZrCc
+        12p3IPCc3sm/oyHf0EI8dOIj3vK3U7+TFldP7RK0/LkbMQAgCBJP8X7TXsqz/HKy1AtVNPCNevwj/c6f
+        ZcTFx/kyKsq/n0/5V777V0u/agAIr/wrDF7UudJVs9uzbhObsVZvpns+QaHu84jjVxx0pEzjX9wkHkox
+        Hc8pj9TvocFVUzqrxX+7zwDg3fRX8dE/9xgGAARB4iX8/H2zK/lRi/23h6gXqEjjx/H5KXR8N75/aSaK
+        oOVf7d1/W58BoF21AaCy/FVayv+aRV2ErmzI4q5s8ILOrHdBK9b+fTPLUgctai0izpE8xexo2Fw8tGIu
+        FqfBSt5uDbSUv3cAuBsDAIIgMZ7JSb/g3zWvvgjt9n9RijR+Xjwv/R7FzcjCTCSRKH/vAOAtf++7f2/5
+        +w4AwcrfqxsbKgxZ1I31dbdmbd81R//6BFbDef4Neka7IV080mIi6m37d43bqtGVn3XSXP6eAWAmBgAE
+        QWIx3t3PN1lcDTZRL0iRwj/e5xfK6VaYuO/0/XnKv8Zxf6r8vQNA4PL3/ei/ZvkP8in/wZXl34Us/6GL
+        u7OhS7qzaz16sKELu7HeU1ux1m+ZPPsuqLWLjAbn+C57xdUgRTzy6ixmp+EF+jaG1n+yf/n7HvevWf6P
+        beADQH/yZ1EwACAIUisxuxp0UF90lvi/CEWMWigt3kpjXaZmsr5z6ZJMVLVX/r7v/qvK/5rK8vcdAKqX
+        /3UePb2+6MmGzO/Guk9sznJejeoGwu8szpTn6+o6AvzrponbpEn/yR2ly//PG+7BAIAgSOzE8418TsPb
+        4itiyRciPbJebuQ5XY9fYY8qx0QXXvmrarH8qw0Aavlf/0WvSjd80Zv1L27P2r5jjtrmQc9ZJfkpg8RD
+        slbCBw/qtmhxxaQOQcq/agDwL38MAAiCxET4175mOA2Pqy803/m/8ERC8zeaeHbw17d3+9VR5R/Z0/3k
+        y987AJDlr/Iv/wo3Lu3DhszrzrpNyGXZI6N04SFH8pTauIaAxZXyHPn3a3DFxPDLn7tp5pXkz6VgAEAQ
+        JOJRX2j7mR2G9dSLjh78uDE/da8+bOjToqL8I3K6nyqcHf9y5V81APiXv1dfdpPqxi/6sL7T2rLmo9LI
+        x4E+l50x56f8nZ+BIh6uEY3ZmfIM/feG1u/T9uyPnvL3HQDU8vf76J+f7lcxAPiW/+Mb7sUAgCBI3cRs
+        bZBscSa/T73Y6MF3j7cZZ2Q9Z9TPj/kpQcu/2rv/6J3uF9ny7+Mpf69+7OZlXlcWdWAtx6STjws9TM7k
+        rRkuwwDx0I1IzE7D09TfpUVfjeVf/d1/9fLHAIAgSJ3E4mx4faTP5+e7+dt9rLDes3LJEqyvtJe/77v/
+        6J7uV1X+3gEgEuV/87Ir2C3C1aWdWZu3FfJxooszZQy/EJV4GIcdi9PwJPnzNej733ZhlL/vu39v+XsG
+        gFkYABAEqaXwTX7qi98E6gUmXLz4249XEuCSvJHnKf8ax/3DKX8xAAQofz2n+wUu/6oBQKb8b1nWn936
+        pdc1s7uztm+bycdN2BwNNltcye3EQ1o6Yq8L/bND6EOWv+9xf+3l//jG+9jNGAAQBIl6+HXN81Nu59/U
+        Rr24hIN/1M939CfapXkjpfbKP/wd/77lT+34D1z+fUOW/61fXslu87iKDZrRlbUaYyQfR+Fo7DL8wI/f
+        J1mTLhaPcE1RXA3/TP08LfpMaBvR8n8CAwCCINEOv8CK2WWYTL2ohIOf/sWP8feaiY/6Awmv/FW1WP7V
+        BoAA5V99APApf593/9XKv3IAqCp/7naubAAbUNwpopsFzc7k2aZhDZuKh3rQqAPDn6ifoUXvT9qEKP+q
+        AYAu/6rj/hXl7x0AriL/PgoGAARBpKI4UnqZbIZ91AtKOFqObVpvz+HXjir/+D3dz7/86Y/++3sHgGrl
+        7x0AKsqfu4P/88sBrP+09qzZyIhdVOhri6vhDeIhT8biSvkj8d9p0uuT1pEr/w1V5f/ExvsxACAIEoV4
+        rt9v+Jf6wnHB/4UkHDmjLmfdCrOIsgN/FeWfaKf7aS3/Gu/+fcr/jrKrPe5U3bZsAOsxoUXELijEL2CV
+        OiL11+IZUJkMV8rvqT+vRa/xavmvvV3Tpr9gp/tR5f8kBgAEQSKd7HyDUXEYFlIvIrL4Br+On5rJooOa
+        gpZ/tXf/8X26H33cnyp/3wHAW/6eAWD5QGEQu3F+34htFOSnCyr2Rh3FUyHJ7DI8RP05LXp+3Epz+Vd/
+        90+V/701yt87AAwg/24KBgAEQYKGfxSqvvP/hnoBkZJvYK3fT8cpfRK0l7/vu/9Ine4XeMe/t/y9A0BM
+        lH9ZRfkPZHepA4DXYHZ1UReW84r+wwJpVsOP/Op+nvIP85LW4Zd/8E1/vPyrBoAH2C0YABAE0R3PR/4p
+        DuqFQxb/Hv7uRfXnm/kiwVP+NY77h1P+YgAIUP6xerqf3vK/m1sxmN3x5UDWc0LLqH3PgBY9PmoZoPx9
+        j/uHU/6+7/4fYE9uwgCAIIjOeK/oZyihXjRk8Ev3tvvIxPrU6+v1y6u98g9/x79v+UfzdD9P+XsGAOq4
+        P1X+gyrL/+4V17B7hBvn9WOtx5jIx2k08fL/w5rbol/+qqcwACAIoifmfEMLz7enES8YMnJeT2Xdcc1+
+        aeGVv6oWy7/aABCg/KsPAD7l7/Puv1r5+3z0H+nyv2fFEHaviv/vfp+1Z5nDGpGP2Ujr/mELtfxvDVH+
+        VQMAXf706X5U+T+16UEMAAiChBd+vN9kvfQk9WKhFb+YD7+KX/3+lr5wUeWP0/3ky39wjfK/dyU3lN2n
+        umXBlaz1G9H9NCDi5U/s+K8YACrKHwMAgiDy4Vf1cxn+7f8CIYsf68c39YWvovxxul/FcX+q/FU6yt/r
+        WnbfiqGs76R2Udkb0O2D5t7yj+LpflT5P+0ZAK4mbxMFAwCC1PN0Gpt0ieJK+ZB6gZDR+r10XLtfh6Dl
+        X+3dP0738wq//O/3uI7dv+o6duPn/Vjz15qSj+lwdJUs/+rv/qnyp0/3qyp/7wDAy//pTb/DAIAgiLbk
+        Dmv4G8VpmEm9OGjFz+vv/FkmWWqgjfby9333j9P9vNTiD3LcP1j5P+BxPbunbAjrMi6HfHzL6DouV0f5
+        h9r0V/10P6r8uVtnYwBAECREzMMbN7G4UlZRLwxa5Y5JZb3wHf26eMq/xnH/cMpfDAAByj/RT/cLVP5V
+        A8C1VQOAT/lzD3rcwK4u7Br2BsEuQctfDABhl7/vu3/v6X7VP/r3lv9fNmMAQBAkRDKcjXLUF4Dd/i8I
+        Mtp+aCILDbSrvfIPf8e/b/nHw+l+9Ef/1cvfOwB4y987ANzAHlztdeuCAdKHBLq8n1N75U8c968aAB7C
+        AIAgSOCY8w3d1Sf/1/4vBlrxXf6dP8sgCw20C6/8VbVY/tUGgADlX30A8Cl/n3f/1cq/cgCoy/L3ffdf
+        Vf6/W32jx71l17KO72SRj39/VeUf6lz/qgGALn+50/1qlj8GAARBgsTsaniFxXXZGerFQIvsVxpjl39E
+        UOWP0/3kyz/Upj/58uceWn2T5589x7cinwcVOr/XjD28+pbIlr/Ejn//8udumz2QvK0UDAAIUk+iOBpe
+        ZbH+9iz1QqBF8zea4Dr+EVJR/jjdr+K4P1X+Kl3l7x0Awil/jzU3sYfX3MyumtqJPFWwk2/518HpflT5
+        P7P5YQwACIJUj8VpGGhxNThHvQho0eYDIy7sEyFBy7/au3+c7uels/z9dvx7y79qAAhW/l63sGtLe1fb
+        HNjp3Wzp8q/+7p8qf7nT/WqWPwYABEH8YnamDDZYDd9TLwAh5RtYh//G9lf39pnbnPUszWHd3NmevQkd
+        JphZ249MrM04I2v1TlPW4q00ljumCcsdneq5PHHOqMs9Fyzi+P/m/z9+NgP/hKPF22ms1XvpnoGn3XjF
+        87XFXaZker7IqNdM/Z9+aC9/33f/ON3PSy3+oMf9o1P+vxdunT+ANXs5lXV8J1T5+370T5V/qE1/1U/3
+        C7bj37/8vQPAIPq5TMAAgCAJHMWVPLSxy/AD9eQPxbPZTy0/qsjqAi95XsbtP1E8Fx3ihZ01snau6V6B
+        f7kR3wfBhwo+JHT81MK6FmRpOjTiKf8ax/0jX/6yp/tpK/+qASC88vcOANEs/0DH/cMv/5sry//3a29l
+        f1Ddu3RolMvf992/tvL3DgDe8scAgCCIJ/zJ7f0ec/rJHwy/uA9/R00VWW3gZd9pcoanZPm798zhdfdV
+        rlrxwaDl22me70HoOk0dCmZXXRUxcuUvBoCA5R/+jv/wyz+M0/2qlb/vcX+q/EPt+A9c/t4BwFv+3gGg
+        5nF/reXvxYtfiHb5Bz3uT5f/X7f8HgMAgtT3WFzJfcM95u/Z6V9Suzv9e0xv5jnU0HJs01p/Vx81+d5v
+        RGz7gcnzyUUfdSDQXv6qWiz/agOAT/l7B4AQ5e/z7r9a+ft89F+t/D0DQKTK3zsAhFv+lQOAWv4PRaz8
+        qwYAuvxDne7nHQACl7/vR//Vyx8DAILU85jtDdqnuy4tp57woTQbdXlEjnWHwsuQH15o/X66Z+Cgbkui
+        4YcP+KcZHcabWa/iXB3lXzUARLz8Pe/+a5Z/9QEgdPn7Hvf3lr93AIjF0/38y7/yuP9a3wHgtqoBQHP5
+        Vw0AZPlHYMe/f/lzt2MAQJD6GdPw32alu5KPUE/2UPi71Wie5sd/dseJFs/xc76/gLoN9UnWyMas7TgT
+        6+nO0Vf+qqry17vjX3v5y57r7/3onyp/la7y9w4AES3/au/+fco/Yqf7hdrxH175P7vlDxgAEKQ+RrE3
+        SlOf1GFd3tdT/j7HrCOFfztgp0kWz4Y9/pE49XeDdxho94HCehW3qDYAJNbpfjXL3zMAiPLXfbofWf5V
+        A0CN8q9x3D8y5e8dACo++g9d/r7H/b3l7x0AQp3uR5U/BgAEqYdRXA1SzA7DeupJHkrO6MiXP98Z3+rd
+        piwjDjbvxZqcUams86dZrP/ctpXlH+i4f0Xxc9rL3zsA1G75+w4Awcu/rk/3o4/7h1P+oTb9BS5/7wAg
+        X/7cHXMGk48rCgYABInzZI9K+l+zy7CIeoKHws+Nj1T585/Dz8HPfrV+HNOPNn71udbvGFnv4hZk+cfm
+        6X7RP9c/0HH/SJ7uF7r8fY/7h1P+3gGgovzDOd2PKv/ntvwRAwCC1JuwpIsUV8qH1JM7FH7xG74Zjypz
+        Gfy7Afh5+TiuHz25rzdh3T/LYQMXiAEgQPnjdL/Ax/3DK39VtMs/6HH/4OX/V5/yf1Yt/+e2YgBAkHoT
+        izPlWeqJHQo/5q+3/LsVZnk29FE/P6ZYDT97zoqwN/jKZDPsszgNO03O5K2KK3mbxWbYxf9/RkfKUT1f
+        klRbsl9uzDr/N4sNnN8xrPKvNgDgdD+d5V81ANDlH+p0v1Dl7/vRv7by9w4A15CPHQoGAASJ0/Cr/PFy
+        o57YwfCP6PXs9u8yNdNz6ID62bXsglrgeyyOlM8truT31P/7RbPT8Dtzfso1ZleDDtn5BmPusIa/SbIm
+        XSzuspDpZ036H7O1QTI/m0LJT+lpdhluMruSH1WHBpfqU/U+/9LsMBz3ux21LmtEI9b5E3UQmNcpvPL3
+        vPuvWf7VB4DQ5e/70b+3/L0DQCx9tW+g8o/30/2o8n9u6yMYABAk0WPKT2llsl56knpSB8N3m/eckUMW
+        eyh8Y1+dFb/V8K1avrPUQs5XnMn38GsdmK3m/xN3R60n23FZY4sjuR8fDtSBYKzFlbJKvW0/kbc9ijKH
+        80Egmw1e0Nmv/L0DQCTKH6f7Bd70V5en+1Hl/zcMAAiS2Ml5+bJG6pNX+nQ/fnnfcK7w192d7T2Nj/iZ
+        UeNosFlxGt5WC/Zu/m6c73UQv37Mhg8kFqehm9mV8lez01Ck/h7f1fi9oiTr5cas+6RcNmRRVw3l73vc
+        nyr/yJ/u51v+ON2vovy9A0C4p/tR5Y8BAEESOJ3GJl2iuAwLqCdzMHyDnuy1/XvNyPF8mx718yJN/Z2O
+        qaU5nhd+huPyVPHrxncmJ/1CsTfqaHYZ/ml2GBZbrIbz1O8eSTmvprI+Ba1E+XsHgNotf98BwFv+ngEg
+        UPkH/eifKH+c7leJKv+/bf0Tu3MuBgAEScioZTKMeiIHlW9gXaZp/1Y/fvGedh8rUd/Vr75T3sE/0s/I
+        N3SVOU4fr+HXauCHLyyOlGnhfk+DVq3eMrKrZ3cKUv5VA0DUyx+n+1WWv+xX+/oOANXKv/Ldf/Xyfx4D
+        AIIkZszOlCHUkzgUme/z5xv8onltfvWd/n7PhjpXcrt4+Fg/WmlpbXyZJT/ldnUAKo7WJwP8OgJdxjdj
+        Qxd1lyx/vaf7hSr/UJv+cLpfsPKnP/r3lv/z2/gAMIR8PFAwACBIHITvaFefsF/7P4FD4V+2QxW9P/4F
+        QPyb+KifoV+Dc+rw8pHZ0bB/fXinL5vMEamXm52Gp9VhYAN9/+nT7JVUdkVRW58BQGv543Q/b/lXDQB0
+        +dfN6X6+5e8ZANTyf37boxgAECSRwk9NU5+sS/yfvKHwjXt959KF74t/QQ/fIEj9DH0abFH/+RT/6Fv8
+        KkiwsKSLMhzJffjphmlWw48170992r1nYUMX9CAGAJ/yD3C6X83y9w4AON2v7k73o8qfuwsDAIIkTrwf
+        mdNP4ED4x/ihzvXn7/qjcSEfszN5tiU/ZVB9/ohfb8zDGzexOFMc6v0Z0TMJ+IWErnC3I8tf9nS/wOWv
+        Clr+MfTVvnF8ul/lR/8+5f93zwAwlFx7CgYABInhmJ0pg6knbjCZwxuGPN2vy5TMSL/rv6AOKhM8x/aR
+        iIVfyIgfHrC4fnuQuM/D1vGDTHb94t4hyl+8+xflX/O4f/Dyr6+n+9Usf+8AEOnT/ajy//u2xzAAIEgi
+        hB8b5qfHUU/cYHi5U6XP8R3+/Lr91H8Xpgv89D3LsIa54mYjUQi/xkCG0/C4xdXgMLEGYcl9rQkbNKtL
+        mOXvOwB4y98zAIQo//p6ul/45R/4dD9v+XsHgIryxwCAIIkQlnSRxZE8hXrSBtPmAyNZ/FzP6TksZ9Tl
+        5H8XnpSpZkfD5uIWI7UQ40jjpWaX4S8Wp+Ebek3k8DMFen/WOjLlHzOn+4VT/r7H/cMpf993/7Vzuh9V
+        /v/AAIAg8R+LM+UO6gkbDP9e/0Cb/jp/luE5NED9d7L4RW3MzpQe4qYidRC+sVIdBEY0dhl+oNZIVof3
+        MthNS/r6lb93AAi//ENt+sPpfsHKP9TpflT5/2P7nzEAIEg8h18JT31ySp3yx4/n9yylr/Hf9gMj+d/I
+        Mtt/c4Cfu47NfbETxdYgw+JKKaDWS1bzUWns2nk9cbpfwPKPrdP9fAeAivLn7sYAgCBxGs9H//xKcfQT
+        NhDquH/v2c0jssvfe0paijN1ROqvxa1EYiz8hdzzzYjE+snIGtGYDSzt7FP+3gGgfp3uJ8pfRZZ/jJzu
+        V+3d/3bfAeBacm0pGAAQJIbCr4VPPVGDoY77808Dmr0WgeP9zgbL+DcPipuHxHDSrGm/4qcOmnV+KyHf
+        F9BvalsN5a8KWv443S8y5e8dALSU/z+3P44BAEHiMYq9URr/2lvqiRoI39TXx++4f/ei7Aic4nfZGfWf
+        T/AvtBE3D4mT8K9KVtduTfX1lNftk+beASBE+eN0v4ry9w4A4e/411/+GAAQJE6jPiE/8X+CBsPfqfUo
+        rn6+P//SH71f4qO4kr/MHNaombhZSBympTXpl2Znik1dzwv+6yuj4/uZ7LZl3iGgovw9A0CI8sfpfrLl
+        H+p0P6L8PQNARflXDQD3zL2OXEsKBgAEiYHwb8SjnqDBtBuvVCv/TpMy1KGA/rOa8C+lcRqs/NLD4mYh
+        cR4lP6Wnura7a6y1hLZvm9mtS6/0efdfUf6+H/2rpR/0uD9O9/MfAKqVf+W7f7/y9xkAtJT/C9ufYPd8
+        jgEAQeInfOOfy7DU/8kZTM7r1U/56zDBTP45rcyuX53yXL4XSbhk5qc0MLsMk6l116rVGCO7ZUn/MDf9
+        aSt/7wBQ87g/Xf443Y8q/xd2YABAkLiKOT/lTurJGYjno3+fS/2211n+3svM4hK+CR11yORXEtTzJUMt
+        Xk/3DgFS5e8dAKjy9w4Awcu/cgDw2/Snr/yrBgC6/OPjdL/q5a9Syx8DQAKGqU/eydbGlxVYzckQH+Zb
+        zf8nli9o+JXdTDbDPurJGUh7n4/+23+ikH9GK8VlWMe/aljcHCTBY843dLfYf3uIeixo0eL1puzWJVdG
+        qPx9P/rXXv443a/6pj/PACDK/8UdT2IASIRMtWZeXmRXnlMtVJ1SMYgz1vQj7jzTtCKH+e7J1pa/FEtb
+        LWan4QXqiRmI56P/SJW/0zAz22r4rbgpSD2J55sGJQ85+aoYAqrKH6f7Rab8vQNAuOWPASABUjoq+3+L
+        bKa8IqtyliwViFf7i/OUW8Uye2Ia1rCpxfrr09QTMxB+ih8vf37hH+rfa2V2GN7tNDbpEnFTkHoW/uVC
+        ni9xIh4bWrQcbWS3Lx2gofy9A0DQ8hcDQI3yr3HcX5S/ZwAIv/yrvfsPq/y9A0D4O/6jV/7eAeB6cs0o
+        GABiKCVWc5MCu7KcKA9IHG9OFufWW1wp46gnZSCt3mnqKX/+pT56rutvzk/5Oy7ni/DHgNmV8h/qMaJF
+        mzcVdueXg4gBgCh/nO5XSbr8PQNA4E1/vuX/4o6n2L0YAOIvM61GQ0GecQtRGJB4Pswc1rCzxWr4mXpS
+        Uvi5/b1m5Hq+zjfcK/zxL44xO1PuEg85BPHE7DI85DkFlHjMhNJ+bIbnUECg8vd991+75e973D+c8vd9
+        9x+bp/vVLP8n2b/4ADAPA0BcxWpNuthtN00nigISkFvV3mbYRT0hA2n3scnz7r/l2Kbkvw/Javg2w5Hc
+        RzzkEKRaLM6G1xushu/Jx04IXT7IqSz/QMf9fcvfOwB4y993AKDLP9SO/1oo/6DH/b3l7x0Agpd/pE/3
+        o8r/XzsxAMRd3Dblb1RRQGLKc8iVeNbIxp53/mGf7seHjWENc8XDDUHImF0Nr5Ddk1Kh98Q2AcvfOwAE
+        L//KAcBv01/w8lcFLf+qAYAu/7o/3c+3/H0HAC2n+1Hl/6+dT2MAiKe4HUqvIqtynioKSDxTVZ1cctfp
+        7zQ5g3UtyGKWMK7y57ms74jUy8XDDUGCxuxM6ZHuurSceiyFMrCoa4Dy9/3oX3v519fT/bzl7zsAeMvf
+        MwAELf+n2L8xAMRPiqxpjdx25QBVFJCYnnI0IZ+IgeSMTmW9ZuSwrJfD+HIfR8o0/g1x4uGGIJpicRq6
+        mayXniQfU0FkDmvEbpjbr3bKX+Omv9Cn+9VF+Yt3/4E2/Uns+Oeb/nzL3zsA3ECuDwUDQB0Fx/3rH/7u
+        v7VLbvd+t8IslqsOAdS/C8qR8jmu6Y+EG893CIRxOCBnZCq744tBdPmLAaBG+dc47i/K3zMAhF/+1d79
+        k+Uf36f7+ZY//+gfA0AcBcf965+/O9LIJ2EgLd9pylq/n07+u2DM9t8cwMf+iN4oroZX8jNHqMdYMPz0
+        wPtXXOtT/lXv/sMrf+8AEH75h9r0F5+n+/ke968o/3/v/Au7DwNAbCec4/4zX2nN9q4ayfZBzNu+xEqu
+        4RCn9tP3+Gl/7T6Wv9Iff8Hm3ywoHmoIoitml+Em9XEl/ZXCPT9pVUvl73vcP5zy9333L3+6X8Dyr3z3
+        71f+PgNA+OVffdOfb/lbPQPAjeSaUDAA1HLCO+5vZiePzmXswjGIE7u+tFdbQ37qXwuJj/9bvJkW5vf6
+        p/xRPNQQJCKx5Kc8Qj/Wgrtmeo/K8vcdAOjyT5zT/arK33cAqJ3yt+7CABCzCfe4/54Vw8iSgdj18/mv
+        2LIJN1Su4RQV9QSk8G/7yxwRxqY/Z/L7uMIfEo1YnCljyMdcENkjGnv2A5Dv/v02/QUvf1XQ8q8aAOjy
+        T8zT/ajyt+56ht2PASA2E85x/7KJN6tlcoQsGYhtP53dxmaMbOlZx4l2E/kEjJyUlfz67uKhhiARTUtr
+        0i/NDsNi+rEXWLu3M0KWf8RP9wtU/jF5up+3/L0DgLf8PQNA0PKv2vHvX/7/wQAQmwnnuP+sV9qwn85t
+        J8sF4sOJr2Z61rJQlUM8ASPCafjG7GpgEQ81BIlKvN8i+NuD5GMwiAEFXcIvf42b/urj6X5U+WMAiMHg
+        uH/9VrEfoL+rMfkk1IV/n4DTMFA81BAkquHXCJA9MyBreCN25+LBxHF/Uf6eASD88q/+7p8q/8Q83a9q
+        AHjGZwD4KwaAWEr4x/2Hk2UC8adiP8DTkqcBamF2Gf4pHmoIUivhjznqsRhMu7cs7HfqABC8/L0DQPjl
+        H2rTX2Kd7keVPwaAGEt4x/1vwXH/BMP3A0wZ2ZzlEk/CcCmOlMIkdcAUDzUEiXoyXMltjI6Uo9TjMZQB
+        0zrrKH/f4/7hlL/vu//EON2PKv+X+AAw/yby/qdgAIhicNwffPH9AH91RuZTALMzZXtmfkoD8VBDkKjH
+        8xXWTsM31OMxFH6Z4Otm9vEMAHVe/kGP+3vL3zsA1DzuT5e/7wBQW+XvHQD8y/+l3c9iAIiFhH/c/3Oy
+        PCAxbP8yjw2VuCAQhX9ZS6YjpbV4qCFI1KM4UnqF+yVBmcMbsRtn99NQ/qqg5V81ANDlX79O96PKn3sA
+        A0DdBsf9IRC+H2DBJ9exq53hbgi87Ax/MRYPNQSJevglgfnjjn48Bpc1vDG7eW7/6h/943S/qgEgaPmH
+        2vFfs/zzPAPAzeRaUDAARCHhHPf//I2O7NTxCezMt59Bgju2exRz52ewB5xyX/KTZW/wFcofqc2Y81Ou
+        sbganKMej6Fkj7ic3Tr/Km3lj9P9BK3l7x0A/Ms/b/dzGADqMuEc95+en8W+2vYSKz86BuqJbYse8az9
+        Gw4jG+RszDKIJ2cFvnHwPnVY+Nievn+m1WgQDzUEiWrMDsPNaVbDj9RjMpRmL6ey2xdeXb38PQNA+OVf
+        /d0/Vf7163Q/T/mLAaCi/LkHMQDUTcL9fv/tSx4lSwISW9mkayofAx/bTexvjjR2ryOVXa8OBDc4L/d8
+        QvAvR1M2Sf13Po8XN8PlfpEox+xKvttiNZynSiOUnJFN2B2LBgUpf+8AEH75h9r0Vz9O96v+7t9b/hgA
+        6ijhHvdf/tlQshwg8X176FU2d0wH8nERVJ7pL+JhhyARj+IwPOy5wBRRGKHkvprG7loyWEf5+x73D6f8
+        fd/9J/bpfv4f/XO23X9jDy7AAFDrUcv/efLFOgh+3P+7Q6+R5QD1w+Gt/2El+Znk4yOQD+zKT4UvpXcT
+        Dz0EiVgynIbHqaLQosVrTdndS4eI8sfpfpEpf+8AoLX8bXswANR6imym3jjuD+Gq2A8go9Bu3Iv9AEgk
+        Y3Gk/I0qCS1avp7O7lk2VGP5q4KWf9UAQJc/TvcLVP7eAeAWco0oGAB0hh/3n2ZVDlIv0sHguD/48t0P
+        IAH7ARD9UR9DZlfKf6iC0KLVaBO7t+zayvLH6X4VA4C3/D0DQNDyD+90v6ryV4nyt+95HgNAbYUf9y/M
+        M5USL8xB4bg/+MN+AKROwsvfaRhOlYMWbd5Q2H3Lr9Ne/jjdT9Ba/t4BIGj5i3f/vPwxANRicNwfIgn7
+        AZBajfoGxuJMGUMVgxb8C37uX0GUv2cACL/8q7/7p8ofp/sFKn8MALUUHPeHaMB+AKRWMjnpFxZXyjiq
+        FLToMDaTPbDy+hDl7x0Awi//UJv+6vfpflXljwGgVoPj/hBN2A+ARDOdxiZdYnEaPqUKQYtO72azB1fd
+        oLP8fY/7h1P+vu/+6+fpfr7H/TEA1FJw3B+iDfsBkGgle1TS/6rv/AuoMtCiy7gc9rvVN/qUP073i0z5
+        ewcAveWPASDKwXF/qA3YD4BEOsaRxkvVF/0Z/iWgVbcPm3vK/yHN5a8KWv5VAwBd/jjdT7b8OQwAUQqO
+        +0Ntwn4AJFJpaW18mfrOfx5VAlr0+LilWvw3VSt/nO5XMQB4y98zAAQt/8ie7hcIBoAoJPzj/n9SX8xf
+        BwhL2aTB5OMqBOwHQCpjtjZIVl/sl/q/+GvVe0Ib+fLH6X6C1vL3DgBBy5/Y8U/BABDhhH/cf4j6Ij4K
+        IGzfHnqZzR3Tnnx8BYX9AIiaps7fNFTf+a+iXvy16DexHXtoNS//m2qWv2cACL/8q7/7p8ofp/vJlj+H
+        ASDCCe+4fwf23aER6ov4qwC6HN76IvYDINIxD2/cxOwybKBe+LXo/1lHjeXvHQDCL/9Qm/5wup+3/DEA
+        1HrCPe5/ZNuL7OTRVwAiYtuih8nHWjDYD1B/k51vMCqu5G3Ui74WA6Z2jlD5+x73D6f8fd/943Q/LTAA
+        RCjhHvffseT37OSRlwEiqmziQPLxFgL2A9SzKLYGGeqL+27/F3stMvINbGBhN6L8cbpfZMrfOwBEq/w5
+        DAARSLjH/VdMHqy+WI8AiLjvDjrZ3DHtyMddUNgPUG9iGdYw1+L67UHqxT6UjPyGbHBx98ryx+l+wcq/
+        6rh/LJU/hwEgAgnvuH97duKgQ32xHgYQFV9teR77ARAyGa7kNkZHylHqhT4UXv5Dp/ciyx+n+1UMAN7y
+        9wwAQcu/dk73CwQDgM6Efdx/6/Pqi3Q+QFRtW/QA+RgMZprNtM9tMz1aZDf9CRLPPxxNnZnWX5+mXuRD
+        yRzWiF03s0945Y/T/QSt5e8dAIKWv8SOfwoGAB0J/7j/g+qLsxOgVpRNHEA+DqH+GeVIZ81dDckX+FCy
+        hjdiN8zu6y3/Gsf9Rfl7BoDwy7/6u3+q/HG6X6TKn8MAEGbCP+4/kJ064gCoNScOvsTmjmlLPh6h/hhp
+        T2e5xAu7FlkjGrOb5l4hUf7eASD88g+16Q+n+3nLHwNAnSS84/7tWPlBq/qibAOoVUe2PCO9HwASxzD1
+        nX8z4kVdi+wRl7Nb5l0ZwfL3Pe4fTvn7vvvH6X56YAAII+Ed989kR7c+o74Y5wHUie2L7iUfm5DYbI6m
+        LDPMj/2bjUxlty0YEKD8cbpfZMrfOwDUdvlzGAAkUzgs9zfqk2q//5MslB2L72WnvvoPQJ1aPvFK8vEJ
+        icnqKX/6BT2UnFeasNsXDfR+q58of5zuF6z8q477x0P5cxgAJOO2mf5DPdGCWTH5KvXF1wpQ504ceIHN
+        HdOGfJxCYvmnI41lEC/kWuS+msbuXDIoYPmH3PEfqfLH6X6i/FURLn8OA4BEJltb/nKKXTlOPdkC+fyN
+        tqz84D/VF99/AcSEI5ufYCWuDPLxConhWWca+SKuRYvXmrK7vhgcfvnjdD9Ba/l7B4Cg5R+BHf8UDAAS
+        KbQpA6gnWyCe4/5bnmCnv3oRIKbsWHgn+ZiF+PeUown5Aq5Fy9eN7O5lQ6rKv8Zxf1H+ngEg/PKv/u6f
+        Kn+c7hft8ucwAEikyKa8SD3hAtm5+E71xfafADFp+cQryMctxCe36lEd5d96jInd++VQyfL3DgDhl3+o
+        TX843c9b/hgA6jxum+ld6olHWTG5v/oi+w+AmFV+4Dk2d0xr8vEL8YWX/8PO8Mu/zRtmdl/ZtREuf9/j
+        /uGUv++7f5zuFw0YACSiPtE+9H/iBfLd3r+oL7LPA8S0b3Y+wQ6sehDi2L6VD7BnJnQiX7S1aPeWhd23
+        /Log5Y/T/SJT/t4BIFbKn8MAIBG12DUPAOUH+ADwHABA1JQffpb9dWp38gVbiw7vZLL7V1zvKf/KAcBv
+        01/w8lcFLf+qAYAuf5zuV1flz2EAkIha7NoHgH1Ps9PqkxMAIBpOHHyG/XliF/LFWotO72WzB1YGL3+c
+        7lcxAHjL3zMABC3/2DzdLxAMABIpsikfUGVPKd/3pPokfQYAIOLKDz7N/vBpR/KFWosu43LYg6tu0Ff+
+        ON1P0Fr+3gEgaPlHccc/BQOARGQGgJP7nmBnDv8FACDi/lPUh3yR1qLbR83V8vcWf2X51zjuL8rfMwCE
+        X/7V3/1T5Y/T/eqq/DkMABJx25VxVNlTyvf9WX2iPgUAEFGL1txJvkBr0WN8y8rilyt/7wAQfvmH2vSH
+        0/285Y8BIGZTZDO9T5U9pXzfY+qT9UkAgIi6+f1c8gU6lN7/bROl8vc97h9O+fu++8fpfrUJA4BEpAaA
+        vY+oT9bHAQAiZv3m+8gX51D6TmrHHlztd8y/RvnjdL/IlL93AIj18ucwAEikyG56jyp7SvneP6pPWH4Y
+        AAAgMt6cO4B8cQ6m/2cdqpV/5QDgt+kvePmrgpZ/1QBAlz9O94u18ucwAEhEbgD4vfqEfRQAIGKe/kzu
+        gj8DCjprKn+c7lcxAHjL3zMABC3/+DrdLxAMABKRuRTwyT0Ps7OH/gQAEDEPfNyafHGm8Hf+95QNYfeW
+        Da3EL/d733LuOnZ/pevZA9wK7gb2oMeNHr/zuMnjIY+bPR5ecYvXSnVgWHmrj9s8/rDq9kp/rKQOD6sr
+        qMNDJXV4WMPd7fGYxz0ef17L3evx+Nr7Kj2x7v5KT657QFCHh/UV1OGhkjo8bOAeruGZjdzvPf668Q+V
+        nt30x0rPbXpEUAeJzV7Pb1YHCY/H2N+5LZw6RFRShwhu6xMeL3g86fGix1Me/6pj9865nnzsUDAASAwA
+        5Xt+pz5h/wgAEDEPT9A+AABElNMwUFRh/YzbbnqHKntK+Z4H1SfsHwAAIuaFgvCv/AegR6YjpbWowvoZ
+        qQFg9/3qE5YfBgAAiIyJiwaSL84AUWX99elOY5MuEVVYP1NkM46lyp5Svvs+9Qn7EABAxBzefQ/LGtaI
+        fpEGiBKzK/kzUYP1N3IDwD3qE5YfBgAAiJwnJrUlX6QBosXsaNhf1GD9jduuvE2VPeXk7rvZuUMPAABE
+        1Latt7GcYY3JF2qAKJguKrB+R2oA2HWn+mS9DwAg4t6b15d6oQaIqHRX8hHTsIZNRQXW77htyltU2VPK
+        d97Bzh28FwAg4s6qXirqTL5oA0SE0/CNYm/UUdQfohb7m/5FH0j5ztvUJ+rdAABRcVb13tzeLAebAiHi
+        UlZlORtni+pDeNRilxgAblGfpHcCAETVti03sCcntWLNMAiATmZXyg61/P/Yz5r0P6L2kIoU2pQ3qLKn
+        lO+8WX1y8sMAAADRd2zPLaxk2ZXsldIu7IVp7djzU9pCAvn962Z2jyM1pLusl59XnIa3tVKLf6Tiavhn
+        s6tBhySWdJGoO8Q/MgPAyR03su8P3gYAAKBb2fj2ZNf4K7A3OCcqC4lk3HbTGOoOp5zccYO6aLcCAADo
+        hgGgjiMzAJTvuE5dtJsBAAB0KxvfjuwafxgAopQim2k0dYdTyndcqy7aTQAAALphAKjjyA0AQ9RF44cB
+        AAAA9Ckb35bsGn8YAKKUIrvpdeoOp5Rvv4Z9f+B6AAAA3TAA1HGkBoBtg9RFuxYAAEC3svFtyK7xhwEg
+        SnHnGUdRdzjl5LaB7IcDQwEAAHTDAFDHkRkAyrcNUBftGgAAAN3Kxrcmu8YfBoAoRb1zX/O/swPxDgCD
+        AQAAdMMAUMdR71yJAeBKddH4YQAAAAB9ysa3IrvGHwaAKKUoT3mVusMp5Vv7q4t2NQAAgG4YAOo4brvy
+        CnWHU8q39lMX7SoAAADdysa3JLvGHwaAKEVmADi5pS/7cf+VAAAAumEAqOOoA8BI6g6nnNzSW120KwAA
+        AHQrG9+C7Bp/GACiFJkBoHxLL3XR+gEAAOiGAaCOU2QzvUzd4ZTyLT3UResDAACgW9n45mTX+MMAEKVI
+        DQCbu6uLxg8DAAAA6IMBoI5TaDeNoO5wSvnmruqi9QQAANCtbHwu2TX+MABEKTIDwMnNXdhP+7sDAADo
+        tnx8Dtk1/jAARClum2k4dYdTTm7urC5at7j3w95u7MyOLuzMdgAAqCtfftiM7Bp/462G74usaY1i2TRn
+        04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAeoyzKj+785Rt6v9+s9hu7CpqNnZT
+        ZDcN8/8lAinf1EEt085x5cT6DmzJu1nk7wMAABAthXmm0hKXkinqNvYiNQBsbKeWKv8UID4cWNSaTXeZ
+        yd8FAAAg2qba08uL7cZBonJjK0U2JZ+60ZTyjW3VYuWfAsS+A4u1fckEAABAVFnTfixyKFeJ2o2duO2K
+        i7zBhPKNbdRy5Z8CxLbyDeo7/3y88wcAgBhhVb6ealfSRPXGRuQGgNbs/L62MW/pOBzzBwCA2OK2mz4R
+        1RsbKbIpTuqGUso3tlQLlg8Bsevb1dquLQ0AAFCbPGcJ2JQMUb91H6kBYEMLtWRbxbQN07LJ2w4AAFD3
+        TC+I+q37qDfIUfMG0srX57Lze9UhIIbNf8NC3nYAAIA6Z1Nmi/qt+6g3SGIAyFFLtnnM+nFXc1bsxOY/
+        AACITdNspn2ifus+bptip24kpXx9M7Vo+RAQm75Zpf3j/1VT72K7v/wnAACAbrNf03rqeep3on7rPnID
+        QDa7sLdZzNo7J5O83ZRTR+ewn3/YCgAAoMuF79ezWa9o+2ZD1SFRv3Uft91kI24gqXx9plq0WTFr3WRt
+        x/9L8rPZj6c3kAsJAAAg44eTc8muIdmMS0T91n2kBoB1GWrR8iEgNi1+m77d/ha8c5U6sW0mFxIAAEDG
+        if3jyK6hqJ07RtRv3afIZsqjbiSlfJ1FLdrYdH6PhU130bfb37qSx8hFBAAAkLV/9Ytk11DcNuVhUb91
+        H7kBwKyWbWw6od426jZTDqx9XV20LQAAALqtLb6V7BpKYZ65g6jfuo/bbnqJupGU8rUmdmFPbDowj77N
+        lPJDJeQiAgAAyLjww0Y2d3RrsmtqsKb9ONna8peifus+cgOAkf28JzZtmmoib7O/YkcG++HUWnIhAQAA
+        ZPx4agHZNRR3nmmNqN7YiNtm+g91Qynla9LVsm0ak5a+q20A+PzNPuz8Ob4BkF5MAAAArU5+9QnZNRS3
+        XRknqjc2ot4oq/+NDKR8TZpatk1i0ozh9G32t2raQ+QiAgAAyDq8wUZ2DUUdAB4X1RsbUW+UxADAyzY1
+        5pze2IS8vZS9y4eTiwgAACBr08x7yK6huB1KL1G9sZEim/Jv6oZSYnUAOLSwKXl7KZvn3MHOHXcAAADo
+        Nv/tdmTX+ONfBTzZ2vgyUb2xEZkB4ESMDgBbCrUPALsW38jOHH4cAABAl1MHHtP8BXTuPGWbqN3Yiduu
+        /Iu6sZRYHQDKPjCSt5dybNP96sL9GQAAQJev1mv/+F99s/2pqN3YidQAsDo2B4DZr2g7A6DElcFOH3qM
+        XEgAAAAZ2+dfR3YNxW1T/iZqN3aiTiUvUjeWEosDwLkt2jcALhjbjlxEAAAAWaun9CW7huJ2mK4WtRs7
+        ifcB4MgXaeRtpaya0kddNP4JAAAAgD4L39G2AdDDmtZI1G7spMhueoG8sYRYHAC2lWjfALh9/rXkIgIA
+        AMg4fehRz2FlqmsI+0XlxlZkBoDvYnAAWPmx9g2AX62/m1xIAAAAGcc230f2TABuUbmxFbfN9E/ixpJi
+        cQD4fJTG7wBwmtmpA4+oC/coAACALrsWX092DYVfcl9UbmxFagBYFVsDwA/btW8AnPdGK3IRAQAAZK0t
+        vILsGorbbrpBVG5sRb1h/6BuMCXWBoDjZdoHgBUTe7Czh/8EAACg2+L3O5BdQymwNTWJyo2txPMAsHOG
+        9g2AW+cMZmcPqQsHAACg04zhWWTX1GBVvmYs6SJRubGVIpvp7+SNJny7MrYGgNUT0snbSTm06nZyEQEA
+        AGR8s+0BsmdoxjmibmMvbrvpefpG1xRrA8CCMdo2AHIn9z6sLtwjAAAAuuxdeiPZMxS3zTRc1G3sJV4H
+        gPM7U1mxg76d/uaMak4uIgAAgKwNxf3JrqEUOox3irqNvfDrE1M3mhJLAwC/LdRtpJR90pVcRAAAAFlL
+        P+pEdg2lMM+SK+o29hKvA8CeOdo3AG6eMUBdtD8CAADoNuuVZmTX+JtqVU5brUkXi7qNvag38jn/Gx1I
+        LA0A6yZp3wB4YPnN5CICAADIOLHzQbJnaMYvRNXGZtQbqX0AWJFGlnFdWPy29g2AfMGohQQAAJDB31BS
+        PUOymUaLqo3NFNmUZ8kbToiVAeDC7lRW4qJvoz/+Uc3ZQ38AAADQbfOMq8iuoRTazQ+Jqo3NyAwA38TI
+        AFC+RvsGQL5Zg1pEAAAAWXxTOdU1lMI8cwdRtbEZt8P8V+qGU2JlANg/X/sGwA3FV6iL9nsAAADd+Gnl
+        VNfUYE37cbK15S9F1cZm4nEA2DhV+wbAvUuvJxcRAABAxsm9UhsAV4uajd0U2UzP0De+plgZAL5410je
+        Pso32+4hFxIAAEDGoVW3kD1DspneFzUbu5EaAJbHxgAwY7i2MwD4lzWcPcQvAQwAAKDP1jlXk11DcduV
+        x0XNxm6K8kx/oW485esYGABOb9C+AXDx++3JRQQAAJC1YmI3smsobofSS9Rs7MZtNz1N3XhKLAwAhxZq
+        3wC4rrAPuYgAAACy5r3Rkuwaf+Osys+TrY0vEzUbu4m3AWBLofYNgLsXDVEX7SEAAABdTu9/kBU7zWTX
+        1GTaKio2tlOYZ3qK/gVqioUB4MsPtG8APL7pDnIhAQAAZBxZdyvZMySb8qmo2NiO1ABQVvcDwOyR2jYA
+        Ts/PYGcO8ksA/w4AAECXHfMGkl1D4V+yJyo2tqPe2Cf9b3wgdT0AnNusfQPgwrFtyEUEAACQtXpKD7Jr
+        KIU2ZYCo2NiOemPjZgA48kUaebsoq6f0JBcRAABA1sKxrcmuoUxzNm0oKja247YpT1C/AKWuB4BtxdrP
+        ANgxf6C6aPwQAAAAQPjOHHyAlbgsZNcQ9ot6jf3IDADH63gAWPGx9jMAjqy/hVxIAAAAGcc33Ub2TABu
+        Ua+xH361IuIXINX1ADD3NW0bAPmpGqf3308uJAAAgIxdiwaTXROAVdRr7EdqAPiy7gaAH7Zr3wDIL9Zw
+        9tADAAAAuq0t6EV2DaUwz3S9qNfYT5FN+TP1S1DqcgA4XqZ9AFg5sSs7py4aAACAXkveb0d2DaXA1tQk
+        6jX2Ey8DwM5S7RsAt825Ul20+wEAAHQrHZ5Jdo2/KXblOGNJF4l6jf0U2Y2PUb8I5diyuhsAVk/QvgHw
+        8OobyEUEAACQ8e3W28meIdmU2aJa4yPxMgDMH61tAyB3au895EICAADI2Lf0GrJnaKZholrjI26b6VH6
+        F6mprgaAn3amsmIHfZv8zX09V120+wAAAHTbWNyH7BpKocN4p6jW+Ig6sfyJ+kUodTUAfLtS+wbAsgmd
+        yEUEAACQtfTD9mTXUKY7m+aIao2PxMMAsGe29g2AW2b0IxcRAABA1qxXssmuIZyyWpMuFtUaHymymR4h
+        fhFSXQ0A6yZp3wB4cPlQddHuBQAA0KV8p8wGQOMSUavxE5kB4OjSuhkAFr2lfQNg+a47yIUEAACQcXD5
+        ELJnSDbTaFGr8RO3Xfkj+csQ6mIAuLA7lZW46Nvjj39Uc+7gPQAAALptLu1Ldg3JZvydqNX4SawPAOVr
+        tW8AXPZRe3IRAQAAZJV90pHsGkqJ3dxe1Gr8pNim/IH6ZSh1MQDsn6d9A+DG4t7kIgIAAMiaMyqH7Joa
+        rGk/Tra2/KWo1fhJrA8AG6do3wC4b+kgddHuBgAA0OXUbokNgHbjalGp8RX1xv++5i9Dq4sB4It3tG8A
+        /G7rLeRCAgAAyDi8cijZMzTTe6JS4yvqjdc+AHxR+wPAjGHaBoAZIzLJRQQAAJC1bfYVZNeQbMqfRaXG
+        V9w25WHyFyLU9gBweoP2DYBL3m+rLtpdAAAAuq34tDPZNZQCm9JTVGp8RWYAOFLLA8ChhWnk7aCsK+xB
+        LiIAAICseW80J7vG3zir8vNka+PLRKXGVwrt5oeoX4pS2wPAlkLtGwD3LBqgLtqdAAAAupzZdzsrdprJ
+        rvFXkGfcIuo0/sIvXkD9UpTaHgC+HGckbwfl6003kAsJAAAg4+jaa8meCeC/ok7jL1IDwJLaHQBmjdS2
+        AXB6voWdPUAvJAAAgIwd8/qTXRPAc6JO4y9uu+lB4hci1eYAcHaz9g2AC8e2UhftDgAAAN1Wf9aF7BpK
+        oU0ZIOo0/iIzAHxViwMAHzao20BZM6UruYgAAACyFr7dkuwayjRn04aiTuMvbpvpAeqXotTmALCtWPsl
+        gHfO608uIgAAgIyzB25nJS4L2TX+ptlM+0SVxmdidQBY8bH2MwCOrhuqLtztAAAAuhzfeB3ZM6Q8pVBU
+        aXym2G66n/zFCLU5AMx9TdsGQH6qxpn9t5ELCQAAIGP3wivJrgnAKqo0PiM1ACyunQHgh23aNwDOf7M5
+        uYgAAACy1hV0I7uGZrpOVGl8psim3Ef/YjXV1gBw/EvtGwBXTerEvj94GwAAgG5L3mtNdg2l1JpuFFUa
+        n5EZAA7X0gCws1T7BsDtc/qQiwgAACCrdHgG2TX+ptiV44wlXSSqND7jdij3Ur8cpbYGgNWfaN8AeGTV
+        IHXRbgUAANDluy0SGwBtymxRo/EbqQFgUe0MAPPHaNsAyJ3ecxO5kAAAADL2fSGxAdCm5Isajd8U25R7
+        yF+OUBsDwE87Ulmxg/77/c19PYdcRAAAAFkbi7qTXUOyme4QNRq/ibUB4JsV2s8AWD6hvbpotwAAAOi2
+        9MM2ZNdQpjub5ogajd8UOcx3U78cpTYGgD2ztW8A3DKjJ7mIAAAAsmaNzCK7hnDKak26WNRo/MZtM95F
+        /HKk2hgA1k3UvgHw0PIB5CICAADIKN9xPdkzlEK7slhUaHxHZgA4tDD6A8CiN7VvADy583p14W4GAADQ
+        5WDZVWTP0EyviwqN7xQ6jHfSv2BN0R4Azu9uwkqc9N/tb/ar2eQiAgAAyNpS2oPsGpLN+DtRofGdWBoA
+        TqzRvgFw2Udt1EXjpwACAADoUza+Hdk1lBK7ub2o0PgOP5WB+gUp0R4A9s/TvgFwU0k3chEBAABkzRnV
+        jOyamhr/MNna8peiQuM7sTQAbJyifQPg/qX9yUUEAACQcXq39g2ABXnGVaI+4z9uh+l26pekRHsA+OId
+        7RsAT2wboi7cjQAAALocXim1AfA9UZ/xH5kB4OCC6A0AF3anstJh2gaAGSMyyUUEAACQtW1WT7JraMbH
+        RH3Gf9x25Tb6l6wpmgPAqfXaNwB+Ma4VuYgAAACyVn7anuwaktPcQ9Rn/CdWBoCDC9PIv5OyvrAz+/7A
+        DQAAALrNG5NDdo2/cVbl51kjUn8t6jP+U5yn3Er9opRoDgBbCrRvANy7qC+5iAAAADLO7r2OFTvMZNf4
+        K8gzbhHVmRiJlQHgy3FG8u+kfLNxkLpw1wMAAOhydM0AsmcobptpgqjOxIj6S93i/0sGcmB+9AaAWS9r
+        2wA4Pd/Czu2nFxIAAEDGzs97kV1DsinPiupMjLjzzDeTvyghWgPA2U3aNwAueqcFuYgAAACyVk/uQHYN
+        yaFcJaozMRILA8BXS7RvAFwzpaO6aNcBAADotvDt5mTXUGZajQZRnYmRYrv5JuoXpURrANhWrH0D4K55
+        vchFBAAAkHFu/7WsxKVtA2Ch3bhX1GbiJBYGgOUfaR8Ajq8bQC4kAACAjK83XE32DKXQrhSI2kycFOUZ
+        b6R+WUq0BoC5r2rbAFjsNLOz+4aqC3ctAACALrsXSG0A/LeozcSJ1AAwrylZ4Hr8sC2V/Lso89/MJRcR
+        AABA1rppHcmuoZmuE7WZOHHbTTfQv2xN0RgAjn2pfQPgqknt2Q/qogEAAOi15N0WZNdQiu3GdFGbiROZ
+        AYB/Xz9V4nrsKNV+/H/HnO7qog0FAADQrXR4Btk1/gqtyjHGki4StZk4KcwzXU/9wpRoDACrJmgfAI6u
+        6k8uIgAAgIwTm6U2AM4SlZlYkRoAPo/8ADB/tMYNgA6Fnd0zWF24IQAAALrsX9Kb7BqSTckXlZlY4Rsb
+        yF+YEOkB4KcdqZ5ip/4uf5+PbkYuIgAAgKyN7k5k11DcDtPtojITK3U5AHyzQvsGwOUT2pCLCAAAIGvp
+        B63IrqEU56U3E5WZWHHnKddSvzAl0gPA7llNyb+HsnVGF3XRrgEAANBt5shMsmtqsJpOWq1JF4vKTKzI
+        DAD7IjwArJ2ofQPg4eV9yUUEAACQcXK71AbAxaIuEy/qLzeU+qUp++ZGdgBY+Ja2DYDc6Z1XqwvHNwEC
+        AACE7+Ay7RsA3XnGUaIuEy/FeeYh1C9NieQAcH53E1bipP8ef7NfzSIXEQAAQNaW6Z3JrqG47aYHRV0m
+        XupqADixpgn5d1C+/KgVuYgAAACyysa3JruGUpxnaSfqMvFSZDdfQ/3SlEgOAPs+134GwOaSTuqiDQIA
+        ANBtzmtZZNfU1PiHsWM7XSLqMvEiMwDsjeAAsOEz7RsADyztSS4iAACAjDO7BpA9Q3HblZWiKhMzbptx
+        MPWLUyI5ACwZq30DYPnWK8mFBAAAkPHVij5kz1DcNtO7oioTM1IDwJzIDAAXdqey0nxtA8DMERnqog0E
+        AADQbdss7RsAi+zGx0RVJmaK7cZB9C9eU6QGgFPrtW8A/GJcC3IRAQAAZK38r/YNgEVOcw9RlYmZuhgA
+        Di7UvgFwQ2EHchEBAABkzRvTjOwawoVZI1J/LaoyMVNkMw0kfnFSpAaAzQXaNwDuXdRdXTR+ESAAAIDw
+        nd07QPMX0Lnt6ZtFTSZu6mIAWPa+kfz5lG839SMXEgAAQMaxNVIbACeImkzcuB2mq6lfnhKpAWDmCPrn
+        +5ueb1EXbQAAAIBuO+d2IbuGZFOeFTWZuJEZAPbM1j8AnN2kfQPgondyyUUEAACQtXpyG7JrKG6bcqWo
+        ycRNoU0ZQP3ylEgMAF8t0b4BcO2UtuQiAgAAyFr4dg7ZNZSZVqNB1GTipsihXEX98pRIDABbi7VvANw9
+        v4u6aFcBAADo8v3+K1mJy0x2jb9Cu3GvqMjETm0PAMs/0r4B8Ot1vcmFBAAAkPH1eu1fAVxoVwpERSZ2
+        +HEO6g6gRGIAmPOqtisAljjN7Pu9/dkP6tQGAACgx5752jcAuu3Kv0RFJnZkBoDds/QNAD9sTSV/LmXB
+        m83Yj+qiAQAA6LV+aluyayjuPOVaUZGJnUKHuT91B1D0DgDHlmnfALh6YmtyEQEAAGQteTeX7BpKsd2Y
+        LioysVObA8COUu0bAHfO6aguWn8AAADdSodZyK7xV2hVjjGWdJGoyMROsc18BXUnUPQOAKs+0T4AHFvV
+        g1xEAAAAGSc2ad8A6LYpM0U9Jn6kBoCZ+gaAeaO1bQDk12o+t7sfuZAAAAAy9i+W2gDoEvWY+ClyGPtR
+        dwJFzwDw0w7tGwA/H52lLtoVAAAAum10S2wAdJhuF/WY+KmtAeCbFdo3AK6Y0JJcRAAAAFlLP2hOdg3F
+        7TRmi3pM/BTajH2pO4GiZwDYPUv7ALBtRntyEQEAAGTNfDmD7JoarKaTVmvSxaIeEz8yA8AuHQPA2k+1
+        bwD8qqyrumh8DwAAAED4Tm2T2gC4SFRj/Uixw9SHuiMoegaAhW9q2wDIndnRh1xIAAAAGYeWSmwAzDOO
+        EtVYPyI1AMwIbwA4v7sJK3HSP9Pf7Fcz1UXrCwAAoNuWEokNgDbTA6Ia60eKbKbe1B1BCXcAOLFa+/H/
+        so+ak4sIAAAgq+xjiQ2AjvS2ohrrR9wOpRd1R1DCHQD2zdU+AGxWpzVqEQEAAGTNeS2T7Bp/462G78eO
+        7XSJqMb6EZkBYGeYA8CGz7RvADy4tLO6aHwPAAAAQPjO7OxF9gzFbVdWilqsPymwKT2pO4MS7gCwZKyR
+        /HmUk1t7kgsJAAAg48hymSsAmt4RtVh/IjUAlMoPABd2p7LSfPrn+ePnalKLCAAAIGv7zHZk11DcNtOj
+        ohbrT4qc5h7UnUEJZwA4tb4J+bMoS8flqIvWGwAAQLeV/21Bdg3FbTd3F7VYfxLtAeDgAu0bADcWtiYX
+        EQAAQNa80Vlk1xAuFFnTfiVqsf6ETz3EnUEKZwDYPE37BsD9izqSiwgAACDj3J5enm+Wpbqmhrz0TaIS
+        61dkBoAdYQwAy97XvgHwxMZu6sL1AgAA0OXYaqkNgJ+ISqxfKXwpvRt1h1DCGQBmjqB/lr/SYWZyEQEA
+        AGTtnCOxAdBh/quoxPoVqQFgutwAcHZTKvlzKIvfaaYuGj8FEAAAQJ81kyQ2ANqUK0Ul1q8U241dqTuE
+        IjsAfLVE+wbAdVNbkosIAAAga+Fb2WTXUEpcSoqoxPqVaA4AW4u0bwDcM78duYgAAAAyftjXUy11M9k1
+        NdjS94g6rH8pesnYhbxTCLIDwPIPtW8A/GYdvwRwDwAAAF14n1A9Q3HnmaaJOqx/ieYAMOcVE/lz/JU4
+        zeyHvd3JhQQAAJDBP1Gmuobitiv/EnVY/1JoN3Wm7hTK9hLtA8D3W7VvAFz4Vhb7aX93AAAA3dZP1b4B
+        sNCuDBV1WP9Skqd0ou4UiswAcHSZ9g2AayY1JxcRAABA1pJ3tW8ALLSamoo6rH+J1gDArxlA/QzKrjlt
+        yEUEAACQxa8rQ3VNTcajjCVdJOqw/kW9EzrWvFNoMgPAqk+0bwA8vqqjumjdAAAAdCnf1InsGYrbpswU
+        VVg/o94J2geAYu0DwLzXtW0A5Ndq/n53V3IhAQAAZBxYrH0DYJFNcYoqrJ8pzDN3IO8YgtYB4Mcd2jcA
+        zhudSS4iAACArE3ulmTXUNx25TZRhfUzMgPANo0DwNfLtW8AXDkhh/20rysAAIBuS8c1I7uG4nYas0UV
+        1s+U2M3tqTuGonUA2D1T+wbA7TNakYsIAAAga+bLFrJrarCaTlqtSReLKqyficYAsHai9ksAHylrTy4i
+        AACAjNNbtV8BULVQ1GD9TXGepR1xx5C0DgAL39R+BsDZHZ3UhesCAACgy+GlbcmeCeA1UYP1N1IDQFHo
+        AeD8rlRW4tB2BsCcVzPIRQQAAJC1pVhiA6DN9ICowfobtyO9LXXnULQMACdWa98AWPZxM3XROgMAAOjG
+        O4XqGgrvPlGD9TcyA8BWDQPA3rnaNwBuKW5BLiIAAICsOa9lkF3jb7zV8P3YsZ0uETVYf1OQZ2xD3UEU
+        LQPAhsnaNwAe+qINuYgAAAAy+H4yqmdILykrRAXW7xQ7jK3JO4igZQBYMlb7BsDTWzuoC8c3AQIAAITv
+        SJn2DYBuu+kdUYH1O1IDgDudLP0KF3ansun59H/rj5+rSS0iAACArO0zpDYAPioqsH7HnWdqRd1BlFAD
+        wMl1Tcj/jrJ0XLa6aB0BAAB0WzlB+wbAwpfSu4kKrN+J5ABwYIH2MwA2FuaSiwgAACBr3mhtGwBVF4qs
+        ab8SFVi/U+hQWhJ3ECnUALB5mvYNgAcW8UsA0wsJAACg1fe7Oni+WZbqmhry0jeJ+kNkBoAtIQaAZe9p
+        3wBYvrGtunB8EyAAAED4jq9qQ/YMxW03fSLqDynJM7eg7iRKqAFg5gj6v/NXOsxMLiIAAICsXXNakF1D
+        spmeEfWHSA0AhYEHgDObUsn/hrL4nSxyEQEAAGStmSixAdBh7i/qDylymJtTdxIl2ABweLH2DYDrp+So
+        i8a/BRAAAECfhW9lkl1DKXEpKaL+kEgNAFvd2i8BvHcevwQwvZAAAABa/bi3PS91smtqSt8tqg/hKcyz
+        5NJ3VE3BBoDlH2rfAPjtWn4JYHoxAQAAtOJ9QvUMzTRVVB/CIzMAbA4yAMx5hf5v/PFJ7ce97dSFAwAA
+        0Id/okx1DcmmvCiqD+GZ7myaQ95RhM0F9ADw/VbtGwAXvpXBzquLBgAAoNf6KRIbAO3KUFF9CE8kBoCj
+        y7RvAFwzKVtdtLYAAAC6LXlH+wbAqXYlTVQfwlOcl96MuqMogQaA7dO1bwDcPSeXXEQAAABZ/LoyVNfU
+        YE0/ImoPqYjbacwm7yxCoAFg1XjtGwC/XtWKXEQAAAAZ5Rtbkz0TwAxRe0hFZAaATdPoAWDe6ybyz/vj
+        12r+YXdrdeHaAAAA6HJgUXOya0g2xSlqD6nINJspi7yzCNQA8OMO7RsA5422kIsIAAAga1Oh9g2AxXnK
+        raL2kIroHQC+Xq59A+Cq/2aRiwgAACBr2TjtGwB514naQypS4lIyqTuLQg0Au2Zp3wC4Y0aOumj8EAAA
+        AIA+M1/WtgFwqj293GpNuljUHlIRvQPAmk+1bwA8WtacXEQAAAAZp7e0InsmgIWi8hDfuG1KBnFnkagB
+        YMEb2geAczv4GQD0YgIAAGh1+AuJDYB5yqui8hDfSA0AU6sPAOd3pbISh7YzAOa+xjcA8gEAAABAn63F
+        EhsA7ab7ReUhvilwmS3UHUbxHwC+W6V9A+DyjzPJRQQAAJBV9pH2DYAFecY2ovIQ38gMABv9BoC9c7Rv
+        ANxawi8B3BIAAEC3Oa9q2wA43mr4fuzYTpeIykN8U2KzmKk7jeI/AKz/LJ38c5TDS/kZAPRCAgAAaHVu
+        u/ZvACywK8tF3SH+0TMALBmrfQPgmS0t2Pm96uIBAADocPTLXLJnSDbjWFF3iH+K8jMV8k4jbJxSNQBc
+        2J3KpufTf87frJfN6qLxAQAAAECf7aXZZNfQTH8SdYf4p8DW1ETfaTX5DgAn1zUh/wyl7IMMdm5TCwAA
+        AF3ObmrOVn6ifQNg4Uvp3UTdIf6RGQA2+AwAB+ZrPwNgy+Rs9u2yXAAAAF3KV+Z6vleG6poarMr5SSON
+        l4q6Q/xTak03knccwXcA4KcEUn+Gsnd6M3IhAQAAZJSvzvV8syzVNYSNouoQKuEOAEvf07YBcLrTzI7M
+        zyEXEgAAQMaRJTlk15BspvGi6hAqxXZjOnnHEXwHgBkj6D/jb85Ii7pofAAAAADQZ9esLLJrSDbTM6Lq
+        ECpSA8Bn3gHgzCbtGwC/fC+DXEQAAAAZ3y3LZWsnat8AWGwzXyGqDqFSaDU1pe44SsUAcHix9g2AGydm
+        kQsJAAAgo3xFDlv4psYNgKoCqzlZVB1CRWYA4Ff+4wPAVrf2SwDvLuZnANCLCQAAoNWp1TmsxEl3TU3p
+        u0XNIYEy1a6k0XdeTRUDQNkH2jYA8oU6/Dk/A4BeTAAAAK2OLdP+DYBFdtNUUXNIoIQzAMx+hf73/mYN
+        N7Nvl9ILCQAAIGPPbIkNgHbTC6LmkEApsZqb0HdeTXwA+H5rKvnvKMvGWth36sQGAACg1/rPMsiuoRTn
+        mYeImkMCRWoAmJzOji7VvgFwx5zr2I/77wcAANDlp/13sCXvaN8AyD/dFjWHBIrbkZFK3XkUPgBsn659
+        A+DxDY+zn79+FgAAQJ8j97HSYXTX1GBNPyIqDgkW2QFg5XiNVwAclsNO7yUWEQAAQNKZHdeRXUMpzDOV
+        iopDgmWqNfNy6g6krJuUzj4fZSL/nb+5o7uy88fohQQAAJDxVVkfsmsCcIiKQ4Kl1NGkMXHnkdZ8qu3d
+        P7dy4iByEQEAAGRtKW5Jdg2lOE+5VVQcEiwyA8DyD7UPADvm3UEuIgAAgJTjT7Fl75vJrqFMs5myRMUh
+        wVJkTWtE3YGUJWO1DwBH1jxCLyQAAICMIw+wmS/TXVODNe0EY0kXiYpDgkVmAJj3urbj/yWuLHZy91/V
+        hQMAANDn3O4byK6hFNqUBaLekFCZ5mzakLoTKTNHaBsAZr/Wkf10hF5IAAAAGcdW9SW7hpSnvCrqDQkV
+        mQGgyEH8/whffnIVuYgAAACydsxsS3YNyabcJ+oNCZWZVqOBvBN12Dx9KLtw9FEAAAB9jjzCln+k/QqA
+        xQ5ja1FvSKhEYwDYVsK/AyALAABAt4WjtZ0BUGBvcG6+Nel/RL0hoVLiUlKoO1KPwwv5AJAJAACgy9eL
+        M1mpS+sAoCwX1YZoSTQGgBMrM8iFBAAAkHFgZgYr1rj/zG1X3hbVhmhJgdWcTN2R4Zo1UmGnVmMAAAAA
+        /XYUaP8K4CKb6RFRbYiWRHoAWDZOYSfK+AAAAACgz9rxEhsA7cauotoQLZmcn9mAuiPDtblAIRcRAABA
+        1pI3NF4C2KqcnzTSeKmoNkRLSq3ZvyXvzDAdnG8mFxEAAEDGN0sy2Mx8bQNAYZ6yQdQaojWRHgC+XY4B
+        AAAA9Ds0O4OVODQOAHbjx6LWEK0pHJb7G+rODEfpMIWdWctPAaQXEwAAQKudhRIbAPNMfxG1hmhNJAeA
+        L95VWPlyPgAAAADos/6/EhsAbeYrRK0hWjPZ2vgy6s4Mx7aZvdm57QPY2W0AAAA6bOnFlrytcQOgip/R
+        JmoN0ZrIDQBm9s3mJ9jPx58GAADQ5cKhm1mJk+qamgptTXeJSkNkMmtE6q+pO1TWjJdbsbP76YUEAACQ
+        cXLzlWTXUArzTFNEpSEyidQAMP/tXuzCMXohAQAAZBxY1InsGprpBVFpiEyKrGm/ou9QOWumDiEXEQAA
+        QNaGqZlk19DM14hKQ2QSqQFgz6K71UV7CgAAQJ9jv2dLxprIrqGUWM1NRKUhMuGXTqTuUFlfb3iMXkgA
+        AAAZh29lpfl01/grsDf9StQZIptIDAClw5uzM3v5wj0JAACgy5ntV5NdQynMM5WKOkNkM99q/j/qTpXx
+        +Zhu7MJReiEBAABkfLWsM9k1FLdNsYs6Q2QTiQFg5aRB5CICAADI2uJuRnZNALeIOkNkUzoq+3+JO1TK
+        zvm3k4sIAAAg5dgjbNn7EhsAXUqmqDNENpOtLX9J3akydpe2ZqfWtAUAANDl3IbmbOYIumtqsKadYCzp
+        IlFniGz0DgDFDoUdnKWw75aaAAAAdDmx3Eh2DcVtN80XVYaEk7FjO11C3bFalbrM7JvF9EICAADIODQv
+        newaituuvCKqDAknegeAhaPN5CICAADI2lqkfQAosin3iSpDwsl8a9L/kHesRms+wgAAAAD6nVhmZMs/
+        1H4IoNhhbC2qDAknegeA7VNx/B8AAPQ7tdLI5ryq7QyAAnuDc7y/RJUh4WTy5KRfUHeuFsUOMztQigEA
+        AAD0O7lC4vj/S0qZqDEk3OgZAEpdCju+kF5IAAAAGV8tlNoA+LaoMSTcWK1JF1N3rhbzX8O7fwAAiIwd
+        xTIbAE2PiBpDwo2eAWDlhxgAAAAgApaZ2KoJ2jcAFr1k7CJqDAk3/CpK5J2rwbZpWax8RXMAAABdTq/J
+        YfNep7umBqtynn+PjagxJNzoGQC+Xnsd+/n4EwAAALpcOPKoZ2M51TX+CvOUDaLCEL2h7mAtvt93L7mQ
+        AAAAMk7tuIfsGUqh3fixqC9Eb6g7OJSZI8zqoj1WYxEBAABkHS67luwaittuelrUF6I31B0cStlHrchF
+        BAAAkLWlpA/ZNSSHsZ+oL0RvxlmVn8k7OYgds3qRiwgAACBr6bi2ZNdQJudnNhD1hehNOAPA0ZVDyEUE
+        AACQceHo42y6K4PsGn+Ftqa7RHUhkYh6p17wv5NDObP7LnIhAQAAZJzefT/ZMxS33fiZqC4kEuHnVFJ3
+        dCDTXQr7+difyIUEAACQcXTlDWTXUNw20z9FdSGRSJHVdJK6owNZ+n4uuYgAAACyts/qR3YNzXyNqC4k
+        Eim0m9bSdzRtS0k3chEBAABkLR/fnuwaituRkSqqC4lECm3KG9QdHciayR3YwS8GAQAA6FY6PJPsmhqs
+        aYdFbSGRSrHD1Ie8swEAAGKE226aLmoLiVS83wdgXE3d4QAAALFAHQBsoraQSKbIaexSZKPvdAAAgLrm
+        dpiuFpWFRDrqADCbutMBAADqlDX9yNixnS4RdYVEOsV2Y/oHdtNP5J0PAABQR9x20/OiqpBohd/J1J0P
+        AABQF9z29M3zreb/EzWFRCuTJyf9Qr3D3f4LAAAAUOusaSfceaZWoqKQaIdPWoV2pYBcDAAAgFpQaFWO
+        Fb1k7CKqCamtWK1JFxflmf6iLsIp/0UBAACIMjfflyYqCamLlDqaNC6ym14oylPWEQsEAAAQEVPsynG3
+        TfmoyGnuISoIiZUUDsv9TUGesY3bbu4OAAAQCYV2U+dSa7qRX5RO1A2CIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCxHSSkv4fvcRd
+        0VhU1mQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAABEeSURBVGhDrVl3fFZF1r4JpBtAkLKACygIi4sQEH6IIAqW
+        XRU+1lURRBBEemRZqYp0CKEHEoGIQCjSq/SErPQWcIFQkpBIDSWFtLeXZ88zc98k6+/7a8O8OXfunTtz
+        znlmzplz5sZABYvXd3Hp2iGVGx55lgaHkNcFu/ys8tIi7+xmd9XfHOOS/oVyLYIThbY8eDyFwkR6u6UD
+        WTh1V6mkSSR4hYtbao8TTw6A6Kz0lkoBcJsgBACfCcxmkof9qY3q7JXKhXRLNmL3r8K8bYuwMnEFki8d
+        xK3HWcizFquxJdLPLbVGJC0uYSCMKgSAepCpAmEC4DNnVD14PfJHLaWWq6+/umEzSSYztzgXsw7EoWFk
+        W9Qc0RT1v34Jbae8g55xgxC1LxaHM0/gt9wMFFkeCScbHLIkWg4qDoBMlFI+nc1nklc1yB2BcEX40le4
+        DHwW+iXtOF6Z2w1BE59HwPQG8J9SH5UnNELYqKaoNaIF2o1+AxOXjsbxC/tQ5MzTuIWtXW4qDIDLS1LF
+        VIhVKTA+UHcne2mULmXHNC0nruRnYMSWiQiL+hMCVzZF8MpGCF7xHAKWNIFfdBMYk+Q5sgEafdIIkbMG
+        4UzqSTicwpTMxYqeAADatzYRn7Ks9QpIIRICkJWgtXtFqttjk9qOXORj0fkENFvyFp7aEAFj9wswtjVA
+        0LYmCFj/IiqtaA5jfmPUmN4CtT+og5Gzh+Darauw24Q7/0qeGAC6ITWXoie5DIxDbqSmI7OXV7mxVdQv
+        QWLOCby9qz/C1rVGUGIbGEdbwO9IC1RObomQ3W0QnNAS4XERCBxSD236tMKWPQmwecUHnMLNpflWEACV
+        0oqxVjZPpTn9PuJuI212cTy7Mjab9C1BuvsOxp+JQd1tXVHj13dgnG6DoPTXEZDaEX4n2yP0cCdUWdce
+        daZHoEHfplj801w8enQTNkeJYutRV1fFAJANldamQc1NAD7ygRCHpcXT5r1eK4rlt/p2Mjrv/weeOfs3
+        GGlvovLdbgi41x2VM/+CgEsCKOk11F7fFfU+bogZC8biRtq/ZTKswoycXLKGnBBPxQFo8hm6VL8nBUT3
+        o/1bXIVIdd9G/zPL8MLpMah2awD8c3vByO2NygWfIfDexwi50gM1jwiw0U3w2Tef4srpo6K8LKXbCZfb
+        Kuuo15JBseIAZIvkjiLhs1RpVhRAWKoQgJBXWnMl3i7LSkKrk1GonjkdIfkTYDweilCMRUDxUAQ96oca
+        F3vi6ZgOeHF0Z2w+sgNuu3BT27AAkLm3KDOUJhFUMQBKYWFM5eVPPUuh1XB2SFRb96FoG07YstD79HI8
+        lxWLkILFMApnwc86FUGeKQizjkX47YGosbc7qg1qigV7v8edklzFz2UR5/dwuyAXO5zEI/QEAPyOpJQH
+        4PAoJ5AcxoZsET4pfS/apy5FrcJV8Hf9iEDbcoQ6lyLQGY2Q+2PRKPUrVP6uFb6MG4m0+9fFW3T6ofmL
+        r4kPebgVyyOpgiYkxVS6nP6q5hLTjLh92txM51xIKsrA+5dWo8nDBDzlXg/DuwaVXGsR7lmDKvY41P5t
+        Mqov74bWE9/DkavH4HRxu5U8yOTJi8ehHdl8fAIApPhmnAorrkqa3qFYl3jseCDzOPnSHkTcWosqtnUI
+        9P4kwoU86xCOTajycCEan/kOz47ojLVJG5CT90DxISvlsCJEseVFrSqBFMsklAqSol6WIzWCpXyjsurS
+        wnvORxkA6WM6NN/R7ZgqHyi4jL+fiUP9h/Go7EmA4V4DPwHgjw0IscbjhVuLETztr4hcPgUZN65pUcLY
+        Q82lOOSZGQSLSkvElOApgiFxTf1UYOAgBh5qYwYgHyevzKJH8nC9o2sQzMfInsGWteLPvZq2Krc6ffYi
+        EwUYeS0eHbNm44/WOPjZxHmxSmilUCxqFSxEk23D0ebbj5B49RRK7BwlUqkDGSs9yL9sVfVZQQKZQ80R
+        46j0VNoIEQCJU6u04g250XnYW/Iar3qhhqiZUSSMJdTrfpoF7ffngl/RLX0uGj+cgpr2+Qhwx4jiS+Hn
+        jUWwNQqNM6eg9vgumL4lBg8s+Yqf2mVkrBJNZkpDHcQUCOKQdwajIxvVnHIEX5QnAlJ7sG7g4FIjYuUb
+        Q0E0HVGbOTvFEECOXGde3IK2N+agRlEUghzRYjrzBcA8MZ05aHhnOoJj38ObUX1x+rfzogtliVhRWknR
+        YuVepyy0FVNb1cFQpxslXQ/gxBIwW9Qkmwx83FQf3vLCqfK955QpALKisgrc6kqES3L+dXwmUbfJ/RgE
+        OxbAcEbJrM2En2cGqudOwh/3D0bVyPZYdXKT5PqPzVTb1IEXJZBydcalk0etH8lQIdpF4boz7domxKWn
+        n3MmFBO+F45O6ctH/WwSG2iTjMjS4JWAQyDZ4r7fpe1Gh6tLUacwXkxnCSq75yDQNU1M5xvUvBqJsHGv
+        YPiKiUh/kKbGKK2FH1kqOaYw7Xva2H1iKcXQ7i3EQUK+l9oBy7sCmejBxKQACJVlEPQReWsKpDInLBn4
+        a+oPaPBgGcKLl6OSc7GkDHNQzTkVVe+NQPVdH6JJZGccPJcIh11CljJVjhdOkifoW/LSWhEEn9lOHUiy
+        AvqOD7Re7c56AE2BmePtkmxkFmdLHmORn15CuwhjLwLkM8M7/UkxEgkFLgtiMg6h2V3ZNiXahtjjEeaM
+        Rahjmuw641HraB/Uin4No1dNxW+3M2SMKEoAerhSU28UZQAU+dIWksgyfALpyoyWjJk2MaBczyOk27Ow
+        +uIuTD28HDOTV2L/nbPilMXSSyxcxpClAiNkEYNzEYCJ4brtMT4/k4B6xasl2CxFCOJRHUsQWDgedW6N
+        RMOE/0PjYe2xPyVRestk8AuGFGIwcUjhTTnlFUi5JZkLLtuovqd5OEX1PG8OLhRfwpJL69H34BREbB2K
+        F4XarR2GXgkTcOHeZckOLZq3gCAvRgcCZ5rLdvpP/I0LePfyBtR0rBOnXYwAxCHEG42gwrGonfIlwj9v
+        hgUbF6LAVqBOWOXUJFvz8jsAfGaTD4CQwdnjvV1OOvct2Vh6ch16bx6DDlsHo/6m3nh6b1/USByIOtsH
+        onn85/h203zczb8nyytclBDy9MLqLRa+wkkEpNkcGHJhH9rf2Y6qjjWyzHFCs/EUZiEwY7Ac2t9El7Ef
+        4NSZ46XKcyJJ3ETURcUUaqpt32f/SiZBmJgkldCFs7r+xHb8eUkf1N3+OcJ2fIIqif0QntQP1Y4MgiFA
+        au0eiuZRvTEveS2y3Y8lAgt8MhByebV3UO6+OzfQ5cIGNMrdLABWS8Bi4JqGwIIxqH6kD/xHNEfUxjgU
+        FVjUcKpJ5amTUo5ERnJDy2Bs0KT7sFZFBhvs7JK90umwYM3pHWgW10d2h/4wDvaF/4kvEXx2mJxXh8Av
+        dRyCzo3B8wfGo3XcYGxIS8IDew6c/MSnhDlh9ViQ77Fi1rl9aJm+FtUKExDOlNk5F5UckxBw5QvUXvY2
+        Isa8jWPXL+pPRjLyvxRjA9mpSxmA8kBpNbxnmwLAwtP++bzrGLI1Cs/H9kGdY2NgXBgt51U5MT2cDSN7
+        ljqAVLk9H386Pwvv//hPJGdJ3sKkSgmQ46LQqeIb+DBxERrf/QFh9hUIdcXKKsxB8K2v8PS+nqg95CXM
+        3RSDuyWFShEqQfzKdFiU3uVnXvfhhTXHcHvXK8YzsZnicQe658rHwbTjGLBxFlrum4TGN79HUJ7kLG45
+        fEBs2boUod6VeC5/KdocGId+mycjJSdDMaLAPGE7O20nOp6JwrO5sQiwLkSgNRrhORNR/dwXqLbwdbw6
+        /C2kXD2nFKESSitR2pdb6cCijyxM6dSqsPBGXnEM47xOKfhVQsY5ndw6Gaa1ZySJgI/WRqPj2XjULdgs
+        O8gO6bhJpb9Bsp/XsixD47wY1N8xBN8d+gHpD28rhhfsd9Ht1By8dHsunsmZBePBtzByxsH/4peou+1D
+        1PoqAtPWzEHe41ylt7qYAHRR0y8/t2zK+mu2AsBmai57BLv7YhVXXQHgd0vfLLqKilWnPWkX8e7GBYjI
+        3CK2vEVA7DQPH+tlVpdIIjYPje7OxovL+iM+ZQfu2nOx+2EK2pycjAYPZyI44x8IyIqE//UhCE7qhdrR
+        b6DF4NeQ9O/jSgunRTTS+gpRIksZAJ+p/B4Ax2qf0JNd6sRkwRceOf7xZa6tGBtlJTpsmI3W1zeilnWn
+        gNgKQ5zS3yvnWNdi/KEgGo1SvkKLhN5YkfITph37Ac3PfYeqmePxlMx6yImeCDnUA9VW/gXVB7bByKWT
+        cedxXtms+/KQ/6dQcZJ67etv9tWVYiAApFfZbuCBVVIA355721KImHOH8fquJWh5dxtq2LYikMdA/KgS
+        s9CiGQi/GYkaBz9CxMIe6LjyC9Q7I44vgcovsQdCd72DsDVvIHRSW7wc+S52nkhCifldk/x10kdF/vei
+        dyFzIgiAEZU/fQ/clEP0zGMSlPYswkvZmxHOyMrTlHMRQt3zEC6pwdPpQ2DEdkD4po9Q5exwGMk9YWzs
+        grD1XREa1xF+Axtj+OJxyCnI1foqDHRUp8itKADRnBsArYpMdcoqOb0cnJmTENgVcboxyXIoOSRHv7x1
+        CHGuEFOKldVYhADbRAQ/GAHj6MeofKQ3jEN/k6D3PoyVryLs+054ZkYH1B/UFtuO74bHoSM1ibIoifwr
+        UtRXCTLh9xuHi3OunUM1kkQmV/yyzN6wvSvR7sRCNMtfJY4s6YFHTlbOiRInhiLgaj8YR7rD2NUJxvbO
+        MH58FVXndEDNAX/GgOgRyLyfBbeZttP0NRJTTgWK4Ztlkof/DvJ9JiR/ErU3zfbk/Rvo9fMivHI+BvVy
+        lyFIzMhPImylolHwT/8Mxon3YBzuAuOndgiM74iak15Bww9aYFvydjwWf1JFBHl5BqFg8/BSkWL4Dg6a
+        TznG5ncMtlvMAyqPiPuzUtB7zwK0S/se9fJjEFo8BcHFX6NSVh8Yv3YTU+oKY93LqLqwI/4wrDV6TeiP
+        DMn3fVuDmhQGTyXnCawAx7sl8nnUugq5RVkCoDR5aRcH4V7hK/ywuuHav9Bx60REXJuLhsXzJFp/jcDs
+        ATBSe6jP4uE7u6LhojdR99NWWPHzWuTlFyh2VpqQsFYPlKPQVKyUfZkjEjUbJhDzmWIIgDWbuHc8cBcg
+        4cYv6Lx9gkTdaNQumQbjjiSAmZ/A+OUtVNnUFfWndkKnMT1wKvOi/p8W2dLFlM6yw8kZ2pyjChW1AuWZ
+        cFvzbW1spxCnrJDuo8Fxp8osvIdlV/ag1c+j0OzmFFTLl+Qv41NUOtod9TZ3R/3hL2OGRPKbhTl6LGeA
+        ANStxBvF5QkA0FsnqWyWfYqrleaz3mflQXqKo2uALtyy3kf0EdmZNg3B89lTECRBLfTYp3h2RTe06d8R
+        KZdO/hdf8mPOpE7PpZNSsWIwB9KkBbGQMc2GE6ba2ECnE1L/6icA8RmmHY8s9zA5MQ4tEkehaeq3eCF5
+        OEJGyeyvjkL+w3tqLFMdjvIBYKb5ZNQvB8CnPHUjbwrTUUFEMdfgtyMS5ZYSgThwIy8TY/fF4N01/8Tb
+        qyPR5psPcODyLzKSkVaGyU5HhfWVGZnmo06MFSzKhHw2T6bqVmry1qtiAnDKE1eBfXyFfZlVSs/U7HTM
+        2bYc34jdxx/fjkt30syxWm3eqxSY+Q+Bl5NVkSK7ELkIUWNzRliV8qUwea8zF+14fK92XbMTK4sEwFsF
+        OTh/Mx13ivK03/CfWMrWXeq8of+zJcTBPnmlgv63ogGQocmb/HirCh8486IEDzsWIZqVSsFM4aysLn1y
+        ItmFFYf4+CnHlxFFMrJEmY80Ms7wuz8HVAgA8B8tIxj3WWjK0gAAAABJRU5ErkJggg==
 </value>
   </data>
 </root>

DPM2016/Behandlung/Benhandungdetail.vb

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

DPM2016/DPM2016.vbproj

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

DPM2016/Klassen/clsStammdaten_flat.Designer.vb

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

DPM2016/Klassen/clsStammdaten_flat.resx

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

DPM2016/Klassen/clsStammdaten_flat.vb

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

DPM2016/Klassen/clspdfhelper.vb

@@ -2,6 +2,7 @@
 Imports Syncfusion.Pdf
 Public Class clspdfhelper
 
+
     Public Enum GetEmpfaengerType
         FromFaktura
         FromLastFaktura
@@ -43,7 +44,7 @@ Public Class clspdfhelper
             For i = 1 To Globals.pdfCollection.Count
                 pdfitem = Globals.pdfCollection.Item(i)
                 '                System.IO.File.Delete(Globals.pdfCollection.Item(i))
-                System.IO.File.Delete(pdfitem.Path)
+                If pdfitem.Path.IndexOf(My.Settings.DocArchivPath) > -1 Then System.IO.File.Delete(pdfitem.Path)
             Next
         End If
 

DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb

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

DPM2016/Patient/Firma/PatientDetailFirma.resx

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

DPM2016/Patient/Firma/PatientDetailFirma.vb

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

DPM2016/Patient/Patient.Designer.vb

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

DPM2016/Patient/Patient.resx

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

DPM2016/Patient/Patient.vb

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

DPM2016/Patient/subclasses/PatientDetailsFirma.resx

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

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

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

DPM2016/Reporting/frmReportView.vb

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

DPM2016/Sysadmin/frmStammdaten.vb

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

DPM2016/Zahlung/clscamt054.vb

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

DPM2016/bin/Debug/DPM2018.application

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

DPM2016/bin/Debug/DPM2018.exe.manifest

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

DPM2016/bin/Debug/DPM2018.xml

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