diff --git a/.vs/DPM2016/FileContentIndex/1d8fd7c6-e435-4f28-9901-ec915259990a.vsidx b/.vs/DPM2016/FileContentIndex/1d8fd7c6-e435-4f28-9901-ec915259990a.vsidx
deleted file mode 100644
index 9c64007..0000000
Binary files a/.vs/DPM2016/FileContentIndex/1d8fd7c6-e435-4f28-9901-ec915259990a.vsidx and /dev/null differ
diff --git a/.vs/DPM2016/FileContentIndex/1f895da0-24b3-483f-a607-154aaec761b4.vsidx b/.vs/DPM2016/FileContentIndex/1f895da0-24b3-483f-a607-154aaec761b4.vsidx
new file mode 100644
index 0000000..bd03ecc
Binary files /dev/null and b/.vs/DPM2016/FileContentIndex/1f895da0-24b3-483f-a607-154aaec761b4.vsidx differ
diff --git a/.vs/DPM2016/FileContentIndex/3089e0fb-4163-4185-9b39-94e9e49a19d1.vsidx b/.vs/DPM2016/FileContentIndex/3089e0fb-4163-4185-9b39-94e9e49a19d1.vsidx
new file mode 100644
index 0000000..2ec392a
Binary files /dev/null and b/.vs/DPM2016/FileContentIndex/3089e0fb-4163-4185-9b39-94e9e49a19d1.vsidx differ
diff --git a/.vs/DPM2016/FileContentIndex/e44260fe-2670-4182-8700-1b0e12dfe147.vsidx b/.vs/DPM2016/FileContentIndex/84fc1abb-8512-4c79-8b78-0da81dced436.vsidx
similarity index 80%
rename from .vs/DPM2016/FileContentIndex/e44260fe-2670-4182-8700-1b0e12dfe147.vsidx
rename to .vs/DPM2016/FileContentIndex/84fc1abb-8512-4c79-8b78-0da81dced436.vsidx
index 2f38987..1beefde 100644
Binary files a/.vs/DPM2016/FileContentIndex/e44260fe-2670-4182-8700-1b0e12dfe147.vsidx and b/.vs/DPM2016/FileContentIndex/84fc1abb-8512-4c79-8b78-0da81dced436.vsidx differ
diff --git a/.vs/DPM2016/FileContentIndex/948a149d-27f5-476c-a2f5-91872cf658f8.vsidx b/.vs/DPM2016/FileContentIndex/948a149d-27f5-476c-a2f5-91872cf658f8.vsidx
deleted file mode 100644
index 9db471c..0000000
Binary files a/.vs/DPM2016/FileContentIndex/948a149d-27f5-476c-a2f5-91872cf658f8.vsidx and /dev/null differ
diff --git a/.vs/DPM2016/FileContentIndex/99569b81-6c41-42dd-8d2f-de6c226ba1a5.vsidx b/.vs/DPM2016/FileContentIndex/99569b81-6c41-42dd-8d2f-de6c226ba1a5.vsidx
new file mode 100644
index 0000000..d9b8a6f
Binary files /dev/null and b/.vs/DPM2016/FileContentIndex/99569b81-6c41-42dd-8d2f-de6c226ba1a5.vsidx differ
diff --git a/.vs/DPM2016/FileContentIndex/ad98854b-6153-42e4-bec9-6acd1870819f.vsidx b/.vs/DPM2016/FileContentIndex/ad98854b-6153-42e4-bec9-6acd1870819f.vsidx
deleted file mode 100644
index 3047ed7..0000000
Binary files a/.vs/DPM2016/FileContentIndex/ad98854b-6153-42e4-bec9-6acd1870819f.vsidx and /dev/null differ
diff --git a/.vs/DPM2016/v16/.suo b/.vs/DPM2016/v16/.suo
index 9b44703..6257723 100644
Binary files a/.vs/DPM2016/v16/.suo and b/.vs/DPM2016/v16/.suo differ
diff --git a/.vs/DPM2016/v17/.suo b/.vs/DPM2016/v17/.suo
index 741cc66..6d80d3e 100644
Binary files a/.vs/DPM2016/v17/.suo and b/.vs/DPM2016/v17/.suo differ
diff --git a/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache
index c93663c..f5e894a 100644
Binary files a/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/DPM2016/Behandlung/Behandlung.Designer.vb b/DPM2016/Behandlung/Behandlung.Designer.vb
index c4554f5..1147911 100644
--- a/DPM2016/Behandlung/Behandlung.Designer.vb
+++ b/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!)
diff --git a/DPM2016/Behandlung/Behandlung.resx b/DPM2016/Behandlung/Behandlung.resx
index d959538..66cd0c1 100644
--- a/DPM2016/Behandlung/Behandlung.resx
+++ b/DPM2016/Behandlung/Behandlung.resx
@@ -236,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
- DQAAAk1TRnQBSQFMAgEBBQEAARgBBQEYAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ DQAAAk1TRnQBSQFMAgEBBQEAATgBBQE4AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
diff --git a/DPM2016/Behandlung/Benhandungdetail.Designer.vb b/DPM2016/Behandlung/Benhandungdetail.Designer.vb
index 7bfc373..7a4813d 100644
--- a/DPM2016/Behandlung/Benhandungdetail.Designer.vb
+++ b/DPM2016/Behandlung/Benhandungdetail.Designer.vb
@@ -26,9 +26,7 @@ Partial Class Benhandungdetail
Me.GrpPatient = New System.Windows.Forms.GroupBox()
Me.txtProjekt = New System.Windows.Forms.TextBox()
Me.lblProjekt = New System.Windows.Forms.Label()
- Me.cbboxNRESTyp = New DPM2016.MyCombobox()
Me.Label6 = New System.Windows.Forms.Label()
- Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.Label7 = New System.Windows.Forms.Label()
Me.grpZusammenfassugn = New System.Windows.Forms.GroupBox()
Me.lblMailKommunikaton = New System.Windows.Forms.Label()
@@ -49,8 +47,6 @@ Partial Class Benhandungdetail
Me.Label10 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblGesetz = New System.Windows.Forms.Label()
- Me.cbboxNrGesetz = New DPM2016.MyCombobox()
- Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnDeleteKogudatum = New System.Windows.Forms.Button()
Me.btnDeleteUnfalldatum = New System.Windows.Forms.Button()
@@ -61,10 +57,8 @@ Partial Class Benhandungdetail
Me.DDTUnfalldatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.lblUnfalldatum = New System.Windows.Forms.Label()
Me.lblFallNummer = New System.Windows.Forms.Label()
- Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.lblAnsprechpartner = New System.Windows.Forms.Label()
Me.txtFallnummer = New System.Windows.Forms.TextBox()
- Me.cbboxNrGarant = New DPM2016.MyCombobox()
Me.lblgarant = New System.Windows.Forms.Label()
Me.rbPrivatPersonen = New System.Windows.Forms.RadioButton()
Me.rbkk = New System.Windows.Forms.RadioButton()
@@ -82,6 +76,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()
@@ -101,12 +99,8 @@ Partial Class Benhandungdetail
Me.chkMitdatum = New System.Windows.Forms.CheckBox()
Me.chkAndrucken_Taxpunkte = New System.Windows.Forms.CheckBox()
Me.chkRabattGesamt = New System.Windows.Forms.CheckBox()
- Me.cbboxNrtaxpunkt = New DPM2016.MyCombobox()
- Me.cbboxNrAnsatz = New DPM2016.MyCombobox()
Me.lblAnsatz = New System.Windows.Forms.Label()
- Me.cbboxNrAbrechnungstyp = New DPM2016.MyCombobox()
Me.lblAbrechnungstyp = New System.Windows.Forms.Label()
- Me.cbboxNRRGtyp = New DPM2016.MyCombobox()
Me.lblRechnungstyp = New System.Windows.Forms.Label()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
@@ -119,7 +113,6 @@ 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.lblDiagnose = New System.Windows.Forms.Label()
Me.txtDiagnose = New System.Windows.Forms.TextBox()
@@ -128,7 +121,6 @@ Partial Class Benhandungdetail
Me.grpglndiagnose = New System.Windows.Forms.GroupBox()
Me.lblBehandlungsart = New System.Windows.Forms.Label()
Me.txtBehandlungsgrund = New System.Windows.Forms.TextBox()
- Me.cbboxNrBehandlungsart = New DPM2016.MyCombobox()
Me.lblBehandlungsgrund = New System.Windows.Forms.Label()
Me.grpEmpfaenger = New System.Windows.Forms.GroupBox()
Me.btnSucheFirma = New System.Windows.Forms.Button()
@@ -138,6 +130,30 @@ 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.cbboxNrBehandlungsart = New DPM2016.MyCombobox()
+ Me.cbboxrgtext = New DPM2016.MyCombobox()
+ Me.cbboxNRESTyp = New DPM2016.MyCombobox()
+ Me.cbboxnrbehandler = New DPM2016.MyCombobox()
+ Me.cbboxNrGesetz = New DPM2016.MyCombobox()
+ Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
+ Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
+ Me.cbboxNrGarant = New DPM2016.MyCombobox()
+ Me.cbboxNrtaxpunkt = New DPM2016.MyCombobox()
+ Me.cbboxNrAnsatz = New DPM2016.MyCombobox()
+ Me.cbboxNrAbrechnungstyp = New DPM2016.MyCombobox()
+ Me.cbboxNRRGtyp = New DPM2016.MyCombobox()
+ Me.chkOhneMwst = New System.Windows.Forms.CheckBox()
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,54 +211,28 @@ 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
'
- 'cbboxNRESTyp
- '
- Me.cbboxNRESTyp.Dataselection = Nothing
- Me.cbboxNRESTyp.Displaymember = Nothing
- Me.cbboxNRESTyp.Location = New System.Drawing.Point(96, 64)
- Me.cbboxNRESTyp.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
- Me.cbboxNRESTyp.Size = New System.Drawing.Size(287, 24)
- Me.cbboxNRESTyp.TabIndex = 1
- Me.cbboxNRESTyp.Table = Nothing
- Me.cbboxNRESTyp.TableAlias = ""
- Me.cbboxNRESTyp.Valuemember = Nothing
- '
'Label6
'
Me.Label6.AutoSize = True
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"
'
- 'cbboxnrbehandler
- '
- Me.cbboxnrbehandler.Dataselection = Nothing
- Me.cbboxnrbehandler.Displaymember = Nothing
- Me.cbboxnrbehandler.Location = New System.Drawing.Point(96, 30)
- Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
- Me.cbboxnrbehandler.Size = New System.Drawing.Size(287, 24)
- Me.cbboxnrbehandler.TabIndex = 0
- Me.cbboxnrbehandler.Table = Nothing
- Me.cbboxnrbehandler.TableAlias = ""
- Me.cbboxnrbehandler.Valuemember = Nothing
- '
'Label7
'
Me.Label7.AutoSize = True
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 +312,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 +333,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 +354,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 +375,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 +396,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 +444,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 +453,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,45 +473,17 @@ 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"
'
- 'cbboxNrGesetz
- '
- Me.cbboxNrGesetz.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
- Me.cbboxNrGesetz.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cbboxNrGesetz.Dataselection = Nothing
- Me.cbboxNrGesetz.Displaymember = Nothing
- Me.cbboxNrGesetz.Location = New System.Drawing.Point(125, 167)
- Me.cbboxNrGesetz.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
- Me.cbboxNrGesetz.Size = New System.Drawing.Size(200, 24)
- Me.cbboxNrGesetz.TabIndex = 9
- Me.cbboxNrGesetz.Table = Nothing
- Me.cbboxNrGesetz.TableAlias = ""
- Me.cbboxNrGesetz.Valuemember = Nothing
- '
- 'cbboxNrZuweiser
- '
- Me.cbboxNrZuweiser.Dataselection = Nothing
- Me.cbboxNrZuweiser.Displaymember = Nothing
- Me.cbboxNrZuweiser.Location = New System.Drawing.Point(125, 294)
- Me.cbboxNrZuweiser.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
- Me.cbboxNrZuweiser.Size = New System.Drawing.Size(224, 24)
- Me.cbboxNrZuweiser.TabIndex = 13
- Me.cbboxNrZuweiser.Table = Nothing
- Me.cbboxNrZuweiser.TableAlias = ""
- Me.cbboxNrZuweiser.Valuemember = Nothing
- '
'Label5
'
Me.Label5.AutoSize = True
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 +513,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 +577,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 +633,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,30 +643,17 @@ 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"
'
- 'cbboxNrAnsprechpartner
- '
- Me.cbboxNrAnsprechpartner.Dataselection = Nothing
- Me.cbboxNrAnsprechpartner.Displaymember = Nothing
- Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(125, 103)
- Me.cbboxNrAnsprechpartner.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
- Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(200, 24)
- Me.cbboxNrAnsprechpartner.TabIndex = 7
- Me.cbboxNrAnsprechpartner.Table = Nothing
- Me.cbboxNrAnsprechpartner.TableAlias = ""
- Me.cbboxNrAnsprechpartner.Valuemember = Nothing
- '
'lblAnsprechpartner
'
Me.lblAnsprechpartner.AutoSize = True
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"
'
@@ -714,26 +665,13 @@ Partial Class Benhandungdetail
Me.txtFallnummer.Size = New System.Drawing.Size(200, 22)
Me.txtFallnummer.TabIndex = 8
'
- 'cbboxNrGarant
- '
- Me.cbboxNrGarant.Dataselection = Nothing
- Me.cbboxNrGarant.Displaymember = Nothing
- Me.cbboxNrGarant.Location = New System.Drawing.Point(125, 75)
- Me.cbboxNrGarant.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrGarant.Name = "cbboxNrGarant"
- Me.cbboxNrGarant.Size = New System.Drawing.Size(368, 24)
- Me.cbboxNrGarant.TabIndex = 6
- Me.cbboxNrGarant.Table = Nothing
- Me.cbboxNrGarant.TableAlias = ""
- Me.cbboxNrGarant.Valuemember = Nothing
- '
'lblgarant
'
Me.lblgarant.AutoSize = True
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 +681,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 +693,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 +705,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 +717,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 +729,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 +741,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 +827,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 +837,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 +847,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 +857,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 +886,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 +979,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 +1151,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 +1162,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 +1173,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)
@@ -1261,7 +1244,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 +1254,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 +1264,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 +1274,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 +1285,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,90 +1296,38 @@ 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
'
- 'cbboxNrtaxpunkt
- '
- Me.cbboxNrtaxpunkt.Dataselection = Nothing
- Me.cbboxNrtaxpunkt.Displaymember = Nothing
- Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(129, 170)
- Me.cbboxNrtaxpunkt.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
- Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(260, 24)
- Me.cbboxNrtaxpunkt.TabIndex = 4
- Me.cbboxNrtaxpunkt.Table = Nothing
- Me.cbboxNrtaxpunkt.TableAlias = ""
- Me.cbboxNrtaxpunkt.Valuemember = Nothing
- '
- 'cbboxNrAnsatz
- '
- Me.cbboxNrAnsatz.Dataselection = Nothing
- Me.cbboxNrAnsatz.Displaymember = Nothing
- Me.cbboxNrAnsatz.Location = New System.Drawing.Point(125, 100)
- Me.cbboxNrAnsatz.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
- Me.cbboxNrAnsatz.Size = New System.Drawing.Size(260, 24)
- Me.cbboxNrAnsatz.TabIndex = 2
- Me.cbboxNrAnsatz.Table = Nothing
- Me.cbboxNrAnsatz.TableAlias = ""
- Me.cbboxNrAnsatz.Valuemember = Nothing
- '
'lblAnsatz
'
Me.lblAnsatz.AutoSize = True
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"
'
- 'cbboxNrAbrechnungstyp
- '
- Me.cbboxNrAbrechnungstyp.Dataselection = Nothing
- Me.cbboxNrAbrechnungstyp.Displaymember = Nothing
- Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(125, 65)
- Me.cbboxNrAbrechnungstyp.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
- Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(260, 24)
- Me.cbboxNrAbrechnungstyp.TabIndex = 1
- Me.cbboxNrAbrechnungstyp.Table = Nothing
- Me.cbboxNrAbrechnungstyp.TableAlias = ""
- Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
- '
'lblAbrechnungstyp
'
Me.lblAbrechnungstyp.AutoSize = True
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"
'
- 'cbboxNRRGtyp
- '
- Me.cbboxNRRGtyp.Dataselection = Nothing
- Me.cbboxNRRGtyp.Displaymember = Nothing
- Me.cbboxNRRGtyp.Location = New System.Drawing.Point(125, 31)
- Me.cbboxNRRGtyp.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
- Me.cbboxNRRGtyp.Size = New System.Drawing.Size(260, 24)
- Me.cbboxNRRGtyp.TabIndex = 0
- Me.cbboxNRRGtyp.Table = Nothing
- Me.cbboxNRRGtyp.TableAlias = ""
- Me.cbboxNRRGtyp.Valuemember = Nothing
- '
'lblRechnungstyp
'
Me.lblRechnungstyp.AutoSize = True
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 +1408,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,27 +1419,14 @@ Partial Class Benhandungdetail
Me.GrpRechnungstext.TabStop = False
Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
'
- 'cbboxrgtext
- '
- Me.cbboxrgtext.Dataselection = Nothing
- Me.cbboxrgtext.Displaymember = Nothing
- Me.cbboxrgtext.Location = New System.Drawing.Point(4, 25)
- Me.cbboxrgtext.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxrgtext.Name = "cbboxrgtext"
- Me.cbboxrgtext.Size = New System.Drawing.Size(564, 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.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, 74)
+ Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(565, 83)
Me.txtRechnungsbemerkung.TabIndex = 1
'
'lblDiagnose
@@ -1517,7 +1435,7 @@ Partial Class Benhandungdetail
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 +1453,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 +1490,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"
'
@@ -1584,28 +1502,13 @@ Partial Class Benhandungdetail
Me.txtBehandlungsgrund.Size = New System.Drawing.Size(437, 22)
Me.txtBehandlungsgrund.TabIndex = 222
'
- 'cbboxNrBehandlungsart
- '
- Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cbboxNrBehandlungsart.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cbboxNrBehandlungsart.Dataselection = Nothing
- Me.cbboxNrBehandlungsart.Displaymember = Nothing
- Me.cbboxNrBehandlungsart.Location = New System.Drawing.Point(127, 95)
- Me.cbboxNrBehandlungsart.Margin = New System.Windows.Forms.Padding(4)
- Me.cbboxNrBehandlungsart.Name = "cbboxNrBehandlungsart"
- Me.cbboxNrBehandlungsart.Size = New System.Drawing.Size(200, 24)
- Me.cbboxNrBehandlungsart.TabIndex = 225
- Me.cbboxNrBehandlungsart.Table = Nothing
- Me.cbboxNrBehandlungsart.TableAlias = ""
- Me.cbboxNrBehandlungsart.Valuemember = Nothing
- '
'lblBehandlungsgrund
'
Me.lblBehandlungsgrund.AutoSize = True
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 +1556,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 +1574,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 +1589,285 @@ 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"
+ '
+ 'cbboxNrBehandlungsart
+ '
+ Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cbboxNrBehandlungsart.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cbboxNrBehandlungsart.Dataselection = Nothing
+ Me.cbboxNrBehandlungsart.Displaymember = Nothing
+ Me.cbboxNrBehandlungsart.Location = New System.Drawing.Point(127, 95)
+ Me.cbboxNrBehandlungsart.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrBehandlungsart.Name = "cbboxNrBehandlungsart"
+ Me.cbboxNrBehandlungsart.Size = New System.Drawing.Size(200, 24)
+ Me.cbboxNrBehandlungsart.TabIndex = 225
+ Me.cbboxNrBehandlungsart.Table = Nothing
+ Me.cbboxNrBehandlungsart.TableAlias = ""
+ Me.cbboxNrBehandlungsart.Valuemember = Nothing
+ '
+ 'cbboxrgtext
+ '
+ Me.cbboxrgtext.Dataselection = Nothing
+ Me.cbboxrgtext.Displaymember = Nothing
+ 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(565, 24)
+ Me.cbboxrgtext.TabIndex = 0
+ Me.cbboxrgtext.Table = Nothing
+ Me.cbboxrgtext.TableAlias = ""
+ Me.cbboxrgtext.Valuemember = Nothing
+ '
+ 'cbboxNRESTyp
+ '
+ Me.cbboxNRESTyp.Dataselection = Nothing
+ Me.cbboxNRESTyp.Displaymember = Nothing
+ Me.cbboxNRESTyp.Location = New System.Drawing.Point(96, 64)
+ Me.cbboxNRESTyp.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
+ Me.cbboxNRESTyp.Size = New System.Drawing.Size(287, 24)
+ Me.cbboxNRESTyp.TabIndex = 1
+ Me.cbboxNRESTyp.Table = Nothing
+ Me.cbboxNRESTyp.TableAlias = ""
+ Me.cbboxNRESTyp.Valuemember = Nothing
+ '
+ 'cbboxnrbehandler
+ '
+ Me.cbboxnrbehandler.Dataselection = Nothing
+ Me.cbboxnrbehandler.Displaymember = Nothing
+ Me.cbboxnrbehandler.Location = New System.Drawing.Point(96, 30)
+ Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
+ Me.cbboxnrbehandler.Size = New System.Drawing.Size(287, 24)
+ Me.cbboxnrbehandler.TabIndex = 0
+ Me.cbboxnrbehandler.Table = Nothing
+ Me.cbboxnrbehandler.TableAlias = ""
+ Me.cbboxnrbehandler.Valuemember = Nothing
+ '
+ 'cbboxNrGesetz
+ '
+ Me.cbboxNrGesetz.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+ Me.cbboxNrGesetz.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cbboxNrGesetz.Dataselection = Nothing
+ Me.cbboxNrGesetz.Displaymember = Nothing
+ Me.cbboxNrGesetz.Location = New System.Drawing.Point(125, 167)
+ Me.cbboxNrGesetz.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
+ Me.cbboxNrGesetz.Size = New System.Drawing.Size(200, 24)
+ Me.cbboxNrGesetz.TabIndex = 9
+ Me.cbboxNrGesetz.Table = Nothing
+ Me.cbboxNrGesetz.TableAlias = ""
+ Me.cbboxNrGesetz.Valuemember = Nothing
+ '
+ 'cbboxNrZuweiser
+ '
+ Me.cbboxNrZuweiser.Dataselection = Nothing
+ Me.cbboxNrZuweiser.Displaymember = Nothing
+ Me.cbboxNrZuweiser.Location = New System.Drawing.Point(125, 294)
+ Me.cbboxNrZuweiser.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
+ Me.cbboxNrZuweiser.Size = New System.Drawing.Size(224, 24)
+ Me.cbboxNrZuweiser.TabIndex = 13
+ Me.cbboxNrZuweiser.Table = Nothing
+ Me.cbboxNrZuweiser.TableAlias = ""
+ Me.cbboxNrZuweiser.Valuemember = Nothing
+ '
+ 'cbboxNrAnsprechpartner
+ '
+ Me.cbboxNrAnsprechpartner.Dataselection = Nothing
+ Me.cbboxNrAnsprechpartner.Displaymember = Nothing
+ 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)
+ Me.cbboxNrAnsprechpartner.TabIndex = 7
+ Me.cbboxNrAnsprechpartner.Table = Nothing
+ Me.cbboxNrAnsprechpartner.TableAlias = ""
+ Me.cbboxNrAnsprechpartner.Valuemember = Nothing
+ '
+ 'cbboxNrGarant
+ '
+ Me.cbboxNrGarant.Dataselection = Nothing
+ Me.cbboxNrGarant.Displaymember = Nothing
+ Me.cbboxNrGarant.Location = New System.Drawing.Point(125, 75)
+ Me.cbboxNrGarant.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrGarant.Name = "cbboxNrGarant"
+ Me.cbboxNrGarant.Size = New System.Drawing.Size(368, 24)
+ Me.cbboxNrGarant.TabIndex = 6
+ Me.cbboxNrGarant.Table = Nothing
+ Me.cbboxNrGarant.TableAlias = ""
+ Me.cbboxNrGarant.Valuemember = Nothing
+ '
+ 'cbboxNrtaxpunkt
+ '
+ Me.cbboxNrtaxpunkt.Dataselection = Nothing
+ Me.cbboxNrtaxpunkt.Displaymember = Nothing
+ Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(129, 170)
+ Me.cbboxNrtaxpunkt.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
+ Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(260, 24)
+ Me.cbboxNrtaxpunkt.TabIndex = 4
+ Me.cbboxNrtaxpunkt.Table = Nothing
+ Me.cbboxNrtaxpunkt.TableAlias = ""
+ Me.cbboxNrtaxpunkt.Valuemember = Nothing
+ '
+ 'cbboxNrAnsatz
+ '
+ Me.cbboxNrAnsatz.Dataselection = Nothing
+ Me.cbboxNrAnsatz.Displaymember = Nothing
+ Me.cbboxNrAnsatz.Location = New System.Drawing.Point(125, 100)
+ Me.cbboxNrAnsatz.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
+ Me.cbboxNrAnsatz.Size = New System.Drawing.Size(260, 24)
+ Me.cbboxNrAnsatz.TabIndex = 2
+ Me.cbboxNrAnsatz.Table = Nothing
+ Me.cbboxNrAnsatz.TableAlias = ""
+ Me.cbboxNrAnsatz.Valuemember = Nothing
+ '
+ 'cbboxNrAbrechnungstyp
+ '
+ Me.cbboxNrAbrechnungstyp.Dataselection = Nothing
+ Me.cbboxNrAbrechnungstyp.Displaymember = Nothing
+ Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(125, 65)
+ Me.cbboxNrAbrechnungstyp.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
+ Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(260, 24)
+ Me.cbboxNrAbrechnungstyp.TabIndex = 1
+ Me.cbboxNrAbrechnungstyp.Table = Nothing
+ Me.cbboxNrAbrechnungstyp.TableAlias = ""
+ Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
+ '
+ 'cbboxNRRGtyp
+ '
+ Me.cbboxNRRGtyp.Dataselection = Nothing
+ Me.cbboxNRRGtyp.Displaymember = Nothing
+ Me.cbboxNRRGtyp.Location = New System.Drawing.Point(125, 31)
+ Me.cbboxNRRGtyp.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
+ Me.cbboxNRRGtyp.Size = New System.Drawing.Size(260, 24)
+ Me.cbboxNRRGtyp.TabIndex = 0
+ Me.cbboxNRRGtyp.Table = Nothing
+ Me.cbboxNRRGtyp.TableAlias = ""
+ Me.cbboxNRRGtyp.Valuemember = Nothing
+ '
+ '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
+ '
'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
diff --git a/DPM2016/Behandlung/Benhandungdetail.resx b/DPM2016/Behandlung/Benhandungdetail.resx
index ee13cb0..2ad79eb 100644
--- a/DPM2016/Behandlung/Benhandungdetail.resx
+++ b/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==
+
+
+
+ 143, 17
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8KSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
+ AiEJCXtvKLSlUFYplLbQqljLSQgQEkYYCRBSkpDElu04k2wSnL33XmQw4kxWON890rEty39J9+hKtiS/
+ 7/P8Hvp9BEfWkfT+pXvuVRKCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+ IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCRDP9rEn/o9gbdTTnp9xpcaT8wexMuSsj39C1
+ pTXpl+KPIAiCIAiSKLHYks0WZ8oYi9XwjcVlYP7Mrl+dNjsNE8yuBh3Ef4IgCIIgSNyGJV2kFv+zBqvh
+ O6r4acnv5Q5r+BvxExAEQRAEiafwj/vNzpQP6ZIPzuwwbFDsjdLEj0IQBEFiJlOSfpGZn9LANKxh0yxb
+ ikn93wr/mNfsamDhFFuDDMXVIJP//3JevqyR2Wr+P/5u0PsfIwkf9fFhcRomUuWuldll2IhPAhAEQaIZ
+ a9LF2Y7LGmc4ktuq79gGqy+8D6kvwC+q3rC4UgoUl2Gh+s/V6r/bke5KPmpxXXbW94VawoV016XlFleD
+ I/xnqf/3WvXnzhNFMVL9389ZnA3vy8g3XJ3hSm7DbxOGhjiMWv78eL7PuuuQMk78VARBECSsqEWanW8w
+ mh0N+1vyUx5RX1xHqkVfrLiSt6dZDT/UfOGNDXxzmPrPteptnWJxpjjUYvldZn5K7wzH5akYDmIwnvIP
+ 72P/QLAxEEEQRGOMI42Xqu+qu5mdyY9ZnMnvW+yGNTretccsdXA56fl0wpn8Cv/kINOR0pofdxZ3A1Lb
+ sSZdrA5p46m10kX9meJvQBAEQSrCCy9zWMPO6gvlE/yFkm+eslgNP9V4Ea03GpxXnMllitPwttlleJDv
+ Q8AnBbUQT/mrwya5JjpZDd/wny/+JgRBkPqZTmOTLjHnG7qrZf+8+i6/1GS99BT5ogmVzPbfHFT/+TG/
+ 8EyGs1EOBoIIRy1ndfB81/9+j6TMYY2aib8NQRCknkQtK+/mPMM/zM7kORbrr89QL5Agwd7gS8VlmKQO
+ UA94Nhoi4cdb/mPJ+zmCFEfDq8TfiCAIkrjhp8yZ81OuUV/43jDZDPv9XwwhgqyGn9V/LjO7DP/kgxY+
+ HZCIel+p991b1e5PjTLyG7JO72aT/46S4Uy+VvytCIIgiRV+rrziMDysOFIKE3HDXrxQXIYDFqfhTdVA
+ bCgMEm/5v+F//2k1pLgXu35mX/LfUTAAIAiSUGlpbXyZ2ZV8t1o2Jeo70B+pFz6oO/yaB2ZXyih1fbrh
+ kwGfqPeFer+Mpu4zLa4p6skeWX8HBgAEQepX+LeeZbiSr1NL5RO8048fauHtNDtTXrIMa5grlrJ+xlv+
+ o6j7SIvB7h6e8vcOAP3IP0PBAIAgSNyGn6PuedcU4NvQYlnmiEYs+5XGLGfU5Sx3TCpr8WYaazm2KWv9
+ XjprM97I2n5gqvKhH/X/1/p9I2v1brr636Sx5m828fwM/rP4z8wY1pD8O2Nbyip+MSX+CY5Y3voRz8f+
+ Ka/S90logwu7V5b/n9bfiQEAQZDETfaopP9VnMn3mB2GJdSLWizg5Z47OtVT0LywO/zXzDpPzWTd3Nms
+ Z2kO6zOvOev7WYuo6j2nOes5I4d1K8xiXT7NZB0/sbB2HyqslTpk5LyeyjKHx+aQIE7BfIMPd2LJEzfe
+ Y/4jfX9/GYP8yh8DAIIgCZksZ+Nss9MwXC3+E9SLWV1o9urlnnft7dSS7zQlg3UvyvYUL1XIdaXfZy29
+ 5rdkV8xvJbRm/VV9Z7dkPYpyWZcpWaz9h2bW8q2mLOvlxuTvWhfMLsNiszPlLj70iYdB4sTzsb9hBPV7
+ azGooJtP+YsBYMOd7IaZV5B/noIBAEGQ2I3nRbLhFRanoZR6Aas1+WrZv3Y5a/VOU9ZhotnzrjrWip4S
+ rPw9FrRhV1Zqy67yaMeumNOa9SzIZZ0mZrLWY42s2SuX0/dLLVFchuN8rwA/q0M8MuI73vIfRv2uWgyc
+ 3pUs/0c33IUBAEGQOM+UpF+oL/q38MvPUi9c0cbPp+bH1PnH912nZ7E+cVD2/sIrf9XCdmyAR3uPqz06
+ sP5z27Ie03JZ+/FmljMqlbzfou+ys+og8Br/mmTxSIm/eI/5O+nfL7SrA5Y/BgAEQeI4/GI9/NKy6os8
+ /1pb8kUrGjLUd/i5Y5qwdh+phV+gFv7c+Cv86qjybxV2+V+9qAMb6NHRY9CiTmzAvPasZ0Fz1uGDDJbz
+ Wu0OBJ7TO/l3NOQbWoiHTnzEW/526nfS4uppXYKWP3cjBgAEQeIp3m/aS3mWX06WeqGKBr5Rj3+k3/nT
+ jLj4OF9GRfn38yn/ynf/aulXDQDhlX+FwYs7V7pqTnvWbVIz1urNdM8nKNR9HnH8ioOOlOn8i5vEQymm
+ 4znlkfo9NLhqame1+G/3GQC8m/4qPvrnHsMAgCBIvISfv292JT9qsf/2MPUCFWn8OD4/hY7vxvcvzUQR
+ tPyrvftv6zMAtKs2AFSWv0pL+V+zuIvQlQ1Z0pUNXtiZ9S5oxdq/b2ZZ6qBFrUXEOZKnmh0Nm4uHVszF
+ 4jRYydutgZby9w4Ad2MAQBAkxjMl6Rf8u+bVF6E9/i9KkcbPi+el36O4GVmYiSQS5e8dALzl73337y1/
+ 3wEgWPl7dWNDhSGLu7G+7tas7bvm6F+fwGr4iX+DntFuSBePtJiIetv+XeO2anTlp500l79nAJiFAQBB
+ kFiMd/fzTRZXg83UC1Kk8I/3+YVyuhUm7jt9f57yr3Hcnyp/7wAQuPx9P/qvWf6DfMp/cGX5dyHLf+iS
+ 7mzo0u7sWo8ebOiibqz3tFas9Vsmz74Lau0io8F5vstecTVIEY+8OovZaXiBvo2h9Z/iX/6+x/1rlv9j
+ G/kA0J/8WRQMAAiC1ErMrgYd1Bedpf4vQhGjFkqLt9JYl2mZrO88uiQTVe2Vv++7/6ryv6ay/H0HgOrl
+ f51HT6/Pe7IhC7qx7pOas5xXo7qB8FuLM+X5urqOAP+6aeI2adJ/Skfp8v/zxnswACAIEjvxfCOf0/C2
+ +IpY8oVIj6yXG3lO1+NX2KPKMdGFV/6qWiz/agOAWv7Xf96r0g2f92b9i9uztu+Yo7Z50HNWSX7KIPGQ
+ rJXwwYO6LVpcMblDkPKvGgD8yx8DAIIgMRH+ta8ZTsPj6gvNt/4vPJHQ/I0mnh389e3dfnVU+Uf2dD/5
+ 8vcOAGT5q/zLv8KNy/qwIfO7s24Tc1n2yChdeMiRPLU2riFgcaU8R/79GlwxKfzy526adSX5cykYABAE
+ iXjUF9p+ZodhA/Wiowc/bsxP3asPG/q0qCj/iJzupwpnx79c+VcNAP7l79WX3aS68fM+rO/0tqz5qDTy
+ caDPZWfN+Sl/52egiIdrRGN2pjxD/72h9fukPfujp/x9BwC1/P0++uen+1UMAL7l//jGezEAIAhSNzFb
+ GyRbnMnvUy82evDd423GGVnPmfXzY35K0PKv9u4/eqf7Rbb8+3jK36sfu3m515VFHVjLMenk40IPkzN5
+ W4bLMEA8dCMSs9PwNPV3adFXY/lXf/dfvfwxACAIUiexOBteH+nz+flu/nYfKaz37FyyBOsr7eXv++4/
+ uqf7VZW/dwCIRPnfvPwKdotwdWln1uZthXyc6OJMGcMvRCUexmHH4jQ8Sf58Dfr+t10Y5e/77t9b/p4B
+ YDYGAARBail8k5/64jeReoEJFy/+9hOUBLgkb+R5yr/Gcf9wyl8MAAHKX8/pfoHLv2oAkCn/W5b3Z7d+
+ 4XXNnO6s7dtm8nETNkeDLRZXcjvxkJaO2OtC/+wQ+pDl73vcX3v5P77pPnYzBgAEQaIefl3z/JTb+Te1
+ US8u4eAf9fMd/Yl2ad5Iqb3yD3/Hv2/5Uzv+A5d/35Dlf+sXV7LbPK5ig2Z2Za3GGMnHUTgauwzf8+P3
+ Sdaki8UjXFMUV8M/Uz9Piz4T20a0/J/AAIAgSLTDL7BidhmmUC8q4eCnf/Fj/L1m4aP+QMIrf1Utln+1
+ ASBA+VcfAHzK3+fdf7XyrxwAqsqfu50rG8AGFHeK6GZBszN5jmlYw6bioR406sDwJ+pnaNH74zYhyr9q
+ AKDLv+q4f0X5eweAq8i/j4IBAEEQqSiOlF4mm2E/9YISjpZjm9bbc/i1o8o/fk/38y9/+qP//t4BoFr5
+ eweAivLn7uD//GIA6z+9PWs2MmIXFfrK4mp4g3jIk7G4Uv5I/Hea9Pq4deTKf2NV+T+x6X4MAAiCRCGe
+ 6/cb/qW+cFzwfyEJR86oy1m3wiyi7MBfRfkn2ul+Wsu/xrt/n/K/o+xqjztVty0fwHpMbBGxCwrxC1il
+ jkj9tXgGVCbDlfJ76s9r0WuCWv7rbte06S/Y6X5U+T+JAQBBkEgnO99gVByGRdSLiCy+wa/jJ2ay6KCm
+ oOVf7d1/fJ/uRx/3p8rfdwDwlr9nAFgxUBjEblzQN2IbBfnpgoq9UUfxVEgyuwwPUX9Oi54ftdJc/tXf
+ /VPlf2+N8vcOAAPIv5uCAQBBkKDhH4Wq7/y/pl5ApOQbWOv303FKnwTt5e/77j9Sp/sF3vHvLX/vABAT
+ 5V9WUf4D2V3qAOA1mF1d1IXlvKL/sECa1fADv7qfp/zDvKR1+OUffNMfL/+qAeABdgsGAARBdMfzkX+K
+ g3rhkMW/h797Uf35Zr5I8JR/jeP+4ZS/GAAClH+snu6nt/zv5lYOZnd8MZD1nNgyat8zoEWPD1sGKH/f
+ 4/7hlL/vu/8H2JObMQAgCKIz3iv6GUqoFw0Z/NK97T40sT71+nr98mqv/MPf8e9b/tE83c9T/p4BgDru
+ T5X/oMryv3vlNewe4cb5/VjrMSbycRpNvPz/sPa26Je/6ikMAAiC6Ik539DC8+1pxAuGjJzXU1l3XLNf
+ Wnjlr6rF8q82AAQo/+oDgE/5+7z7r1b+Ph/9R7r871k5hN2r4v+736ftWeawRuRjNtK6f9BCLf9bQ5R/
+ 1QBAlz99uh9V/k9tfhADAIIg4YUf7zdZLz1FvVhoxS/mw6/iV7+/pS9cVPnjdD/58h9co/zvXcUNZfep
+ bll4JWv9RnQ/DYh4+RM7/isGgIryxwCAIIh8+FX9XIZ/+79AyOLH+vFNfeGrKH+c7ldx3J8qf5WO8ve6
+ lt23cijrO7ldVPYGdBvf3Fv+UTzdjyr/pz0DwNXkbaJgAECQep5OY5MuUVwpH1AvEDJav5eOa/frELT8
+ q737x+l+XuGX//0e17H7V1/HbvysH2v+WlPyMR2OrpLlX/3dP1X+9Ol+VeXvHQB4+T+9+XcYABAE0Zbc
+ YQ1/ozgNs6gXB634ef2dP80kSw200V7+vu/+cbqfl1r8QY77Byv/BzyuZ/eUDWFdxuWQj28ZXcfl6ij/
+ UJv+qp/uR5U/d+scDAAIgoSIeXjjJhZXymrqhUGr3DGprBe+o18XT/nXOO4fTvmLASBA+Sf66X6Byr9q
+ ALi2agDwKX/uQY8b2NWFXcPeINglaPmLASDs8vd99+893a/6R//e8v/LFgwACIKESIazUY76ArDH/wVB
+ RtsPTGShgXa1V/7h7/j3Lf94ON2P/ui/evl7BwBv+XsHgBvYg2u8bl04QPqQQJf3c2qv/Inj/lUDwEMY
+ ABAECRxzvqG7+uT/yv/FQCu+y7/zpxlkoYF24ZW/qhbLv9oAEKD8qw8APuXv8+6/WvlXDgB1Wf6+7/6r
+ yv93a270uLfsWtbxnSzy8e+vqvxDnetfNQDQ5S93ul/N8scAgCBIkJhdDa+wuC47S70YaJH9SmPs8o8I
+ qvxxup98+Yfa9Cdf/txDa27y/LPnhFbk86BC5/easYfX3BLZ8pfY8e9f/txtcwaSt5WCAQBB6kkUR8Or
+ LNbfnqNeCLRo/kYTXMc/QirKH6f7VRz3p8pfpav8vQNAOOXvsfYm9vDam9lV0zqRpwp28i3/Ojjdjyr/
+ Z7Y8jAEAQZDqsTgNAy2uBuepFwEt2ow34sI+ERK0/Ku9+8fpfl46y99vx7+3/KsGgGDl73ULu7a0d7XN
+ gZ3ezZYu/+rv/qnylzvdr2b5YwBAEMQvZmfKYIPV8B31AhBSvoF1+G9sf3Vvn3nNWc/SHNbNne3Zm9Bh
+ opm1/dDE2owzslbvNGUt3kpjuWOasNzRqZ7LE+eMutxzwSKO/2/+/+NnM/BPOFq8ncZavZfuGXjaTVA8
+ X1vcZWqm54uMes3S/+mH9vL3ffeP0/281OIPetw/OuX/e+HWBQNYs5dTWcd3QpW/70f/VPmH2vRX/XS/
+ YDv+/cvfOwAMop/LBAwACJLAUVzJQxu7DN9TT/5QPJv91PKjiqwu8JLnZdz+Y8Vz0SFe2Fkja+ea7hX4
+ lxvxfRB8qOBDQsdPLKxrQZamQyOe8q9x3D/y5S97up+28q8aAMIrf+8AEM3yD3TcP/zyv7my/H+/7lb2
+ B9W9y4ZGufx93/1rK3/vAOAtfwwACIJ4wp/c3u8xp5/8wfCL+/B31FSR1QZe9p2mZHhKlr97zxxed1/l
+ qhUfDFq+neb5HoSu09WhYE7VVREjV/5iAAhY/uHv+A+//MM43a9a+fse96fKP9SO/8Dl7x0AvOXvHQBq
+ HvfXWv5evPiFaJd/0OP+dPn/devvMQAgSH2PxZXcN9xj/p6d/iW1u9O/x4xmnkMNLcc2rfV39VGT7/1G
+ xLbjTZ5PLvqoA4H28lfVYvlXGwB8yt87AIQof593/9XK3+ej/2rl7xkAIlX+3gEg3PKvHADU8n8oYuVf
+ NQDQ5R/qdD/vABC4/H0/+q9e/hgAEKSex2xv0D7ddWk59YQPpdmoyyNyrDsUXob88ELr99M9Awd1WxIN
+ P3zAP83oMMHMehXn6ij/qgEg4uXvefdfs/yrDwChy9/3uL+3/L0DQCye7udf/pXH/df5DgC3VQ0Amsu/
+ agAgyz8CO/79y5+7HQMAgtTPmIb/NivdlXyUerKHwt+tRvM0P/6zO06yeI6f8/0F1G2oT7JGNmZtx5lY
+ T3eOvvJXVZW/3h3/2stf9lx/70f/VPmrdJW/dwCIaPlXe/fvU/4RO90v1I7/8Mr/2a1/wACAIPUxir1R
+ mvqkDuvyvp7y9zlmHSn82wE7TbZ4Nuzxj8Spvxu8w0C78QrrVdyi2gCQWKf71Sx/zwAgyl/36X5k+VcN
+ ADXKv8Zx/8iUv3cAqPjoP3T5+x7395a/dwAIdbofVf4YABCkHkZxNUgxOwwbqCd5KDmjI1/+fGd8q3eb
+ sow42LwXa3JGpbLOn2Sx/vPaVpZ/oOP+FcXPaS9/7wBQu+XvOwAEL/+6Pt2PPu4fTvmH2vQXuPy9A4B8
+ +XN3zB1MPq4oGAAQJM6TPSrpf80uw2LqCR4KPzc+UuXPfw4/Bz/71fpxTD/a+NXnWr9jZL2LW5DlH5un
+ +0X/XP9Ax/0jebpf6PL3Pe4fTvl7B4CK8g/ndD+q/J/b+kcMAAhSb8KSLlJcKR9QT+5Q+MVv+GY8qsxl
+ 8O8G4Ofl47h+9OS+3oR1/zSHDVwoBoAA5Y/T/QIf9w+v/FXRLv+gx/2Dl/9ffcr/WbX8n9uGAQBB6k0s
+ zpRnqSd2KPyYv97y71aY5dnQR/38mGI1/Ow5K8Le4EuTzbDf4jTsMjmTtymu5O0Wm2E3//8ZHSnH9HxJ
+ Um3Jfrkx6/zfLDZwQcewyr/aAIDT/XSWf9UAQJd/qNP9QpW/70f/2srfOwBcQz52KBgAECROw6/yx8uN
+ emIHwz+i17Pbv8u0TM+hA+pn17ILaoHvtThSPrO4kt9T/+8XzU7D78z5KdeYXQ06ZOcbjLnDGv4myZp0
+ sbjLQqafNel/zNYGyfxsCiU/pafZZbjJ7Ep+VB0aXKpP1Pv8C7PDcMLvdtS6rBGNWOeP1UFgfqfwyt/z
+ 7r9m+VcfAEKXv+9H/97y9w4AsfTVvoHKP95P96PK/7ltj2AAQJBEjyk/pZXJeukp6kkdDN9t3nNmDlns
+ ofCNfXVW/FbDN2r5zlYLOV9xJt/Dr3Vgtpr/T9wdtZ5sx2WNLY7kfnw4UAeCsRZXymr1tv1I3vYoyhzO
+ B4FsNnhhZ7/y9w4AkSh/nO4XeNNfXZ7uR5X/3zAAIEhiJ+flyxqpT17p0/345X3DucJfd3e29zQ+4mdG
+ jaPBFsVpeFst2Lv5u3G+10H8+jEbPpBYnIZuZlfKX81OQ5H6e3xb4/eKkqyXG7Puk3PZkMVdNZS/73F/
+ qvwjf7qfb/njdL+K8vcOAOGe7keVPwYABEngdBqbdIniMiyknszB8A16stf27zUzx/NtetTPizT1dzqu
+ luYEXvgZjstTxa8b35mS9AvF3qij2WX4p9lhWGKxGn6ifvdIynk1lfUpaCXK3zsA1G75+w4A3vL3DACB
+ yj/oR/9E+eN0v0pU+f9t25/YnfMwACBIQkYtk2HUEzmofAPrMl37t/rxi/e0+0iJ+q5+9Z3yTv6Rfka+
+ oavMcfp4Db9WAz98YXGkTA/3exq0avWWkV09p1OQ8q8aAKJe/jjdr7L8Zb/a13cAqFb+le/+q5f/8xgA
+ ECQxY3amDKGexKHIfJ8/3+AXzWvzq+/0D3g21LmS28XDx/rRSktr48ss+Sm3qwNQcbQ+GeDXEegyoRkb
+ uri7ZPnrPd0vVPmH2vSH0/2ClT/90b+3/J/fzgeAIeTjgYIBAEHiIHxHu/qE/cr/CRwK/7Idquj98S8A
+ 4t/ER/0M/RqcV4eXD82Ohv3rwzt92WSOSL3c7DQ8rQ4DG+n7T59mr6SyK4ra+gwAWssfp/t5y79qAKDL
+ v25O9/Mtf88AoJb/89sfxQCAIIkUfmqa+mRd6v/kDYVv3Os7jy58X/wLevgGQepn6NNgq/rPp/hH3+JX
+ QYKFJV2U4Ujuw083TLMafqh5f+rT7j0LG7qwBzEA+JR/gNP9apa/dwDA6X51d7ofVf7cXRgAECRx4v3I
+ nH4CB8I/xg91rj9/1x+NC/mYnclzLPkpg+rzR/x6Yx7euInFmeJQ78+InknALyR0hbsdWf6yp/sFLn9V
+ 0PKPoa/2jePT/So/+vcp/797BoCh5NpTMAAgSAzH7EwZTD1xg8kc3jDk6X5dpmZG+l3/BXVQmeg5to9E
+ LPxCRvzwgMX120PEfR62juMz2fVLeocof/HuX5R/zeP+wcu/vp7uV7P8vQNApE/3o8r/79sfwwCAIIkQ
+ fmyYnx5HPXGD4eVOlT7Hd/jz6/ZT/12YLvDT9yzDGuaKm41EIfwaAxlOw+MWV4MjxBqEJfe1JmzQ7C5h
+ lr/vAOAtf88AEKL86+vpfuGXf+DT/bzl7x0AKsofAwCCJEJY0kUWR/JU6kkbTJvxRrL4uZ4zcljOqMvJ
+ /y48KdPMjobNxS1GaiHGkcZLzS7DXyxOw9f0msjhZwr0/rR1ZMo/Zk73C6f8fY/7h1P+vu/+a+d0P6r8
+ /4EBAEHiPxZnyh3UEzYY/r3+gTb9df40w3NogPrvZPGL2pidKT3ETUXqIHxjpToIjGjsMnxPrZGsDu9l
+ sJuW9vUrf+8AEH75h9r0h9P9gpV/qNP9qPL/x44/YwBAkHgOvxKe+uSUOuWPH8/vWUpf47/teCP538gy
+ 239zkJ+7js19sRPF1iDD4kopoNZLVvNRaeza+T1xul/A8o+t0/18B4CK8ufuxgCAIHEaz0f//Epx9BM2
+ EOq4f+85zSOyy997SlqKM3VE6q/FrURiLPyF3PPNiMT6ycga0ZgNLO3sU/7eAaB+ne4nyl9Fln+MnO5X
+ 7d3/Dt8B4FpybSkYABAkhsKvhU89UYOhjvvzTwOavRaB4/3OBsv5Nw+Km4fEcNKsab/ipw6adX4rId8X
+ 0G9aWw3lrwpa/jjdLzLl7x0AtJT/P3c8jgEAQeIxir1RGv/aW+qJGgjf1NfH77h/96LsCJzid9lZ9Z9P
+ 8C+0ETcPiZPwr0pW125t9fWU1+3j5t4BIET543S/ivL3DgDh7/jXX/4YABAkTqM+IT/2f4IGw9+p9Siu
+ fr4//9IfvV/io7iSv8gc1qiZuFlIHKalNemXZmeKTV3PC/7rK6Pj+5nstuXeIaCi/D0DQIjyx+l+suUf
+ 6nQ/ovw9A0BF+VcNAPfMu45cSwoGAASJgfBvxKOeoMG0m6BUK/9OkzPUoYD+s5rwL6VxGqz80sPiZiFx
+ HiU/pae6tntqrLWEtm+b2a3LrvR5919R/r4f/aulH/S4P0738x8AqpV/5bt/v/L3GQC0lP8LO55g93yG
+ AQBB4id845/LsMz/yRlMzuvVT/nrMNFM/jmtzK5fnfZcvhdJuGTmpzQwuwxTqHXXqtUYI7tlaf8wN/1p
+ K3/vAFDzuD9d/jjdjyr/F3ZiAECQuIo5P+VO6skZiOejf59L/bbXWf7ey8ziEr4JHXXI5FcS1PMlQy1e
+ T/cOAVLl7x0AqPL3DgDBy79yAPDb9Kev/KsGALr84+N0v+rlr1LLHwNAAoapT94p1saXFVjNyRAfFljN
+ /yeWL2j4ld1MNsN+6skZSHufj/7bf6yQf0YrxWVYz79qWNwcJMFjzjd0t9h/e5h6LGjR4vWm7NalV0ao
+ /H0/+tde/jjdr/qmP88AIMr/xZ1PYgBIhEyzZl5eZFeeUy1SnVYxiDPW9KPuPNP0Iof57inWlr8US1st
+ ZqfhBeqJGYjno/9Ilb/TMCvbavituClIPYnnmwYlDzn5qhgCqsofp/tFpvy9A0C45Y8BIAFSOir7f4ts
+ prwiq3KOLBWIVweK85RbxTJ7YhrWsKnF+usz1BMzEH6KHy9/fuEf6t9rZXYY3u00NukScVOQehb+5UKe
+ L3EiHhtatBxtZLcvG6Ch/L0DQNDyFwNAjfKvcdxflL9nAAi//Ku9+w+r/L0DQPg7/qNX/t4B4HpyzSgY
+ AGIoJVZzkwK7soIoD0gcb04R59ZbXCnjqCdlIK3eaeopf/6lPnqu62/OT/k7LueL8MeA2ZXyH+oxokWb
+ NxV25xeDiAGAKH+c7ldJuvw9A0DgTX++5f/izqfYvRgA4i+zrEZDQZ5xK1EYkHg+yBzWsLPFaviZelJS
+ +Ln9vWbmer7ON9wr/PEvjjE7U+4SDzkE8cTsMjzkOQWUeMyE0n5shudQQKDy9333X7vl73vcP5zy9333
+ H5un+9Us/yfZv/gAMB8DQFzFak262G03zSCKAhKQW9XeZthNPSEDafeRyfPuv+XYpuS/D8lq+CbDkdxH
+ POQQpFoszobXG6yG78jHTghdxudUln+g4/6+5e8dALzl7zsA0OUfasd/LZR/0OP+3vL3DgDByz/Sp/tR
+ 5f+vXRgA4i5um/I3qiggMeU55Eo8a2Rjzzv/sE/348PGsIa54uGGIGTMroZXyO5JqdB7UpuA5e8dAIKX
+ f+UA4LfpL3j5q4KWf9UAQJd/3Z/u51v+vgOAltP9qPL/166nMQDEU9wOpVeRVfmJKgpIPNNUnVxy1+nv
+ NCWDdS3IYpYwrvLnuazviNTLxcMNQYLG7Ezpke66tJx6LIUysKhrgPL3/ehfe/nX19P9vOXvOwB4y98z
+ AAQt/6fYvzEAxE+KrGmN3HblIFUUkJiecjQhn4iB5IxOZb1m5rCsl8P4ch9HynT+DXHi4YYgmmJxGrqZ
+ rJeeIh9TQWQOa8RumNevdspf46a/0Kf71UX5i3f/gTb9Sez455v+fMvfOwDcQK4PBQNAHQXH/esf/u6/
+ tUtu9363wiyWqw4B1L8LypHyGa7pj4Qbz3cIhHE4IGdkKrvj80F0+YsBoEb51zjuL8rfMwCEX/7V3v2T
+ 5R/fp/v5lj//6B8DQBwFx/3rn7870sgnYSAt32nKWr+fTv67YMz23xzEx/6I3iiuhlfyM0eox1gw/PTA
+ +1de61P+Ve/+wyt/7wAQfvmH2vQXn6f7+R73ryj/f+/6C7sPA0BsJ5zj/rNeac32rR7J9kPM27HUSq7h
+ EKf20/f4aX/tPpK/0h9/webfLCgeagiiK2aX4Sb1cSX9lcI9P25VS+Xve9w/nPL3ffcvf7pfwPKvfPfv
+ V/4+A0D45V99059v+Vs9A8CN5JpQMADUcsI77m9mp47NY+zCcYgTu7+wV1tDfupfC4mP/1u8mRbm9/qn
+ /FE81BAkIrHkpzxCP9aCu2ZGj8ry9x0A6PJPnNP9qsrfdwConfK37sYAELMJ97j/3pXDyJKB2PXzT1+y
+ 5RNvqFzDqSrqCUjh3/aXOSKMTX/O5PdxhT8kGrE4U8aQj7kgskc09uwHIN/9+236C17+qqDlXzUA0OWf
+ mKf7UeVv3f0Mux8DQGwmnOP+ZZNuVsvkKFkyENt+PLedzRzZ0rOOk+wm8gkYOSmr+PXdxUMNQSKaltak
+ X5odhiX0Yy+wdm9nhCz/iJ/uF6j8Y/J0P2/5ewcAb/l7BoCg5V+149+//P+DASA2E85x/9mvtGE/nt9B
+ lgvEh5NfzvKsZaEqh3gCRoTT8LXZ1cAiHmoIEpV4v0Xwt4fIx2AQAwq6hF/+Gjf91cfT/ajyxwAQg8Fx
+ //qtYj9Af1dj8kmoC/8+AadhoHioIUhUw68RIHtmQNbwRuzOJYOJ4/6i/D0DQPjlX/3dP1X+iXm6X9UA
+ 8IzPAPBXDACxlPCP+w8nywTiT8V+gKclTwPUwuwy/FM81BCkVsIfc9RjMZh2b1nY79QBIHj5eweA8Ms/
+ 1Ka/xDrdjyp/DAAxlvCO+9+C4/4Jhu8HmDqyOcslnoThUhwphUnqgCkeaggS9WS4ktsYHSnHqMdjKAOm
+ d9ZR/r7H/cMpf993/4lxuh9V/i/xAWDBTeT9T8EAEMXguD/44vsB/uqMzKcAZmfKjsz8lAbioYYgUY/n
+ K6ydhq+px2Mo/DLB183q4xkA6rz8gx7395a/dwCoedyfLn/fAaC2yt87APiX/0t7nsUAEAsJ/7j/Z2R5
+ QGLY8UUeGypxQSAK/7KWTEdKa/FQQ5CoR3Gk9Ar3S4IyhzdiN87pp6H8VUHLv2oAoMu/fp3uR5U/9wAG
+ gLoNjvtDIHw/wMKPr2NXO8PdEHjZWf5iLB5qCBL18EsC88cd/XgMLmt4Y3bzvP7VP/rH6X5VA0DQ8g+1
+ 479m+ed5BoCbybWgYACIQsI57v/ZGx3Z6RMT2dlvPoUEd3zPKObOz2APOOW+5CfL3uBLlD9SmzHnp1xj
+ cTU4Tz0eQ8kecTm7dcFV2sofp/sJWsvfOwD4l3/enucwANRlwjnuPyM/i325/SVWfmwM1BPbFz/iWfs3
+ HEY2yNmYZRBPzgp84+B96rDwkT39wCyr0SAeaggS1ZgdhpvTrIYfqMdkKM1eTmW3L7q6evl7BoDwy7/6
+ u3+q/OvX6X6e8hcDQEX5cw9iAKibhPv9/juWPkqWBCS2ssnXVD4GPrKb2N8caexeRyq7Xh0IbnBe7vmE
+ 4F+Opmyy+u98Hi9uhsv9IlGO2ZV8t8Vq+IkqjVByRjZhdyweFKT8vQNA+OUfatNf/Tjdr/q7f2/5YwCo
+ o4R73H/Fp0PJcoDE983hV9m8MR3Ix0VQeaa/iIcdgkQ8isPwsOcCU0RhhJL7ahq7a+lgHeXve9w/nPL3
+ ffef2Kf7+X/0z9n2/I09uBADQK1HLf/nyRfrIPhx/28Pv0aWA9QPR7b9h5XkZ5KPj0DG25UfC19K7yYe
+ eggSsWQ4DY9TRaFFi9easruXDRHlj9P9IlP+3gFAa/nb9mIAqPUU2Uy9cdwfwlWxH0BGod24D/sBkEjG
+ 4kj5G1USWrR8PZ3ds3yoxvJXBS3/qgGALn+c7heo/L0DwC3kGlEwAOgMP+4/3aocol6kg8Fxf/Dlux9A
+ AvYDIPqjPobMrpT/UAWhRavRJnZv2bWV5Y/T/SoGAG/5ewaAoOUf3ul+VeWvEuVv3/s8BoDaCj/uX5hn
+ KiVemIPCcX/wh/0ASJ2El7/TMJwqBy3avKGw+1Zcp738cbqfoLX8vQNA0PIX7/55+WMAqMXguD9EEvYD
+ ILUa9Q2MxZkyhioGLfgX/Ny/kih/zwAQfvlXf/dPlT9O9wtU/hgAaik47g/RgP0ASK1kStIvLK6UcVQp
+ aNFhbCZ7YNX1IcrfOwCEX/6hNv3V79P9qsofA0CtBsf9IZqwHwCJZjqNTbrE4jR8QhWCFp3ezWYPrr5B
+ Z/n7HvcPp/x93/3Xz9P9fI/7YwCopeC4P0Qb9gMg0Ur2qKT/Vd/5F1BloEWXcTnsd2tu9Cl/nO4XmfL3
+ DgB6yx8DQJSD4/5QG7AfAIl0jCONl6ov+jP9S0Crbh8095T/Q5rLXxW0/KsGALr8cbqfbPlzGACiFBz3
+ h9qE/QBIpNLS2vgy9Z3/fKoEtOjxUUu1+G+qVv443a9iAPCWv2cACFr+kT3dLxAMAFFI+Mf9/6S+mL8O
+ EJayyYPJx1UI2A+AVMZsbZCsvtgv83/x16r3xDby5Y/T/QSt5e8dAIKWP7Hjn4IBIMIJ/7j/EPVFfBRA
+ 2L45/DKbN6Y9+fgKCvsBEDVNnb9pqL7zX029+GvRb1I79tAaXv431Sx/zwAQfvlXf/dPlT9O95Mtfw4D
+ QIQT3nH/DuzbwyPUF/FXAXQ5su1F7AdApGMe3riJ2WXYSL3wa9H/044ay987AIRf/qE2/eF0P2/5YwCo
+ 9YR73P/o9hfZqWOvAETE9sUPk4+1YLAfoP4mO99gVFzJ26kXfS0GTOscofL3Pe4fTvn7vvvH6X5aYACI
+ UMI97r9z6e/ZqaMvA0RU2aSB5OMtBOwHqGdRbA0y1Bf3Pf4v9lpk5BvYwMJuRPnjdL/IlL93AIhW+XMY
+ ACKQcI/7r5wyWH2xHgEQcd8ecrJ5Y9qRj7ugsB+g3sQyrGGuxfXbQ9SLfSgZ+Q3Z4OLuleWP0/2ClX/V
+ cf9YKn8OA0AEEt5x//bs5CGH+mI9DCAqvtz6PPYDIGQyXMltjI6UY9QLfSi8/IfO6EWWP073qxgAvOXv
+ GQCCln/tnO4XCAYAnQn7uP+259UX6XyAqNq++AHyMRjMdJtpv9tmerTIbvoTJJ5/OJo6M62/PkO9yIeS
+ OawRu25Wn/DKH6f7CVrL3zsABC1/iR3/FAwAOhL+cf8H1RdnJ0CtKJs0gHwcQv0zypHOmrsaki/woWQN
+ b8RumNPXW/41jvuL8vcMAOGXf/V3/1T543S/SJU/hwEgzIR/3H8gO33UAVBrTh56ic0b05Z8PEL9MdKe
+ znKJF3YtskY0ZjfNu0Ki/L0DQPjlH2rTH07385Y/BoA6SXjH/dux8kNW9UXZBlCrjm59Rno/ACSOYeo7
+ /2bEi7oW2SMuZ7fMvzKC5e973D+c8vd994/T/fTAABBGwjvun8mObXtGfTHOA6gTOxbfSz42IbHZHE1Z
+ Zpgf+zcbmcpuWzggQPnjdL/IlL93AKjt8ucwAEimcFjub9Qn1QH/J1koO5fcy05/+R+AOrVi0pXk4xMS
+ k9VT/vQLeig5rzRhty8e6P1WP1H+ON0vWPlXHfePh/LnMABIxm0z/Yd6ogWzcspV6ouvFaDOnTz4Aps3
+ pg35OIXE8k9HGssgXsi1yH01jd25dFDA8g+54z9S5Y/T/UT5qyJc/hwGAIlMsbb85VS7coJ6sgXy2Rtt
+ Wfmhf6ovvv8CiAlHtzzBSlwZ5OMVEsOzzjTyRVyLFq81ZXd9Pjj88sfpfoLW8vcOAEHLPwI7/ikYACRS
+ aFMGUE+2QDzH/bc+wc58+SJATNm56E7yMQvx7ylHE/IFXIuWrxvZ3cuHVJV/jeP+ovw9A0D45V/93T9V
+ /jjdL9rlz2EAkEiRTXmResIFsmvJneqL7T8BYtKKSVeQj1uIT27VozrKv/UYE7v3i6GS5e8dAMIv/1Cb
+ /nC6n7f8MQDUedw207vUE4+yckp/9UX2HwAxq/zgc2zemNbk4xfiCy//h53hl3+bN8zsvrJrI1z+vsf9
+ wyl/33f/ON0vGjAASER9on3g/8QL5Nt9f1FfZJ8HiGlf73qCHVz9IMSx/aseYM9M7ES+aGvR7i0Lu2/F
+ dUHKH6f7Rab8vQNArJQ/hwFAImqxax4Ayg/yAeA5AICoKT/yLPvrtO7kC7YWHd7JZPevvN5T/pUDgN+m
+ v+Dlrwpa/lUDAF3+ON2vrsqfwwAgEbXYtQ8A+59mZ9QnJwBANJw89Az786Qu5Iu1Fp3ey2YPrApe/jjd
+ r2IA8Ja/ZwAIWv6xebpfIBgAJFJkU8ZTZU8p3/+k+iR9BgAg4soPPc3+8ElH8oVaiy7jctiDq2/QV/44
+ 3U/QWv7eASBo+Udxxz8FA4BEZAaAU/ufYGeP/AUAIOL+U9SHfJHWotuHzdXy9xZ/ZfnXOO4vyt8zAIRf
+ /tXf/VPlj9P96qr8OQwAEnHblXFU2VPK9/9ZfaI+BQAQUYvX3km+QGvRY0LLyuKXK3/vABB++Yfa9IfT
+ /bzljwEgZlNkM71PlT2lfP9j6pP1SQCAiLr5/VzyBTqU3v9tE6Xy9z3uH075+777x+l+tQkDgESkBoB9
+ j6hP1scBACJmw5b7yBfnUPpObsceXON3zL9G+eN0v8iUv3cAiPXy5zAASKTIbnqPKntK+b4/qk9YfhgA
+ ACAy3pw3gHxxDqb/px2qlX/lAOC36S94+auCln/VAECXP073i7Xy5zAASERuAPi9+oR9FAAgYp7+VO6C
+ PwMKOmsqf5zuVzEAeMvfMwAELf/4Ot0vEAwAEpG5FPCpvQ+zc4f/BAAQMQ981Jp8cabwd/73lA1h95YN
+ rcQv93vfCu46dn+l69kD3EruBvagx40ev/O4yeMhj5s9Hl55i9cqdWBYdauP2zz+sPr2Sn+spA4Payqo
+ w0MldXhYy93t8ZjHPR5/Xsfd6/H4uvsqPbH+/kpPrn9AUIeHDRXU4aGSOjxs5B6u4ZlN3O89/rrpD5We
+ 3fzHSs9tfkRQB4ktXs9vUQcJj8fY37mtnDpEVFKHCG7bEx4veDzp8aLHUx7/qmP3zr2efOxQMABIDADl
+ e3+nPmH/CAAQMQ9P1D4AAESU0zBQVGH9jNtueocqe0r53gfVJ+wfAAAi5oWC8K/8B6BHpiOltajC+hmp
+ AWDP/eoTlh8GAACIjEmLB5IvzgBRZf31mU5jky4RVVg/U2QzjqXKnlK+5z71CfsQAEDEHNlzD8sa1oh+
+ kQaIErMr+VNRg/U3cgPAPeoTlh8GAACInCcmtyVfpAGixexo2F/UYP2N2668TZU95dSeu9n5ww8AAETU
+ 9m23sZxhjckXaoAomCEqsH5HagDYfaf6ZL0PACDi3pvfl3qhBoiodFfyUdOwhk1FBdbvuG3KW1TZU8p3
+ 3cHOH7oXACDizqleKupMvmgDRITT8LVib9RR1B+iFvub/kUfSPmu29Qn6t0AAFFxTvXevN4sB5sCIeJS
+ Vmc5G2eL6kN41GKXGABuUZ+kdwIARNX2rTewJye3Ys0wCIBOZlfKTrX8/9jPmvQ/ovaQihTalDeosqeU
+ 77pZfXLywwAAANF3fO8trGT5leyV0i7shent2PNT20IC+f3rZnaPIzWku6yX/6Q4DW9rpRb/SMXV8M9m
+ V4MOSSzpIlF3iH9kBoBTO29k3x26DQAAQLeyCe3JrvFXYG9wXlQWEsm47aYx1B1OObXzBnXRbgUAANAN
+ A0AdR2YAKN95nbpoNwMAAOhWNqEd2TX+MABEKUU202jqDqeU77xWXbSbAAAAdMMAUMeRGwCGqIvGDwMA
+ AADoUzahLdk1/jAARClFdtPr1B1OKd9xDfvu4PUAAAC6YQCo40gNANsHqYt2LQAAgG5lE9qQXeMPA0CU
+ 4s4zjqLucMqp7QPZ9weHAgAA6IYBoI4jMwCUbx+gLto1AAAAupVNaE12jT8MAFGKeue+5n9nB+IdAAYD
+ AADohgGgjqPeuRIDwJXqovHDAAAAAPqUTWhFdo0/DABRSlGe8ip1h1PKt/VXF+1qAAAA3TAA1HHcduUV
+ 6g6nlG/rpy7aVQAAALqVTWhJdo0/DABRiswAcGprX/bDgSsBAAB0wwBQx1EHgJHUHU45tbW3umhXAAAA
+ 6FY2oQXZNf4wAEQpMgNA+dZe6qL1AwAA0A0DQB2nyGZ6mbrDKeVbe6iL1gcAAEC3sgnNya7xhwEgSpEa
+ ALZ0VxeNHwYAAADQBwNAHafQbhpB3eGU8i1d1UXrCQAAoFvZhFyya/xhAIhSZAaAU1u6sB8PdAcAANBt
+ xYQcsmv8YQCIUtw203DqDqec2tJZXbRuce/7fd3Y2Z1d2NkdAABQV774oBnZNf4mWA3fFVnTGsWy6c6m
+ DceO7XSJqNb4iMwAUL65I/txf5e4dHxle7Z2ci6bNyqD/N0AAAD0GG9VfnbnKdvV//1msd3YVdRs7KbI
+ bhrm/0sEUr65g1qmnePKyQ0d2NJ3s8jfBwAAIFoK80ylJS4lU9Rt7EVqANjUTi1V/ilAfDi4uDWb4TKT
+ vwsAAEC0TbOnlxfbjYNE5cZWimxKPnWjKeWb2qrFyj8FiH0Hl2j7kgkAAICosqb9UORQrhK1Gztx2xUX
+ eYMJ5ZvaqOXKPwWIbeUb1Xf++XjnDwAAMcKqfDXNrqSJ6o2NyA0ArdlP+9vGvGXjcMwfAABii9tu+lhU
+ b2ykyKY4qRtKKd/UUi1YPgTErm/WaLu2NAAAQG3ynCVgUzJE/dZ9pAaAjS3Ukm0V0zZOzyZvOwAAQN0z
+ vSDqt+6j3iBHzRtIK9+Qy37apw4BMWzBGxbytgMAANQ5mzJH1G/dR71BEgNAjlqyzWPWD7ubs2InNv8B
+ AEBsmm4z7Rf1W/dx2xQ7dSMp5RuaqUXLh4DY9PVq7R//r552F9vzxT8BAAB0m/Oa1lPPU78V9Vv3kRsA
+ stmFfc1i1r65meTtppw+Npf9/P02AAAAXS58t4HNfkXbNxuqDov6rfu47SYbcQNJ5Rsy1aLNilnrp2g7
+ /l+Sn81+OLORXEgAAAAZ35+aR3YNyWZcKuq37iM1AKzPUIuWDwGxacnb9O32t/Cdq9SJbQu5kAAAADJO
+ HhhHdg1F7dwxon7rPkU2Ux51Iynl6y1q0camn/Za2AwXfbv9rS95jFxEAAAAWQfWvEh2DcVtUx4W9Vv3
+ kRsAzGrZxqaT6m2jbjPl4LrX1UXbCgAAoNu64lvJrqEU5pk7iPqt+7jtppeoG0kpX2diF/bGpoPz6dtM
+ KT9cQi4iAACAjAvfb2LzRrcmu6YGa9oPU6wtfynqt+4jNwAY2c97Y9PmaSbyNvsrdmSw70+vIxcSAABA
+ xg+nF5JdQ3HnmdaK6o2NuG2m/1A3lFK+Nl0t26Yxadm72gaAz97sw346zzcA0osJAACg1akvPya7huK2
+ K+NE9cZG1Btl9b+RgZSvTVPLtklMmjmcvs3+Vk9/iFxEAAAAWUc22siuoagDwOOiemMj6o2SGAB42abG
+ nDObmpC3l7JvxXByEQEAAGRtnnUP2TUUt0PpJao3NlJkU/5N3VBKrA4Ahxc1JW8vZcvcO9j5Ew4AAADd
+ Frzdjuwaf/yrgKdYG18mqjc2IjMAnIzRAWBrofYBYPeSG9nZI48DAADocvrgY5q/gM6dp2wXtRs7cduV
+ f1E3lhKrA0DZeCN5eynHN9+vLtyfAQAAdPlyg/aP/9U325+I2o2dSA0Aa2JzAJjzirYzAEpcGezM4cfI
+ hQQAAJCxY8F1ZNdQ3Dblb6J2YyfqVPIidWMpsTgAnN+qfQPgwrHtyEUEAACQtWZqX7JrKG6H6WpRu7GT
+ eB8Ajn6eRt5WyuqpfdRF458AAAAA6LPoHW0bAD2saY1E7cZOiuymF8gbS4jFAWB7ifYNgDsWXEsuIgAA
+ gIwzhx/1HFamuoZwQFRubEVmAPg2BgeAVR9p3wD45Ya7yYUEAACQcXzLfWTPBOAWlRtbcdtM/yRuLCkW
+ B4DPRmn8DgCnmZ0++Ii6cI8CAADosnvJ9WTXUPgl90XlxlakBoDVsTUAfL9D+wbA+W+0IhcRAABA1rrC
+ K8iuobjtphtE5cZW1Bv2D+oGU2JtADhRpn0AWDmpBzt35E8AAAC6LXm/A9k1lAJbU5Oo3NhKPA8Au2Zq
+ 3wC4be5gdu6wunAAAAA6zRyeRXZNDVblK8aSLhKVG1spspn+Tt5owjerYmsAWDMxnbydlMOrbycXEQAA
+ QMbX2x8ge4ZmnCvqNvbitpuep290TbE2ACwco20DIHdq38Pqwj0CAACgy75lN5I9Q3HbTMNF3cZe4nUA
+ +GlXKit20LfT39xRzclFBAAAkLWxuD/ZNZRCh/FOUbexF359YupGU2JpAOC3hbqNlLKPu5KLCAAAIGvZ
+ h53IrqEU5llyRd3GXuJ1ANg7V/sGwC0zB6iL9kcAAADdZr/SjOwaf9OsyhmrNeliUbexF/VGPud/owOJ
+ pQFg/WTtGwAPrriZXEQAAAAZJ3c9SPYMzfi5qNrYjHojtQ8AK9PIMq4LS97WvgGQLxi1kAAAADL4G0qq
+ Z0g202hRtbGZIpvyLHnDCbEyAFzYk8pKXPRt9Mc/qjl3+A8AAAC6bZl5Fdk1lEK7+SFRtbEZmQHg6xgZ
+ AMrXat8AyDdrUIsIAAAgi28qp7qGUphn7iCqNjbjdpj/St1wSqwMAAcWaN8AuLH4CnXRfg8AAKAbP62c
+ 6poarGk/TLG2/KWo2thMPA4Am6Zp3wC4b9n15CICAADIOLVPagPgGlGzsZsim+kZ+sbXFCsDwOfvGsnb
+ R/l6+z3kQgIAAMg4vPoWsmdINtP7omZjN1IDwIrYGABmDtd2BgD/soZzh/klgAEAAPTZNvdqsmsobrvy
+ uKjZ2E1Rnukv1I2nfBUDA8CZjdo3AC55vz25iAAAALJWTupGdg3F7VB6iZqN3bjtpqepG0+JhQHg8CLt
+ GwDXF/YhFxEAAEDW/Ddakl3jb7xV+XmKtfFlomZjN/E2AGwt1L4BcM/iIeqiPQQAAKDLmQMPsmKnmeya
+ mkzbRMXGdgrzTE/Rv0BNsTAAfDFe+wbAE5vvIBcSAABAxtH1t5I9Q7Ipn4iKje1IDQBldT8AzBmpbQPg
+ jPwMdvYQvwTw7wAAAHTZOX8g2TUU/iV7omJjO+qNfdL/xgdS1wPA+S3aNwAuGtuGXEQAAABZa6b2ILuG
+ UmhTBoiKje2oNzZuBoCjn6eRt4uyZmpPchEBAABkLRrbmuwaynRn04aiYmM7bpvyBPULUOp6ANherP0M
+ gJ0LBqqLxg8BAAAAhO/soQdYictCdg3hgKjX2I/MAHCijgeAlR9pPwPg6IZbyIUEAACQcWLzbWTPBOAW
+ 9Rr74VcrIn4BUl0PAPNe07YBkJ+qcebA/eRCAgAAyNi9eDDZNQFYRb3GfqQGgC/qbgD4fof2DYD8Yg3n
+ Dj8AAACg27qCXmTXUArzTNeLeo39FNmUP1O/BKUuB4ATZdoHgFWTurLz6qIBAADotfT9dmTXUApsTU2i
+ XmM/8TIA7CrVvgFw+9wr1UW7HwAAQLfS4Zlk1/ibaldOMJZ0kajX2E+R3fgY9YtQji+vuwFgzUTtGwCP
+ rLmBXEQAAAAZ32y7newZkk2ZI6o1PhIvA8CC0do2AHKn991DLiQAAICM/cuuIXuGZhomqjU+4raZHqV/
+ kZrqagD4cVcqK3bQt8nfvNdz1UW7DwAAQLdNxX3IrqEUOox3imqNj6gTy5+oX4RSVwPAN6u0bwAsm9iJ
+ XEQAAABZyz5oT3YNZYazaY6o1vhIPAwAe+do3wC4dWY/chEBAABkzX4lm+wawmmrNeliUa3xkSKb6RHi
+ FyHV1QCwfrL2DYCHVgxVF+1eAAAAXcp3yWwANC4VtRo/kRkAji2rmwFg8VvaNwCW776DXEgAAAAZh1YM
+ IXuGZDONFrUaP3HblT+SvwyhLgaAC3tSWYmLvj3++Ec15w/dAwAAoNuW0r5k15Bsxt+JWo2fxPoAUL5O
+ +wbA5R+2JxcRAABAVtnHHcmuoZTYze1FrcZPim3KH6hfhlIXA8CB+do3AG4q7k0uIgAAgKy5o3LIrqnB
+ mvbDFGvLX4pajZ/E+gCwaar2DYD7lw1SF+1uAAAAXU7vkdgAaDeuEZUaX1Fv/O9r/jK0uhgAPn9H+wbA
+ b7fdQi4kAACAjCOrhpI9QzO9Jyo1vqLeeO0DwOe1PwDMHKZtAJg5IpNcRAAAAFnb51xBdg3JpvxZVGp8
+ xW1THiZ/IUJtDwBnNmrfALj0/bbqot0FAACg28pPOpNdQymwKT1FpcZXZAaAo7U8ABxelEbeDsr6wh7k
+ IgIAAMia/0Zzsmv8jbcqP0+xNr5MVGp8pdBufoj6pSi1PQBsLdS+AXDv4gHqot0JAACgy9n9t7Nip5ns
+ Gn8Fecatok7jL/ziBdQvRantAeCLcUbydlC+2nwDuZAAAAAyjq27luyZAP4r6jT+IjUALK3dAWD2SG0b
+ AGfkW9i5g/RCAgAAyNg5vz/ZNQE8J+o0/uK2mx4kfiFSbQ4A57Zo3wC4aGwrddHuAAAA0G3Np13IrqEU
+ 2pQBok7jLzIDwJe1OADwYYO6DZS1U7uSiwgAACBr0dstya6hTHc2bSjqNP7itpkeoH4pSm0OANuLtV8C
+ eNf8/uQiAgAAyDh38HZW4rKQXeNvus20X1RpfCZWB4CVH2k/A+DY+qHqwt0OAACgy4lN15E9Q8pTCkWV
+ xmeK7ab7yV+MUJsDwLzXtG0A5KdqnD1wG7mQAAAAMvYsupLsmgCsokrjM1IDwJLaGQC+3659A+CCN5uT
+ iwgAACBrfUE3smtoputElcZnimzKffQvVlNtDQAnvtC+AXD15E7su0O3AQAA6Lb0vdZk11BKrelGUaXx
+ GZkB4EgtDQC7SrVvANwxtw+5iAAAALJKh2eQXeNvql05wVjSRaJK4zNuh3Iv9ctRamsAWPOx9g2AR1cP
+ UhftVgAAAF2+3SqxAdCmzBE1Gr+RGgAW184AsGCMtg2A3Jm9N5ELCQAAIGP/5xIbAG1KvqjR+E2xTbmH
+ /OUItTEA/LgzlRU76L/f37zXc8hFBAAAkLWpqDvZNSSb6Q5Ro/GbWBsAvl6p/QyAFRPbq4t2CwAAgG7L
+ PmhDdg1lhrNpjqjR+E2Rw3w39ctRamMA2DtH+wbArTN7kosIAAAga/bILLJrCKet1qSLRY3Gb9w2413E
+ L0eqjQFg/STtGwAPrxhALiIAAICM8p3Xkz1DKbQrS0SFxndkBoDDi6I/ACx+U/sGwFO7rlcX7mYAAABd
+ DpVdRfYMzfS6qND4TqHDeCf9C9YU7QHgpz1NWImT/rv9zXk1m1xEAAAAWVtLe5BdQ7IZfycqNL4TSwPA
+ ybXaNwAu/7CNumj8FEAAAAB9yia0I7uGUmI3txcVGt/hpzJQvyAl2gPAgfnaNwBuLulGLiIAAICsuaOa
+ kV1TU+Pvp1hb/lJUaHwnlgaATVO1bwA8sKw/uYgAAAAyzuzRvgGwIM+4WtRn/MftMN1O/ZKUaA8An7+j
+ fQPgye1D1IW7EQAAQJcjq6Q2AL4n6jP+IzMAHFoYvQHgwp5UVjpM2wAwc0QmuYgAAACyts/uSXYNzfiY
+ qM/4j9uu3Eb/kjVFcwA4vUH7BsDPx7UiFxEAAEDWqk/ak11Dcpp7iPqM/8TKAHBoURr5d1I2FHZm3x28
+ AQAAQLf5Y3LIrvE33qr8PHtE6q9FfcZ/ivOUW6lflBLNAWBrgfYNgPsW9yUXEQAAQMa5fdexYoeZ7Bp/
+ BXnGraI6EyOxMgB8Mc5I/p2UrzcNUhfuegAAAF2OrR1A9gzFbTNNFNWZGFF/qVv8f8lADi6I3gAw+2Vt
+ GwBn5FvY+QP0QgIAAMjY9VkvsmtINuVZUZ2JEXee+WbyFyVEawA4t1n7BsDF77QgFxEAAEDWmikdyK4h
+ OZSrRHUmRmJhAPhyqfYNgGundlQX7ToAAADdFr3dnOwayiyr0SCqMzFSbDffRP2ilGgNANuLtW8A3D2/
+ F7mIAAAAMs4fuJaVuLRtACy0G/eJ2kycxMIAsOJD7QPAifUDyIUEAACQ8dXGq8meoRTalQJRm4mTojzj
+ jdQvS4nWADDvVW0bAIudZnZu/1B14a4FAADQZc9CqQ2A/xa1mTiRGgDmNyULXI/vt6eSfxdlwZu55CIC
+ AADIWj+9I9k1NNN1ojYTJ2676Qb6l60pGgPA8S+0bwBcPbk9+15dNAAAAL2WvtuC7BpKsd2YLmozcSIz
+ APDv66dKXI+dpdqP/++c211dtKEAAAC6lQ7PILvGX6FVOc5Y0kWiNhMnhXmm66lfmBKNAWD1RO0DwLHV
+ /clFBAAAkHFyi9QGwNmiMhMrUgPAZ5EfABaM1rgB0KGwc3sHqws3BAAAQJcDS3uTXUOyKfmiMhMrfGMD
+ +QsTIj0A/Lgz1VPs1N/l77PRzchFBAAAkLXJ3YnsGorbYbpdVGZipS4HgK9Xat8AuGJiG3IRAQAAZC0b
+ 34rsGkpxXnozUZmJFXeeci31C1MiPQDsmd2U/Hso22Z2URftGgAAAN1mjcwku6YGq+mU1Zp0sajMxIrM
+ ALA/wgPAuknaNwAeWdGXXEQAAAAZp3ZIbQBcIuoy8aL+ckOpX5qyf15kB4BFb2nbAMid2XW1unB8EyAA
+ AED4Di3XvgHQnWccJeoy8VKcZx5C/dKUSA4AP+1pwkqc9N/jb86rWeQiAgAAyNo6ozPZNRS33fSgqMvE
+ S10NACfXNiH/DsoXH7YiFxEAAEBW2YTWZNdQivMs7URdJl6K7OZrqF+aEskBYP9n2s8A2FLSSV20QQAA
+ ALrNfS2L7JqaGn8/dmynS0RdJl5kBoB9ERwANn6qfQPgwWU9yUUEAACQcXb3ALJnKG67skpUZWLGbTMO
+ pn5xSiQHgKVjtW8ALN92JbmQAAAAMr5c2YfsGYrbZnpXVGViRmoAmBuZAeDCnlRWmq9tAJg1IkNdtIEA
+ AAC6bZ+tfQNgkd34mKjKxEyx3TiI/sVritQAcHqD9g2An49rQS4iAACArFX/1b4BsMhp7iGqMjFTFwPA
+ oUXaNwBuLOxALiIAAICs+WOakV1DuDB7ROqvRVUmZopspoHEL06K1ACwpUD7BsB9i7uri8YvAgQAABC+
+ c/sGaP4COrc9fYuoycRNXQwAy983kj+f8s3mfuRCAgAAyDi+VmoD4ERRk4kbt8N0NfXLUyI1AMwaQf98
+ fzPyLeqiDQAAANBt17wuZNeQbMqzoiYTNzIDwN45+geAc5u1bwBc/E4uuYgAAACy1kxpQ3YNxW1TrhQ1
+ mbgptCkDqF+eEokB4Mul2jcArpvallxEAAAAWYveziG7hjLLajSImkzcFDmUq6hfnhKJAWBbsfYNgHsW
+ dFEX7SoAAABdvjtwJStxmcmu8VdoN+4TFZnYqe0BYMWH2jcAfrW+N7mQAAAAMr7aoP0rgAvtSoGoyMQO
+ P85B3QGUSAwAc1/VdgXAEqeZfbevP/tendoAAAD02LtA+wZAt135l6jIxI7MALBntr4B4PttqeTPpSx8
+ sxn7QV00AAAAvTZMa0t2DcWdp1wrKjKxU+gw96fuAIreAeD4cu0bANdMak0uIgAAgKyl7+aSXUMpthvT
+ RUUmdmpzANhZqn0D4K65HdVF6w8AAKBb6TAL2TX+Cq3KccaSLhIVmdgptpmvoO4Eit4BYPXH2geA46t7
+ kIsIAAAg4+Rm7RsA3TZllqjHxI/UADBL3wAwf7S2DYD8Ws3n9/QjFxIAAEDGgSVSGwBdoh4TP0UOYz/q
+ TqDoGQB+3Kl9A+Bno7PURbsCAABAt01uiQ2ADtPtoh4TP7U1AHy9UvsGwJUTW5KLCAAAIGvZ+OZk11Dc
+ TmO2qMfET6HN2Je6Eyh6BoA9s7UPANtnticXEQAAQNaslzPIrqnBajpltSZdLOox8SMzAOzWMQCs+0T7
+ BsAvy7qqi8b3AAAAAITv9HapDYCLRTXWjxQ7TH2oO4KiZwBY9Ka2DYDc2Z19yIUEAACQcXiZxAbAPOMo
+ UY31I1IDwMzwBoCf9jRhJU76Z/qb82qmumh9AQAAdNtaIrEB0GZ6QFRj/UiRzdSbuiMo4Q4AJ9doP/5f
+ 9mFzchEBAABklX0ksQHQkd5WVGP9iNuh9KLuCEq4A8D+edoHgC3qtEYtIgAAgKy5r2WSXeNvgtXw3dix
+ nS4R1Vg/IjMA7ApzANj4qfYNgIeWdVYXje8BAAAACN/ZXb3InqG47coqUYv1JwU2pSd1Z1DCHQCWjjWS
+ P49yaltPciEBAABkHF0hcwVA0zuiFutPpAaAUvkB4MKeVFaaT/88f/xcTWoRAQAAZO2Y1Y7sGorbZnpU
+ 1GL9SZHT3IO6MyjhDACnNzQhfxZl2bgcddF6AwAA6Lbqvy3IrqG47ebuohbrT6I9ABxaqH0D4KbC1uQi
+ AgAAyJo/OovsGsKFImvar0Qt1p/wqYe4M0jhDABbpmvfAHhgcUdyEQEAAGSc39vL882yVNfUkJe+WVRi
+ /YrMALAzjAFg+fvaNwCe3NRNXbheAAAAuhxfI7UB8GNRifUrhS+ld6PuEEo4A8CsEfTP8lc6zEwuIgAA
+ gKxdcyU2ADrMfxWVWL8iNQDMkBsAzm1OJX8OZck7zdRF46cAAgAA6LN2ssQGQJtypajE+pViu7ErdYdQ
+ ZAeAL5dq3wC4flpLchEBAABkLXorm+waSolLSRGVWL8SzQFgW5H2DYB7F7QjFxEAAEDG9/t7qqVuJrum
+ Blv6XlGH9S9FLxm7kHcKQXYAWPGB9g2AX6/nlwDuAQAAoAvvE6pnKO4803RRh/Uv0RwA5r5iIn+OvxKn
+ mX2/rzu5kAAAADL4J8pU11DcduVfog7rXwrtps7UnULZUaJ9APhum/YNgIveymI/HugOAACg24Zp2jcA
+ FtqVoaIO619K8pRO1J1CkRkAji3XvgFw7eTm5CICAADIWvqu9g2AhVZTU1GH9S/RGgD4NQOon0HZPbcN
+ uYgAAACy+HVlqK6pyXiMsaSLRB3Wv6h3QseadwpNZgBY/bH2DYAnVndUF60bAACALuWbO5E9Q3HblFmi
+ Cutn1DtB+wBQrH0AmP+6tg2A/FrN3+3pSi4kAACAjINLtG8ALLIpTlGF9TOFeeYO5B1D0DoA/LBT+wbA
+ +aMzyUUEAACQtdndkuwaituu3CaqsH5GZgDYrnEA+GqF9g2AqybmsB/3dwUAANBt2bhmZNdQ3E5jtqjC
+ +pkSu7k9dcdQtA4Ae2Zp3wC4Y2YrchEBAABkzXrZQnZNDVbTKas16WJRhfUz0RgA1k3Sfgngo2XtyUUE
+ AACQcWab9isAqhaJGqy/Kc6ztCPuGJLWAWDRm9rPADi3s5O6cF0AAAB0ObKsLdkzAbwmarD+RmoAKAo9
+ APy0O5WVOLSdATD31QxyEQEAAGRtLZbYAGgzPSBqsP7G7UhvS905FC0DwMk12jcAln3UTF20zgAAALrx
+ TqG6hsK7T9Rg/Y3MALBNwwCwb572DYBbi1uQiwgAACBr7msZZNf4m2A1fDd2bKdLRA3W3xTkGdtQdxBF
+ ywCwcYr2DYCHP29DLiIAAIAMvp+M6hnSS8pKUYH1O8UOY2vyDiJoGQCWjtW+AfDMtg7qwvFNgAAAAOE7
+ WqZ9A6DbbnpHVGD9jtQA4E4nS7/ChT2pbEY+/d/64+dqUosIAAAga8dMqQ2Aj4oKrN9x55laUXcQJdQA
+ cGp9E/K/oywbl60uWkcAAADdVk3UvgGw8KX0bqIC63ciOQAcXKj9DIBNhbnkIgIAAMiaP1rbBkDVhSJr
+ 2q9EBdbvFDqUlsQdRAo1AGyZrn0D4MHF/BLA9EICAABo9d3uDp5vlqW6poa89M2i/hCZAWBriAFg+Xva
+ NwCWb2qrLhzfBAgAABC+E6vbkD1DcdtNH4v6Q0ryzC2oO4kSagCYNYL+7/yVDjOTiwgAACBr99wWZNeQ
+ bKZnRP0hUgNAYeAB4OzmVPK/oSx5J4tcRAAAAFlrJ0lsAHSY+4v6Q4oc5ubUnUQJNgAcWaJ9A+CGqTnq
+ ovFvAQQAANBn0VuZZNdQSlxKiqg/JFIDwDa39ksA75vPLwFMLyQAAIBWP+xrz0ud7Jqa0veI6kN4CvMs
+ ufQdVVOwAWDFB9o3AH6zjl8CmF5MAAAArXifUD1DM00T1YfwyAwAW4IMAHNfof8bf3xS+2FfO3XhAAAA
+ 9OGfKFNdQ7IpL4rqQ3hmOJvmkHcUYUsBPQB8t037BsBFb2Wwn9RFAwAA0GvDVIkNgHZlqKg+hCcSA8Cx
+ 5do3AK6dnK0uWlsAAADdlr6jfQPgNLuSJqoP4SnOS29G3VGUQAPAjhnaNwDumZtLLiIAAIAsfl0Zqmtq
+ sKYfFbWHVMTtNGaTdxYh0ACweoL2DYBfrW5FLiIAAICM8k2tyZ4JYKaoPaQiMgPA5un0ADD/dRP55/3x
+ azV/v6e1unBtAAAAdDm4uDnZNSSb4hS1h1Rkus2URd5ZBGoA+GGn9g2A80dbyEUEAACQtblQ+wbA4jzl
+ VlF7SEX0DgBfrdC+AXD1f7PIRQQAAJC1fJz2DYC860TtIRUpcSmZ1J1FoQaA3bO1bwDcOTNHXTR+CAAA
+ AECfWS9r2wA4zZ5ebrUmXSxqD6mI3gFg7SfaNwAeK2tOLiIAAICMM1tbkT0TwCJReYhv3DYlg7izSNQA
+ sPAN7QPA+Z38DAB6MQEAALQ68rnEBsA85VVReYhvpAaAadUHgJ92p7ISh7YzAOa9xjcA8gEAAABAn23F
+ EhsA7ab7ReUhvilwmS3UHUbxHwC+Xa19A+CKjzLJRQQAAJBV9qH2DYAFecY2ovIQ38gMAJv8BoB9c7Vv
+ ANxWwi8B3BIAAEC3ua9q2wA4wWr4buzYTpeIykN8U2KzmKk7jeI/AGz4NJ38c5Qjy/gZAPRCAgAAaHV+
+ h/ZvACywKytE3SH+0TMALB2rfQPg2a0t2E/71MUDAADQ4dgXuWTPkGzGsaLuEP8U5Wcq5J1G2DS1agC4
+ sCeVzcin/5y/2S+b1UXjAwAAAIA+O0qzya6hmf4k6g7xT4GtqYm+02ryHQBOrW9C/hlK2fgMdn5zCwAA
+ AF3ObW7OVn2sfQNg4Uvp3UTdIf6RGQA2+gwABxdoPwNg65Rs9s3yXAAAAF3KV+V6vleG6poarMpPk0ca
+ LxV1h/in1JpuJO84gu8AwE8JpP4MZd+MZuRCAgAAyChfk+v5ZlmqawibRNUhVMIdAJa9p20D4AynmR1d
+ kEMuJAAAgIyjS3PIriHZTBNE1SFUiu3GdPKOI/gOADNH0H/G39yRFnXR+AAAAACgz+7ZWWTXkGymZ0TV
+ IVSkBoBPvQPA2c3aNwB+8V4GuYgAAAAyvl2ey9ZN0r4BsNhmvkJUHUKl0GpqSt1xlIoB4MgS7RsAN03K
+ IhcSAABARvnKHLboTY0bAFUFVnOyqDqEiswAwK/8xweAbW7tlwDeU8zPAKAXEwAAQKvTa3JYiZPumprS
+ 94iaQwJlml1Jo++8mioGgLLx2jYA8oU68hk/A4BeTAAAAK2OL9f+DYBFdtM0UXNIoIQzAMx5hf73/mYP
+ N7NvltELCQAAIGPvHIkNgHbTC6LmkEApsZqb0HdeTXwA+G5bKvnvKMvHWti36sQGAACg14ZPM8iuoRTn
+ mYeImkMCRWoAmJLOji3TvgFw59zr2A8H7gcAANDlxwN3sKXvaN8AyD/dFjWHBIrbkZFK3XkUPgDsmKF9
+ A+CJjY+zn796FgAAQJ+j97HSYXTX1GBNPyoqDgkW2QFg1QSNVwAclsPO7CMWEQAAQNLZndeRXUMpzDOV
+ iopDgmWaNfNy6g6krJ+czj4bZSL/nb95o7uyn47TCwkAACDjy7I+ZNcE4BAVhwRLqaNJY+LOI639RNu7
+ f27VpEHkIgIAAMjaWtyS7BpKcZ5yq6g4JFhkBoAVH2gfAHbOv4NcRAAAACknnmLL3zeTXUOZbjNliYpD
+ gqXImtaIugMpS8dqHwCOrn2EXkgAAAAZRx9gs16mu6YGa9pJxpIuEhWHBIvMADD/dW3H/0tcWezUnr+q
+ CwcAAKDP+T03kF1DKbQpC0W9IaEy3dm0IXUnUmaN0DYAzHmtI/vxKL2QAAAAMo6v7kt2DSlPeVXUGxIq
+ MgNAkYP4/xG++PgqchEBAABk7ZzVluwakk25T9QbEiqzrEYDeSfqsGXGUHbh2KMAAAD6HH2ErfhQ+xUA
+ ix3G1qLekFCJxgCwvYR/B0AWAACAbotGazsDoMDe4PwCa9L/iHpDQqXEpaRQd6QeRxbxASATAABAl6+W
+ ZLJSl9YBQFkhqg3RkmgMACdXZZALCQAAIOPgrAxWrHH/mduuvC2qDdGSAqs5mbojwzV7pMJOr8EAAAAA
+ +u0s0P4VwEU20yOi2hAtifQAsHycwk6W8QEAAABAn3UTJDYA2o1dRbUhWjIlP7MBdUeGa0uBQi4iAACA
+ rKVvaLwEsFX5afJI46Wi2hAtKbVm/5a8M8N0aIGZXEQAAAAZXy/NYLPytQ0AhXnKRlFriNZEegD4ZgUG
+ AAAA0O/wnAxW4tA4ANiNH4laQ7SmcFjub6g7MxylwxR2dh0/BZBeTAAAAK12FUpsAMwz/UXUGqI1kRwA
+ Pn9XYeUr+AAAAACgz4b/SmwAtJmvELWGaM0Ua+PLqDszHNtn9Wbndwxg57YDAADosLUXW/q2xg2AKn5G
+ m6g1RGsiNwCY2ddbnmA/n3gaAABAlwuHb2YlTqpraiq0Nd0tKg2RyewRqb+m7lBZM19uxc4doBcSAABA
+ xqktV5JdQynMM00VlYbIJFIDwIK3e7ELx+mFBAAAkHFwcSeya2imF0SlITIpsqb9ir5D5aydNoRcRAAA
+ AFkbp2WSXUMzXyMqDZFJpAaAvYvvVhftKQAAAH2O/54tHWsiu4ZSYjU3EZWGyIRfOpG6Q2V9tfExeiEB
+ AABkHLmVlebTXeOvwN70S1FniGwiMQCUDm/Ozu7jC/ckAACALmd3XE12DaUwz1Qq6gyRzQKr+f+oO1XG
+ Z2O6sQvH6IUEAACQ8eXyzmTXUNw2xS7qDJFNJAaAVZMHkYsIAAAga6u7Gdk1Adwi6gyRTemo7P8l7lAp
+ uxbcTi4iAACAlOOPsOXvS2wAdCmZos4Q2UyxtvwldafK2FPamp1e2xYAAECX8xubs1kj6K6pwZp2krGk
+ i0SdIbLROwAUOxR2aLbCvl1mAgAA0OXkCiPZNRS33bRAVBkSTsaO7XQJdcdqVeoys6+X0AsJAAAg4/D8
+ dLJrKG678oqoMiSc6B0AFo02k4sIAAAga1uR9gGgyKbcJ6oMCScLrEn/Q96xGq39EAMAAADod3K5ka34
+ QPshgGKHsbWoMiSc6B0AdkzD8X8AANDv9Cojm/uqtjMACuwNzvP+ElWGhJMpU5J+Qd25WhQ7zOxgKQYA
+ AADQ79RKieP/LyllosaQcKNnACh1KezEInohAQAAZHy5SGoD4NuixpBwY7UmXUzduVoseA3v/gEAIDJ2
+ FstsADQ9ImoMCTd6BoBVH2AAAACACFhuYqsnat8AWPSSsYuoMSTc8KsokXeuBtunZ7Hylc0BAAB0ObM2
+ h81/ne6aGqzKT/x7bESNIeFGzwDw1brr2M8nngAAANDlwtFHPRvLqa7xV5inbBQVhugNdQdr8d3+e8mF
+ BAAAkHF65z1kz1AK7caPRH0hekPdwaHMGmFWF+2xGosIAAAg60jZtWTXUNx209OivhC9oe7gUMo+bEUu
+ IgAAgKytJX3IriE5jP1EfSF6M96q/EzeyUHsnN2LXEQAAABZy8a1JbuGMiU/s4GoL0RvwhkAjq0aQi4i
+ AACAjAvHHmczXBlk1/grtDXdLaoLiUTUO/WC/50cytk9d5ELCQAAIOPMnvvJnqG47cZPRXUhkQg/p5K6
+ owOZ4VLYz8f/RC4kAACAjGOrbiC7huK2mf4pqguJRIqsplPUHR3IsvdzyUUEAACQtWN2P7JraOZrRHUh
+ kUih3bSOvqNpW0u6kYsIAAAga8WE9mTXUNyOjFRRXUgkUmhT3qDu6EDWTunADn0+CAAAQLfS4Zlk19Rg
+ TTsiaguJVIodpj7knQ0AABAj3HbTDFFbSKTi/T4A4xrqDgcAAIgF6gBgE7WFRDJFTmOXIht9pwMAANQ1
+ t8N0tagsJNJRB4A51J0OAABQp6zpR8eO7XSJqCsk0im2G9PH200/knc+AABAHXHbTc+LqkKiFX4nU3c+
+ AABAXXDb07cssJr/T9QUEq1MmZL0C/UOd/svAAAAQK2zpp1055laiYpCoh0+aRXalQJyMQAAAGpBoVU5
+ XvSSsYuoJqS2YrUmXVyUZ/qLugin/RcFAAAgytx8X5qoJKQuUupo0rjIbnqhKE9ZTywQAABAREy1Kyfc
+ NuXDIqe5h6ggJFZSOCz3NwV5xjZuu7k7AABAJBTaTZ1LrelGflE6UTcIgiAIgiAIgiAIgiAIgiAIgiAI
+ giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+ giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+ giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
+ giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIEtNJSvp/oWVd
+ 2TTAdDkAAAAASUVORK5CYII=
+
+
+
+
+ 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=
+
+
+
+
+ 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=
+
+
+
+
+ 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==
\ No newline at end of file
diff --git a/DPM2016/Behandlung/Benhandungdetail.vb b/DPM2016/Behandlung/Benhandungdetail.vb
index 3ade715..67b9b53 100644
--- a/DPM2016/Behandlung/Benhandungdetail.vb
+++ b/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
diff --git a/DPM2016/DPM2016.vbproj b/DPM2016/DPM2016.vbproj
index 8e55afe..6079a7d 100644
--- a/DPM2016/DPM2016.vbproj
+++ b/DPM2016/DPM2016.vbproj
@@ -518,6 +518,12 @@
UserControl
+
+ PatientDetailsFirma.vb
+
+
+ UserControl
+
Recall.vb
@@ -774,6 +780,7 @@
DokumentDetail.vb
+ Designer
frmDokumentList.vb
@@ -828,6 +835,9 @@
PatientDetails.vb
+
+ PatientDetailsFirma.vb
+
Recall.vb
diff --git a/DPM2016/Klassen/clsStammdaten_flat.Designer.vb b/DPM2016/Klassen/clsStammdaten_flat.Designer.vb
index d6278a8..dc79539 100644
--- a/DPM2016/Klassen/clsStammdaten_flat.Designer.vb
+++ b/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()
diff --git a/DPM2016/Klassen/clsStammdaten_flat.resx b/DPM2016/Klassen/clsStammdaten_flat.resx
index 498b455..e7a84ac 100644
--- a/DPM2016/Klassen/clsStammdaten_flat.resx
+++ b/DPM2016/Klassen/clsStammdaten_flat.resx
@@ -121,7 +121,7 @@
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
@@ -155,7 +155,7 @@
- <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 756, 374</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 756, 374</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob>
+ <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1009, 461</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 1009, 461</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob>
163, 17
@@ -163,25 +163,25 @@
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
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 @@
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
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -227,7 +227,7 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -243,197 +243,197 @@
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=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -448,7 +448,7 @@
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 @@
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
- <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 213, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 213, 148</ClientArea></Blob>
+ <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 284, 182</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 284, 182</ClientArea></Blob>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
- <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 231, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 231, 148</ClientArea></Blob>
+ <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 308, 182</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 308, 182</ClientArea></Blob>
270, 17
diff --git a/DPM2016/Klassen/clsStammdaten_flat.vb b/DPM2016/Klassen/clsStammdaten_flat.vb
index 4b83112..8195afa 100644
--- a/DPM2016/Klassen/clsStammdaten_flat.vb
+++ b/DPM2016/Klassen/clsStammdaten_flat.vb
@@ -25,6 +25,17 @@ Public Class clsStammdaten_flat
End Try
End Set
End Property
+ Dim m_SQL As String = ""
+ Property SQL As String
+ Get
+ Return m_SQL
+ End Get
+ Set(value As String)
+ m_SQL = value
+ End Set
+ End Property
+
+
Dim db As clsDB
Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
@@ -59,8 +70,12 @@ Public Class clsStammdaten_flat
Me.c1daten.DataMember = Nothing
Me.c1daten.Splits(0).DisplayColumns.Clear()
db.dsDaten.Tables.Clear()
+ If Me.SQL <> "" Then
+ db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
+ Else
+ db.Get_Tabledata(Me.Tablename)
- db.Get_Tabledata(Me.Tablename)
+ End If
Me.c1daten.DataSource = db.dsDaten
@@ -144,7 +159,7 @@ Public Class clsStammdaten_flat
Catch ex As Exception
End Try
- MsgBox("Daten wurden gespeichert")
+ 'MsgBox("Daten wurden gespeichert")
End Sub
@@ -260,6 +275,9 @@ Public Class clsStammdaten_flat
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text
+ Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1
+ ToolStripButton6_Click(sender, e)
+ Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1
End If
Exit Sub
diff --git a/DPM2016/Klassen/clspdfhelper.vb b/DPM2016/Klassen/clspdfhelper.vb
index 45cf6df..d141595 100644
--- a/DPM2016/Klassen/clspdfhelper.vb
+++ b/DPM2016/Klassen/clspdfhelper.vb
@@ -43,7 +43,7 @@ Public Class clspdfhelper
For i = 1 To Globals.pdfCollection.Count
pdfitem = Globals.pdfCollection.Item(i)
' System.IO.File.Delete(Globals.pdfCollection.Item(i))
- System.IO.File.Delete(pdfitem.Path)
+ If pdfitem.Path.IndexOf(My.Settings.DocArchivPath) > -1 Then System.IO.File.Delete(pdfitem.Path)
Next
End If
diff --git a/DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb b/DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb
new file mode 100644
index 0000000..2059ad0
--- /dev/null
+++ b/DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb
@@ -0,0 +1,863 @@
+ _
+Partial Class PatientDetails
+ Inherits System.Windows.Forms.UserControl
+
+ 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ 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.
+ _
+ 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
diff --git a/DPM2016/Patient/Firma/PatientDetailFirma.resx b/DPM2016/Patient/Firma/PatientDetailFirma.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/DPM2016/Patient/Firma/PatientDetailFirma.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/DPM2016/Patient/Firma/PatientDetailFirma.vb b/DPM2016/Patient/Firma/PatientDetailFirma.vb
new file mode 100644
index 0000000..b3e7799
--- /dev/null
+++ b/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"
+
+ '''
+ ''' Prüfung, ob Datenänderungen vorgenommen wurden.
+ '''
+ '''
+ 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"
+ '''
+ ''' Allg Eventhandler für Chanage-Ereignise festlegen
+ '''
+ '''
+ '''
+ 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
+ '''
+ ''' Envent-Handler für Change-Ereignisse
+ '''
+ '''
+ '''
+ '''
+ 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
+
+
+ '''
+ ''' 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
+ '''
+ ''' Base-Contrlo (z.B. aktuelles Formular
+ ''' Schlüssel welcher gesucht werden soll
+ ''' Liste der gefundenen Objekte
+ ''' True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+ '''
+ '''
+ 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
diff --git a/DPM2016/Patient/Patient.Designer.vb b/DPM2016/Patient/Patient.Designer.vb
index 5d469c1..84fdf20 100644
--- a/DPM2016/Patient/Patient.Designer.vb
+++ b/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
diff --git a/DPM2016/Patient/Patient.resx b/DPM2016/Patient/Patient.resx
index 6a42c9a..5204157 100644
--- a/DPM2016/Patient/Patient.resx
+++ b/DPM2016/Patient/Patient.resx
@@ -124,7 +124,7 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
@@ -142,7 +142,7 @@
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 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
@@ -165,7 +165,7 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
@@ -180,7 +180,7 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -196,7 +196,7 @@
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -212,7 +212,7 @@
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 @@
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
@@ -275,7 +275,7 @@
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
@@ -303,7 +303,7 @@
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
@@ -339,7 +339,7 @@
iVBORw0KGgoAAAANSUhEUgAAACMAAAAhCAYAAABTERJSAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
+ YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
MH2GoWliYrK6pmgSNeGJaBCDNEFAivTepIOgEhuKYRyCGluwoBEFE6xY9uy5V58Vk/3hZYZ7v7nfue93
3vOe9y9/j6vDzNgW2Kmb4WXqgzy4FW7aTjhoqiFbVY+3zfsgWVkKe30RXM11mB1aC9fIXtjqD0Ji7oOD
thmOmkY4aushZcgMTZBFNkNqbIW9bj+kho6XYWxj8LqpAdLIakjNZfA07cIJ6yX8ZDkuxl/eiqnBzKh6
diff --git a/DPM2016/Patient/Patient.vb b/DPM2016/Patient/Patient.vb
index 22ea910..bed8e91 100644
--- a/DPM2016/Patient/Patient.vb
+++ b/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
diff --git a/DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb b/DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb
new file mode 100644
index 0000000..4730451
--- /dev/null
+++ b/DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb
@@ -0,0 +1,1005 @@
+ _
+Partial Class PatientDetailsFirma
+ Inherits System.Windows.Forms.UserControl
+
+ 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ 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.
+ _
+ Private Sub InitializeComponent()
+ Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.txtZSR = New System.Windows.Forms.TextBox()
+ Me.txtGLN = New System.Windows.Forms.TextBox()
+ Me.lblGLN = New System.Windows.Forms.Label()
+ Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
+ Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
+ Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
+ 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.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.Label5 = New System.Windows.Forms.Label()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
+ 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()
+ '
+ 'chkMail_Kommunikation
+ '
+ Me.chkMail_Kommunikation.AutoSize = True
+ Me.chkMail_Kommunikation.Location = New System.Drawing.Point(1138, 288)
+ Me.chkMail_Kommunikation.Margin = New System.Windows.Forms.Padding(4)
+ Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
+ Me.chkMail_Kommunikation.Size = New System.Drawing.Size(18, 17)
+ Me.chkMail_Kommunikation.TabIndex = 280
+ Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
+ Me.chkMail_Kommunikation.Visible = False
+ '
+ 'Label4
+ '
+ Me.Label4.AutoSize = True
+ Me.Label4.BackColor = System.Drawing.Color.Transparent
+ Me.Label4.Location = New System.Drawing.Point(974, 274)
+ Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(134, 17)
+ Me.Label4.TabIndex = 279
+ Me.Label4.Text = "Mail-Kommunikation"
+ Me.Label4.Visible = False
+ '
+ 'txtZSR
+ '
+ Me.txtZSR.Location = New System.Drawing.Point(1146, 332)
+ Me.txtZSR.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtZSR.Name = "txtZSR"
+ Me.txtZSR.Size = New System.Drawing.Size(10, 22)
+ Me.txtZSR.TabIndex = 237
+ Me.txtZSR.Visible = False
+ '
+ 'txtGLN
+ '
+ Me.txtGLN.Location = New System.Drawing.Point(1107, 330)
+ Me.txtGLN.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtGLN.Name = "txtGLN"
+ Me.txtGLN.Size = New System.Drawing.Size(10, 22)
+ Me.txtGLN.TabIndex = 236
+ Me.txtGLN.Visible = False
+ '
+ 'lblGLN
+ '
+ Me.lblGLN.AutoSize = True
+ Me.lblGLN.BackColor = System.Drawing.Color.Transparent
+ Me.lblGLN.Location = New System.Drawing.Point(1006, 337)
+ Me.lblGLN.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblGLN.Name = "lblGLN"
+ Me.lblGLN.Size = New System.Drawing.Size(69, 17)
+ Me.lblGLN.TabIndex = 278
+ Me.lblGLN.Text = "GLN/ZSR"
+ Me.lblGLN.Visible = False
+ '
+ '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(105, 193)
+ Me.cbtxtboxKanton.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
+ Me.cbtxtboxKanton.Size = New System.Drawing.Size(302, 24)
+ Me.cbtxtboxKanton.TabIndex = 222
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.BackColor = System.Drawing.Color.Transparent
+ Me.Label3.Location = New System.Drawing.Point(10, 198)
+ Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(53, 17)
+ Me.Label3.TabIndex = 277
+ Me.Label3.Text = "Kanton"
+ '
+ 'dtgueltigbis
+ '
+ Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+ Me.dtgueltigbis.Location = New System.Drawing.Point(518, 61)
+ Me.dtgueltigbis.Margin = New System.Windows.Forms.Padding(4)
+ Me.dtgueltigbis.Name = "dtgueltigbis"
+ Me.dtgueltigbis.Size = New System.Drawing.Size(179, 22)
+ Me.dtgueltigbis.TabIndex = 241
+ '
+ 'dtGueltigab
+ '
+ Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+ Me.dtGueltigab.Location = New System.Drawing.Point(518, 29)
+ Me.dtGueltigab.Margin = New System.Windows.Forms.Padding(4)
+ Me.dtGueltigab.Name = "dtGueltigab"
+ Me.dtGueltigab.Size = New System.Drawing.Size(179, 22)
+ Me.dtGueltigab.TabIndex = 240
+ '
+ 'dtgebdat
+ '
+ Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+ Me.dtgebdat.Location = New System.Drawing.Point(1079, 475)
+ Me.dtgebdat.Margin = New System.Windows.Forms.Padding(4)
+ Me.dtgebdat.Name = "dtgebdat"
+ Me.dtgebdat.Size = New System.Drawing.Size(77, 22)
+ Me.dtgebdat.TabIndex = 223
+ Me.dtgebdat.Visible = False
+ '
+ 'txtMutierer
+ '
+ Me.txtMutierer.Location = New System.Drawing.Point(518, 195)
+ Me.txtMutierer.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtMutierer.Name = "txtMutierer"
+ Me.txtMutierer.ReadOnly = True
+ Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+ Me.txtMutierer.Size = New System.Drawing.Size(179, 22)
+ Me.txtMutierer.TabIndex = 276
+ '
+ 'txtMutiert_am
+ '
+ Me.txtMutiert_am.Location = New System.Drawing.Point(518, 165)
+ Me.txtMutiert_am.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtMutiert_am.Name = "txtMutiert_am"
+ Me.txtMutiert_am.ReadOnly = True
+ Me.txtMutiert_am.Size = New System.Drawing.Size(179, 22)
+ Me.txtMutiert_am.TabIndex = 275
+ '
+ 'txtErstellt_am
+ '
+ Me.txtErstellt_am.Location = New System.Drawing.Point(518, 138)
+ Me.txtErstellt_am.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtErstellt_am.Name = "txtErstellt_am"
+ Me.txtErstellt_am.ReadOnly = True
+ Me.txtErstellt_am.Size = New System.Drawing.Size(179, 22)
+ Me.txtErstellt_am.TabIndex = 274
+ '
+ 'Label18
+ '
+ Me.Label18.AutoSize = True
+ Me.Label18.BackColor = System.Drawing.Color.Transparent
+ Me.Label18.Location = New System.Drawing.Point(430, 195)
+ Me.Label18.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label18.Name = "Label18"
+ Me.Label18.Size = New System.Drawing.Size(60, 17)
+ Me.Label18.TabIndex = 273
+ Me.Label18.Text = "Mutierer"
+ '
+ 'Label17
+ '
+ Me.Label17.AutoSize = True
+ Me.Label17.BackColor = System.Drawing.Color.Transparent
+ Me.Label17.Location = New System.Drawing.Point(430, 168)
+ Me.Label17.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label17.Name = "Label17"
+ Me.Label17.Size = New System.Drawing.Size(74, 17)
+ Me.Label17.TabIndex = 272
+ Me.Label17.Text = "Mutiert am"
+ '
+ 'Label16
+ '
+ Me.Label16.AutoSize = True
+ Me.Label16.BackColor = System.Drawing.Color.Transparent
+ Me.Label16.Location = New System.Drawing.Point(431, 141)
+ Me.Label16.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label16.Name = "Label16"
+ Me.Label16.Size = New System.Drawing.Size(74, 17)
+ Me.Label16.TabIndex = 271
+ Me.Label16.Text = "Erstellt am"
+ '
+ 'Label15
+ '
+ Me.Label15.AutoSize = True
+ Me.Label15.BackColor = System.Drawing.Color.Transparent
+ Me.Label15.Location = New System.Drawing.Point(430, 64)
+ Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label15.Name = "Label15"
+ Me.Label15.Size = New System.Drawing.Size(67, 17)
+ Me.Label15.TabIndex = 270
+ 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(430, 34)
+ Me.Label14.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label14.Name = "Label14"
+ Me.Label14.Size = New System.Drawing.Size(65, 17)
+ Me.Label14.TabIndex = 269
+ 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(705, 29)
+ Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label13.Name = "Label13"
+ Me.Label13.Size = New System.Drawing.Size(71, 17)
+ Me.Label13.TabIndex = 268
+ 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(793, 34)
+ Me.chklbAdresstyp.Margin = New System.Windows.Forms.Padding(4)
+ Me.chklbAdresstyp.Name = "chklbAdresstyp"
+ Me.chklbAdresstyp.Size = New System.Drawing.Size(158, 72)
+ Me.chklbAdresstyp.TabIndex = 243
+ '
+ 'txtBemerkung
+ '
+ Me.txtBemerkung.Location = New System.Drawing.Point(518, 270)
+ Me.txtBemerkung.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtBemerkung.Multiline = True
+ Me.txtBemerkung.Name = "txtBemerkung"
+ Me.txtBemerkung.Size = New System.Drawing.Size(433, 123)
+ Me.txtBemerkung.TabIndex = 242
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.BackColor = System.Drawing.Color.Transparent
+ Me.Label2.Location = New System.Drawing.Point(430, 273)
+ Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(80, 17)
+ Me.Label2.TabIndex = 267
+ Me.Label2.Text = "Bemerkung"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.BackColor = System.Drawing.Color.Transparent
+ Me.Label1.Location = New System.Drawing.Point(1006, 401)
+ Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(49, 17)
+ Me.Label1.TabIndex = 266
+ Me.Label1.Text = "Fax G."
+ Me.Label1.Visible = False
+ '
+ 'txtFaxG
+ '
+ Me.txtFaxG.Location = New System.Drawing.Point(1107, 396)
+ Me.txtFaxG.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtFaxG.Name = "txtFaxG"
+ Me.txtFaxG.Size = New System.Drawing.Size(49, 22)
+ Me.txtFaxG.TabIndex = 239
+ Me.txtFaxG.Visible = False
+ '
+ 'txtName
+ '
+ Me.txtName.Location = New System.Drawing.Point(105, 33)
+ Me.txtName.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtName.Name = "txtName"
+ Me.txtName.Size = New System.Drawing.Size(302, 22)
+ Me.txtName.TabIndex = 216
+ '
+ 'lbltelg
+ '
+ Me.lbltelg.AutoSize = True
+ Me.lbltelg.BackColor = System.Drawing.Color.Transparent
+ Me.lbltelg.Location = New System.Drawing.Point(1006, 369)
+ Me.lbltelg.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lbltelg.Name = "lbltelg"
+ Me.lbltelg.Size = New System.Drawing.Size(75, 17)
+ Me.lbltelg.TabIndex = 265
+ Me.lbltelg.Text = "Telefon G."
+ Me.lbltelg.Visible = False
+ '
+ 'lblName
+ '
+ Me.lblName.AutoSize = True
+ Me.lblName.BackColor = System.Drawing.Color.Transparent
+ Me.lblName.Location = New System.Drawing.Point(11, 37)
+ Me.lblName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblName.Name = "lblName"
+ Me.lblName.Size = New System.Drawing.Size(90, 17)
+ Me.lblName.TabIndex = 247
+ Me.lblName.Text = "Firma Zeile 1"
+ '
+ 'txtTelg
+ '
+ Me.txtTelg.Location = New System.Drawing.Point(1107, 364)
+ Me.txtTelg.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtTelg.Name = "txtTelg"
+ Me.txtTelg.Size = New System.Drawing.Size(49, 22)
+ Me.txtTelg.TabIndex = 238
+ Me.txtTelg.Visible = False
+ '
+ 'txtVorname
+ '
+ Me.txtVorname.Location = New System.Drawing.Point(105, 63)
+ Me.txtVorname.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtVorname.Name = "txtVorname"
+ Me.txtVorname.Size = New System.Drawing.Size(302, 22)
+ Me.txtVorname.TabIndex = 217
+ '
+ 'lblahv
+ '
+ Me.lblahv.AutoSize = True
+ Me.lblahv.BackColor = System.Drawing.Color.Transparent
+ Me.lblahv.Location = New System.Drawing.Point(1006, 513)
+ Me.lblahv.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblahv.Name = "lblahv"
+ Me.lblahv.Size = New System.Drawing.Size(56, 17)
+ Me.lblahv.TabIndex = 264
+ Me.lblahv.Text = "AHV-Nr"
+ Me.lblahv.Visible = False
+ '
+ 'txtahvnr
+ '
+ Me.txtahvnr.Location = New System.Drawing.Point(1107, 508)
+ Me.txtahvnr.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtahvnr.Name = "txtahvnr"
+ Me.txtahvnr.Size = New System.Drawing.Size(49, 22)
+ Me.txtahvnr.TabIndex = 235
+ Me.txtahvnr.Visible = False
+ '
+ 'lblVorname
+ '
+ Me.lblVorname.AutoSize = True
+ Me.lblVorname.BackColor = System.Drawing.Color.Transparent
+ Me.lblVorname.Location = New System.Drawing.Point(11, 67)
+ Me.lblVorname.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblVorname.Name = "lblVorname"
+ Me.lblVorname.Size = New System.Drawing.Size(51, 17)
+ Me.lblVorname.TabIndex = 248
+ Me.lblVorname.Text = "Zeile 2"
+ '
+ 'lblBeruf
+ '
+ Me.lblBeruf.AutoSize = True
+ Me.lblBeruf.BackColor = System.Drawing.Color.Transparent
+ Me.lblBeruf.Location = New System.Drawing.Point(1006, 481)
+ Me.lblBeruf.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblBeruf.Name = "lblBeruf"
+ Me.lblBeruf.Size = New System.Drawing.Size(42, 17)
+ Me.lblBeruf.TabIndex = 263
+ Me.lblBeruf.Text = "Beruf"
+ Me.lblBeruf.Visible = False
+ '
+ 'txtBeruf
+ '
+ Me.txtBeruf.Location = New System.Drawing.Point(1107, 476)
+ Me.txtBeruf.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtBeruf.Name = "txtBeruf"
+ Me.txtBeruf.Size = New System.Drawing.Size(49, 22)
+ Me.txtBeruf.TabIndex = 234
+ Me.txtBeruf.Visible = False
+ '
+ 'txtCOAdresse
+ '
+ Me.txtCOAdresse.Location = New System.Drawing.Point(105, 97)
+ Me.txtCOAdresse.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtCOAdresse.Name = "txtCOAdresse"
+ Me.txtCOAdresse.Size = New System.Drawing.Size(302, 22)
+ Me.txtCOAdresse.TabIndex = 218
+ '
+ 'lblArbeitgeber
+ '
+ Me.lblArbeitgeber.AutoSize = True
+ Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent
+ Me.lblArbeitgeber.Location = New System.Drawing.Point(1006, 449)
+ Me.lblArbeitgeber.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblArbeitgeber.Name = "lblArbeitgeber"
+ Me.lblArbeitgeber.Size = New System.Drawing.Size(82, 17)
+ Me.lblArbeitgeber.TabIndex = 262
+ Me.lblArbeitgeber.Text = "Arbeitgeber"
+ Me.lblArbeitgeber.Visible = False
+ '
+ 'lblCO
+ '
+ Me.lblCO.AutoSize = True
+ Me.lblCO.BackColor = System.Drawing.Color.Transparent
+ Me.lblCO.Location = New System.Drawing.Point(11, 101)
+ Me.lblCO.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblCO.Name = "lblCO"
+ Me.lblCO.Size = New System.Drawing.Size(51, 17)
+ Me.lblCO.TabIndex = 249
+ Me.lblCO.Text = "Zeile 3"
+ '
+ 'txtStrasse
+ '
+ Me.txtStrasse.Location = New System.Drawing.Point(105, 131)
+ Me.txtStrasse.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtStrasse.Name = "txtStrasse"
+ Me.txtStrasse.Size = New System.Drawing.Size(302, 22)
+ Me.txtStrasse.TabIndex = 219
+ '
+ 'lblSprache
+ '
+ Me.lblSprache.AutoSize = True
+ Me.lblSprache.BackColor = System.Drawing.Color.Transparent
+ Me.lblSprache.Location = New System.Drawing.Point(1006, 416)
+ Me.lblSprache.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblSprache.Name = "lblSprache"
+ Me.lblSprache.Size = New System.Drawing.Size(61, 17)
+ Me.lblSprache.TabIndex = 261
+ Me.lblSprache.Text = "Sprache"
+ Me.lblSprache.Visible = False
+ '
+ 'lblStrasse
+ '
+ Me.lblStrasse.AutoSize = True
+ Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
+ Me.lblStrasse.Location = New System.Drawing.Point(11, 135)
+ Me.lblStrasse.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblStrasse.Name = "lblStrasse"
+ Me.lblStrasse.Size = New System.Drawing.Size(56, 17)
+ Me.lblStrasse.TabIndex = 250
+ Me.lblStrasse.Text = "Strasse"
+ '
+ 'txtPLZ
+ '
+ Me.txtPLZ.Location = New System.Drawing.Point(105, 163)
+ Me.txtPLZ.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtPLZ.Name = "txtPLZ"
+ Me.txtPLZ.Size = New System.Drawing.Size(63, 22)
+ Me.txtPLZ.TabIndex = 220
+ '
+ 'lblStatus
+ '
+ Me.lblStatus.AutoSize = True
+ Me.lblStatus.BackColor = System.Drawing.Color.Transparent
+ Me.lblStatus.Location = New System.Drawing.Point(430, 96)
+ Me.lblStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblStatus.Name = "lblStatus"
+ Me.lblStatus.Size = New System.Drawing.Size(48, 17)
+ Me.lblStatus.TabIndex = 260
+ Me.lblStatus.Text = "Status"
+ '
+ 'lblPLZOrt
+ '
+ Me.lblPLZOrt.AutoSize = True
+ Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
+ Me.lblPLZOrt.Location = New System.Drawing.Point(11, 167)
+ Me.lblPLZOrt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblPLZOrt.Name = "lblPLZOrt"
+ Me.lblPLZOrt.Size = New System.Drawing.Size(58, 17)
+ Me.lblPLZOrt.TabIndex = 251
+ Me.lblPLZOrt.Text = "PLZ/Ort"
+ '
+ 'lblBriefanrede
+ '
+ Me.lblBriefanrede.AutoSize = True
+ Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
+ Me.lblBriefanrede.Location = New System.Drawing.Point(974, 515)
+ Me.lblBriefanrede.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblBriefanrede.Name = "lblBriefanrede"
+ Me.lblBriefanrede.Size = New System.Drawing.Size(88, 17)
+ Me.lblBriefanrede.TabIndex = 259
+ Me.lblBriefanrede.Text = "Brief-Anrede"
+ Me.lblBriefanrede.Visible = False
+ '
+ 'txtOrt
+ '
+ Me.txtOrt.Location = New System.Drawing.Point(177, 163)
+ Me.txtOrt.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtOrt.Name = "txtOrt"
+ Me.txtOrt.Size = New System.Drawing.Size(230, 22)
+ Me.txtOrt.TabIndex = 221
+ '
+ 'txtBriefanrede
+ '
+ Me.txtBriefanrede.Location = New System.Drawing.Point(1079, 510)
+ Me.txtBriefanrede.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtBriefanrede.Name = "txtBriefanrede"
+ Me.txtBriefanrede.Size = New System.Drawing.Size(81, 22)
+ Me.txtBriefanrede.TabIndex = 230
+ Me.txtBriefanrede.Visible = False
+ '
+ 'lblGebDat
+ '
+ Me.lblGebDat.AutoSize = True
+ Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
+ Me.lblGebDat.Location = New System.Drawing.Point(998, 476)
+ Me.lblGebDat.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblGebDat.Name = "lblGebDat"
+ Me.lblGebDat.Size = New System.Drawing.Size(57, 17)
+ Me.lblGebDat.TabIndex = 252
+ Me.lblGebDat.Text = "GebDat"
+ Me.lblGebDat.Visible = False
+ '
+ 'lblGeschlecht
+ '
+ Me.lblGeschlecht.AutoSize = True
+ Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
+ Me.lblGeschlecht.Location = New System.Drawing.Point(1005, 438)
+ Me.lblGeschlecht.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblGeschlecht.Name = "lblGeschlecht"
+ Me.lblGeschlecht.Size = New System.Drawing.Size(79, 17)
+ Me.lblGeschlecht.TabIndex = 258
+ Me.lblGeschlecht.Text = "Geschlecht"
+ Me.lblGeschlecht.Visible = False
+ '
+ 'txttelp
+ '
+ Me.txttelp.Location = New System.Drawing.Point(105, 234)
+ Me.txttelp.Margin = New System.Windows.Forms.Padding(4)
+ Me.txttelp.Name = "txttelp"
+ Me.txttelp.Size = New System.Drawing.Size(302, 22)
+ Me.txttelp.TabIndex = 224
+ '
+ 'lblInternet
+ '
+ Me.lblInternet.AutoSize = True
+ Me.lblInternet.BackColor = System.Drawing.Color.Transparent
+ Me.lblInternet.Location = New System.Drawing.Point(11, 366)
+ Me.lblInternet.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblInternet.Name = "lblInternet"
+ Me.lblInternet.Size = New System.Drawing.Size(56, 17)
+ Me.lblInternet.TabIndex = 257
+ Me.lblInternet.Text = "Internet"
+ '
+ 'lblTelefon
+ '
+ Me.lblTelefon.AutoSize = True
+ Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
+ Me.lblTelefon.Location = New System.Drawing.Point(11, 238)
+ Me.lblTelefon.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblTelefon.Name = "lblTelefon"
+ Me.lblTelefon.Size = New System.Drawing.Size(56, 17)
+ Me.lblTelefon.TabIndex = 253
+ Me.lblTelefon.Text = "Telefon"
+ '
+ 'txtWeb
+ '
+ Me.txtWeb.Location = New System.Drawing.Point(105, 362)
+ Me.txtWeb.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtWeb.Name = "txtWeb"
+ Me.txtWeb.Size = New System.Drawing.Size(302, 22)
+ Me.txtWeb.TabIndex = 228
+ '
+ 'txtFaxp
+ '
+ Me.txtFaxp.Location = New System.Drawing.Point(105, 266)
+ Me.txtFaxp.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtFaxp.Name = "txtFaxp"
+ Me.txtFaxp.Size = New System.Drawing.Size(302, 22)
+ Me.txtFaxp.TabIndex = 225
+ '
+ 'lblemail
+ '
+ Me.lblemail.AutoSize = True
+ Me.lblemail.BackColor = System.Drawing.Color.Transparent
+ Me.lblemail.Location = New System.Drawing.Point(11, 334)
+ Me.lblemail.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblemail.Name = "lblemail"
+ Me.lblemail.Size = New System.Drawing.Size(47, 17)
+ Me.lblemail.TabIndex = 256
+ Me.lblemail.Text = "E-Mail"
+ '
+ 'lblFaxP
+ '
+ Me.lblFaxP.AutoSize = True
+ Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
+ Me.lblFaxP.Location = New System.Drawing.Point(11, 270)
+ Me.lblFaxP.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblFaxP.Name = "lblFaxP"
+ Me.lblFaxP.Size = New System.Drawing.Size(30, 17)
+ Me.lblFaxP.TabIndex = 254
+ Me.lblFaxP.Text = "Fax"
+ '
+ 'txtE_Mail
+ '
+ Me.txtE_Mail.Location = New System.Drawing.Point(105, 330)
+ Me.txtE_Mail.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtE_Mail.Name = "txtE_Mail"
+ Me.txtE_Mail.Size = New System.Drawing.Size(302, 22)
+ Me.txtE_Mail.TabIndex = 227
+ '
+ 'txtNatel
+ '
+ Me.txtNatel.Location = New System.Drawing.Point(105, 298)
+ Me.txtNatel.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtNatel.Name = "txtNatel"
+ Me.txtNatel.Size = New System.Drawing.Size(302, 22)
+ Me.txtNatel.TabIndex = 226
+ '
+ 'lblMobile
+ '
+ Me.lblMobile.AutoSize = True
+ Me.lblMobile.BackColor = System.Drawing.Color.Transparent
+ Me.lblMobile.Location = New System.Drawing.Point(11, 302)
+ Me.lblMobile.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblMobile.Name = "lblMobile"
+ Me.lblMobile.Size = New System.Drawing.Size(49, 17)
+ Me.lblMobile.TabIndex = 255
+ Me.lblMobile.Text = "Mobile"
+ '
+ '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(105, 4)
+ Me.txtnrprivat.Margin = New System.Windows.Forms.Padding(4)
+ Me.txtnrprivat.Name = "txtnrprivat"
+ Me.txtnrprivat.ReadOnly = True
+ Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+ Me.txtnrprivat.Size = New System.Drawing.Size(63, 23)
+ Me.txtnrprivat.TabIndex = 213
+ '
+ 'lblNr
+ '
+ Me.lblNr.AutoSize = True
+ Me.lblNr.BackColor = System.Drawing.Color.Transparent
+ Me.lblNr.Location = New System.Drawing.Point(11, 7)
+ Me.lblNr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblNr.Name = "lblNr"
+ Me.lblNr.Size = New System.Drawing.Size(27, 17)
+ Me.lblNr.TabIndex = 244
+ Me.lblNr.Text = "Nr."
+ '
+ 'lblAnrede
+ '
+ Me.lblAnrede.AutoSize = True
+ Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
+ Me.lblAnrede.Location = New System.Drawing.Point(747, 129)
+ Me.lblAnrede.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblAnrede.Name = "lblAnrede"
+ Me.lblAnrede.Size = New System.Drawing.Size(54, 17)
+ Me.lblAnrede.TabIndex = 245
+ Me.lblAnrede.Text = "Anrede"
+ Me.lblAnrede.Visible = False
+ '
+ 'lblTitel
+ '
+ Me.lblTitel.AutoSize = True
+ Me.lblTitel.BackColor = System.Drawing.Color.Transparent
+ Me.lblTitel.Location = New System.Drawing.Point(772, 163)
+ Me.lblTitel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.lblTitel.Name = "lblTitel"
+ Me.lblTitel.Size = New System.Drawing.Size(35, 17)
+ Me.lblTitel.TabIndex = 246
+ Me.lblTitel.Text = "Titel"
+ Me.lblTitel.Visible = False
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.BackColor = System.Drawing.Color.Transparent
+ Me.Label5.Location = New System.Drawing.Point(11, 410)
+ Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(73, 17)
+ Me.Label5.TabIndex = 282
+ Me.Label5.Text = "Ansprech-"
+ Me.Label5.Visible = False
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.Label6.BackColor = System.Drawing.Color.Transparent
+ Me.Label6.Location = New System.Drawing.Point(11, 431)
+ Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(55, 17)
+ Me.Label6.TabIndex = 283
+ Me.Label6.Text = "Partner"
+ Me.Label6.Visible = False
+ '
+ 'ClsStammdaten_flat1
+ '
+ Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" &
+ "on id=;packet size=4096;user id=sa;password=*shu29"
+ Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(105, 399)
+ Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(4)
+ Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
+ Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(846, 146)
+ Me.ClsStammdaten_flat1.SQL = ""
+ Me.ClsStammdaten_flat1.TabIndex = 281
+ Me.ClsStammdaten_flat1.Tablename = Nothing
+ Me.ClsStammdaten_flat1.Visible = False
+ '
+ 'cbboxNRArbeitgeber
+ '
+ Me.cbboxNRArbeitgeber.Dataselection = Nothing
+ Me.cbboxNRArbeitgeber.Displaymember = Nothing
+ Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(1107, 442)
+ Me.cbboxNRArbeitgeber.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
+ Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(49, 24)
+ Me.cbboxNRArbeitgeber.TabIndex = 233
+ Me.cbboxNRArbeitgeber.Table = Nothing
+ Me.cbboxNRArbeitgeber.TableAlias = ""
+ Me.cbboxNRArbeitgeber.Valuemember = Nothing
+ Me.cbboxNRArbeitgeber.Visible = False
+ '
+ 'cbboxGeschlecht
+ '
+ Me.cbboxGeschlecht.Dataselection = Nothing
+ Me.cbboxGeschlecht.Displaymember = Nothing
+ Me.cbboxGeschlecht.Location = New System.Drawing.Point(1107, 433)
+ Me.cbboxGeschlecht.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxGeschlecht.Name = "cbboxGeschlecht"
+ Me.cbboxGeschlecht.Size = New System.Drawing.Size(49, 24)
+ Me.cbboxGeschlecht.TabIndex = 229
+ Me.cbboxGeschlecht.Table = Nothing
+ Me.cbboxGeschlecht.TableAlias = ""
+ Me.cbboxGeschlecht.Valuemember = Nothing
+ Me.cbboxGeschlecht.Visible = False
+ '
+ 'cbboxSprache
+ '
+ Me.cbboxSprache.Dataselection = Nothing
+ Me.cbboxSprache.Displaymember = Nothing
+ Me.cbboxSprache.Location = New System.Drawing.Point(1107, 410)
+ Me.cbboxSprache.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxSprache.Name = "cbboxSprache"
+ Me.cbboxSprache.Size = New System.Drawing.Size(49, 24)
+ Me.cbboxSprache.TabIndex = 232
+ Me.cbboxSprache.Table = Nothing
+ Me.cbboxSprache.TableAlias = ""
+ Me.cbboxSprache.Valuemember = Nothing
+ Me.cbboxSprache.Visible = False
+ '
+ 'cbboxStatus
+ '
+ Me.cbboxStatus.Dataselection = Nothing
+ Me.cbboxStatus.Displaymember = Nothing
+ Me.cbboxStatus.Location = New System.Drawing.Point(518, 93)
+ Me.cbboxStatus.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxStatus.Name = "cbboxStatus"
+ Me.cbboxStatus.Size = New System.Drawing.Size(179, 24)
+ Me.cbboxStatus.TabIndex = 231
+ 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(815, 160)
+ Me.cbboxNRTitel.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNRTitel.Name = "cbboxNRTitel"
+ Me.cbboxNRTitel.Size = New System.Drawing.Size(136, 24)
+ Me.cbboxNRTitel.TabIndex = 215
+ Me.cbboxNRTitel.Table = Nothing
+ Me.cbboxNRTitel.TableAlias = ""
+ Me.cbboxNRTitel.Valuemember = Nothing
+ Me.cbboxNRTitel.Visible = False
+ '
+ 'cbboxNrAnrede
+ '
+ Me.cbboxNrAnrede.Dataselection = Nothing
+ Me.cbboxNrAnrede.Displaymember = Nothing
+ Me.cbboxNrAnrede.Location = New System.Drawing.Point(841, 126)
+ Me.cbboxNrAnrede.Margin = New System.Windows.Forms.Padding(4)
+ Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
+ Me.cbboxNrAnrede.Size = New System.Drawing.Size(116, 24)
+ Me.cbboxNrAnrede.TabIndex = 214
+ Me.cbboxNrAnrede.Table = Nothing
+ Me.cbboxNrAnrede.TableAlias = ""
+ Me.cbboxNrAnrede.Valuemember = Nothing
+ Me.cbboxNrAnrede.Visible = False
+ '
+ 'PatientDetailsFirma
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.Controls.Add(Me.Label6)
+ Me.Controls.Add(Me.Label5)
+ Me.Controls.Add(Me.ClsStammdaten_flat1)
+ 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 = "PatientDetailsFirma"
+ Me.Size = New System.Drawing.Size(980, 556)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+
+ Friend WithEvents chkMail_Kommunikation As CheckBox
+ Friend WithEvents Label4 As Label
+ Friend WithEvents txtZSR As TextBox
+ Friend WithEvents txtGLN As TextBox
+ Friend WithEvents lblGLN As Label
+ Friend WithEvents cbtxtboxKanton As ComboBox
+ Friend WithEvents Label3 As Label
+ Friend WithEvents cbboxNRArbeitgeber As MyCombobox
+ Friend WithEvents cbboxGeschlecht As MyCombobox
+ Friend WithEvents cbboxSprache As MyCombobox
+ Friend WithEvents cbboxStatus As MyCombobox
+ Friend WithEvents cbboxNRTitel As MyCombobox
+ Friend WithEvents cbboxNrAnrede As MyCombobox
+ Friend WithEvents dtgueltigbis As DateTimePicker
+ Friend WithEvents dtGueltigab As DateTimePicker
+ Friend WithEvents dtgebdat As DateTimePicker
+ Friend WithEvents txtMutierer As TextBox
+ Friend WithEvents txtMutiert_am As TextBox
+ Friend WithEvents txtErstellt_am As TextBox
+ Friend WithEvents Label18 As Label
+ Friend WithEvents Label17 As Label
+ Friend WithEvents Label16 As Label
+ Friend WithEvents Label15 As Label
+ Friend WithEvents Label14 As Label
+ Friend WithEvents Label13 As Label
+ Friend WithEvents chklbAdresstyp As CheckedListBox
+ Friend WithEvents txtBemerkung As TextBox
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents txtFaxG As TextBox
+ Friend WithEvents txtName As TextBox
+ Friend WithEvents lbltelg As Label
+ Friend WithEvents lblName As Label
+ Friend WithEvents txtTelg As TextBox
+ Friend WithEvents txtVorname As TextBox
+ Friend WithEvents lblahv As Label
+ Friend WithEvents txtahvnr As TextBox
+ Friend WithEvents lblVorname As Label
+ Friend WithEvents lblBeruf As Label
+ Friend WithEvents txtBeruf As TextBox
+ Friend WithEvents txtCOAdresse As TextBox
+ Friend WithEvents lblArbeitgeber As Label
+ Friend WithEvents lblCO As Label
+ Friend WithEvents txtStrasse As TextBox
+ Friend WithEvents lblSprache As Label
+ Friend WithEvents lblStrasse As Label
+ Friend WithEvents txtPLZ As TextBox
+ Friend WithEvents lblStatus As Label
+ Friend WithEvents lblPLZOrt As Label
+ Friend WithEvents lblBriefanrede As Label
+ Friend WithEvents txtOrt As TextBox
+ Friend WithEvents txtBriefanrede As TextBox
+ Friend WithEvents lblGebDat As Label
+ Friend WithEvents lblGeschlecht As Label
+ Friend WithEvents txttelp As TextBox
+ Friend WithEvents lblInternet As Label
+ Friend WithEvents lblTelefon As Label
+ Friend WithEvents txtWeb As TextBox
+ Friend WithEvents txtFaxp As TextBox
+ Friend WithEvents lblemail As Label
+ Friend WithEvents lblFaxP As Label
+ Friend WithEvents txtE_Mail As TextBox
+ Friend WithEvents txtNatel As TextBox
+ Friend WithEvents lblMobile As Label
+ Friend WithEvents txtnrprivat As TextBox
+ Friend WithEvents lblNr As Label
+ Friend WithEvents lblAnrede As Label
+ Friend WithEvents lblTitel As Label
+ Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
+ Friend WithEvents Label5 As Label
+ Friend WithEvents Label6 As Label
+End Class
diff --git a/DPM2016/Patient/subclasses/PatientDetailsFirma.resx b/DPM2016/Patient/subclasses/PatientDetailsFirma.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/DPM2016/Patient/subclasses/PatientDetailsFirma.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/DPM2016/Patient/subclasses/PatientDetailsFirma.vb b/DPM2016/Patient/subclasses/PatientDetailsFirma.vb
new file mode 100644
index 0000000..95ce2e6
--- /dev/null
+++ b/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"
+
+ '''
+ ''' Prüfung, ob Datenänderungen vorgenommen wurden.
+ '''
+ '''
+ 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"
+ '''
+ ''' Allg Eventhandler für Chanage-Ereignise festlegen
+ '''
+ '''
+ '''
+ 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
+ '''
+ ''' Envent-Handler für Change-Ereignisse
+ '''
+ '''
+ '''
+ '''
+ 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
+
+
+ '''
+ ''' 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
+ '''
+ ''' Base-Contrlo (z.B. aktuelles Formular
+ ''' Schlüssel welcher gesucht werden soll
+ ''' Liste der gefundenen Objekte
+ ''' True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+ '''
+ '''
+ 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
diff --git a/DPM2016/Reporting/frmReportView.vb b/DPM2016/Reporting/frmReportView.vb
index 86bda7c..9fe740f 100644
--- a/DPM2016/Reporting/frmReportView.vb
+++ b/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)
diff --git a/DPM2016/Sysadmin/frmStammdaten.vb b/DPM2016/Sysadmin/frmStammdaten.vb
index d003f21..b3e7a26 100644
--- a/DPM2016/Sysadmin/frmStammdaten.vb
+++ b/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
diff --git a/DPM2016/Zahlung/clscamt054.vb b/DPM2016/Zahlung/clscamt054.vb
index 141f7ad..32890cd 100644
--- a/DPM2016/Zahlung/clscamt054.vb
+++ b/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
diff --git a/DPM2016/bin/Debug/DPM2018.application b/DPM2016/bin/Debug/DPM2018.application
index bf7cc26..542b764 100644
--- a/DPM2016/bin/Debug/DPM2018.application
+++ b/DPM2016/bin/Debug/DPM2018.application
@@ -14,7 +14,7 @@
- jNiObtzwirc4UxNzQUd5Rf0cdY+mOrTgte2fUskTaVQ=
+ r0kaGxKo2rhFYW7Vag61MLRCGPXDJD386zWm80PbXFE=
diff --git a/DPM2016/bin/Debug/DPM2018.exe b/DPM2016/bin/Debug/DPM2018.exe
index 7a105a2..1515ab4 100644
Binary files a/DPM2016/bin/Debug/DPM2018.exe and b/DPM2016/bin/Debug/DPM2018.exe differ
diff --git a/DPM2016/bin/Debug/DPM2018.exe.manifest b/DPM2016/bin/Debug/DPM2018.exe.manifest
index 4e59b43..c83df2f 100644
--- a/DPM2016/bin/Debug/DPM2018.exe.manifest
+++ b/DPM2016/bin/Debug/DPM2018.exe.manifest
@@ -163,14 +163,14 @@
-
+
- hf4/fM3BKkyZyBT7yqXbvQYUxkexRv5MImwhNGY+RKU=
+ 6vBRlnYo5xe5fPUM2tq5fe/HcuhPFqEUL4nZaINN0Oo=
diff --git a/DPM2016/bin/Debug/DPM2018.pdb b/DPM2016/bin/Debug/DPM2018.pdb
index 9ab248e..e4dc9a3 100644
Binary files a/DPM2016/bin/Debug/DPM2018.pdb and b/DPM2016/bin/Debug/DPM2018.pdb differ
diff --git a/DPM2016/bin/Debug/DPM2018.xml b/DPM2016/bin/Debug/DPM2018.xml
index b323e30..04eb80f 100644
--- a/DPM2016/bin/Debug/DPM2018.xml
+++ b/DPM2016/bin/Debug/DPM2018.xml
@@ -387,6 +387,39 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
+
+
+ Prüfung, ob Datenänderungen vorgenommen wurden.
+
+
+
+
+
+ Allg Eventhandler für Chanage-Ereignise festlegen
+
+
+
+
+
+
+ Envent-Handler für Change-Ereignisse
+
+
+
+
+
+
+
+ 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
+
+ Base-Contrlo (z.B. aktuelles Formular
+ Schlüssel welcher gesucht werden soll
+ Liste der gefundenen Objekte
+ True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+
+
+
Formularsecurity setzen
diff --git a/DPM2016/bin/Debug/Dental2Smile/QR_Images/13034_20222118132129_165815049071665_QR.png b/DPM2016/bin/Debug/Dental2Smile/QR_Images/13034_20222118132129_165815049071665_QR.png
new file mode 100644
index 0000000..ffd043d
Binary files /dev/null and b/DPM2016/bin/Debug/Dental2Smile/QR_Images/13034_20222118132129_165815049071665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33367_20221726071755_165881987571665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33367_20221726071755_165881987571665_QR.png
new file mode 100644
index 0000000..0e4dd52
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33367_20221726071755_165881987571665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33367_20225518085551_165813455171665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33367_20225518085551_165813455171665_QR.png
new file mode 100644
index 0000000..89718b2
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33367_20225518085551_165813455171665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220018090009_165813481054452_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220018090009_165813481054452_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220018090009_165813481054452_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170814_165816409531305_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170814_165816409531305_QR.png
new file mode 100644
index 0000000..e495f50
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170814_165816409531305_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_16581640962512_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_16581640962512_QR.png
new file mode 100644
index 0000000..96f3718
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_16581640962512_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_165816409678584_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_165816409678584_QR.png
new file mode 100644
index 0000000..e495f50
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170815_165816409678584_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413577182_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413577182_QR.png
new file mode 100644
index 0000000..1ac2768
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413577182_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413672014_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413672014_QR.png
new file mode 100644
index 0000000..1ac2768
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413672014_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413682559_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413682559_QR.png
new file mode 100644
index 0000000..1ac2768
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20220818170855_165816413682559_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091039_165813544071665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091039_165813544071665_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091039_165813544071665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091047_165813544754452_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091047_165813544754452_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221018091047_165813544754452_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221618131658_165815021954452_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221618131658_165815021954452_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221618131658_165815021954452_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131702_165815022359062_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131702_165815022359062_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131702_165815022359062_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131706_165815022730066_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131706_165815022730066_QR.png
new file mode 100644
index 0000000..94347f3
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131706_165815022730066_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131744_165815026431305_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131744_165815026431305_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131744_165815026431305_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131745_165815026578584_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131745_165815026578584_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131745_165815026578584_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131746_16581502672512_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131746_16581502672512_QR.png
new file mode 100644
index 0000000..94347f3
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221718131746_16581502672512_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131907_165815034877182_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131907_165815034877182_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131907_165815034877182_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034972014_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034972014_QR.png
new file mode 100644
index 0000000..5b621d2
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034972014_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034982559_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034982559_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20221918131908_165815034982559_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085607_165813456854452_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085607_165813456854452_QR.png
new file mode 100644
index 0000000..5ba20f9
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085607_165813456854452_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085608_165813456859062_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085608_165813456859062_QR.png
new file mode 100644
index 0000000..5ba20f9
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085608_165813456859062_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458730066_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458730066_QR.png
new file mode 100644
index 0000000..1e0b5ee
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458730066_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458731305_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458731305_QR.png
new file mode 100644
index 0000000..1e0b5ee
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225618085626_165813458731305_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085701_165813462278584_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085701_165813462278584_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085701_165813462278584_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085702_16581346222512_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085702_16581346222512_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085702_16581346222512_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085747_165813466877182_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085747_165813466877182_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085747_165813466877182_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085748_165813466882559_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085748_165813466882559_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225718085748_165813466882559_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225918085900_165813474171665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225918085900_165813474171665_QR.png
new file mode 100644
index 0000000..01aa41f
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/33423_20225918085900_165813474171665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/34127_20220718170725_165816404530066_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20220718170725_165816404530066_QR.png
new file mode 100644
index 0000000..0c18087
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20220718170725_165816404530066_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/34127_20221118131115_165814987671665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20221118131115_165814987671665_QR.png
new file mode 100644
index 0000000..e695212
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20221118131115_165814987671665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133024_165815102471665_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133024_165815102471665_QR.png
new file mode 100644
index 0000000..0c18087
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133024_165815102471665_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133053_165815105354452_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133053_165815105354452_QR.png
new file mode 100644
index 0000000..0c18087
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20223018133053_165815105354452_QR.png differ
diff --git a/DPM2016/bin/Debug/Dentis/QR_Images/34127_20224018134037_165815163759062_QR.png b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20224018134037_165815163759062_QR.png
new file mode 100644
index 0000000..0c18087
Binary files /dev/null and b/DPM2016/bin/Debug/Dentis/QR_Images/34127_20224018134037_165815163759062_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175422_165868526271665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175422_165868526271665_QR.png
new file mode 100644
index 0000000..c345d1f
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175422_165868526271665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175451_165868529254452_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175451_165868529254452_QR.png
new file mode 100644
index 0000000..5e84976
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/209_20225424175451_165868529254452_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223224223210_165870193071665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223224223210_165870193071665_QR.png
new file mode 100644
index 0000000..c04f402
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223224223210_165870193071665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223324193317_165869119871665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223324193317_165869119871665_QR.png
new file mode 100644
index 0000000..0cb907f
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20223324193317_165869119871665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20224226144241_165884656271665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20224226144241_165884656271665_QR.png
new file mode 100644
index 0000000..c96a0a9
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20224226144241_165884656271665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20225525105505_165874650671665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20225525105505_165874650671665_QR.png
new file mode 100644
index 0000000..0da1019
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/213_20225525105505_165874650671665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20223324193332_165869121254452_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20223324193332_165869121254452_QR.png
new file mode 100644
index 0000000..6ecf68f
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20223324193332_165869121254452_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224021224054_165844325571665_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224021224054_165844325571665_QR.png
new file mode 100644
index 0000000..df4645b
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224021224054_165844325571665_QR.png differ
diff --git a/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224326144306_165884658754452_QR.png b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224326144306_165884658754452_QR.png
new file mode 100644
index 0000000..6a5f0ce
Binary files /dev/null and b/DPM2016/bin/Debug/SHUB_PADM/QR_Images/214_20224326144306_165884658754452_QR.png differ
diff --git a/DPM2016/bin/Debug/app.publish/DPM2018.exe b/DPM2016/bin/Debug/app.publish/DPM2018.exe
index 7a105a2..1515ab4 100644
Binary files a/DPM2016/bin/Debug/app.publish/DPM2018.exe and b/DPM2016/bin/Debug/app.publish/DPM2018.exe differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220322080358_165847703871665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220322080358_165847703871665_QR.png
new file mode 100644
index 0000000..aa2c245
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220322080358_165847703871665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070719_165847364054452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070719_165847364054452_QR.png
new file mode 100644
index 0000000..09263cf
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070719_165847364054452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070757_165847367759062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070757_165847367759062_QR.png
new file mode 100644
index 0000000..a2fa5a7
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220722070757_165847367759062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220822070826_165847370630066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220822070826_165847370630066_QR.png
new file mode 100644
index 0000000..796940a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20220822070826_165847370630066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20222122072133_165847449371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20222122072133_165847449371665_QR.png
new file mode 100644
index 0000000..3bce881
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20222122072133_165847449371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20224922074905_165847614571665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20224922074905_165847614571665_QR.png
new file mode 100644
index 0000000..ee38570
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/1_20224922074905_165847614571665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220622070636_165847359671665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220622070636_165847359671665_QR.png
new file mode 100644
index 0000000..09c3267
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220622070636_165847359671665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220724190705_165868962571665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220724190705_165868962571665_QR.png
new file mode 100644
index 0000000..0c20d93
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20220724190705_165868962571665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221524191530_165869013054452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221524191530_165869013054452_QR.png
new file mode 100644
index 0000000..0c20d93
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221524191530_165869013054452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191633_165869019359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191633_165869019359062_QR.png
new file mode 100644
index 0000000..0c20d93
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191633_165869019359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191649_165869020930066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191649_165869020930066_QR.png
new file mode 100644
index 0000000..0c20d93
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221624191649_165869020930066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221721161712_165842023271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221721161712_165842023271665_QR.png
new file mode 100644
index 0000000..09c3267
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221721161712_165842023271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221824191851_165869033171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221824191851_165869033171665_QR.png
new file mode 100644
index 0000000..0c20d93
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221824191851_165869033171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221825071810_165873349171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221825071810_165873349171665_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221825071810_165873349171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221925071911_165873355254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221925071911_165873355254452_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20221925071911_165873355254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324172340_165868342071665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324172340_165868342071665_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324172340_165868342071665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192332_165869061271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192332_165869061271665_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192332_165869061271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192348_165869062954452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192348_165869062954452_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192348_165869062954452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192359_165869063959062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192359_165869063959062_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222324192359_165869063959062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222424192422_165869066230066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222424192422_165869066230066_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222424192422_165869066230066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222911_165870175271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222911_165870175271665_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222911_165870175271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222941_165870178254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222941_165870178254452_QR.png
new file mode 100644
index 0000000..7ce2079
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20222924222941_165870178254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223222173253_165851117471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223222173253_165851117471665_QR.png
new file mode 100644
index 0000000..7519d06
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223222173253_165851117471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073717_165873463771665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073717_165873463771665_QR.png
new file mode 100644
index 0000000..1a16981
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073717_165873463771665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073736_165873465654452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073736_165873465654452_QR.png
new file mode 100644
index 0000000..1a16981
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20223725073736_165873465654452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164003_165868080371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164003_165868080371665_QR.png
new file mode 100644
index 0000000..7519d06
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164003_165868080371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164025_165868082654452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164025_165868082654452_QR.png
new file mode 100644
index 0000000..2468828
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20224024164025_165868082654452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225524175543_165868534371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225524175543_165868534371665_QR.png
new file mode 100644
index 0000000..397755e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225524175543_165868534371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175901_165868554154452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175901_165868554154452_QR.png
new file mode 100644
index 0000000..397755e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175901_165868554154452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175952_165868559359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175952_165868559359062_QR.png
new file mode 100644
index 0000000..162668f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/3_20225924175952_165868559359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130006_165884040787372_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130006_165884040787372_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130006_165884040787372_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130020_165884042180158_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130020_165884042180158_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130020_165884042180158_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130028_165884042838464_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130028_165884042838464_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220026130028_165884042838464_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220126130124_165884048497305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220126130124_165884048497305_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220126130124_165884048497305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220226130231_165884055271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220226130231_165884055271665_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220226130231_165884055271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325180300_165877218171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325180300_165877218171665_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325180300_165877218171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325190343_165877582471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325190343_165877582471665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220325190343_165877582471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130332_165884061254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130332_165884061254452_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130332_165884061254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130341_165884062259062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130341_165884062259062_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220326130341_165884062259062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220425190404_165877584454452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220425190404_165877584454452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220425190404_165877584454452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180426_165885866771665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180426_165885866771665_QR.png
new file mode 100644
index 0000000..8c5be8e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180426_165885866771665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180445_165885868554452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180445_165885868554452_QR.png
new file mode 100644
index 0000000..8c5be8e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220426180445_165885868554452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220525180547_165877234854452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220525180547_165877234854452_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220525180547_165877234854452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526130530_165884073171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526130530_165884073171665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526130530_165884073171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526160551_165885155171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526160551_165885155171665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526160551_165885155171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526180508_165885870959062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526180508_165885870959062_QR.png
new file mode 100644
index 0000000..8c5be8e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220526180508_165885870959062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626130620_165884078154452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626130620_165884078154452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626130620_165884078154452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626160641_165885160254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626160641_165885160254452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626160641_165885160254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180606_165885876630066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180606_165885876630066_QR.png
new file mode 100644
index 0000000..8c5be8e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180606_165885876630066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180658_165885881871665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180658_165885881871665_QR.png
new file mode 100644
index 0000000..8c5be8e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220626180658_165885881871665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220725190720_165877604171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220725190720_165877604171665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220725190720_165877604171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190833_165877611354452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190833_165877611354452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190833_165877611354452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190847_165877612759062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190847_165877612759062_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220825190847_165877612759062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180900_165877254059062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180900_165877254059062_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180900_165877254059062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180942_165877258330066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180942_165877258330066_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180942_165877258330066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180957_165877259831305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180957_165877259831305_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220925180957_165877259831305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926170933_165885537371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926170933_165885537371665_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926170933_165885537371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926180924_165885896471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926180924_165885896471665_QR.png
new file mode 100644
index 0000000..5929ed2
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20220926180924_165885896471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026161059_165885186059062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026161059_165885186059062_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026161059_165885186059062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171013_165885541354452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171013_165885541354452_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171013_165885541354452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171032_165885543359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171032_165885543359062_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221026171032_165885543359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161110_165885187030066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161110_165885187030066_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161110_165885187030066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161121_165885188131305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161121_165885188131305_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126161121_165885188131305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171103_165885546430066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171103_165885546430066_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171103_165885546430066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171115_165885547531305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171115_165885547531305_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171115_165885547531305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171132_165885549278584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171132_165885549278584_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171132_165885549278584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171157_16588555182512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171157_16588555182512_QR.png
new file mode 100644
index 0000000..99bf532
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221126171157_16588555182512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326171322_165885560277182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326171322_165885560277182_QR.png
new file mode 100644
index 0000000..83f1842
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326171322_165885560277182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181329_165885920971665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181329_165885920971665_QR.png
new file mode 100644
index 0000000..8867c84
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181329_165885920971665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181342_165885922354452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181342_165885922354452_QR.png
new file mode 100644
index 0000000..b93b372
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221326181342_165885922354452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426171439_165885568082559_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426171439_165885568082559_QR.png
new file mode 100644
index 0000000..6cbff12
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426171439_165885568082559_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181412_165885925359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181412_165885925359062_QR.png
new file mode 100644
index 0000000..971725c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181412_165885925359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181430_165885927130066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181430_165885927130066_QR.png
new file mode 100644
index 0000000..0904bb7
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181430_165885927130066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181445_165885928631305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181445_165885928631305_QR.png
new file mode 100644
index 0000000..0904bb7
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181445_165885928631305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181459_165885930078584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181459_165885930078584_QR.png
new file mode 100644
index 0000000..0904bb7
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221426181459_165885930078584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526171536_165885573772014_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526171536_165885573772014_QR.png
new file mode 100644
index 0000000..a3456aa
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526171536_165885573772014_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181517_16588593182512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181517_16588593182512_QR.png
new file mode 100644
index 0000000..a70acef
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181517_16588593182512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181525_165885932577182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181525_165885932577182_QR.png
new file mode 100644
index 0000000..a70acef
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181525_165885932577182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181543_165885934482559_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181543_165885934482559_QR.png
new file mode 100644
index 0000000..8815354
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221526181543_165885934482559_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221626161650_165885221178584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221626161650_165885221178584_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221626161650_165885221178584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221726161709_16588522302512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221726161709_16588522302512_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221726161709_16588522302512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221825181853_165877313378584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221825181853_165877313378584_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221825181853_165877313378584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181902_16587731422512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181902_16587731422512_QR.png
new file mode 100644
index 0000000..51f7071
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181902_16587731422512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181952_165877319371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181952_165877319371665_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20221925181952_165877319371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192010_165877681071665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192010_165877681071665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192010_165877681071665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192021_165877682254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192021_165877682254452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222025192021_165877682254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072010_165882001171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072010_165882001171665_QR.png
new file mode 100644
index 0000000..e00e2f6
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072010_165882001171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072034_165882003554452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072034_165882003554452_QR.png
new file mode 100644
index 0000000..e00e2f6
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072034_165882003554452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072042_165882004359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072042_165882004359062_QR.png
new file mode 100644
index 0000000..e00e2f6
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222026072042_165882004359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125182131_165877329154452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125182131_165877329154452_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125182131_165877329154452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125192144_165877690459062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125192144_165877690459062_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222125192144_165877690459062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222225192258_165877697971665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222225192258_165877697971665_QR.png
new file mode 100644
index 0000000..ebb037b
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222225192258_165877697971665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072204_165882012530066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072204_165882012530066_QR.png
new file mode 100644
index 0000000..e00e2f6
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072204_165882012530066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072237_165882015731305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072237_165882015731305_QR.png
new file mode 100644
index 0000000..e00e2f6
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226072237_165882015731305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226162239_165885256077182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226162239_165885256077182_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226162239_165885256077182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182243_165885976471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182243_165885976471665_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182243_165885976471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182252_165885977254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182252_165885977254452_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222226182252_165885977254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182340_165877342059062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182340_165877342059062_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182340_165877342059062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182351_165877343130066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182351_165877343130066_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325182351_165877343130066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192321_165877700254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192321_165877700254452_QR.png
new file mode 100644
index 0000000..ebb037b
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192321_165877700254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192335_165877701559062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192335_165877701559062_QR.png
new file mode 100644
index 0000000..ebb037b
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222325192335_165877701559062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162304_165885258482559_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162304_165885258482559_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162304_165885258482559_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162312_165885259272014_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162312_165885259272014_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162312_165885259272014_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162356_16588526365646_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162356_16588526365646_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222326162356_16588526365646_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222425182437_165877347831305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222425182437_165877347831305_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222425182437_165877347831305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426072451_165882029271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426072451_165882029271665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426072451_165882029271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426162402_165885264242513_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426162402_165885264242513_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426162402_165885264242513_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182428_165885986959062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182428_165885986959062_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182428_165885986959062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182445_165885988630066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182445_165885988630066_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222426182445_165885988630066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526162550_165885275187372_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526162550_165885275187372_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526162550_165885275187372_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182501_165885990131305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182501_165885990131305_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182501_165885990131305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182508_165885990978584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182508_165885990978584_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182508_165885990978584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182530_16588599312512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182530_16588599312512_QR.png
new file mode 100644
index 0000000..b4dddca
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222526182530_16588599312512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222625182621_165877358171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222625182621_165877358171665_QR.png
new file mode 100644
index 0000000..93b806e
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222625182621_165877358171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626072628_165882038954452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626072628_165882038954452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626072628_165882038954452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162611_165885277280158_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162611_165885277280158_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162611_165885277280158_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162638_165885279838464_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162638_165885279838464_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222626162638_165885279838464_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162814_165885289597305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162814_165885289597305_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162814_165885289597305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162822_165885290388254_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162822_165885290388254_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222826162822_165885290388254_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222926072931_165882057171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222926072931_165882057171665_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20222926072931_165882057171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183133_165877389354452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183133_165877389354452_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183133_165877389354452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183142_165877390359062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183142_165877390359062_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183142_165877390359062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183150_165877391130066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183150_165877391130066_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223125183150_165877391130066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223226183230_165886035171665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223226183230_165886035171665_QR.png
new file mode 100644
index 0000000..d514bbd
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223226183230_165886035171665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326073323_165882080371665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326073323_165882080371665_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326073323_165882080371665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326183312_165886039254452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326183312_165886039254452_QR.png
new file mode 100644
index 0000000..34121e7
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223326183312_165886039254452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223425173434_165877047571665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223425173434_165877047571665_QR.png
new file mode 100644
index 0000000..458ea09
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223425173434_165877047571665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183518_165886051859062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183518_165886051859062_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183518_165886051859062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183535_165886053630066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183535_165886053630066_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223526183535_165886053630066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183613_165886057331305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183613_165886057331305_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183613_165886057331305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183638_165886059878584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183638_165886059878584_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223626183638_165886059878584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183707_16588606282512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183707_16588606282512_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183707_16588606282512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183717_165886063877182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183717_165886063877182_QR.png
new file mode 100644
index 0000000..11d3878
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223726183717_165886063877182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223825183852_165877433271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223825183852_165877433271665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223825183852_165877433271665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223925183900_165877434054452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223925183900_165877434054452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223925183900_165877434054452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223926123923_165883916471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223926123923_165883916471665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20223926123923_165883916471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224026124008_165883920971665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224026124008_165883920971665_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224026124008_165883920971665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224125164158_165876731871665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224125164158_165876731871665_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224125164158_165876731871665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164221_16588537426734_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164221_16588537426734_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164221_16588537426734_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164247_165885376896065_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164247_165885376896065_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164247_165885376896065_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164256_165885377637512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164256_165885377637512_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224226164256_165885377637512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124338_165883941854452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124338_165883941854452_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124338_165883941854452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124348_165883942859062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124348_165883942859062_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124348_165883942859062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124359_165883943930066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124359_165883943930066_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224326124359_165883943930066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525164527_165876752754452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525164527_165876752754452_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525164527_165876752754452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525184559_165877476071665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525184559_165877476071665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224525184559_165877476071665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164504_165885390453597_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164504_165885390453597_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164504_165885390453597_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164518_165885391977821_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164518_165885391977821_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164518_165885391977821_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164534_16588539356461_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164534_16588539356461_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224526164534_16588539356461_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224725164700_165876762159062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224725164700_165876762159062_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224725164700_165876762159062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164709_165885403060356_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164709_165885403060356_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164709_165885403060356_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164719_165885404047980_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164719_165885404047980_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164719_165885404047980_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164734_165885405430927_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164734_165885405430927_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224726164734_165885405430927_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074819_165882170054452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074819_165882170054452_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074819_165882170054452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074832_165882171259062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074832_165882171259062_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826074832_165882171259062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164808_165885408863380_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164808_165885408863380_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164808_165885408863380_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164821_165885410165892_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164821_165885410165892_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224826164821_165885410165892_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164907_165876774830066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164907_165876774830066_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164907_165876774830066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164932_165876777331305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164932_165876777331305_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164932_165876777331305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164943_165876778378584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164943_165876778378584_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20224925164943_165876778378584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085011_165882541230066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085011_165882541230066_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085011_165882541230066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085032_165882543231305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085032_165882543231305_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225026085032_165882543231305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225326085309_165882559078584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225326085309_165882559078584_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225326085309_165882559078584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225425165414_16587680552512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225425165414_16587680552512_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225425165414_16587680552512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225625165631_165876819277182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225625165631_165876819277182_QR.png
new file mode 100644
index 0000000..3abf07c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225625165631_165876819277182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125609_165884017031305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125609_165884017031305_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125609_165884017031305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125615_165884017678584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125615_165884017678584_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125615_165884017678584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125623_16588401842512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125623_16588401842512_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225626125623_16588401842512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155714_165885103471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155714_165885103471665_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155714_165885103471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155725_165885104554452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155725_165885104554452_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225726155725_165885104554452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125805_165884028577182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125805_165884028577182_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125805_165884028577182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125812_165884029382559_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125812_165884029382559_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125812_165884029382559_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125823_165884030372014_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125823_165884030372014_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225826125823_165884030372014_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125940_16588403805646_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125940_16588403805646_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125940_16588403805646_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125953_165884039342513_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125953_165884039342513_QR.png
new file mode 100644
index 0000000..5c6242f
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926125953_165884039342513_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926155938_165885117959062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926155938_165885117959062_QR.png
new file mode 100644
index 0000000..708461c
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/6_20225926155938_165885117959062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190431_165886227180158_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190431_165886227180158_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190431_165886227180158_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190437_165886227838464_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190437_165886227838464_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20220426190437_165886227838464_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184133_165886089471665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184133_165886089471665_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184133_165886089471665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184145_165886090554452_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184145_165886090554452_QR.png
new file mode 100644
index 0000000..bc27351
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224126184145_165886090554452_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184209_165886092959062_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184209_165886092959062_QR.png
new file mode 100644
index 0000000..bc27351
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184209_165886092959062_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184223_165886094330066_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184223_165886094330066_QR.png
new file mode 100644
index 0000000..bc27351
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184223_165886094330066_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184236_165886095731305_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184236_165886095731305_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224226184236_165886095731305_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184306_165886098778584_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184306_165886098778584_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184306_165886098778584_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184321_16588610022512_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184321_16588610022512_QR.png
new file mode 100644
index 0000000..0ebd96a
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184321_16588610022512_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184337_165886101777182_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184337_165886101777182_QR.png
new file mode 100644
index 0000000..64e30bd
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184337_165886101777182_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184348_165886102882559_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184348_165886102882559_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224326184348_165886102882559_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184402_165886104372014_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184402_165886104372014_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184402_165886104372014_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184413_16588610535646_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184413_16588610535646_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184413_16588610535646_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184437_165886107742513_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184437_165886107742513_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184437_165886107742513_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184444_165886108487372_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184444_165886108487372_QR.png
new file mode 100644
index 0000000..07030ec
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/8_20224426184444_165886108487372_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20222826072810_165882049071665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20222826072810_165882049071665_QR.png
new file mode 100644
index 0000000..8867c84
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20222826072810_165882049071665_QR.png differ
diff --git a/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20224826154842_165885052271665_QR.png b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20224826154842_165885052271665_QR.png
new file mode 100644
index 0000000..8867c84
Binary files /dev/null and b/DPM2016/bin/Debug/stschweiz_NAS/QR_Images/9_20224826154842_165885052271665_QR.png differ
diff --git a/DPM2016/obj/Debug/DPM2016.Behandlung.resources b/DPM2016/obj/Debug/DPM2016.Behandlung.resources
index e21235f..bf6f38c 100644
Binary files a/DPM2016/obj/Debug/DPM2016.Behandlung.resources and b/DPM2016/obj/Debug/DPM2016.Behandlung.resources differ
diff --git a/DPM2016/obj/Debug/DPM2016.Benhandungdetail.resources b/DPM2016/obj/Debug/DPM2016.Benhandungdetail.resources
index 9f9a9b7..1999bfc 100644
Binary files a/DPM2016/obj/Debug/DPM2016.Benhandungdetail.resources and b/DPM2016/obj/Debug/DPM2016.Benhandungdetail.resources differ
diff --git a/DPM2016/obj/Debug/DPM2016.Patient.resources b/DPM2016/obj/Debug/DPM2016.Patient.resources
index 624c417..d015b41 100644
Binary files a/DPM2016/obj/Debug/DPM2016.Patient.resources and b/DPM2016/obj/Debug/DPM2016.Patient.resources differ
diff --git a/DPM2016/obj/Debug/DPM2016.PatientDetailsFirma.resources b/DPM2016/obj/Debug/DPM2016.PatientDetailsFirma.resources
new file mode 100644
index 0000000..6c05a97
Binary files /dev/null and b/DPM2016/obj/Debug/DPM2016.PatientDetailsFirma.resources differ
diff --git a/DPM2016/obj/Debug/DPM2016.clsStammdaten_flat.resources b/DPM2016/obj/Debug/DPM2016.clsStammdaten_flat.resources
index 4cdb879..929927f 100644
Binary files a/DPM2016/obj/Debug/DPM2016.clsStammdaten_flat.resources and b/DPM2016/obj/Debug/DPM2016.clsStammdaten_flat.resources differ
diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.AssemblyReference.cache b/DPM2016/obj/Debug/DPM2016.vbproj.AssemblyReference.cache
index 96dfd7d..0a34e86 100644
Binary files a/DPM2016/obj/Debug/DPM2016.vbproj.AssemblyReference.cache and b/DPM2016/obj/Debug/DPM2016.vbproj.AssemblyReference.cache differ
diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.CoreCompileInputs.cache b/DPM2016/obj/Debug/DPM2016.vbproj.CoreCompileInputs.cache
index 0b6a939..2b98631 100644
--- a/DPM2016/obj/Debug/DPM2016.vbproj.CoreCompileInputs.cache
+++ b/DPM2016/obj/Debug/DPM2016.vbproj.CoreCompileInputs.cache
@@ -1 +1 @@
-d06727cede1092824497de98359cb3eb5649ab3c
+24e23a7e3c8b94ffb21973eeb136012e52e66f9c
diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt b/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt
index fc4f0f9..02b1e86 100644
--- a/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt
+++ b/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt
@@ -1,4 +1,3 @@
-E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.AssemblyReference.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.FrmSearchDialog.resources
@@ -121,3 +120,5 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\RichTextBoxExtended.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\RichTextBoxExtended.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmrtf.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetailPADM.resources
+E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.PatientDetailsFirma.resources
+E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.AssemblyReference.cache
diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache b/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache
index 69308e2..db9ef5c 100644
Binary files a/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache and b/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache differ
diff --git a/DPM2016/obj/Debug/DPM2018.application b/DPM2016/obj/Debug/DPM2018.application
index bf7cc26..542b764 100644
--- a/DPM2016/obj/Debug/DPM2018.application
+++ b/DPM2016/obj/Debug/DPM2018.application
@@ -14,7 +14,7 @@
- jNiObtzwirc4UxNzQUd5Rf0cdY+mOrTgte2fUskTaVQ=
+ r0kaGxKo2rhFYW7Vag61MLRCGPXDJD386zWm80PbXFE=
diff --git a/DPM2016/obj/Debug/DPM2018.exe b/DPM2016/obj/Debug/DPM2018.exe
index 7a105a2..1515ab4 100644
Binary files a/DPM2016/obj/Debug/DPM2018.exe and b/DPM2016/obj/Debug/DPM2018.exe differ
diff --git a/DPM2016/obj/Debug/DPM2018.exe.manifest b/DPM2016/obj/Debug/DPM2018.exe.manifest
index 4e59b43..c83df2f 100644
--- a/DPM2016/obj/Debug/DPM2018.exe.manifest
+++ b/DPM2016/obj/Debug/DPM2018.exe.manifest
@@ -163,14 +163,14 @@
-
+
- hf4/fM3BKkyZyBT7yqXbvQYUxkexRv5MImwhNGY+RKU=
+ 6vBRlnYo5xe5fPUM2tq5fe/HcuhPFqEUL4nZaINN0Oo=
diff --git a/DPM2016/obj/Debug/DPM2018.pdb b/DPM2016/obj/Debug/DPM2018.pdb
index 9ab248e..e4dc9a3 100644
Binary files a/DPM2016/obj/Debug/DPM2018.pdb and b/DPM2016/obj/Debug/DPM2018.pdb differ
diff --git a/DPM2016/obj/Debug/DPM2018.xml b/DPM2016/obj/Debug/DPM2018.xml
index b323e30..04eb80f 100644
--- a/DPM2016/obj/Debug/DPM2018.xml
+++ b/DPM2016/obj/Debug/DPM2018.xml
@@ -387,6 +387,39 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
+
+
+ Prüfung, ob Datenänderungen vorgenommen wurden.
+
+
+
+
+
+ Allg Eventhandler für Chanage-Ereignise festlegen
+
+
+
+
+
+
+ Envent-Handler für Change-Ereignisse
+
+
+
+
+
+
+
+ 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
+
+ Base-Contrlo (z.B. aktuelles Formular
+ Schlüssel welcher gesucht werden soll
+ Liste der gefundenen Objekte
+ True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+
+
+
Formularsecurity setzen
diff --git a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache
index c57c670..baeee6d 100644
Binary files a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/DPM2016/obj/Debug/dpm2018.exe.licenses b/DPM2016/obj/Debug/dpm2018.exe.licenses
index ee35276..e2c9dbe 100644
Binary files a/DPM2016/obj/Debug/dpm2018.exe.licenses and b/DPM2016/obj/Debug/dpm2018.exe.licenses differ