shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Version 20180904

Browse Source
This commit is contained in:
Stefan Hutter
2018-09-08 22:54:55 +02:00
parent 7c22a2e6d1
commit d74444b027
138 changed files with 1975 additions and 28474 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/DPM2016/v15/.suo
View File

Binary file not shown.

21
DPM2016.sln
View File

@@ -7,6 +7,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CryptoEditor", "CryptoEditor\CryptoEditor.vbproj", "{966835BD-32B9-468C-8A54-E5FB934FC910}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPMLizenzmanagement", "DPMLizenzmanagement\DPMLizenzmanagement\DPMLizenzmanagement.vbproj", "{D59BF43B-C82B-4D40-84B0-95A556371D99}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SHUKeyGen", "DPMLizenzmanagement\SHUKeyGen\SHUKeyGen.vbproj", "{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -21,8 +27,23 @@ Global
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.Build.0 = Release|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.Build.0 = Debug|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Release|Any CPU.ActiveCfg = Release|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Release|Any CPU.Build.0 = Release|Any CPU
{D59BF43B-C82B-4D40-84B0-95A556371D99}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{D59BF43B-C82B-4D40-84B0-95A556371D99}.Debug|Any CPU.Build.0 = Debug|Any CPU
{D59BF43B-C82B-4D40-84B0-95A556371D99}.Release|Any CPU.ActiveCfg = Release|Any CPU
{D59BF43B-C82B-4D40-84B0-95A556371D99}.Release|Any CPU.Build.0 = Release|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {17ABE7C4-0D04-4852-815A-611033DE73A3}
EndGlobalSection
EndGlobal

225
DPM2016/Behandlung/Behandlung.Designer.vb generated
View File

@@ -36,9 +36,16 @@ Partial Class Behandlung
Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
Me.RechungKVVorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungKVEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node2 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
@@ -51,36 +58,31 @@ Partial Class Behandlung
Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
Me.VorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
Me.RechungKVVorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungKVEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDruckerToolStripMenuItem = 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()
Me.ctxmenubehandlung.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.tsbtnbehandlungdelete.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
@@ -196,6 +198,37 @@ Partial Class Behandlung
Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6)
'
'SofortRechnungDruckenToolStripMenuItem
'
Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem})
Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
'
'VorschauToolStripMenuItem
'
Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VorschauToolStripMenuItem.Text = "Vorschau"
'
'EntwurfToolStripMenuItem
'
Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.EntwurfToolStripMenuItem.Text = "Entwurf"
'
'KopieErstellenToolStripMenuItem
'
Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem})
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
@@ -207,11 +240,22 @@ Partial Class Behandlung
Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen"
'
'KopieErstellenToolStripMenuItem
'ToolStripMenuItem5
'
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(208, 6)
'
'RechungKVVorschauToolStripMenuItem
'
Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem"
Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau"
'
'RechnungKVEntwurfToolStripMenuItem
'
Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem"
Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf"
'
'ImageList1
'
@@ -308,6 +352,32 @@ Partial Class Behandlung
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
Me.SuperTabControl1.Text = "Rechnungstext"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1065, 788)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.STLeistung
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Leistungen1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1065, 788)
Me.Panel1.TabIndex = 1
'
'STLeistung
'
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
Me.STLeistung.GlobalItem = False
Me.STLeistung.Name = "STLeistung"
Me.STLeistung.Text = "Leistungen"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
@@ -326,17 +396,6 @@ Partial Class Behandlung
Me.Panel2.Size = New System.Drawing.Size(1062, 788)
Me.Panel2.TabIndex = 9
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
Me.Behandungdetail1.TabIndex = 0
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
@@ -344,45 +403,6 @@ Partial Class Behandlung
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(988, 788)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.STLeistung
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Leistungen1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(988, 788)
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.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(988, 788)
Me.Leistungen1.TabIndex = 0
'
'STLeistung
'
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
Me.STLeistung.GlobalItem = False
Me.STLeistung.Name = "STLeistung"
Me.STLeistung.Text = "Leistungen"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -424,46 +444,41 @@ Partial Class Behandlung
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
'
'SofortRechnungDruckenToolStripMenuItem
'AlsPDFToolStripMenuItem
'
Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem})
Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem"
Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AlsPDFToolStripMenuItem.Text = "als PDF"
'
'ToolStripMenuItem4
'ÜberDruckerToolStripMenuItem
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6)
Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem"
Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker"
'
'VorschauToolStripMenuItem
'Behandungdetail1
'
Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.VorschauToolStripMenuItem.Text = "Vorschau"
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
Me.Behandungdetail1.TabIndex = 0
'
'EntwurfToolStripMenuItem
'Leistungen1
'
Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.EntwurfToolStripMenuItem.Text = "Entwurf"
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(208, 6)
'
'RechungKVVorschauToolStripMenuItem
'
Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem"
Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau"
'
'RechnungKVEntwurfToolStripMenuItem
'
Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem"
Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf"
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.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1065, 788)
Me.Leistungen1.TabIndex = 0
'
'Behandlung
'
@@ -481,10 +496,10 @@ Partial Class Behandlung
Me.ctxmenubehandlung.ResumeLayout(False)
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.tsbtnbehandlungdelete.ResumeLayout(False)
Me.tsbtnbehandlungdelete.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
@@ -539,4 +554,6 @@ Partial Class Behandlung
Friend WithEvents ToolStripMenuItem5 As ToolStripSeparator
Friend WithEvents RechungKVVorschauToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RechnungKVEntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AlsPDFToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ÜberDruckerToolStripMenuItem As ToolStripMenuItem
End Class

2
DPM2016/Behandlung/Behandlung.resx
View File

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

61
DPM2016/Behandlung/Behandlung.vb
View File

@@ -286,7 +286,11 @@ Public Class Behandlung
Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungsstatus = Behandungdetail1.Behandlungsstatus
Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text = "Dentotar"
Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
Try
Leistungen1.cbboxnrbehandler.SelectedValue = Behandungdetail1.cbboxnrbehandler.SelectedValue
Catch
End Try
enable_disable_tabs(True)
refresh_tabs()
Else
@@ -325,7 +329,9 @@ Public Class Behandlung
Me.Leistungen1.Frankenwert = Me.Behandungdetail1.mtxtTaxpunktwert.Text
Me.Leistungen1.behandler = Me.Behandungdetail1.cbboxnrbehandler.SelectedValue
Me.Leistungen1.Behandlungnr = Me.Behandungdetail1.Behandlungsnr
Me.Leistungen1.Dentotar = Me.Behandungdetail1.cbboxNrAbrechnungstyp.Text = "Dentotar"
Me.Leistungen1.Dentotar = Me.Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
Me.Leistungen1.dtdatum.Value = Me.Behandungdetail1.DDTBehandlungsbeginn.Value
Me.Leistungen1.txtErgänzung.Text = ""
Me.Leistungen1.refresh_leistungen()
End Sub
@@ -362,10 +368,6 @@ Public Class Behandlung
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next
r.Item("nrestyp") = pat.dsDaten.Tables(0).Rows(0).Item("estyp")
If Status = 4 Then
@@ -423,12 +425,15 @@ Public Class Behandlung
'If pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertrater") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter")
r.Item("behandlungsbeginn") = Now
r.Item("Behandlungsende") = Now
r.Item("status") = Status
r.Item("statusdatum") = Now
r.Item("erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
r.Item("nrgesetz") = 0
r.Item("nrbehandlungsart") = 0
db.dsDaten.Tables(0).Rows.Add(r)
@@ -598,7 +603,8 @@ Public Class Behandlung
End Select
Catch
Catch ex As Exception
MsgBox(ex.Message)
Me.ctxmenubehandlung.Enabled = False
End Try
@@ -703,7 +709,7 @@ Public Class Behandlung
Try
If pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall") > 0 Then
Dim Newdate As DateTime
Newdate = DateAdd(DateInterval.Day, pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall"), Now)
Newdate = DateAdd(DateInterval.Month, pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall"), Now)
evh.Fire_Recall_Anzeigen(Newdate, Me.PatientNr, 1)
End If
Catch ex As Exception
@@ -715,7 +721,7 @@ Public Class Behandlung
#Region "EVH"
Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
If Me.PatientNr = patientnr Then
If Me.PatientNr = patientnr and patientnr <> 0 Then
Dim tn As DevComponents.AdvTree.Node
tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
Try
@@ -739,6 +745,8 @@ Public Class Behandlung
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Leistungen1.Frankenwert = taxpunktwert
Leistungen1.Recalc_Leistungen()
End If
Catch ex As Exception
End Try
@@ -762,6 +770,8 @@ Public Class Behandlung
End Sub
Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString)
Exit Sub
Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0
DB.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
@@ -864,10 +874,41 @@ Public Class Behandlung
Me.treebehandlungen_Click(sender, e)
End Sub
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer) Handles evh.Refresh_Behandlung
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Handles evh.Refresh_Behandlung
If Me.PatientNr = patientnr Then
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnr, behandlungsnr)
Me.nodeselected()
End If
End Sub
Private Sub AlsPDFToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsPDFToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString, False, True)
End Sub
Private Sub ÜberDruckerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÜberDruckerToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString)
Exit Sub
End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Dim s As String
s = treebehandlungen.SelectedNode.Text
Dim i As Integer
i = s.IndexOf(" /")
If i > 0 Then
s = s.Substring(0, i)
s = s + " / " + Total.ToString("N2")
treebehandlungen.SelectedNode.Text = s
End If
End If
Catch ex As Exception
End Try
End Sub

48
DPM2016/Behandlung/Benhandungdetail.Designer.vb generated
View File

@@ -116,7 +116,9 @@ Partial Class Benhandungdetail
Me.lblGLNListe = New System.Windows.Forms.Label()
Me.txtGLN_Liste = New System.Windows.Forms.TextBox()
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.GrpPatient.SuspendLayout()
Me.grpZusammenfassugn.SuspendLayout()
@@ -360,7 +362,7 @@ Partial Class Benhandungdetail
Me.GrpGaramt.Controls.Add(Me.rbversicherung)
Me.GrpGaramt.Location = New System.Drawing.Point(312, 283)
Me.GrpGaramt.Name = "GrpGaramt"
Me.GrpGaramt.Size = New System.Drawing.Size(735, 261)
Me.GrpGaramt.Size = New System.Drawing.Size(394, 261)
Me.GrpGaramt.TabIndex = 14
Me.GrpGaramt.TabStop = False
Me.GrpGaramt.Text = "Garant"
@@ -385,6 +387,8 @@ Partial Class Benhandungdetail
'
'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(94, 136)
@@ -1203,6 +1207,7 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 22)
Me.ToolStripDropDownButton1.Text = "Drucken / Vorschau / Design"
Me.ToolStripDropDownButton1.Visible = False
'
'VorschaRechnungToolStripMenuItem
'
@@ -1236,9 +1241,9 @@ Partial Class Benhandungdetail
'
Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
Me.GrpRechnungstext.Controls.Add(Me.txtRechnungsbemerkung)
Me.GrpRechnungstext.Location = New System.Drawing.Point(617, 134)
Me.GrpRechnungstext.Location = New System.Drawing.Point(617, 169)
Me.GrpRechnungstext.Name = "GrpRechnungstext"
Me.GrpRechnungstext.Size = New System.Drawing.Size(433, 141)
Me.GrpRechnungstext.Size = New System.Drawing.Size(430, 108)
Me.GrpRechnungstext.TabIndex = 16
Me.GrpRechnungstext.TabStop = False
Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
@@ -1258,10 +1263,10 @@ Partial Class Benhandungdetail
'txtRechnungsbemerkung
'
Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Bottom
Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(3, 47)
Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(3, 44)
Me.txtRechnungsbemerkung.Multiline = True
Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung"
Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(427, 91)
Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(424, 61)
Me.txtRechnungsbemerkung.TabIndex = 1
'
'lblDiagnose
@@ -1298,7 +1303,9 @@ Partial Class Benhandungdetail
'
'grpglndiagnose
'
Me.grpglndiagnose.Controls.Add(Me.lblBehandlungsart)
Me.grpglndiagnose.Controls.Add(Me.txtBehandlungsgrund)
Me.grpglndiagnose.Controls.Add(Me.cbboxNrBehandlungsart)
Me.grpglndiagnose.Controls.Add(Me.lblBehandlungsgrund)
Me.grpglndiagnose.Controls.Add(Me.txtGLN_Liste)
Me.grpglndiagnose.Controls.Add(Me.lblGLNListe)
@@ -1306,22 +1313,45 @@ Partial Class Benhandungdetail
Me.grpglndiagnose.Controls.Add(Me.lblDiagnose)
Me.grpglndiagnose.Location = New System.Drawing.Point(617, 31)
Me.grpglndiagnose.Name = "grpglndiagnose"
Me.grpglndiagnose.Size = New System.Drawing.Size(430, 102)
Me.grpglndiagnose.Size = New System.Drawing.Size(430, 132)
Me.grpglndiagnose.TabIndex = 222
Me.grpglndiagnose.TabStop = False
Me.grpglndiagnose.Text = "GLN / Diagnose"
'
'lblBehandlungsart
'
Me.lblBehandlungsart.AutoSize = True
Me.lblBehandlungsart.Location = New System.Drawing.Point(9, 80)
Me.lblBehandlungsart.Name = "lblBehandlungsart"
Me.lblBehandlungsart.Size = New System.Drawing.Size(81, 13)
Me.lblBehandlungsart.TabIndex = 226
Me.lblBehandlungsart.Text = "Behandlungsart"
'
'txtBehandlungsgrund
'
Me.txtBehandlungsgrund.Location = New System.Drawing.Point(95, 76)
Me.txtBehandlungsgrund.Location = New System.Drawing.Point(95, 105)
Me.txtBehandlungsgrund.Name = "txtBehandlungsgrund"
Me.txtBehandlungsgrund.Size = New System.Drawing.Size(329, 20)
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(95, 77)
Me.cbboxNrBehandlungsart.Name = "cbboxNrBehandlungsart"
Me.cbboxNrBehandlungsart.Size = New System.Drawing.Size(151, 21)
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(9, 79)
Me.lblBehandlungsgrund.Location = New System.Drawing.Point(9, 108)
Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund"
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(61, 13)
Me.lblBehandlungsgrund.TabIndex = 223
@@ -1469,4 +1499,6 @@ Partial Class Benhandungdetail
Friend WithEvents lblBehandlungsgrund As Label
Friend WithEvents Button1 As Button
Friend WithEvents tsbtnGarantAnzeigen As ToolStripButton
Friend WithEvents lblBehandlungsart As Label
Friend WithEvents cbboxNrBehandlungsart As MyCombobox
End Class

185
DPM2016/Behandlung/Benhandungdetail.vb
View File

@@ -4,7 +4,7 @@
Dim FormReadonly As Boolean = False
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Dim m_behandlungsnr As Integer
Dim OnGetData As Boolean = False
Dim OnGetData As Boolean = True
Dim OnLoad As Boolean = False
Property Behandlungsnr As Integer
Get
@@ -15,9 +15,11 @@
If value <> 0 Then
Me.OnLoad = True
Get_Stammdaten()
Globals.OnLoad = True
OnGetData = True
Get_Data()
OnGetData = False
Globals.OnLoad = False
Recalc_Totale()
Me.OnLoad = False
End If
@@ -224,7 +226,7 @@
Get_Data_Controls(Me, r)
Update_cbboxnrtaxpunkt()
Try
If r("nrgarant") > 0 Then
Get_Garantdata(r("nrgarant"))
@@ -475,6 +477,12 @@
Me.cbboxNrGesetz.Displaymember = "Gesetz"
Me.cbboxNrGesetz.Valuemember = "nrgesetz"
Me.cbboxNrBehandlungsart.Dataselection = "Select * from Behandlungsart"
Me.cbboxNrBehandlungsart.TableAlias = "Behandlungsart"
Me.cbboxNrBehandlungsart.Table = "Behandlungsart"
Me.cbboxNrBehandlungsart.Displaymember = "Behandlungsart"
Me.cbboxNrBehandlungsart.Valuemember = "NrBehandlungsart"
Me.cbboxNRESTyp.Dataselection = "Select * FROM ESTYP WHERE AKTIV=1"
Me.cbboxNRESTyp.TableAlias = "ESTYP_BH"
Me.cbboxNRESTyp.Table = "ESTyp"
@@ -598,7 +606,7 @@
If Globals.OnLoad = True Then Exit Sub
Save_Data()
evh.Fire_Behandlung_Changed(Me.Behandlungsnr, Me.Patientnr)
' evh.Fire_Behandlung_Changed(Me.Behandlungsnr, Me.Patientnr)
End If
End Sub
@@ -648,6 +656,11 @@
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedValueChanged
If OnGetData Then Exit Sub
Update_cbboxnrtaxpunkt()
End Sub
Private Sub Update_cbboxnrtaxpunkt()
Try
For Each r As DataRow In IntTables.Inttables.Tables("abrtyp_bh").Rows
If r("Nrabrechnungstyp") = Me.cbboxNrAbrechnungstyp.SelectedValue Then
@@ -658,6 +671,7 @@
End If
Next
Catch ex As Exception
' MsgBox(ex.Message)
End Try
End Sub
@@ -898,7 +912,7 @@
doloop = False
End If
End While
evh.Refresh_Behandlungen(Me.Behandlungsnr)
evh.Refresh_Behandlungen(Me.Behandlungsnr, Me.Patientnr)
End If
@@ -939,41 +953,48 @@
Public Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click
Me.Save_Data()
Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Check_Changes()
Dim reportnr As Integer
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(True, False, i)
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
Globals.Rg_Funktionen.Vorschau_Rechnung(Me.Behandlungsnr.ToString)
End Sub
'Public Sub Vorschau_Rechnung(ByVal NrBehandlung As String)
' Dim anzahlraten As Integer = 0
' 'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
' db.Get_Tabledata("Behandlu", "where nrbehandlung=" + NrBehandlung)
' anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
' If anzahlraten = 0 Then anzahlraten = 1
' Check_Changes()
' Dim reportnr As Integer
' reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
' Dim Folgeauswertung As Integer
' Dim Separater_Druckjob As Boolean
' Dim doloop As Boolean = True
' db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
' Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
' Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
' While doloop = True
' For i As Integer = 1 To anzahlraten
' ' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + NrBehandlung, NrBehandlung)
' f.Show()
' f.Print_Rechnung(True, False, i)
' Next i
' If Folgeauswertung > 0 Then
' reportnr = Folgeauswertung
' db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
' Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
' Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
' Else
' doloop = False
' End If
' End While
'End Sub
Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged
Dim db1 As New clsDB
Try
@@ -1055,9 +1076,76 @@
End Sub
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedIndexChanged
If OnLoad Then Exit Sub
Try
Dim db As New clsDB
db.Get_Tabledata("MitDatum", "","Select Mit_Datum from abrtyp where Nrabrechnungstyp=" + Me.cbboxNrAbrechnungstyp.SelectedValue,)
Me.chkMitdatum.Checked = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Finally
db.Dispose()
End Try
End Sub
Dim enumtaxpunkt As Globals.Taxpunkttyp
Private Function Leistungen_Aktualisieren()
Dim dbx As New clsDB
Dim dby As New clsDB
Dim dentotar As Boolean = cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
Dim sortstring As String = ""
'dbx.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
dbx.Get_Tabledata_for_Update("Select * from leistung where Nrbehandlung=" + Me.Behandlungsnr.ToString, False, True)
enumtaxpunkt = Me.cbboxNrtaxpunkt.SelectedValue
For Each r As DataRow In dbx.daten.Tables(0).Rows
If dentotar Then
Dim wherestring As String = "Leistungnrneu='" + r("SSO_Nummer") + "'"
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
If db.Count > 0 Then
For Each drv As DataRowView In db
If r.Item("Absolut") = 0 Then
Select Case enumtaxpunkt
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("pp_max")
r.Item("Mutiert_am") = Now
r.Item("Mutierer") = Globals.ActUser
r.Item("Frankenprotaxpunkt") = Me.mtxtTaxpunktwert.Text
r.Item("total") = Globals.SwissCommercialRound(r.Item("taxpunkte") * r.Item("Frankenprotaxpunkt") * r.Item("Menge"))
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("pp_min")
r.Item("Mutiert_am") = Now
r.Item("Mutierer") = Globals.ActUser
r.Item("Frankenprotaxpunkt") = Me.mtxtTaxpunktwert.Text
r.Item("total") = Globals.SwissCommercialRound(r.Item("taxpunkte") * r.Item("Frankenprotaxpunkt") * r.Item("Menge"))
Case Taxpunkttyp.Privat
r.Item("taxpunkte") = drv.Item("pp_privat")
r.Item("Mutiert_am") = Now
r.Item("Mutierer") = Globals.ActUser
r.Item("Frankenprotaxpunkt") = Me.mtxtTaxpunktwert.Text
r.Item("total") = Globals.SwissCommercialRound(r.Item("taxpunkte") * r.Item("Frankenprotaxpunkt") * r.Item("Menge"))
Case Taxpunkttyp.Suva
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
r.Item("Mutiert_am") = Now
r.Item("Mutierer") = Globals.ActUser
r.Item("Frankenprotaxpunkt") = Me.mtxtTaxpunktwert.Text
r.Item("total") = Globals.SwissCommercialRound(r.Item("taxpunkte") * r.Item("Frankenprotaxpunkt") * r.Item("Menge"))
Case Taxpunkttyp.Dentotar
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
r.Item("Mutiert_am") = Now
r.Item("Mutierer") = Globals.ActUser
r.Item("Frankenprotaxpunkt") = Me.mtxtTaxpunktwert.Text
r.Item("total") = Globals.SwissCommercialRound(r.Item("taxpunkte") * r.Item("Frankenprotaxpunkt") * r.Item("Menge"))
End Select
End If
Next
End If
End If
Next
dbx.Update_Tabeldata()
End Function
Private Sub cbboxNRESTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRESTyp.SelectedIndexChanged
Try
For Each r As DataRow In IntTables.Inttables.Tables("estyp").Rows
@@ -1107,8 +1195,33 @@
Button1_Click(sender, e)
End Sub
Private Sub lblBehandlungsgrund_Click(sender As Object, e As EventArgs) Handles lblBehandlungsgrund.Click
End Sub
Private Sub txtBehandlungsgrund_TextChanged(sender As Object, e As EventArgs) Handles txtBehandlungsgrund.TextChanged
End Sub
Private Sub DDTBehandlungsbeginn_Click(sender As Object, e As EventArgs) Handles DDTBehandlungsbeginn.Click
End Sub
Private Sub DDTBehandlungsbeginn_Leave(sender As Object, e As EventArgs) Handles DDTBehandlungsbeginn.Leave
Me.DDTBehandlungsende.Value = Me.DDTBehandlungsbeginn.Value
End Sub
Private Sub cbboxNrtaxpunkt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrtaxpunkt.SelectedIndexChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub
If Globals.OnLoad Then Exit Sub
If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
If MsgBox("Die Taxpunkte wurden geändert. Sollen die Leitungen neu berechnet werden?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Leistungen_Aktualisieren()
End If
End Sub

2
DPM2016/Behandlung/Leistungen.Designer.vb generated
View File

@@ -158,7 +158,6 @@ Partial Class Leistungen
'
Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbtarif1.CheckStateMember = Nothing
Me.lbtarif1.ContainerControlProcessDialogKey = True
Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -289,7 +288,6 @@ Partial Class Leistungen
'
Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbPakete.CheckStateMember = Nothing
Me.lbPakete.ContainerControlProcessDialogKey = True
Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbPakete.DragDropSupport = True

2
DPM2016/Behandlung/Leistungen.resx
View File

@@ -197,6 +197,6 @@
</value>
</data>
<data name="C1Leistungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1071, 137&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 137&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1071, 137&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 137&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

26
DPM2016/Behandlung/Leistungen.vb
View File

@@ -50,7 +50,6 @@ Public Class Leistungen
End Property
Enum Taxpunkttyp
Privat = 1
Suva = 2
@@ -58,6 +57,7 @@ Public Class Leistungen
Maximal = 4
Dentotar = 5
End Enum
Dim m_taxpunkte As Taxpunkttyp
Property TaxPunkte As Taxpunkttyp
Get
@@ -100,8 +100,8 @@ Public Class Leistungen
Me.TreeTarifGruppen.Nodes.Clear()
If Dentotar = True Then
For Each r As DataRow In IntTables.Inttables.Tables("Tarife").Rows
Select Case Trim(r("Bezeichnung"))
Case "UV_MV_IV"
Select Case True
Case Trim(r("Bezeichnung")).Contains("UV_MV_IV") Or Trim(r("Bezeichnung")).Contains("Dentotar")
Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("Bezeichnung")
Me.TreeTarifGruppen.Nodes.Add(tn)
@@ -116,8 +116,9 @@ Public Class Leistungen
tn.Nodes.Add(tn1)
Next
Case "SSO-Tarif 01.04.1994"
Case Trim(r("Bezeichnung")).Contains("SSO")
Case Else
If UCase(r("bezeichnung")).ToString.IndexOf("DH") < 0 And UCase(r("bezeichnung")).ToString.IndexOf("9000") < 0 Then
Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("bezeichnung")
tn.DataKey = r("nummervon")
@@ -133,7 +134,7 @@ Public Class Leistungen
tn.Nodes.Add(tn1)
End If
Next
End If
End Select
Next
@@ -155,7 +156,7 @@ Public Class Leistungen
End If
For Each r As DataRow In IntTables.Inttables.Tables("Tarife").Rows
If r("Bezeichnung") <> "Dentotar" Then
If r("Bezeichnung").ToString.IndexOf("Dentotar") < 0 And r("Bezeichnung").ToString.IndexOf("UV_MV_IV") < 0 Then
Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("bezeichnung")
tn.DataKey = r("nummervon")
@@ -500,7 +501,7 @@ Public Class Leistungen
End Select
End If
Me.DIMenge.Text = 1
Me.diwert.Text = 1
Me.diwert.Text = Me.Frankenwert
Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub
@@ -932,7 +933,8 @@ Public Class Leistungen
If Me.grpLeistungsdetails.Enabled = False Then f.IsReadonly = True Else f.IsReadonly = False
f.ShowDialog()
Me.refresh_leistungen()
Catch
Catch ex As Exception
' MsgBox(ex.Message)
End Try
End Sub
@@ -1034,4 +1036,12 @@ Public Class Leistungen
ldb.Update_Data()
'ldb.Update_Tabeldata()
End Sub
Private Sub txtTotal_TextChanged(sender As Object, e As EventArgs) Handles txtTotal.TextChanged
Try
Me.txtTotal.Text = Globals.SwissCommercialRound(txtTotal.Text).ToString("N2")
Catch
End Try
End Sub
End Class

14
DPM2016/Behandlung/frmLeistungDetail.Designer.vb generated
View File

@@ -53,7 +53,7 @@ Partial Class frmLeistungDetail
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(272, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(388, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
@@ -79,7 +79,7 @@ Partial Class frmLeistungDetail
Me.grpLeistungsdetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.grpLeistungsdetails.Location = New System.Drawing.Point(0, 25)
Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
Me.grpLeistungsdetails.Size = New System.Drawing.Size(272, 324)
Me.grpLeistungsdetails.Size = New System.Drawing.Size(388, 324)
Me.grpLeistungsdetails.TabIndex = 3
Me.grpLeistungsdetails.TabStop = False
Me.grpLeistungsdetails.Text = "Leistungsdetails"
@@ -116,7 +116,7 @@ Partial Class frmLeistungDetail
Me.txtBezD.Location = New System.Drawing.Point(80, 52)
Me.txtBezD.Multiline = True
Me.txtBezD.Name = "txtBezD"
Me.txtBezD.Size = New System.Drawing.Size(177, 45)
Me.txtBezD.Size = New System.Drawing.Size(281, 45)
Me.txtBezD.TabIndex = 1
'
'cbboxnrbehandler
@@ -125,7 +125,7 @@ Partial Class frmLeistungDetail
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(80, 129)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 21)
Me.cbboxnrbehandler.Size = New System.Drawing.Size(281, 21)
Me.cbboxnrbehandler.TabIndex = 3
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
@@ -142,7 +142,7 @@ Partial Class frmLeistungDetail
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(9, 244)
Me.btnSave.Location = New System.Drawing.Point(137, 254)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(120, 23)
Me.btnSave.TabIndex = 8
@@ -291,7 +291,7 @@ Partial Class frmLeistungDetail
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.TodayButtonVisible = True
Me.dtdatum.Name = "dtdatum"
Me.dtdatum.Size = New System.Drawing.Size(177, 20)
Me.dtdatum.Size = New System.Drawing.Size(281, 20)
Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 2
'
@@ -299,7 +299,7 @@ Partial Class frmLeistungDetail
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(272, 349)
Me.ClientSize = New System.Drawing.Size(388, 349)
Me.Controls.Add(Me.grpLeistungsdetails)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

12
DPM2016/Behandlung/frmLeistungDetail.vb
View File

@@ -86,4 +86,16 @@
Sub delete_date(sender)
sender.value = Nothing
End Sub
Private Sub txtTotal_Click(sender As Object, e As EventArgs) Handles txtTotal.Click
End Sub
Private Sub txtTotal_TextChanged(sender As Object, e As EventArgs) Handles txtTotal.TextChanged
Try
Me.txtTotal.Text = Globals.SwissCommercialRound(txtTotal.Text).ToString("N2")
Catch
End Try
End Sub
End Class

130
DPM2016/DPM2016.vbproj
View File

@@ -11,8 +11,10 @@
<AssemblyName>DPM2018</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl>
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<TargetFrameworkProfile />
<PublishUrl>E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
@@ -22,12 +24,11 @@
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -69,6 +70,18 @@
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>075701EF85E86E39DDBE3FE06E332A57792E8A98</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>DPM2016_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<ItemGroup>
<Reference Include="Aga.Controls">
<HintPath>..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll</HintPath>
@@ -86,6 +99,7 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar2.dll</HintPath>
</Reference>
<Reference Include="DevComponents.TreeGX, Version=12.7.0.8, Culture=neutral, PublicKeyToken=055db68f670cfeab, processorArchitecture=MSIL" />
<Reference Include="EnvDTE, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
@@ -105,20 +119,60 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
</Reference>
<Reference Include="MySql.Data, Version=6.7.4.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll</HintPath>
</Reference>
<Reference Include="MySql.Data.Entity, Version=6.7.4.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.Entity.dll</HintPath>
</Reference>
<Reference Include="PropertyGridEx">
<HintPath>..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Compression.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.DocIO.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.DocToPDFConverter.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Pdf.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="SHUKeyGen, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Compression.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.DocIO.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.DocToPDFConverter.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Grid.Base, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Grid.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Pdf.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Schedule.Base, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Schedule.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Shared.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Tools.Windows, Version=16.2460.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.IO.Compression.FileSystem" />
<Reference Include="System.Runtime.Remoting" />
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Web" />
@@ -131,8 +185,9 @@
<Reference Include="UIAutomationProvider" />
<Reference Include="UIAutomationTypes" />
<Reference Include="WindowsBase" />
<Reference Include="_FRReporting">
<HintPath>..\_FRReporting\bin\Debug\_FRReporting.dll</HintPath>
<Reference Include="XLSLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\TKBDiverse\BEA\BEA\bin\Debug\XLSLib.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
@@ -172,6 +227,13 @@
<Compile Include="Behandlung\Benhandungdetail.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Behandlung\clsFakturaFunktionen.vb" />
<Compile Include="Behandlung\Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
</Compile>
<Compile Include="Behandlung\Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Behandlung\frmLeistungDetail.Designer.vb">
<DependentUpon>frmLeistungDetail.vb</DependentUpon>
</Compile>
@@ -185,6 +247,7 @@
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Database\clsDB.vb" />
<Compile Include="Database\clsMySQLDB.vb" />
<Compile Include="Database\frmPrivatSelect.Designer.vb">
<DependentUpon>frmPrivatSelect.vb</DependentUpon>
</Compile>
@@ -192,6 +255,12 @@
<SubType>Form</SubType>
</Compile>
<Compile Include="Database\IntTables.vb" />
<Compile Include="Diverses\frmDemoMode.Designer.vb">
<DependentUpon>frmDemoMode.vb</DependentUpon>
</Compile>
<Compile Include="Diverses\frmDemoMode.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Diverses\frmprogress.Designer.vb">
<DependentUpon>frmprogress.vb</DependentUpon>
</Compile>
@@ -212,6 +281,12 @@
<Compile Include="Fakturierung\frmOffeneBehandlungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Fakturierung\frmRechnungskopien.Designer.vb">
<DependentUpon>frmRechnungskopien.vb</DependentUpon>
</Compile>
<Compile Include="Fakturierung\frmRechnungskopien.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Finanzaen\Finanzen.Designer.vb">
<DependentUpon>Finanzen.vb</DependentUpon>
</Compile>
@@ -236,6 +311,12 @@
<Compile Include="Firmen\frmFirmaAP.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAgenda.Designer.vb">
<DependentUpon>frmAgenda.vb</DependentUpon>
</Compile>
<Compile Include="frmAgenda.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
@@ -350,6 +431,12 @@
</Compile>
<Compile Include="Utils\clsLog.vb" />
<Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\frmcalendar.Designer.vb">
<DependentUpon>frmcalendar.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmcalendar.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmDBConnection.Designer.vb">
<DependentUpon>frmDBConnection.vb</DependentUpon>
</Compile>
@@ -405,6 +492,8 @@
<Compile Include="Utils\SplashForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Zahlung\camt_054_001_04.vb" />
<Compile Include="Zahlung\clscamt054.vb" />
<Compile Include="Zahlung\frmZahlung.Designer.vb">
<DependentUpon>frmZahlung.vb</DependentUpon>
</Compile>
@@ -415,6 +504,7 @@
<ItemGroup>
<EmbeddedResource Include="Auswertungen\FremAuswertung.resx">
<DependentUpon>FremAuswertung.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Auswertungen\frmreport.resx">
<DependentUpon>frmreport.vb</DependentUpon>
@@ -425,6 +515,9 @@
<EmbeddedResource Include="Behandlung\Benhandungdetail.resx">
<DependentUpon>Benhandungdetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\frmLeistungDetail.resx">
<DependentUpon>frmLeistungDetail.vb</DependentUpon>
</EmbeddedResource>
@@ -434,6 +527,9 @@
<EmbeddedResource Include="Database\frmPrivatSelect.resx">
<DependentUpon>frmPrivatSelect.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Diverses\frmDemoMode.resx">
<DependentUpon>frmDemoMode.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Diverses\frmprogress.resx">
<DependentUpon>frmprogress.vb</DependentUpon>
</EmbeddedResource>
@@ -443,6 +539,9 @@
<EmbeddedResource Include="Fakturierung\frmOffeneBehandlungen.resx">
<DependentUpon>frmOffeneBehandlungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\frmRechnungskopien.resx">
<DependentUpon>frmRechnungskopien.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Finanzaen\Finanzen.resx">
<DependentUpon>Finanzen.vb</DependentUpon>
</EmbeddedResource>
@@ -455,6 +554,9 @@
<EmbeddedResource Include="Firmen\frmFirmaAP.resx">
<DependentUpon>frmFirmaAP.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAgenda.resx">
<DependentUpon>frmAgenda.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
@@ -505,6 +607,9 @@
<EmbeddedResource Include="Sysadmin\frmTarifDetail.resx">
<DependentUpon>frmTarifDetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmcalendar.resx">
<DependentUpon>frmcalendar.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmDBConnection.resx">
<DependentUpon>frmDBConnection.vb</DependentUpon>
</EmbeddedResource>
@@ -540,6 +645,7 @@
<None Include="app.config">
<SubType>Designer</SubType>
</None>
<None Include="DPM2016_TemporaryKey.pfx" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>

5
DPM2016/DPM2016.vbproj.user
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory />
<PublishUrlHistory>E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\|publish\</PublishUrlHistory>
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
@@ -10,4 +10,7 @@
<FallbackCulture>de-DE</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
<PropertyGroup>
<EnableSecurityDebugging>false</EnableSecurityDebugging>
</PropertyGroup>
</Project>

4
DPM2016/Database/IntTables.vb
View File

@@ -23,6 +23,7 @@
End Function
Public Function Get_Ort_Kantton(ByRef plz As String, ByRef ort As TextBox, ByRef kanton As ComboBox)
Try
Dim db As New clsDB
db.Get_Tabledata("Ortsverzeichnis", "where plz=" + plz.ToString, "", "", False)
Ortsverzeichnis = db.dsDaten.Tables(0).Copy
@@ -31,6 +32,9 @@
kanton.Text = Ortsverzeichnis.Rows(0).Item("KT")
End If
Catch
End Try
End Function
End Module

81
DPM2016/Database/clsDB.vb
View File

@@ -1,9 +1,14 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
#Const dbtype = "SQL"
#If dbtype = "MySQL" Then
Public Class clsMySQLDB
#Else
Public Class clsDB
#End If
#Region "Deklarationen"
Dim m_connectionstring As String
@@ -16,6 +21,16 @@ Public Class clsDB
End Set
End Property
Dim m_sqltype As String
Property Sqltype As String
Get
Return m_sqltype
End Get
Set(value As String)
m_sqltype = value
End Set
End Property
Sub New()
Me.Connectionstring = My.Settings.ConnectionString
End Sub
@@ -36,10 +51,16 @@ Public Class clsDB
Public Function Get_Option(ByVal nr As Integer) As String
Try
Dim dad As New SqlDataAdapter
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
Dim data As New DataTable
dad = New SqlDataAdapter(sql, Me.Connectionstring)
dad.Fill(data)
Dim s As String
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
@@ -58,8 +79,10 @@ Public Class clsDB
dsDaten.Tables.Clear()
If sql <> "" Then
sql = sql.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
End If
Dim dt As New DataTable
dadaten.Fill(dt)
@@ -262,6 +285,35 @@ Public Class clsDB
End Function
Public Function Insert_New_Entry_autokey(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
Dim dbkey As Integer = 0
If getdbkey Then
dsDaten.Tables.Clear()
Get_Tabledata("firmaap", "", sqlstring, "", False)
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
End If
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
sqlcmd.CommandText = "Insert into " + Table + " (aktiv,erstellt_am,mutiert_am,mutierer) values(1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
dsDaten.Tables.Clear()
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
Return dsDaten.Tables(0)
End Function
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
@@ -637,6 +689,7 @@ Public Class clsDB
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
@@ -647,10 +700,36 @@ Public Class clsDB
End Sub
Public Sub Mahnung_Buchen(ByVal nrfaktura As Integer, ByVal Stufe As Integer, ByVal daten As DataTable)
Dim db As New clsDB
Dim mahndatum As Date
Dim faelligkeit As Date
Dim mahngebuehr As Double
mahndatum = daten.Rows(0).Item("Mahndatum")
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
Select Case Stufe
Case 1
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1='" + mahndatum + "', mahnfaelligkeit1='" + faelligkeit + "', mahngebuehr1='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 2
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2='" + mahndatum + "', mahnfaelligkeit2='" + faelligkeit + "', mahngebuehr2='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 3
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3='" + mahndatum + "', mahnfaelligkeit3='" + faelligkeit + "',mahngebuehr3='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
End Select
End Sub
#End Region
#Region "Documenthandling"
Public Function Save_CAMT_File_RUN(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_run where nreintrag=" + Key.ToString, Filename, "SourceFIle")
End Function
Public Function Save_CAMT_File(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_file where nreintrag=" + Key.ToString, Filename, "camt_file")
End Function
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Save_File("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function

11
DPM2016/EventHandler/Generic_Event_Handler.vb
View File

@@ -13,7 +13,8 @@ Public Class Generic_Event_Handler
Public Event Behandlung_Zurücksetzen(ByVal behandlungsnummer As Integer, patient As Integer)
Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer)
Public Event Refresh_PrinterConfig()
Public Event Refresh_Behandlung(behandlungsnr As Integer)
Public Event Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer)
Public Event Insert_Protokoll_entry(Entry As String)
Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer)
RaiseEvent PatName_Changed(name, nr)
@@ -62,8 +63,12 @@ Public Class Generic_Event_Handler
RaiseEvent Refresh_PrinterConfig()
End Function
Public Function Refresh_Behandlungen(ByVal Behandlungsnr As Integer)
RaiseEvent Refresh_Behandlung(Behandlungsnr)
Public Function Refresh_Behandlungen(ByVal Behandlungsnr As Integer, ByVal Patientnr As Integer)
RaiseEvent Refresh_Behandlung(Behandlungsnr, Patientnr)
End Function
Public Function Fire_Insert_Entry(ByVal Entry As String)
RaiseEvent Insert_Protokoll_entry(Entry)
End Function
End Class

85
DPM2016/Fakturierung/frmFakturierung.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmFakturierung
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFakturierung))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -30,6 +31,7 @@ Partial Class frmFakturierung
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
@@ -41,17 +43,25 @@ Partial Class frmFakturierung
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuAusschliessen = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripAbschlussVorschau = New System.Windows.Forms.ToolStripMenuItem()
Me.GrpAusgeschlosseneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Ausgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.toolstripmenuAusschlussaufheben = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolstripAusschlussVorschau = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.grpOffeneRechnungen.SuspendLayout()
CType(Me.C1Abgeschlossen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip2.SuspendLayout()
Me.GrpAusgeschlosseneRechnungen.SuspendLayout()
CType(Me.C1Ausgeschlossen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
@@ -80,7 +90,7 @@ Partial Class frmFakturierung
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripButton6})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.ToolStripButton6, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripButton7})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(773, 25)
@@ -115,6 +125,15 @@ Partial Class frmFakturierung
Me.ToolStripButton5.Size = New System.Drawing.Size(134, 22)
Me.ToolStripButton5.Text = "Fakturierung ausführen"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
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(52, 22)
Me.ToolStripButton6.Text = "Drucker"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -216,14 +235,15 @@ Partial Class frmFakturierung
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
'
'ToolStripButton6
'ToolStripButton7
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
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(52, 22)
Me.ToolStripButton6.Text = "Drucker"
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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.Text = "ToolStripButton7"
Me.ToolStripButton7.Visible = False
'
'grpOffeneRechnungen
'
@@ -239,6 +259,7 @@ Partial Class frmFakturierung
'C1Abgeschlossen
'
Me.C1Abgeschlossen.AlternatingRows = True
Me.C1Abgeschlossen.ContextMenuStrip = Me.ContextMenuStrip2
Me.C1Abgeschlossen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Abgeschlossen.FilterBar = True
Me.C1Abgeschlossen.GroupByCaption = "Drag a column header here to group by that column"
@@ -254,6 +275,24 @@ Partial Class frmFakturierung
Me.C1Abgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Abgeschlossen.PropBag = resources.GetString("C1Abgeschlossen.PropBag")
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuAusschliessen, Me.ToolStripAbschlussVorschau})
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(148, 48)
'
'ToolStripMenuAusschliessen
'
Me.ToolStripMenuAusschliessen.Name = "ToolStripMenuAusschliessen"
Me.ToolStripMenuAusschliessen.Size = New System.Drawing.Size(147, 22)
Me.ToolStripMenuAusschliessen.Text = "Ausschliessen"
'
'ToolStripAbschlussVorschau
'
Me.ToolStripAbschlussVorschau.Name = "ToolStripAbschlussVorschau"
Me.ToolStripAbschlussVorschau.Size = New System.Drawing.Size(147, 22)
Me.ToolStripAbschlussVorschau.Text = "Vorschau"
'
'GrpAusgeschlosseneRechnungen
'
Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.C1Ausgeschlossen)
@@ -268,6 +307,7 @@ Partial Class frmFakturierung
'C1Ausgeschlossen
'
Me.C1Ausgeschlossen.AlternatingRows = True
Me.C1Ausgeschlossen.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Ausgeschlossen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Ausgeschlossen.FilterBar = True
Me.C1Ausgeschlossen.GroupByCaption = "Drag a column header here to group by that column"
@@ -283,6 +323,24 @@ Partial Class frmFakturierung
Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Ausgeschlossen.PropBag = resources.GetString("C1Ausgeschlossen.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolstripmenuAusschlussaufheben, Me.ToolstripAusschlussVorschau})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(186, 48)
'
'toolstripmenuAusschlussaufheben
'
Me.toolstripmenuAusschlussaufheben.Name = "toolstripmenuAusschlussaufheben"
Me.toolstripmenuAusschlussaufheben.Size = New System.Drawing.Size(185, 22)
Me.toolstripmenuAusschlussaufheben.Text = "Ausschluss aufheben"
'
'ToolstripAusschlussVorschau
'
Me.ToolstripAusschlussVorschau.Name = "ToolstripAusschlussVorschau"
Me.ToolstripAusschlussVorschau.Size = New System.Drawing.Size(185, 22)
Me.ToolstripAusschlussVorschau.Text = "Vorschau"
'
'frmFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -301,8 +359,10 @@ Partial Class frmFakturierung
Me.ToolStrip1.PerformLayout()
Me.grpOffeneRechnungen.ResumeLayout(False)
CType(Me.C1Abgeschlossen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip2.ResumeLayout(False)
Me.GrpAusgeschlosseneRechnungen.ResumeLayout(False)
CType(Me.C1Ausgeschlossen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -331,4 +391,11 @@ Partial Class frmFakturierung
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents toolstripmenuAusschlussaufheben As ToolStripMenuItem
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents ToolStripMenuAusschliessen As ToolStripMenuItem
Friend WithEvents ToolStripAbschlussVorschau As ToolStripMenuItem
Friend WithEvents ToolstripAusschlussVorschau As ToolStripMenuItem
End Class

89
DPM2016/Fakturierung/frmFakturierung.resx
View File

@@ -191,6 +191,21 @@
UsCASAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIAQMiBQyIFDAgUsCASAEDIgUMiBQwIFLAgEgBAyIF
DIgUMCBSwIBIAQMiBQyIFDAgUsCASAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIAQMiBQyIFDAgUsCA
SAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIWw3Dbzt1IR+N7cFFAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -258,37 +273,37 @@
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6dtTu71q14knAILnV0W7dL
UTHFcimIUm5ERfCgcgYSwh0MBAIEcnBIgAAJATnDTWhZmpZyKvclrrLdtquO3d1x/3G709p+98lrzAyG
adVO/avfmc88T95n5n0/z/P7ve9kzU95XuHIPjbtHfu7e9vgtd/oLz2/WAeqwhixnffnlv+F2MIPl7hc
7s/0Sw+TXPE3Glt+XWvL7PhqU3jHV/6CCW1cxQJNv/zMsfFueNnKV6V2Y3eid/4LzNz9Em+G1sDao2Ll
KbAqFrSDM7dQ3z2Gy11j0E7+A4nyea1++ZliGVDLsApQfsYpH4F2+R7+svwfwj1Y+5QaC9BOVX0tVfRC
UtVJUdWshe6afvmpwmBof77dX8mzCWt6IO9bQufcbXTM3kI72aButPIqIgI5KwVsQnqQW6o2IKt7D1bH
G6FffuJY+1XRt/tXD53I7EXD8A3Uj9w0cFk/Wh4TYf3jAjtOtSFD2mCgSNENS3/VUwlY+an8rP1q76VX
D0OpXUTVBwuERVQTdOOjuYWH0FhAt9tkocpAQUU7LHyqnkhgV5By7XY/pdyZyf1Wor6Ckq4JXOqeQqlm
GjIdvTMP0cygjIzmbgJjAd1uWfwqsLMUFIKSFph5yr5XwNJf8ZqFf/VSqKAbouYhFDQPQ6weg6TtKqTt
4yjsmEBR56QB3W+zQ5lYv5e9UsDCuxKxmdVgZRMRQlaJGnSPwu8QwAtW/tXMN47X/I9drEGGog/8Gi0E
dQPIbRiCsGkU+c1XIFJfhah1nDDxEPU4aC4XVxF4R4a47Fqwc+opsks7QD8iWlXAPEi5wdKnssc1pg7x
ha1ILOlESpkG3Mo+8BRa8FUDyL48TETGkNd0FcLmcSIzQUYd4zB1SjUWMD9WCFZuE+KFLRSCcg3M3POM
BCx8K122B5Td8U1QIpycVFReA2LFasQXdyJJ1os0eT8uKj5CpmqYSFxBTuM4cpsmkdc8RaGbm76dtIqA
RwE4Be1IEHchUdINftn7MDucZRCw8Wn8paVXmXAPQ/aNP0eGk8kyhHArcZ5fiwgizhS3EwkNksr6kVY5
AF7NCPh14xA0TCKnaZo8eMaA6UHOKgLuOUiQahAveQ8ROV04HFkFuivPIGB+7FKffUgRvGLE8IoWw5sp
RWCCDMFpCpzj1yMirxVMSQ/iL/UjWf4x0pVjyKybQHb9NBGYJbufM0A7yCICISsFzA7z4clphHdiG4Vn
fCPoLqkGATMPabVtkAhvnbgIlzNZcH9XCC9mMQIS5AhOr8X57BZEFnQjrrgfieVD4CquIqN2CtkNs8ht
XoCwZZEiX70ImkOssQDdNR1BPA1OZfZRHOf1gO6UuKIHaIeywiwYvPub7c6DzgjH656pOBiSD09mBU6k
1iOMnFxckRYp8hFk1JC6N85B3LpEXr8buNSzTL4NBDLSHaJXEXBOxlnhh7ggGqTQzWmObKMmpDmm/GGb
c8rUDrckWDqxsdMjHbaB+XA4WwZ3Zh18UzoRzO/DuwWDiC0ZR1LlHC6qroNffxNZDcvgN96EKSMC660f
E6A5cRBVPAqWbJIismiUNEuMkYAulq6Rv9p0gFXwKsPhmz8H5MCOlMYxrAIerEYEcLsRKvgAkZIRxJdP
I71mCYKmTyDquAVxx23kd3xOBC4YC2x7Oxbsiilwa65RsMqnsO2tiFUFHmWTXbiLmWP0Hca5QjiHV+EY
uwmB6RqcydUiqnAMCfJZ8Or+CmHr5yjp/SdK3/83JJo7MD0QRgQ8HhNwiEKSch6C5k8oEhXz2MoI+04B
XUzswjZssA3tejM4B17JaiLQgzM5REA6ioSKGfBqryNP/RkKe+6iWPMFRD23se3AWWOBLeRYUuquQdx5
myKl9hq22J/5XoFHeeW1oAgr59D/+vDaEEJKEC4epkqZqlik6p/b8iklkt32KbbahxoLbCZWyXVLVK10
JBOBTfuDn1hAl3W7fHeavBE068yWI0wyiOiiMaoPUqsXkK5aopoxreEGNpP7Ggls3H8aHNUC1TA6OKQc
JvtOPJWALjTaqRfXvfqOdKdv8rchRQNUL8SVTiC+bBocIsMi992476SxwFZa0NdRyhmkKRcpIsn89zTP
Z/pLpsvvdni4rfuT790j/BZcKBxFBHkrdFwoG4fJ3iCssd67UuDo6aTBAEk7YmrmEaOah1tGDcxtvT/S
Lz9T1u48YvKStatmN/lynpQOICS7H6elQ3jFzt9YgMnNtzwaHD+4xSbgwUYbmwfW+30GdtkHmemXf0he
WGvuGPPb3Ue/dOaR74R8jPRAoHEJfuz8mr5v94s0+3kGRwzbgNj7e/ac+4V+6flF91CnaMGhvSzRH/WX
fgrJmjX/B6getrXatE37AAAAAElFTkSuQmCC
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmMr/8UmAMHUhqn8Ap4shoRyO1GmPB9RElHkFA+
jYyaJQibPoa44zYkHXeQ3/EZEbhoKrDtrTiwK6bArblOwSqfwrY3I1cVeJxNDhGuFk4xdxnnC+ESUYXj
7CYEZWhxNleH6MIxJCpmwav7C0Stn6Gk9x8ofe9fkGrvwvxAOBHwfELgYDSSVfMQNn9MkaScx1ZG+LcK
6GPmEL5hg31Y1xshOfBO0RCBHpzNIQKyUSRWzIBXewN5mk9R2HMPxdrPIe65g20HzpkKbCHHklp3HZLO
OxSptdexxfHsdwo8ziuvBUfauIT9x5fXhlBSggjJMFXKNOUiVf/clk8oEUHbJ9jqGGYqsJlYpdQtUbXS
k0IENu0PeWoBfdbt8ttp9nrwrAtbgXDpIGKKxqg+SKteQIZ6iWrG9Iab2EzuayKwcf8ZcNQLVMPo4ZBy
mO07+UwC+tBop19e9+rbsp1+Kd+EFg1QvRBfOoGEsmlwiAyL3HfjvlOmAltpwV9Fq2aQrlqkiCLz39K8
nusvmT6/3uHpvu6PfveO8ltwsXAUkeSt0HOxbBxme4OxxnbvSoFjZ5IHA6XtiK2ZR6x6Hu6ZNbC09/nQ
sPxcWbvzqNkvbN20u8mX85RsAKGCfpyRDeEVhwBTASY33/pYSMLgFrvAhxvt7B7a7vcd2OUYbGFY/j55
aa2lU+yvdh/7woVHvhOKMdIDQaYl+H/n5/R9u1+mOc4zOBLYB8Y92LPn/E8MSy8u+oc6xwgP72WJf2+4
9ENI1qz5H5t6trPpJ4eoAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -382,7 +397,7 @@
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
@@ -397,6 +412,9 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>388, 17</value>
</metadata>
<data name="C1Abgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -434,8 +452,11 @@
</value>
</data>
<data name="C1Abgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
<data name="C1Ausgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -473,7 +494,7 @@
</value>
</data>
<data name="C1Ausgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

65
DPM2016/Fakturierung/frmFakturierung.vb
View File

@@ -1,10 +1,11 @@
Public Class frmFakturierung
Dim db As New clsDB
Private Sub frmFakturierung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim abgeschlossen As New DataTable
Dim ausgeschlossen As New DataTable
db.Get_Tabledata("view_abgeschlossene_Behandlungen")
Private Sub frmFakturierung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
db.Get_Tabledata("view_abgeschlossene_Behandlungen", "")
abgeschlossen = db.dsDaten.Tables(0).Copy
ausgeschlossen = abgeschlossen.Copy
ausgeschlossen.Rows.Clear()
@@ -103,4 +104,64 @@
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ToolStripMenuAusschliessen_Click(sender As Object, e As EventArgs) Handles ToolStripMenuAusschliessen.Click
Try
Dim i As Integer = 0
Dim bhnr As Integer = Me.C1Abgeschlossen.Columns("NrBehandlung").Value
For Each r As DataRow In abgeschlossen.Rows
If r.Item("nrbehandlung") = bhnr Then
ausgeschlossen.ImportRow(r)
abgeschlossen.Rows(i).Delete()
End If
i = i + 1
Next
Catch ex As Exception
Finally
abgeschlossen.AcceptChanges()
ausgeschlossen.AcceptChanges()
End Try
End Sub
Private Sub toolstripmenuAusschlussaufheben_Click(sender As Object, e As EventArgs) Handles toolstripmenuAusschlussaufheben.Click
Try
Dim i As Integer = 0
Dim bhnr As Integer = Me.C1Ausgeschlossen.Columns("NrBehandlung").Value
For Each r As DataRow In ausgeschlossen.Rows
If r.Item("nrbehandlung") = bhnr Then
abgeschlossen.ImportRow(r)
ausgeschlossen.Rows(i).Delete()
End If
i = i + 1
Next
Catch ex As Exception
Finally
abgeschlossen.AcceptChanges()
ausgeschlossen.AcceptChanges()
End Try
End Sub
Private Sub ToolStripAbschlussVorschau_Click(sender As Object, e As EventArgs) Handles ToolStripAbschlussVorschau.Click
Try
Globals.Rg_Funktionen.Vorschau_Rechnung(C1Abgeschlossen.Columns("NRBEHANDLUNG").Value)
Catch
End Try
End Sub
Private Sub ToolstripAusschlussVorschau_Click(sender As Object, e As EventArgs) Handles ToolstripAusschlussVorschau.Click
Try
Globals.Rg_Funktionen.Vorschau_Rechnung(C1Ausgeschlossen.Columns("NRBEHANDLUNG").Value)
Catch
End Try
End Sub
End Class

9
DPM2016/Klassen/clsStammdaten_flat.vb
View File

@@ -1,6 +1,4 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports C1.Win.C1TrueDBGrid
Imports C1.Win.C1TrueDBGrid
Public Class clsStammdaten_flat
@@ -120,6 +118,11 @@ Public Class clsStammdaten_flat
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
MsgBox("Daten wurden gespeichert")
End Sub

2
DPM2016/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

1
DPM2016/My Project/licenses.licx
View File

@@ -1,2 +1,3 @@
C1.Win.C1Command.C1DockingTab, C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
C1.Win.C1Input.C1PictureBox, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a

128
DPM2016/Patient/Patient.Designer.vb generated
View File

@@ -41,27 +41,27 @@ 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.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.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = 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.PatientDetails1 = New DPM2016.PatientDetails()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Recall1 = New DPM2016.Recall()
Me.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
@@ -255,6 +255,17 @@ Partial Class Patient
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.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = "0 "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17
'
'Stammdaten
'
Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
@@ -272,6 +283,16 @@ Partial Class Patient
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.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
@@ -289,6 +310,16 @@ Partial Class Patient
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.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
@@ -306,6 +337,15 @@ Partial Class Patient
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.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
@@ -323,6 +363,15 @@ Partial Class Patient
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.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
@@ -341,6 +390,15 @@ Partial Class Patient
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.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
@@ -382,64 +440,6 @@ Partial Class Patient
Me.Label1.Text = "Label1"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'PatientDetails1
'
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientDetails1.HasChanges = False
Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = "0 "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17
'
'Behandlung1
'
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
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.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 612)
Me.PatientAbrechnung1.TabIndex = 0
'
'Finanzen1
'
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1278, 612)
Me.Finanzen1.TabIndex = 0
'
'Krankengeschichte1
'
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
Me.Krankengeschichte1.TabIndex = 0
'
'Recall1
'
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Recall1.Location = New System.Drawing.Point(0, 0)
Me.Recall1.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1278, 612)
Me.Recall1.TabIndex = 0
'
'Patient
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

5
DPM2016/Patient/Patient.vb
View File

@@ -60,7 +60,7 @@
Me.Behandlungen.Visible = False
Me.Finanzen.Visible = False
End Select
Me.tsbtnfirst_Click(sender, e)
' Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB
If db.Get_Option(9999) = "" Then
Me.tsbtnVTX.Visible = False
@@ -109,7 +109,7 @@
End Sub
Private Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
@@ -188,6 +188,7 @@
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
Me.PatientNr = newkey

2
DPM2016/Patient/PatientDetails.vb
View File

@@ -487,4 +487,6 @@ Public Class PatientDetails
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

297
DPM2016/Reporting/frmReportView.vb
View File

@@ -11,18 +11,20 @@ Public Class frmReportView
Dim Parameter As String
Dim NrBehandlung As String
Dim daten As New DataSet
Dim AsPDF As Boolean = False
Sub New()
InitializeComponent()
End Sub
Sub New(ByVal Reportnr As Integer, ByVal design As Boolean, ByVal Titel As String, Optional Parameter As String = "", Optional NrBehandlung As String = "")
Sub New(ByVal Reportnr As Integer, ByVal design As Boolean, ByVal Titel As String, Optional Parameter As String = "", Optional NrBehandlung As String = "", Optional asPDF As Boolean = False)
InitializeComponent()
Me.ReportNr = Reportnr
Me.Design = design
Me.Text = "Auswertung " + Titel
Me.Parameter = Parameter
Me.NrBehandlung = NrBehandlung
Me.AsPDF = asPDF
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -32,6 +34,15 @@ Public Class frmReportView
Dim dbr As DataRow = paramdaten.NewRow
Dim db As New clsDB
Public Sub Fakturierung_Vorschau(ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True)
Me.ReportNr = reportnr
Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
Print_Rechnung(True, False, rate, kopie, fakturanr)
End Sub
Public Sub Fakturierung(ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True)
Me.ReportNr = reportnr
Me.Parameter = Parameter
@@ -43,10 +54,214 @@ Public Class frmReportView
rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub
Sub rechnung_buchen(rate As Integer, Betrag As Decimal)
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
End Sub
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False)
Me.ReportNr = reportnr
Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr)
If Preview Then Exit Sub
If buchen = False Then Exit Sub
db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten"))
' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0)
If Rate > 1 Then ReportNr = ReportNr + 1
Dim kopien As Integer = 1
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME)
Me.freport.Preview = Me.previewControl1
Try
freport.Load(FILENAME)
Catch ex As Exception
MsgBox(ex.Message)
End Try
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(0).TableName = "Daten"
' Allg Behandlungsdaten / Empfänger / Totale
paramdaten.Columns.Clear()
paramdaten.Rows.Clear()
daten.Tables.Clear()
dbr = paramdaten.NewRow
paramdaten.Columns.Add("Paramname")
paramdaten.Columns.Add("Paramvalue")
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "2"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@iMahnstufe"
dbr(1) = Stufe
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Behandlungsdaten"
' Leistungen
paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "3"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen"
paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "4"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_LR"
paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "5"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar"
get_esdaten(Rate, kopie, Fakturanr, Stufe)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
Globals.FakturaNr = db.dsDaten.Tables(0).Rows(0).Item("fakturanr")
daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten"
freport.RegisterData(daten)
freport.GetDataSource("Behandlungsdaten").Enabled = True
freport.GetDataSource("Leistungen").Enabled = True
freport.GetDataSource("Leistungen_LR").Enabled = True
freport.GetDataSource("Leistungen_Dentotar").Enabled = True
freport.GetDataSource("ESDaten").Enabled = True
freport.PrintSettings.ShowDialog = True
If design = True Then
Dim ReportDate As DateTime = System.IO.File.GetLastWriteTime(FILENAME)
freport.Design()
Dim ReportDate2 As DateTime = System.IO.File.GetLastWriteTime(FILENAME)
If ReportDate < ReportDate2 Then
db.Save_RptDatei(Me.ReportNr, FILENAME)
End If
End If
If vorschau = True Then
freport.Preview = Me.previewControl1
freport.Show()
End If
If vorschau = False And design = False Then
Dim printer As New clsPrinter
Dim printername As String
Dim papierschacht As String
printer.Get_Printersettings(ReportNr, printername, papierschacht)
freport.PrintSettings.Printer = printername
freport.PrintSettings.Copies = kopien
Try
freport.PrintSettings.PaperSource = papierschacht
Catch
End Try
freport.PrintSettings.ShowDialog = False
freport.Print()
Exit Sub
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim XPSEXPORT As New FastReport.Export.OoXML.XPSExport
freport.Export(XPSEXPORT, xpsfilename)
Dim p As New ProcessStartInfo
p.Arguments = xpsfilename
p.FileName = Application.StartupPath + "\topdf.bat"
p.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(p)
Globals.RGCollection.Add(pdffilename)
End If
End Sub
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)
@@ -194,8 +409,20 @@ Public Class frmReportView
End If
End If
If vorschaue = True Then
freport.Prepare()
freport.Preview = Me.previewControl1
Dim wm As New FastReport.Watermark
wm.Enabled = True
wm.Text = "Vorschau"
wm.Font = New Font(wm.Font.Name, 120, wm.Font.Style, wm.Font.Unit)
Dim page As FastReport.ReportPage = previewControl1.Report.PreparedPages.GetPage(previewControl1.PageNo - 1)
Dim originalpage As FastReport.ReportPage = TryCast(page.OriginalComponent.OriginalComponent, FastReport.ReportPage)
originalpage.Watermark = wm
freport.Show()
previewControl1.RefreshReport()
End If
If vorschaue = False And design = False Then
@@ -210,17 +437,35 @@ Public Class frmReportView
Catch
End Try
freport.PrintSettings.ShowDialog = False
freport.Print()
Exit Sub
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
If AsPDF = True Then
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
pdfexport.ShowProgress = False
pdfexport.Subject = "Export"
pdfexport.Title = "Export"
pdfexport.Compressed = False
pdfexport.AllowPrint = True
pdfexport.EmbeddingFonts = False
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
Process.Start(s + ".pdf")
Exit Sub
End If
freport.PrintSettings.ShowDialog = False
freport.Print()
Exit Sub
'Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
'Dim xpsfilename As String = s + ".xps"
'Dim pdffilename As String = s + ".pdf"
'Dim imagefilename As String = s + ".jpg"
'Dim rtffilename As String = s + ".rtf"
'Dim pdfExport As New FastReport.Export.Pdf.PDFExport()
'pdfExport.ShowProgress = False
'pdfExport.Subject = "Export"
@@ -233,15 +478,15 @@ Public Class frmReportView
'freport.Export(pdfExport, s + ".PDF")
'Exit Sub
Dim XPSEXPORT As New FastReport.Export.OoXML.XPSExport
freport.Export(XPSEXPORT, xpsfilename)
'Process.Start(Application.StartupPath + "\xpstopdf.exe", "-input=" + xpsfilename)
Dim p As New ProcessStartInfo
p.Arguments = xpsfilename
p.FileName = Application.StartupPath + "\topdf.bat"
p.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(p)
Globals.RGCollection.Add(pdffilename)
'Dim XPSEXPORT As New FastReport.Export.OoXML.XPSExport
'freport.Export(XPSEXPORT, xpsfilename)
''Process.Start(Application.StartupPath + "\xpstopdf.exe", "-input=" + xpsfilename)
'Dim p As New ProcessStartInfo
'p.Arguments = xpsfilename
'p.FileName = Application.StartupPath + "\topdf.bat"
'p.WindowStyle = ProcessWindowStyle.Hidden
'Process.Start(p)
'Globals.RGCollection.Add(pdffilename)
'Dim rtfexport As New FastReport.Export.RichText.RTFExport
'freport.Export(rtfexport, rtffilename)
@@ -274,7 +519,7 @@ Public Class frmReportView
End Sub
Private Sub get_esdaten(ratenr As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0)
Private Sub get_esdaten(ratenr As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional MahnStufe As Integer = 0)
'ES-Daten auselsen
paramdaten.Rows.Clear()
@@ -302,6 +547,10 @@ Public Class frmReportView
dbr(0) = "@ifakturanr"
dbr(1) = fakturanr
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@iMahnstufe"
dbr(1) = MahnStufe
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
Dim Referenznr As String
@@ -320,19 +569,26 @@ Public Class frmReportView
s = s + Trim(Pruefziffer(s)) + ">"
Referenznr = s
Dim datum As DateTime
datum = Now
If fakturanr <> 0 Then
Dim db1 As New clsDB
db1.Get_Tabledata("Faktura", "where nrfaktura=" + fakturanr.ToString)
datum = db1.dsDaten.Tables(0).Rows(0).Item("datum")
End If
s = db.dsDaten.Tables(0).Rows(0).Item("vs_besrid").ToString + db.dsDaten.Tables(0).Rows(0).Item("fakturanr").ToString + "0000"
Dim dd As String
dd = DatePart(DateInterval.Day, Now)
dd = DatePart(DateInterval.Day, datum)
While Len(dd) < 2
dd = "0" + dd
End While
s = s + dd
dd = DatePart(DateInterval.Month, Now)
dd = DatePart(DateInterval.Month, datum)
While Len(dd) < 2
dd = "0" + dd
End While
s = s + dd
dd = Year(Now).ToString
dd = Year(datum).ToString
dd = dd.Substring(2, 2)
s = s + dd
@@ -431,6 +687,7 @@ Public Class frmReportView
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub

95
DPM2016/Sysadmin/frmAuswertungen.Designer.vb generated
View File

@@ -24,22 +24,22 @@ Partial Class frmAuswertungen
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertungen))
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style33 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style34 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style35 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style36 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style37 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style38 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style39 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style40 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style41 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style42 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style43 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style44 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style45 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style46 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style47 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style48 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -55,6 +55,10 @@ Partial Class frmAuswertungen
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.VorlageImportierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorlageExportierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -162,14 +166,14 @@ Partial Class frmAuswertungen
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem})
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.VorlageImportierenToolStripMenuItem, Me.VorlageExportierenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 92)
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
'
'C1TrueDBDropdown1
@@ -178,25 +182,25 @@ Partial Class frmAuswertungen
Me.C1TrueDBDropdown1.AllowColSelect = True
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown1.AlternatingRows = False
Me.C1TrueDBDropdown1.CaptionStyle = Style1
Me.C1TrueDBDropdown1.CaptionStyle = Style33
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
Me.C1TrueDBDropdown1.EvenRowStyle = Style2
Me.C1TrueDBDropdown1.EvenRowStyle = Style34
Me.C1TrueDBDropdown1.FetchRowStyles = False
Me.C1TrueDBDropdown1.FooterStyle = Style3
Me.C1TrueDBDropdown1.HeadingStyle = Style4
Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
Me.C1TrueDBDropdown1.FooterStyle = Style35
Me.C1TrueDBDropdown1.HeadingStyle = Style36
Me.C1TrueDBDropdown1.HighLightRowStyle = Style37
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(157, 53)
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
Me.C1TrueDBDropdown1.OddRowStyle = Style6
Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
Me.C1TrueDBDropdown1.OddRowStyle = Style38
Me.C1TrueDBDropdown1.RecordSelectorStyle = Style39
Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray
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(328, 150)
Me.C1TrueDBDropdown1.Style = Style8
Me.C1TrueDBDropdown1.Style = Style40
Me.C1TrueDBDropdown1.TabIndex = 18
Me.C1TrueDBDropdown1.Visible = False
Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag")
@@ -207,29 +211,46 @@ Partial Class frmAuswertungen
Me.C1TrueDBDropdown2.AllowColSelect = True
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown2.AlternatingRows = False
Me.C1TrueDBDropdown2.CaptionStyle = Style9
Me.C1TrueDBDropdown2.CaptionStyle = Style41
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
Me.C1TrueDBDropdown2.EvenRowStyle = Style10
Me.C1TrueDBDropdown2.EvenRowStyle = Style42
Me.C1TrueDBDropdown2.FetchRowStyles = False
Me.C1TrueDBDropdown2.FooterStyle = Style11
Me.C1TrueDBDropdown2.HeadingStyle = Style12
Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
Me.C1TrueDBDropdown2.FooterStyle = Style43
Me.C1TrueDBDropdown2.HeadingStyle = Style44
Me.C1TrueDBDropdown2.HighLightRowStyle = Style45
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(185, 90)
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
Me.C1TrueDBDropdown2.OddRowStyle = Style14
Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
Me.C1TrueDBDropdown2.OddRowStyle = Style46
Me.C1TrueDBDropdown2.RecordSelectorStyle = Style47
Me.C1TrueDBDropdown2.RowDivider.Color = System.Drawing.Color.DarkGray
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(311, 150)
Me.C1TrueDBDropdown2.Style = Style16
Me.C1TrueDBDropdown2.Style = Style48
Me.C1TrueDBDropdown2.TabIndex = 19
Me.C1TrueDBDropdown2.Visible = False
Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag")
'
'VorlageImportierenToolStripMenuItem
'
Me.VorlageImportierenToolStripMenuItem.Name = "VorlageImportierenToolStripMenuItem"
Me.VorlageImportierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VorlageImportierenToolStripMenuItem.Text = "Vorlage importieren"
'
'VorlageExportierenToolStripMenuItem
'
Me.VorlageExportierenToolStripMenuItem.Name = "VorlageExportierenToolStripMenuItem"
Me.VorlageExportierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VorlageExportierenToolStripMenuItem.Text = "Vorlage exportieren"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Frx-Dateien|*.frx|Alle Dateien (*.*)|*.*"
'
'frmAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -272,4 +293,8 @@ Partial Class frmAuswertungen
Friend WithEvents cbboxprinter As ToolStripComboBox
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents VorlageImportierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorlageExportierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents SaveFileDialog1 As SaveFileDialog
End Class

408
DPM2016/Sysadmin/frmAuswertungen.resx
View File

@@ -127,209 +127,209 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYWWYnb3Obx
7MzN1dY5Z9tJV86Min5BlpZWmpZloRk6TMWkqNTKMMt+KBoZSllIuUK7iC6SKILoouDTUWOxy3rgA+/z
wvvh/T7vK/6nPk8NBT/NjP9s25/Bn62FulKW09NVnkPPsTmkJN0VEldL7TyK72Z2sp9PE7f59naQywet
qYLuMplVa+ysTrexZv1f0tKtrLSs43uin0TPEcYa/HxJPObKYUeqoKtEJsPqxGaXsDtcSaxZTtLW2XjT
FmGsSWf0QpDZV3e5fjQ7VeCoE0hVi8i2+5BcClK2G0mScblk1lslJlsNRi+GeFIf5ONY93zUP0eFsJ0U
JD624zQlOZkabmcARfKjyF5kt4dMh5uX8TAjDTqDdZuZGe7kTqWyILBVCSbeN9M6KMioFNhrBc7zArlk
KV4liCfXT1aOj/EmjcFzOt/7lvN6oIW71V6Eq0bwdLqS+Iigedhcvyvg2XSE5x/C85KNnjB5eUEkT4Bn
F1QentX40b+CV3caGKj1LwgeJPYRHxfExwQtLwWtk4IXXyM4zgmCeQVsCoRw52mM1AcYOBOkeZ+T590n
eVwXmI9gsZsRel9vpT0hyJyLcErgOCvILV2GrkZRdQNf0GCozs+90xu5Ua7wtLOM4Xo1OURLVrWg550P
5xmBEdiDoRVjhAsxjCgRI59AKMrDWi99NT56q7wMXdrLaGMo5RktTvPKSs1iosZOogVFFEQL58k30bbE
uF/jobcyl5vHPfQ3xBhvjqQIRFvxWrYVFVMU20XR9h1JYib5hTu5Vy1z64RC1zE3t06HmGjJR+i6jq6F
0LQwqjqHuVY1s1eTqGa/abPOgViAjjLF/IEy1ypymWzfujDEf6VETzvYeGjDr6mOWGqEf6glJquEEJbf
bHzCicLnpnMAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK0SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYmlYjb3Obx
7MzN1dY5Z9tJV86Min5BlvZb07Is1CKHqVQYlVoZaZmlaGQopSLmkuwigoooguii4NNRY7HLeuAD7/PC
++H9Pu8r/qc+Tw8EP8yO/mzZm8mfrYVqK8/tbD+SS+exOaQkHUclrpfZeRzfyafJHj6O3eXb636u7rem
CjrKZVal21m91kZ6xl/S1lpZaVnH90QPic5DjNT7+ZJ4QttBR6qgvVQm0+rEZpewO1xJrNlO0tbZeNUS
YeSSznBDkE8T3dw8nJMqcNQKpMpF5Nh9SC4FKceNJMm4XDIZVonJZoPhiyGe1gV5P9IxH/XPUSFsJwWJ
9604TUlulobbGUCR/CiyF9ntIcvhZjweZqhep792I7OD17hXoSwIbJWCsbeNNPcLMisE9hqB87xALl2K
VwniyfOTnetj9JJG/zmd7/eXM9XbRHeVF+GqFjx7U0F8SNA4aK5nCnn+JsKLd+F5yXpPmPz8IJInwPMG
lb6zGj96VjBxr57eGv+C4FFiD/FRQXxE0DQuaJ4UvPwawXFOEMwvZEMghDtfY6guQO+ZII17nLzoOMmT
2sB8BIvdjNA1tZnWhCBrLsIpgeOsIK9sGboaRdUNfEGDgVo/D06v59YRhWfXyhmsU5NDtGRXCTpnfDjP
CIzALgytBCNchGFEiRgFBEJR+mq83K/20VXpZeDyboYvhFKe0eI0r6xULyZqbCdaWExhtGieAhNtU4yH
1R66KvK4fdxDT32M0cZIikC0lKxhS3EJxbEdFG/dliRmUlC0nQdVMndOKLQfc3PndIixpgKEruvoWghN
C6Oqc5hrVTN7NYlq9hs26uyLBbhSrpg/UObG0TwmWzcvDPFfKdXT9jccyPg1fSWWGuEfaonJKiGE5Tdo
FcKGVVlc7gAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsbSURBVHhe7Z0HnBRV1vZX3V15P/d791WUJJlhyDAwZGYY
hjggSYKIZBAkZxhAsgKKYXVNu67rmsVAToKIiBjZ9VWUjIpECQKiKNH7nedWnepTt2/PVAdc2G/ujz+d
qm9Xn+e554aq6vlNXskreSWv5JW8klfySl7JK3klr+SVvJJX8oosXbp06dGxQ8e9ffv2/WXYsGFqxIgR
auTIkWrUqFFq9OjRasyYMWrs2LFq/LhxKnv8eJWdna0mTJigJhJjx4xVgwYOVC++/Ip6ft7r6sVX5quX
X1ukFi5aphYtXqEWL12pli5fpZavWK1WrFyjVq56S73x5ttq9Zp31JtvrVdr3n5X89bbG/ys26DWrntP
8/Y7kvfV2+uZD9Q68O4H6p0NH6r1Gz4K8d7H6t33JRvVhg82OvffwzYf0nuc966jutZS3fjMt9bR/qxd
T/uG/VunVr25VrNy9Vu072vUijfeVMtXrqbvs0otW/6GWrpspVqylL7nkuX0fZeqhcSCRUvUgoWL1fwF
C9Xr8xeo116fr16a96p6/sV56tkXXlLPPPucGtC/v47xeIrnOIor4juW4oxYj6GYI+6I/yjaZiTpAU1G
DB+uhg8f/suoIUMO9OnVZ4ArX3xlyMAhvYaT6MuXL1fP0Y6NI0GDMn7sOHX/3PtUuzZt1e59h9RHm3Z4
bN25h/jGx5YdsWHW49S9R21jdu0N8eVetd1jn2bHV352Ml/v99jF7N6vvpR8Aw5ovhJ8Ldi9J8Q3YK/B
vgPqs61fqk8J3O7/9ohq17atumf2HGtcc2La1Glqy+Ytau1ba9WkCZOGujLGXoYMGrzvrhkz1bZt29Qr
815Rg+4YGBUTxmerJo2bqEPHT6kd+455HDn+szpscoz5KQDutpZ6jhw/rY6c8HP0+zM+vgMn/Rw7edbh
B4fjkh/PqhOC78Gpc5qTzE8OPwh+/Bmc15wCpx1+Ys6cVz8T3xz6Xu0Bh7+nz/tZNW3SVI0eNdoa09yY
NGGiGjt6jHryyScPujLGXgYPHHR+4IA7FNO/3+2qS+dbfPTo1t173cQxQGMSxm8AU5CjJ86EiRYUvDes
Pheb0I7YuQhOSMFN0U3hw0UPJvzPZy5oIDzjGWDkKGtMg/LQnx66QBJe4SgZY7mj/wBfpbVr1VYpKSkq
tUaqqpmaSrc1VKWKFdWtt3TxbcdkjxvvGODEKbVz/zEPmygeLFxu2N5r4BNaiB1E8NxEj7q1W4Q/fdZB
GuCENkCTuA1w371zFUkYvwEkNarXUBkNG6pmTZuqFs2ba3FhivZt2/m2Y2CAxpnhBvCEkOIkAq7XxRTZ
wxA6V8GBIXhI9KCt3RH+tBAenBEG2AsD/EgGoG4TAzxbTINy7z33wADxFbPSWjVr6j69bZs26ub27VXL
rCxVr2491b5de992DGYGMMARMsAuYQCrKAnGJrDEFNsmeMyi24Q3RNecu6DOEhBec8QxAGI8akR8Brhn
zkUwQN06dajlt1C3drlV9ejRg4Rvp9LT0rQZzG2BaQDGJkii0QIDV1yTIGJHFDyo6DbhSXAWXnP+Fy08
kzgDzInfAANu768kDdMbqmFDh+k5/tTJU2hOOkb17NlT3UwZwNwWjKOpYONGmWSAn9SXB45rdhEswqav
Dl80Po+Grx2++PpIIDYzu+1ssbD1G8lRzTkSH4QZgBrNyOEjrDENypzZsxNvgEYZjVR3GvWPGDZciwun
de7UKXcDfB8yAOAW98nOby8a/5sbu5hDPj4NwGc2vozMJobMJoH45y+EDLAvkQaYlQADYNonwSCwQ4cO
WvjBgwapvn366kEhugJzW4DFiUwyjWkATq9WYRKBJy7jFzmo0Ey0goNIogPOPBD/AgHhHU5St3Waus1M
3chsMQ3K7LtnJd4AKVWrqZtatVLdbuumenbvobrSWKBunbp6FmBuC9gAR8kAX5HwDPenNmHixSZgNMQi
NvAEB0JsU3TJhV/IAASEZ74/lRgDzEqEAW7v209J0hqk6Xl/9ZTqlA2qq5RqKapihQrqtlu7+rZjsCKF
bkMb4CCJ78KDppM/nU0oP+TEzyF+DCM02Dtl4/Q52l8LZ87RYA/Iwd95GvD5OcOccziruaBIe82+oyfV
fsLJAD+rTOo2YQBbTIMy6667E28A0Ld3Hx/9qBuwbQccA2RoA3xNwjMcKIyaE4kUwY+z8MKYo3OJnKJJ
vFE7cAdvJkjpEqR3jdvSWXCNcgruh7oAZwwAA+AYjC2mQbn7rrsujgGigQ3w3UkywLcnPHxBN8SJhZwE
teGJDFyBrUIDEjZWwemuT3QtuCv6L/p1Z3tzFpAQA8xMgAHQuuNhzKjRNEgMN4BPABebUEGw1aUh8WyE
CcyQoJGEBqbYQQSnf7rgFoJL0UP1XAg3AHWbmG7bYhoUHMRzZYy92CqOBmmA3SQ8YxVAYBNOYntPjpCA
uQnMSIElntjAFZL++XH0trbykOgX6HNCnCV4JRDLwTgYlAgDzEyEAcz+PlpwQCMjvWGYAWyB/7UwhZX4
RAYsIEH/wuDiPPa3cODUe0GdF4Jr0bUxQ4NCPhbABmhEjWbYkKHWmAZlxvTpl5gBDpH4Lmbgfy184jIs
msYvsAcLDfRzQmxAbwx9jkVwU3QxQzh99pz6hmLCHLuUDNCnV28VD6NcAxz74Sffl+SgXRSkMD5YvAg4
GuuC+87zhtCAKvKJbUnpZgsHUnBn6uiAqSTHBY0DsYIBhg4eYo1pUKZPuxQMMGKkapierl0tDUBx/PVw
BeXCj0Pb2EX2C+2ILYX2i20IbrRwU3BnHeGsOuUiu8djlC2xuhq3AaZOi98AvXv2UvGgDZAGA/gzAAed
/oUjRYoE/WeH6w3hExa44toEtqVvT2hgadl+sYMJfsq3CHWGZkbHPdBdwgBDBg+2xjQo06ZM/fcbAAc0
0skAuY0BpCixYNbnJ7KwElPkaIX2i52z4D/8FOIkwQtkWCVFrHDUdcig+Aww9ZIzgEhzNgESjSco8NI0
sIgLSNRwke1C+8UWQlvEtgl+8hQ4rdf9gVwmP5ooA0yeEr8BevXoqeIB69k4YQRfSqY5DvrOfd9ddHbk
yFGHvX6258SeENsEW/cccfAd93fY4uOw2rL7sNpMYMqHhZ+vDhzzwLI5xk2DBw6yxjQoU+6cfAkZIOxY
wDndsjZ9+a36LAz70bZwbO8lduXOp1HiP7R80GGnn08iseOg+lcEkBkxQP6ShGeOfH/q0jEADvnGA9az
cQTxKH2prw6Sw124n4xFjETjF1cIHI3IjEXkMLaDA+qfBBoGTLCLhGdgAHSbOMffFtOg3DnpzkvAAEND
BpAu5z6SBTBFiYZwAW24gkYQlrGKamITNRJa7INabBs4VxKC79r/nWYngecSY4BJ8RsAF33EA1az0uo3
0F9KGoAHROgDEw1S6rGTuYOW54GW6IJWaQNCacFccKq7x3GHQ8d/9HPsR/Wt4OCxH9TB70Lw+yE8ow1A
jQbn9ttiGpQ7J14CBsBiBhtApjke/f4q/BjiRETIPMAwk2co4JlHGEcYyG8Yp2VbDWMahYwhB6WH6TkY
YED/AdaYBgWXiLkyxl5sFUcDpjIwgOlyBBtB92MTJjfC64kkpIknLBCZIZLAtuxgimwKDTFNsW0ZAcJv
d8F22gC397fGNCgJMUD327qpeMBItkH9+hSQH30G8AecMAWJFrM+DY2wXcIElViEDUGi5iQyCCD0txDa
SP8HwFEHOc3Ee9MaNFC39+tnjWlQJmRP+PcbAAMZbQAKipx/24LNrSxabHXljCuqRdgwcUGk/p3wi5yD
0J7Yzrl/DJ8IyuJvI1CPNkDfeA2QHb8BunW9TcUDBjL169XXwUJ644UXW+ATTZiQjCuoteVKwsRlchAZ
WISWYjP6DKDDDnJBCZ/RgLrNvn36WGMaFFyX6coYe7FVHA24fkAbgL6UL83ZAn6x8YlowxXWEDcakfcb
IptC81k/Hoe+1wfH5CoiPh8G6NO7tzWmQUmIAXC6dzxgIFO/Xj0dYKQ3Bl8SAQ9hEyQanHo8ARlXvEj4
RAVun2wVF1gE9kQOILREHhuRy8XYL3SbvXv1tsY0KPiFFlfG2Iut4mjABQr168IAP/jSnBdoU4B48MQz
sQhpYhFVYhM4iMim0EAfDxHL4jgAJI8VaANQ1uzVs5c1pkHBRTmujLEXXPkTDxjI4PJxGMBLc4QtyABC
BMX2/qB4glpEDROWcX/GJYjIkYT20JfIhRbGNn/jHBwCMAC6zZ49elpjGpRLwgC4drBe3bo6HcPdfHTM
FvREYxVR4goaSVTGJi7wjm66AttENoUGejFMXCqP30v4goRnDnx3UnebPbp3t8Y0KLgmw5Ux9mKrOBpw
cmLIAIc9bIH+NbAJaeIJa4gbJjCIILIWWojMQut1EJoGm4epv9CXpoNDusvSBuh2CRgAv/0TDzgxAReP
wtU6zblwgDdu3x/GPwNgex/4OBa2ReYjydbc+XDrPjtbHD4w4Ln/5yQ8gzEJuk2M5G0xDcroUaMuMQO4
fRzQLYda0Hub9yaeL8LZkADe1exx+Dxn1tvYFA5P/T7/ClcUO2CMAgPc1rWrNaZBwSn5royxF/Mn4aKl
V/ce+mdl4OpQmjvspUVboH8tfIIGEFViFRhYRF6/6Rsf7wjwyyH4RZFNX33rgQtE0W0ijdtiGhSckOvK
GHuxVRwNGMiwATjFoZ/jftAW3H8XVkElVnFBZIFzYh3BDUKe0cQGQCu2xTQoiTFAp84qHnrc1k3Vre03
AOAVQdktJBwKLOME2jFfJOT++aC0LFO0yWcgwmlqn4JdtpNXnBNQuF69nQtmMPWo29RCWmIaFJyQ68oY
e7mFKooHDGTqkAHQr8mgbd2DkyjDkYtFQbDVIdcbfIhpKCMXYGyEfvhJGMvFm7p5BnPgH5zKzTzSMJ+K
s5VgAIybbPGMBpyP6coYe7FVHA2RDGALdsLxxIssokkkUf3CuuIGEtifFbyWHpYVQgbAGgUM0LljJ2tM
g5IQA2An4gEDmTq1aut+TQbCC6wMerxwnQGwiikEjSQqk2PKB0LgMJEp9ZvnH+J5vr/n8AndbXbq0MEa
06DgfExXxtiLreJowEAGBsCSqxccAkGUwU4kplhBCAkaLqpPWGAVN2eBmX8BfcLoAY9/EnKbPYccA3S8
OT4DDBs6NAEG6NBRxcOtNJCpU7MW9WsnKFgHPWxBvtj4RARCRJOQqMGEZUJnBPsF9nDPBt7o4Sxgye2x
YlmXGk2H9u2tMQ3KsMFD4jdAJ6ooHm6hvqg2GQBpzQukxgyyH5soEtt7wpGf50IiSWwimoRabTBx/QKH
RN7ori6GrTZu3e+rB9dOImvixzfNeEYDTsh1ZYy9dKI0FA9IRbVr1tQG+EQIYQv0xUCLB3wCgpCIEimE
xhU0R2FzEBeElor3eZhLxLLu3d8eJwPUUu3btrXGNChDBw2O3wDoh+IBTsQvjCOtSWF0QG0BTwSoOxf8
QjJ+QXMSFfiPD4TEtQkcfhxgr/pg8171vov8bBx0qk0GwJ/ascU0KEMGDUqAAdrfrOKhA6WxWqk11dJV
6yjwTl8HkTiIHOhEIQWKBvsBnwiiMq6wVnENgRnrsQsC9UP8j7ftU8tWr9PdZutWN1ljGhScke3KGHux
VRwNMED1atX0jx+3aNY8jwA0pVjhJ3nbtW5jjWlQBt8xMH4DdKCK4gW/Fo6UhmPcuOo1s1Ej1axJU5XV
vIX+3WGkOmyHXx2/tUsX53eIe/TQZ8X2v72/GkhfZAgNaEYMH6H/ZJrz5+my9U/W4/q3KZMnq6lTpui/
mDV9+nQ1c8YMddddd6m7775bzZ41S82ZM0f/9Yy5996r7ps7V91/333qgfvvVw8+8IB68MEHnVsCz+E1
bINt76H34CfXZ1E9+NXNu2bOVDOo7unTptFnTVVT6DMn33mnmjhxoj4HH38yb+zYsfrPueGi2MHUB98x
4A59fn/vXr30cREc4etyyy26a8Qgr03r1qpVy5aqOQmPvxGAH9VErPC7SmYcowVxc2WMvaAF/5rYnJwb
tgHQr4ltn3LD9t0TDU7Jd2WMvcCleVye4JR8V8bYy81t26k8Lk/uoO7TlTH2gr8DkMflCa7JcGWMvbSn
AVoelye4JsOVMfZiqziPy4P+ffvFbwBM0fK4PMFFOa6MsRcsRuRxedKvT5/4DdCWKsrj8qRf70QY4KbW
Ko/Lk769eucZ4P9n8IvhroyxlzatblJ5XJ7gqixXxtiLreI8Lg969+gZvwFat2ylLmX4yyLl8ejXmwu3
bessi7YLHSAxD8rYDu7YMN/H9el1d73y5nwm7wOnYd4/275fbHr16HH5GIBFRBARUAQZJzbiCpeuXbqo
7l1vUz27dddpDaNbLHJgrRu/QoZTn4YPGapGDh+uL4caM2qUvjQaP5CQPXacmjBuvJqYna1/Nw+/njl5
0p36h5SnTp6spk2eov+wwvSpYJrBVP0afnYd2+I9eC/qQF2oE3XjM/BZ+MwxI0fpfRg5bLj+lVT8TuKg
O+7Q+4p97tu7t26Z+C7dunZVXW/pos+bhMm0oei7t2vTJiGm6dm9+39+BsgjMjCZK2Ps5aaslupi0qJp
M92qNm7cqHbt2uVn5061U7Jjh2aHZPt2td1k2za1TbJ1q2Yrs2WLZovB5s2b1RYX3Jd88cUXPj7//PMw
Nm3apPnss8/U888/r5o2aaKqVKqsqVypUoiKIfB3mCtVqKj//nLF8hVU+XLlVPnkcqpalao6NraYBQXX
Zboyxl5atchSFxOkyGPHjqm9e/eq3bt3/8dw4MABtW7dOhK/EolZRZ8Wl5pS3aNGSopDNQf8EW6cBla1
cmVtiHJlk7UJbDELCrpNV8bYi63iRNGyeQv9J87fe++9/0iQCapWrkJCV9cXeuDX0jR16nrgKuB6tevo
K4FwKjhOoK1OZkB2KJecrGNki10QMMZwZYy9YAcuFlnNmuvz92zB+08ABoD4uMgDP5iN8/xCpOu/psbg
x6GxTf26dfV1FMgY6BIQI1vsgnBbl1vjNwB2INGgf+Jp25zZc9SHH36oPvjgA/X+++/74EC+++67HuvX
r4/IO++8o2+x3YYNG3xwXfI58/MkvE828NpHH32kt5P18Wcwn376qaqZmqpbOQRv0ihTNW7UyCEjRGZG
hmpEpgDpDRrojJBavYYeL2AcYIthEDDDcGWMvWAHEglSE8+jMXfGWbssGIKGoMpgf/zxxx4YKPJ9iGAi
38dCSqFxn03EZuFbNg7DIrK4vH/8frkt4NclMABacwNK+5kNM/Tp3gxOk4chGG0E2qZhWprevhYZpwqN
B2wxDAquy3RljL00b9JUJRJMT+Qiyj1z7vECBpFwK4WSAkQC25rvk+B5+Rn8OfK+Cb9mM5X5GNvzZ/A+
gE8++SSyAYT40gDIFPiVUIwFMHi0xTAoWENxZYy9NG/cRCUSZACYAN1A65Yt9bn7HDCGhcN9KZ7Z2lkA
CZ43swHgOhj+HPkZsv6cQPqXoH58NupAncgqmAEgY9UmIcMMQIIDLT4JD7QBMDag8UAaGQDGgQGaWWIY
lFs6dorfANiBRILBCS9UwAy4yAICMFIkgIs1sKKWM0PU0MGD1aCBA92LMHqrXj17UvcyO8wgpojcpeA+
noeYuMW2LKztlrfj/YSRWPi3335brV27VtdpywAy/eOiGW8soLsAJwPgfSlVq+rtbXEMAlZSXRljL55r
EwwHAFf1cEsEUnyQTiNjBDAn9HSKBk61aqSqmgTm0pUrVtQLMFwvYINBRBt4TW5rQ9bHQHgW/6233tKs
WbNGmwQZACN7DPDk99biu8Kz+I0aNnQMQN8J74MBsJ0Zu6DgAlFXxtiL3OFEgNSPU5b5oA23Um5dUnyA
4OVGvTrOHLpmjRoqlYD4WFnDqhoEsglpgs+y7QOewy22QV0yxaOlQ+w333xTrVq1Sq1evVrfxy3A+3Bl
NPYR4jbJpBgQjYE7G8BlcpgFAEwPG9J0EAaoVbOWNgDMYYtjEDDOcmWMvUiXJgIMTnihAt0ArrlDkCMZ
QC+U5AYWUShgNWjqhEWUalWq6lW1ahRANpf5Gfw8dwWM7BLwOraV4rMBzMcAaR9GeOONN9TKlSv1a0jl
WPxBBkDq1ynfJZPiodGtnw3QQGc0zgCN6XlbHIOAA0uujLEX7FwiQWriUWpT6qfwF64hBgsixQdYIQsC
LqfG3Bm/rpWKboAGUFhIka1bwp/JmC1cIvt1TvGc5rn1s+hgxYoVavny5fp9GM3DAPhz8J7wutU7QHgW
HwNALAixAbAYZIthUJBhXRljLxiZJhI4E+LfhCxAA8IZ06d7IpjiAyyh5gZW2vQSKrV69PtI/WXLJKkk
AqJBPABBAESF0BCc4dbMBuD3MFJwFl2KvXTpUs2yZcs0uI/3YL/wq58QWBvAbZ0skjYAveYYIE2PeTwD
0PfBa7Y4BgHdrCtj7KURuTKRaPFxtMrtBmAAm/BMXWrZuYH0jwFgCqX+iuXLa/HLlCqlSpcs5QnN9XFG
4BYvxYdZIDJAH84tW7Zu+Ri3MIA0wZIlS9TixYs1MAoWdCAoWree7pHgQBuARILAHBv0/1gO5gEtujG8
T8YvGrDa6soYe8EOJBJMTyB8VnNnuRLX9EtRWCgG4uYGWktNSv+YN1fWR9LKahPgYIqsC/Wz8NzSkRFk
apetnE1gMwOLDtgEaPmLFi1SCxcuVAsWLNDbYlaCcQrE9bV8V3xO/UDPeGgKiN9WZgPgfTJ+0YCTSlwZ
Yy/YgUSCHdMOTXduJ06Y6LVA2VIZiJsrFCwcYq1WuYpz7L1iJVWhXHk9G5Bic+rnPp2BAdgEsl+XaZ5T
O6d3buUQXIoO5s+fr15//XVtDhgTYxQM7nzCuyJliNhgAQgzAGwP42gDkClk/KIBg2xXxtgLXHkxmTA+
2xMIt6YB0BJyhYKMY+owAI6x4yBKBRoHJCeV9Y0BWGAWmVu2bNEyjUNY3OKxTO0S3gYGgOivvfaa5tVX
X9V1wZjIUviunugEi+TFgsRPI/Eb0HgBYxoYBwbwXreQ1bSZOPrXXK//y9fRzboyxl6wY4kE81N5xAor
gZhy8QpdmAEoELmBYNWgYGEBCBkBgeNMwKLLFC8NwHB6hwm4lUvR5X2IjVaO1s4tH48h/CuvvKLmzZun
wbYwJgyA1O61dhIHaKHcuDjiO4ta2N7p0qr6YmeCsZQ+8OPOqiC4fB1drStj7AU7lkgQADlQmZg9Qadp
7p9NA9SsXj1X0Mqq05wZZ9+k0NTJaf1Jqiwh0zundtmX8y1nAJnmTRNwupcp3zTAyy+/rF566SX14osv
6ucxlcNAEC0bh3rT65M4RBqoRzEhIDxeh/h1a9d2p7ROl2aLIYOWr5d93ZU/PJavo4G5MsZeGtBOJRL0
g3odgHYcfSH+vi1SP5vANACfQpUTSPuYAaDF16DAoQvAGkAyDQa51UN8mfal8FJ8Fl4agU0gxUa6B0j1
3OohPoR/4YUX9DmBMAQWc5yBYB3dx+t+3hMdZwg5wjviY0WTDECG4S7NFkMGXQAfSAIQXL6O7ODKGHvh
nUsU6P+8o19kBpxeLRdjTAPgjJpccVf/IDoGfsllk1VS6TKqTOnSPsEhtGztssXbUr9s6Sw6brm1Q3wW
Hq2ehX/uuefUs88+q40BEfUCFYnrCB5Crmbidb2mQa0f3RpWNKtSN2aLIYPUr2cV7sASj+XraGiujLEX
zEkTCTufH48dM8Y3SofoPFUDCESu6P6/iqqQ7JxRW5YGf2j9gFs6C85CS/G51ZvpHuLbWj0jWz6n/Wee
eUbzj3/8Qz+HkzpgUKR1T3D63lpw4C5kaSA+ZYuaZGp0HRjHcJxsIP3LmQQem6+7MsZe6tGOJRIMTngx
BHAG4OVZOW3DdA3i5gbSP1pLRZr6wRBYCUTrL1G8hE9s2bJNgaXIaN0MWjnDgkNYKTqD1v/000+rv//9
7+qpp57Sj9EtYR+xImiuXkJwhqe0tWrQgJYMoL8TvdcWQwbnFPCAD30+HpuvuzLGXmwrb/EAt2LAogcu
tIO4yoZbO4Tn5Vqen1enQORGCrX+Kpj7U+vXq4EVqP+nLAATsPiylUsjQHg2AgxgM4LZ0ll4Tvky7UP4
v/3tb+rJJ5/UjyvTvqRUqaLTOr5/HRJZgjUMBuLrMQ21fnRpWNQy4we470fq5/6+PrV4DKrxHMZX2A7b
uDLGXswdjhfsLNIVdhRTQvy6Jqd/26oc+lAPauUmaPmgEi6qoL4f59SXLVNGlS5VSpUqWcoTX/bnUmSz
dUNkvmUgOMRmkTnFy9YO0Vn4v/71r+ovf/mLfh37VY26AQjrF9tZv5BTWaR+dBfIGPhOMIAthmhEmEI6
qd7NKiQ4Mgm6V0wxsR0yrCtj7EXudCLADmLAgsELBoIYA/BUzTZHr0JBqExBRCAdyjtQumeQ+iE+Bn4w
APf/WA5Ga4fwkVo0C8wt2mzVkcSG0BAZYkvRn3jiCfX4449rsB1WJJGdIKoWGVNXEhp4MxkSHTjiV9VL
2tyl2WII0IB090FC82ooQGzlfVfG2ItvxS0BoPXrExb0LKChNoCcqpnTtArJyTqdo1WXJYFBUqnSHmUA
tfRSJUqoEsWK6W1xFBDPlypZ0tePQ3iGRYfIZstmeEDHz5viQ2zw2GOPaR599FHv9pFHHtHbwJhoyeia
TLE93LGMHs+QATCgxXtgAFsMAVI+RvryOYwDkBX4MQaIroyxF8e1iQPOlGkP5/PxFI2naXKqlkT9eMni
xVXxokVVsRtv1BQtUkRzIyhcWBUpVEgVLlhQFSKKkwlupG0K0XMFbrjB2rpzEh2gtTNo9Waa5/u4NbMC
hP/zn/+sHn74YZ0FcGAKGQvnJ2Bk70FCAwjugZaP8Yyb/jGmMeMnQaqXj9E1yMdobK6MsRdOV4lCdwHk
TAaXUst5ujk9K0kj+RsLFyGBC6lCBQqqggUKqIIkbIHrb1A3XH+9uiH/9er6/PlV/uvy69tiZBQYoAgZ
ozCZgNM+MgDfchYwB3bcz8MUMAebgUVmILZM92jxDIR/6KGH1J/+9CdtBqxIViADQFRkARPfGAfiU3cB
8dG1IfvZYsigMWFMhfto/bpRidcxO3BljL2QS1dz2koE2FG9CET9E/qoUSNGeOkeBjDn42j5aNlacBbb
FTz/ddep/Ndep6679lp17f84oNVDeLwHtxBW9vUstMwGEBtCQ1xO7wxSOkTmdI/7nOYBWju3eAivf36e
eOCBB/RjjEuwNgFhITAPWiV4jdHi01inIr2nHHVnthhKpAHM1/AcSXiFIOpyRdWqVa+pXqnqm+inEgH6
KJ4FwAgjyQCy5ZuLMAMHDqT0SVMiClQlClBFfcKnc9JnBQpUeWpdmPeXAxQ0/TqB8wEH9O/vtWZO95zy
zRQvH8uUzq2dYTPgVgJToMXff//96j78zQH8TQIyAcYpEBKi+oRm6LswGMDKQS3eZ4uhCcZStudhjoyM
jN+SjldBS5fAhd9wVVJS0n9Xq1RpjW0OHi2YrqDv0kuYBDIADABgAHOahgGiPF2MDxrJtQOGp5M8pUQ2
kX08iyxTOUbvttbNrZpbNoPUzi0cYgN5f+7cueree+/VwAQYoCbToBSiYjZjomc29Jo3o4GJCccASdYY
BgUDRdIvX2pq6u+gI3Glq2mggg3xBrw53zXXXFOgcoUKb9v6sWhAP4V5Kw6KIAsMHzrUS/kQXk7X5Pxc
9tcY1MmFGDmok2kd4nNah9A8ZWP4ObRsNgEjR/Myzcs+XhoBYkvx2QClS5TUM5cKWKNgkXOCxNdL2tT6
MX6wxTAoiDNp99/E/yF+T0SVCXTrJ/DGa4j8V199dVKFpHIbsPIWK5i3YhEDZ8ggE+CvW3K/j9Qfi+iy
lZuPOa3LlM73GTaALa3zLYzA4uOWDWEaQRoAhihVrDh1A6W0oNy6cwJG4daPzGGLYVCwTkC6FST+SPwX
gcYcOAtgI/Qf+Qi4CBWV+e1vf1uvbJmkf9pW5YKAwQkvaYIBt9+u0z23+FhEZ5Fxi9f5Odn6ITAP3ABE
NdO9bNm4ZVhgmeqBuQ2QBgAlaVqKbqAciQlxcwNGATAAFrJsMQwK1gJIs1JEAVfDqwloGrUB/ocoQlQg
6l911VWdypYqtRkHK6IFix04UIH+Cbe4ls82PZMGsBmBTcBCo1XLvp1bt0z9bAQID9HRqhkYgGEjsLAs
uEzzs2fP1n+MSoLnTAOUKFpMdwPJmA244uYEhOfWj67DFsMgwABobKRXRaIYcR2BroCzQK6FDYDUAQMU
JSoRDYnOV155ZXaZoqV2Y6k2GjBl4TVsGAB/1ID7fTP9m1mAkQYwMwGLz327OXLndC77dBaZBWaR8VfD
TPA8tmPwPmQGzhJSfFCCprGlS5QgMTEbcMTNDYif7K582mIYBIy1yAi/kFapRGniBuIPBLr0QN0ANsAY
ABkAfQhngDSiEzH2iiuueKp48eKHbTsQCYxOeSUQdO/WTQsHIKIUlKdkEFT23aa4Zn9timwbtEmRufWy
wMBs3Qwbge/DBKiX6541a5YPrGNgmTpaA/DSty2GucHTwDKlS/9IOtUhkgl04f+XkIPBHAsbAP0G3ogK
kojaRGtiKPEYmeCNUgULHrftiA1OT0zbNm10oCCADBweM/wc/hbgzJnO3+7Tf79v+nQ1bdo0NZX/ht/k
yepO9+/46b/lN2GCys7OVuPHj1djxozRf89v5MiRGr4/gqahAI/BuHHjcgR/FxB1mfDzo0eP9lG6JGYB
jvgY3AUFawDAFsOcQNpHI8P9smXL7iCN4jIATwPRd6APKU5UIRoR3YjpxHNkgpVFixY9RKPY0zSFOV2y
WPEzNvAadQGna9eu7dG8SZOzHW6++RzTKqvl+ZZZWZqsFi282xbNm59v2rSpR5PGjTWNMzPPZzZqxFwA
jTIyPOTjzMxM97FDBj1ngu0yGjY8n56W5oHHoCGTnq7h51tmtTxH+3kuq3mLc00aNyEaa2jfzlUuUfJM
peIlztBs4AzHJ7cY5QTqsFG5fIWfK1ao+FOlEiV+oO0OJ5VJ2kRTdzTSmLsAFJkFeCaAyqoTzYgexHhi
NvEg8QjxGPE48YQAj5EtHi1YsOBfqlat+jcS8amuXbs+P3jw4Fep5Syklrp40qRJS6kVL6MWvYJa9Epi
FbXwNdTq11LrX0esp4zwHqXvDyj1fkRspBT/L0r1/0t8Rql+E6X+z4nNxFZiG3UH2+n57TTa30Hb7qTH
O3Gftt+B56k72EapeyvVtYXq/YJS+2eU2j+lbuATuv8v+ryN9PhDuv8+vf4e3a4n1tHz2Cfs22rKRiuJ
5bTvSyiLvDZ06NBX+vfvP69Lly4vkaleSE5OfvqPf/zj47/73e8Qnz8TuH0UMckBvI7tTPB+ycPEQ8R9
BBokRO9KtCTqERgEYvwW9SAQRWYBHgwWImCCakQ6cRPRmehO9Cb6Ev2I2wV43JcGjn0KFCgwIDU1dVjr
1q3HDhgwYBql6Tkk8lwK+APUjz5MPEJCPUY8QX08dflP/p36/n8Qz9J44HkaF7xI44OXiHk0GHyVBorz
adq4gFhMLKHB4zK6BctpQLmCHq+k21WAnntDgtfc15dTPUvp/lJ6fgkNRpfQc4vodiE9t4AGoa8Rr9Ln
4TNfpIEoTUaep7vPPUODURq+PP0U7deTNNB8nL7HvWQOfKfZZOyZ3bp1m5Senj6Sxkr98+XL14viABCn
PohJDuD1oKA+NMYuRFuiCVGXqEyUJDANRPqPahrIhbMAUgccBBMgE5QgyhFViZoE3IYBImYJGQZ4DmZJ
q1y5crOOHTu2o1bShVp8b2qFA2lQN5gEHUIDwKEU6BEkxkgSYjQJMIaEGDd//vzsxYsXTyQmLVmy5E66
nbJs2bJpS5cunQ7o8Qx6fubChQtn0IxiKm2P5+5atGjRTNzHcy7TGKp3Os08ZtDrYDpYsGDBNKoD751O
750q6p9CjyfTa5PoPvZjIm07geoZj/3DfmKfyQyDKbP0pGzSg3zQjTJZ10GDBnVo1apVVlJSUsYf/vCH
BhQDgDghHohLIkBdqBcaQAs0TmgDjSB+TAtBXLCxNAEqgpuQUpANkF7gMgwQyxL44PIGeA4DkbLFihWr
VL9+/ZTu3bvXoUFYA0qdGZSCM6nFZ1J6zqRW34QM0ZRaVTNArUxDLa45maMFBTqLWmUrEq8liaAh8fUt
iZhForTAawDbkUA3MfT+VtR6W+I+Gaw1INO1JOFakAGz6HM0uI9tAW2D7bNE3c2p3qa0H40BbduIZh/p
lLkaUFdRn4Sveffdd9ek7iuVBo016HtWS0tLq1ikSJHk3//+94gPQCxscYoVji80wMIP5v2FieuJmJeC
ZZEmgIuQSlApjICMADPgwzDQgOMigdevL1y48PUpKSk3NGvWrAAFqEC/fv0KDhw4sAClTA2N4AtSCtW3
7v1CDAW3MKBAF7FBZroxHmx1Av5cuS+8fwzvP74LvhO+G74jtf4bChUqpL+7GwMzLsiosSLrQd35iWsJ
CI8lfEzjoRm0i7r1mwVvRiWoDH0JXIUPQFaAIQA+NBJ6G5ox/FfdunU1vXr1ypeVlXX1sGHDfFCA811O
mPuP70UDwHz8PfGd+fu7sbgYoG58DjRBI4Xw0Cnmlh+pcGVsBjZEUK7q3LnzVRS4KwE91vXx48sd87vg
u+I7E2YcIFCikPXy53mxJSzlN7/5f3xRhMToLqBIAAAAAElFTkSuQmCC
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsVSURBVHhe7Z0HnBRV1vZX3V15P/d79zWRlDwMeRgYMgMM
DGFAkgiOCEPOOQ85KaAYVte067quWQxkEEFFRIzs+gJKRkVAFFRQBCV6v/PcqlN96vbtmeqAC/vN/fGn
U/Xt6vM899xQVT2/KSgFpaAUlIJSUApKQSkoBaWgFJSCUlAKSkGRJTs7O+emTjft79Onzy/Dhw9XI0eO
VKNGjVKjR49WY8aMUWPHjlXjxo1TE8aPV7kTJqjc3Fw1ceJENYkYN3acGjxokHr2+RfU0wteVs++sFA9
/9IStXjJCrVk6Stq6fJVavnK1WrlK2vUK6teV6tWv6Fefe1Nteb1t9Rrb6xXr7/5tuaNNzf4WbdBrV33
jubNtyTvqjfXM++pdeDt99RbG95X6zd8EOKdD9Xb70o2qg3vbXTuv4Nt3qf3OO9dR3WtpbrxmW+so/1Z
u572Dfu3Tq1+ba1m1Zo3aN9fV6+8+ppauWoNfZ/VasXKV9XyFavUsuX0PZetpO+7XC0mFi1ZphYtXqoW
LlqsXl64SL308kL13IIX1dPPLlBPPvOceuLJp9SA/v11jCdQPMdTXBHfcRRnxHosxRxxR/xH0zajSA9o
MnLECDVixIhfRg8derB3z94DXPniK0MHDe05gkRfuXKleop2bDwJGpQJ48aru+ffpTq0a6/2HjikPtiy
y2P77n3EFz627YoNsx6n7n1qB7Nnf4hP96udHgc0uz7zs5v5/EuPPczeL9Wnki/AQc1ngs8Fe/eF+ALs
NzhwUG3e/qnaROD2y6+/UR3at1d3zJ1njWtezJg+Q23buk2tfWOtmjxx8jBXxtjL0MFDDtw2a7basWOH
emHBC2rwwEFRMXFCrspslqkOHT2hdh044vHN0Z/VYZMjzE8BcLe11PPN0ZPqm+/9fPvDKR/fgWN+jhw7
7fCjw1HJ8dPqe8EP4MQZzTHmJ4cfBcd/Bmc1J8BJh5+YU2fVz8QXh35Q+8DhH+jzflbNM5urMaPHWGOa
H5MnTlLjxoxVjz766FeujLGXIYMGnx00YKBi+vftp7K73Owjp1t373UTxwDNSBi/AUxBvv3+VJhoQcF7
w+pzsQntiJ2P4IQU3BTdFD5c9GDC/3zqnAbCM54BRo22xjQo9/3pvnMk4SWOkjGWgf0H+CqtU7uOSk1N
VWk101SttDS6ramqVK6sbrk527cdkzt+gmOA70+o3V8e8bCJ4sHC5YftvQY+oYXYQQTPT/SoW7tF+JOn
HaQBvtcGyIzbAHfdOV+RhPEbQFKzRk3VpHFj1aJ5c9WqZUstLkzRsX0H33YMDNCsabgBPCGkOImA63Ux
RfYwhM5XcGAIHhI9aGt3hD8phAenhAH2wwDHyQDUbWKAZ4tpUO684w4YIL5iVlq7Vi3dp7dv107d2LGj
ap2VperXq686dujo247BzAAG+IYMsEcYwCpKgrEJLDHFtgkes+g24Q3RNWfOqdMEhNd84xgAMR49Mj4D
3DHvPBigXt261PJbqVuyb1E5OTkkfAfVKD1dm8HcFpgGYGyCJBotMHDFNQkidkTBg4puE54EZ+E1Z3/R
wjOJM8C8+A0woF9/JWncqLEaPmy4nuNPnzqN5qRjVY8ePdSNlAHMbcF4mgo2y2hKBvhJfXrwqGYPwSJs
+ezweePjaPjc4ZPPvwnEVmavnW0Wtn8h+VZzhsQHYQagRjNqxEhrTIMyb+7cxBsgo0mG6k6j/pHDR2hx
4bQunTvnb4AfQgYA3OI+2v31eeN/82MPc8jHpgBstvFpZLYwZDYJxD97LmSAA4k0wJwEGADTPgkGgZ06
ddLCDxk8WPXp3UcPCtEVmNsCLE40JdOYBuD0ahUmEXjiMn6RgwrNRCs4iCQ64MwD8c8REN7hGHVbJ6nb
bKobmS2mQZl7+5zEGyA1pbq6oU0b1e3WbqpH9xzVlcYC9erW07MAc1vABviWDPAZCc9wf2oTJl5sAkZD
LGIDT3AgxDZFl5z7hQxAQHjmhxOJMcCcRBigX5++SpLeMF3P+2uk1qBsUEOlVk9VlStVUrfe0tW3HYMV
KXQb2gBfkfguPGg69tPphPJjXvwc4ngYocHeCRsnz9D+Wjh1hgZ7QA7+ztKAz88p5ozDac05RdprDnx7
TH1JOBngZ9WUuk0YwBbToMy57fbEGwD06dXbR1/qBmzbAccATbQBPifhGQ4URs2JRIrgx1l4YczRuURO
0STeqB24gzcTpHQJ0rvGbeksuEY5BfdDXYAzBoABcAzGFtOg3H7bbefHANHABvjuGBng6+89fEE3xImF
vAS14YkMXIGtQgMSNlbB6a5PdC24K/ov+nVne3MWkBADzE6AAdC642Hs6DE0SAw3gE8AF5tQQbDVpSHx
bIQJzJCgkYQGpthBBKd/uuAWgkvRQ/WcCzcAdZuYbttiGhQcxHNljL3YKo4GaYC9JDxjFUBgE05ie0+e
kID5CcxIgSWe2MAVkv75cfS2tvKQ6Ofoc0KcJnglEMvBOBiUCAPMToQBzP4+WnBAo0mjxmEGsAX+18IU
VuITGbCABP0Lg4vz2N/CgVPvOXVWCK5F18YMDQr5WAAbIIMazfChw6wxDcqsmTMvMAMcIvFdzMD/WvjE
ZVg0jV9gDxYa6OeE2IDeGPoci+Cm6GKGcPL0GfUFxYQ5ciEZoHfPXioeRrsGOPLjT74vyUE7L0hhfLB4
EXA01gX3necNoQFV5BPbktLNFg6k4M7U0QFTSY4LGgdiBQMMGzLUGtOgzJxxIRhg5CjVuFEj7WppAIrj
r4crKBd+HNrGLrJfaEdsKbRfbENwo4WbgjvrCKfVCRfZPR6hbInV1bgNMH1G/Abo1aOnigdtgHQYwJ8B
OOj0LxwpUiToPztcbwifsMAV1yawLX17QgNLy/aLHUzwE75FqFM0Mzrqge4SBhg6ZIg1pkGZMW36v98A
OKDRiAyQ3xhAihILZn1+IgsrMUWOVmi/2HkL/uNPIY4RvECGVVLECkddhw6OzwDTLzgDiDRnEyDReIIC
L00Di7iARA0X2S60X2whtEVsm+DHToCTet0fyGXybxNlgKnT4jdAz5weKh6wno0TRvClZJrjoO8+8N15
Z1eefOuw38/OvNgXYodg+75vHHzH/R22+Tistu09rLYSmPJh4eezg0c8sGyOcdOQQYOtMQ3KtClTLyAD
hB0LOKNb1pZPv1abw7AfbQvH9l5iT/5sihL/oeWvHHb7+SgSu75S/4oAMiMGyJ+S8Mw3P5y4cAyAQ77x
gPVsHEH8lr7UZ1+Rw124n4xFjETjF1cIHI3IjEXkMHaCg+qfBBoGTLCHhGdgAHSbOMffFtOgTJk85QIw
wLCQAaTLuY9kAUxRoiFcQBuuoBGEZayimthEjYQW+ysttg2cKwnB93z5nWY3gecSY4DJ8RsAF33EA1az
0hs01F9KGoAHROgDEw1S6pFj+YOW54GW6IJWaQNCacFccKq7x1GHQ0eP+zlyXH0t+OrIj+qr70Lw+yE8
ow1AjQbn9ttiGpQpky4AA2Axgw0g0xyPfn8Vjof4PiJkHmCYyTMU8MwjjCMM5DeM07KthjGNQsaQg9LD
9BwMMKD/AGtMg4JLxFwZYy+2iqMBUxkYwHQ5go2g+7EJkx/h9UQS0sQTFojMEElgW3YwRTaFhpim2LaM
AOF3umA7bYB+/a0xDUpCDND91m4qHjCSbdigAQXkuM8A/oATpiDRYtanoRG2S5igEouwIUjUvEQGAYT+
GkIb6f8g+NZBTjPx3vSGDVW/vn2tMQ3KxNyJ/34DYCCjDUBBkfNvW7C5lUWLra68cUW1CBsmLojUvxN+
kfMQ2hPbOfeP4RNBWfwdBOrRBugTrwFy4zdAt663qnjAQKZB/QY6WEhvvPBiC3yiCROScQW1tlxJmLhM
HiIDi9BSbEafAXTYQS4o4TMaUrfZp3dva0yDgusyXRljL7aKowHXD2gD0JfypTlbwM83PhFtuMIa4kYj
8peGyKbQfNaPx6Ef9MExuYqIz4cBevfqZY1pUBJiAJzuHQ8YyDSoX18HGOmNwZdEwEPYBIkGpx5PQMYV
LxI+UYHbJ1vFBRaBPZEDCC2Rx0bkcjH2C91mr569rDENCn6hxZUx9mKrOBpwgUKDejDAj7405wXaFCAe
PPFMLEKaWESV2AQOIrIpNNDHQ8SyOA4AyWMF2gCUNXv26GmNaVBwUY4rY+wFV/7EAwYyuHwcBvDSHGEL
MoAQQbG9PyieoBZRw4Rl3J9xCSJyJKE99CVyoYWxrV84B4cADIBus0dOD2tMg3JBGADXDtavV0+nY7ib
j47Zgp5orCJKXEEjicrYxAXe0U1XYJvIptBAL4aJS+XxewmfkPDMwe+O6W4zp3t3a0yDgmsyXBljL7aK
owEnJ4YMcNjDFuhfA5uQJp6whrhhAoMIImuhhcgstF4HoWmweZj6E31pOjikuyxtgG4XgAHw2z/xgBMT
cPEoXK3TnAsHeOPOL8P4ZwBs7wMfxsKOyHwg2Z4/728/YGebw3sGPPf/mIRnMCZBt4mRvC2mQRkzevQF
ZgC3jwO65VALemfr/sTzSTgbEsDbmn0OH+fNehtbwuGp38ef4YpiB4xRYIBbu3a1xjQoOCXflTH2Yv4k
XLT07J6jf1YGrg6lucNeWrQF+tfCJ2gAUSVWgYFF5PVbvvDxlgC/HIJfFNny2dceuEAU3SbSuC2mQcEJ
ua6MsRdbxdGAgQwbgFMc+jnuB23B/XdhFVRiFRdEFjgv1hHcIOQZTWwAtGJbTIOSGAN07qLiIefWbqpe
Hb8BAK8Iym4h4VBgGSfQjvkiIffPB6VlmaJNNoMIp6ltAntsJ684J6BwvXo7F8xg6lO3qYW0xDQoOCHX
lTH2cjNVFA8YyNQlA6Bfk0Hbvg8nUYYjF4uCYKtDrjf4ENNQRi7A2Aj98JMwlos3dfMM5sA/OJWfeaRh
NomzlWAAjJts8YwGnI/pyhh7sVUcDZEMYAt2wvHEiyyiSSRR/cK64gYS2J8VvJYelhVCBsAaBQzQ5abO
1pgGJSEGwE7EAwYydWvX0f2aDIQXWBn0eOE6A2AVUwgaSVQmz5QPhMBhIlPqN88/xPN8f9/h73W32blT
J2tMg4LzMV0ZYy+2iqMBAxkYAEuuXnAIBFEGO5GYYgUhJGi4qD5hgVXcvAVm/gX0CaMHPf5JyG32HXIM
cNON8Rlg+LBhCTBAp5tUPNxCA5m6tWpTv/Y9BesrD1uQzzc+EYEQ0SQkajBhmdAZwX6BPdyzgTd6OAtY
cnusWNajRtOpY0drTIMyfMjQ+A3QmSqKh5upL6pDBkBa8wKpMYPsxyaKxPaecOTnuZBIEpuIJqFWG0xc
v8AhkTe6q4thq43bv/TVg2snkTXx45tmPKMBJ+S6MsZeOlMaigekojq1amkDfCSEsAX6fKDFAz4BQUhE
iRRC4wqap7B5iAtCS8UHPMwlYln33q+PkgFqq47t21tjGpRhg4fEbwD0Q/EAJ+IXxpHWpDA6oLaAJwLU
nQ9+IRm/oHmJCvzHB0Li2gQOPw6wX723db9610V+Ng461SED4E/t2GIalKGDByfAAB1vVPHQidJY7bRa
avnqdRR4p6+DSBxEDnSikAJFg/2ATwRRGVdYq7iGwIz12AWB+iH+hzsOqBVr1ulus22bG6wxDQrOyHZl
jL3YKo4GGKBG9er6x49btWhZQACaU6zwk7wd2razxjQoQwYOit8AnaiieMGvhSOl4Rg3rnptmpGhWmQ2
V1ktW+nfHUaqw3b41fFbsrOd3yHOydFnxfbv118Noi8ylAY0I0eM1H8yzfnzdLn6J+tx/du0qVPV9GnT
9F/Mmjlzppo9a5a67bbb1O23367mzpmj5s2bp/96xvw771R3zZ+v7r7rLnXP3Xere++5R917773OLYHn
8Bq2wbZ30Hvwk+tzqB786uZts2erWVT3zBkz6LOmq2n0mVOnTFGTJk3S5+DjT+aNGzdO/zk3XBQ7hPrg
gQMG6vP7e/XsqY+L4Ahf9s03664Rg7x2bduqNq1bq5YkPP5GAH5UE7HC7yqZcYwWxM2VMfaCFvxrYnNy
ftgGQL8mtn3KD9t3TzQ4Jd+VMfYClxZwcYJT8l0ZYy83tu+gCrg4GUjdpytj7AV/B6CAixNck+HKGHvp
SAO0Ai5OcE2GK2PsxVZxARcH/fv0jd8AmKIVcHGCi3JcGWMvWIwo4OKkb+/e8RugPVVUwMVJ316JMMAN
bVUBFyd9evYqMMD/z+AXw10ZYy/t2tygCrg4wVVZroyxF1vFBVwc9MrpEb8B2rZuoy5k+Msi5fHo15sL
t2/vLIt2CB0gMQ/K2A7u2DDfx/XpdXe98uZ8Ju8Dp2HeP9u+n2965uRcPAZgERFEBBRBxomNuMKla3a2
6t71VtWjW3ed1jC6xSIH1rrxK2Q49WnE0GFq1IgR+nKosaNH60uj8QMJuePGq4njJ6hJubn6d/Pw65lT
J0/RP6Q8fepUNWPqNP2HFWZOBzMMpuvX8LPr2BbvwXtRB+pCnagbn4HPwmeOHTVa78Oo4SP0r6TidxIH
Dxyo9xX73KdXL90y8V26de2qut6crc+bhMm0oei7d2jXLiGm6dG9+39+BiggMjCZK2Ps5Yas1up80qp5
C92qNm7cqPbs2eNn9261W7Jrl2aXZOdOtdNkxw61Q7J9u2Y7s22bZpvB1q1b1TYX3Jd88sknPj7++OMw
tmzZotm8ebN6+umnVfPMTFWtSlVN1SpVQlQOgb/DXKVSZf33lytXrKQqVqigKiZXUNWrpejY2GIWFFyX
6coYe2nTKkudT5Aijxw5ovbv36/27t37H8PBgwfVunXrSPwqJGY1fVpcWmoNj5qpqQ7VHfBHuHEaWErV
qtoQFconaxPYYhYUdJuujLEXW8WJonXLVvpPnL/zzjv/kSATpFStRkLX0Bd64NfSNHXreeAq4Pp16uor
gXAqOE6grUFmQHaokJysY2SLXRAwxnBljL1gB84XWS1a6vP3bMH7TwAGgPi4yAM/mI3z/EI00n9NjcGP
Q2ObBvXq6esokDHQJSBGttgF4dbsW+I3AHYg0aB/4mnbvLnz1Pvvv6/ee+899e677/rgQL799tse69ev
j8hbb72lb7Hdhg0bfHBd8jnz8yS8Tzbw2gcffKC3k/XxZzCbNm1StdLSdCuH4JkZTVWzjAyHJiGaNmmi
MsgUoFHDhjojpNWoqccLGAfYYhgEzDBcGWMv2IFEgtTE82jMnXHWLguGoCGoMtgffvihBwaKfB8imMj3
sZBSaNxnE7FZ+JaNw7CILC7vH79fbgv4dQkMgNbckNJ+08ZN9OneDE6ThyEYbQTapnF6ut6+NhmnGo0H
bDEMCq7LdGWMvbTMbK4SCaYnchHljnl3eAGDSLiVQkkBIoFtzfdJ8Lz8DP4ced+EX7OZynyM7fkzeB/A
Rx99FNkAQnxpAGQK/EooxgIYPNpiGBSsobgyxl5aNstUiQQZACZAN9C2dWt97j4HjGHhcF+KZ7Z2FkCC
581sALgOhj9HfoasPy+Q/iWoH5+NOlAnsgpmAMhYdUjIMAOQ4ECLT8IDbQCMDWg8kE4GgHFggBaWGAbl
5ps6x28A7EAiweCEFypgBlxkAQEYKRLAxRpYUcuboWrYkCFq8KBB7kUYvVTPHj2oe5kbZhBTRO5ScB/P
Q0zcYlsW1nbL2/F+wkgs/JtvvqnWrl2r67RlAJn+cdGMNxbQXYCTAfC+1JQUvb0tjkHASqorY+zFc22C
4QDgqh5uiUCKDxrRyBgBzAs9naKBU+2aaaoWgbl01cqV9QIM1wvYYBDRBl6T29qQ9TEQnsV/4403NK+/
/ro2CTIARvYY4MnvrcV3hWfxMxo3dgxA3wnvgwGwnRm7oOACUVfG2Ivc4USA1I9TlvmgDbdSbl1SfIDg
5Uf9us4culbNmiqNgPhYWcOqGgSyCWmCz7LtA57DLbZBXTLFo6VD7Ndee02tXr1arVmzRt/HLcD7cGU0
9hHiZjalGBDNgDsbwGVymAUATA8b03QQBqhdq7Y2AMxhi2MQMM5yZYy9SJcmAgxOeKEC3QCuuUOQIxlA
L5TkBxZRKGA1aeqERZTq1VL0qlp1CiCby/wMfp67AkZ2CXgd20rx2QDmY4C0DyO8+uqratWqVfo1pHIs
/iADIPXrlO/SlOKh0a2fDdBQZzTOAM3oeVscg4ADS66MsRfsXCJBauJRanPqp/AXriEGCyLFB1ghCwIu
p8bcGb+ulYZugAZQWEiRrVvCn8mYLVwi+3VO8ZzmufWz6OCVV15RK1eu1O/DaB4GwJ+D94TXrd4BwrP4
GABiQYgNgMUgWwyDggzryhh7wcg0kcCZEP8GZAEaEM6aOdMTwRQfYAk1P7DSppdQqdWj30fqL18uSSUR
EA3iAQgCICqEhuAMt2Y2AL+HkYKz6FLs5cuXa1asWKHBfbwH+4Vf/YTA2gBu62SRtAHoNccA6XrM4xmA
vg9es8UxCOhmXRljLxnkykSixcfRKrcbgAFswjP1qGXnB9I/BoCplPorV6yoxS9XpowqW7qMJzTXxxmB
W7wUH2aByAB9OLds2brlY9zCANIEy5YtU0uXLtXAKFjQgaBo3Xq6R4IDbQASCQJzbND/YzmYB7ToxvA+
Gb9owGqrK2PsBTuQSDA9gfBZLZ3lSlzTL0VhoRiImx9oLbUo/WPeXFUfSSuvTYCDKbIu1M/Cc0tHRpCp
XbZyNoHNDCw6YBOg5S9ZskQtXrxYLVq0SG+LWQnGKRDX1/Jd8Tn1Az3joSkgfluZDYD3yfhFA04qcWWM
vWAHEgl2TDu0kXM7aeIkrwXKlspA3HyhYOEQa/Wq1Zxj75WrqEoVKurZgBSbUz/36QwMwCaQ/bpM85za
Ob1zK4fgUnSwcOFC9fLLL2tzwJgYo2Bw5xPeFamJiA0WgDADwPYwjjYAmULGLxowyHZljL3AleeTiRNy
PYFwaxoALSFfKMg4pg4D4Bg7DqJUonFAclJ53xiABWaRuWXLFi3TOITFLR7L1C7hbWAAiP7SSy9pXnzx
RV0XjIkshe/qiU6wSF4sSPx0Er8hjRcwpoFxYADvdQtZzVuIo38t9fq/fB3drCtj7AU7lkgwP5VHrLAS
iCkXr9CFGYACkR8IVk0KFhaAkBEQOM4ELLpM8dIADKd3mIBbuRRd3ofYaOVo7dzy8RjCv/DCC2rBggUa
bAtjwgBI7V5rJ3GAFsqNiyO+s6iF7Z0uLcUXOxOMpfSBH3dWBcHl6+hqXRljL9ixRIIAyIHKpNyJOk1z
/2waoFaNGvmCVlaD5sw4+yaVpk5O609S5QmZ3jm1y76cbzkDyDRvmoDTvUz5pgGef/559dxzz6lnn31W
P4+pHAaCaNk41NuoAYlDpIP6FBMCwuN1iF+vTh13Sut0abYYMmj5etnXXfnDY/k6GpgrY+ylIe1UIkE/
qNcBaMfRF+Lv2yL1swlMA/ApVHmBtI8ZAFp8TQocugCsASTTYJBbPcSXaV8KL8Vn4aUR2ARSbKR7gFTP
rR7iQ/hnnnlGnxMIQ2AxxxkI1tV9vO7nPdFxhpAjvCM+VjTJAGQY7tJsMWTQBfCBJADB5evIDq6MsRfe
uUSB/s87+kVmwOnVcjHGNADOqMkXd/UPomPgl1w+WSWVLafKlS3rExxCy9YuW7wt9cuWzqLjlls7xGfh
0epZ+Keeeko9+eST2hgQUS9QkbiO4CHkaiZe12sa1PrRrWFFM4W6MVsMGaR+PatwB5Z4LF9HQ3NljL1g
TppI2Pn8eNzYsb5ROkTnqRpAIPJF9//VVKVk54za8jT4Q+sH3NJZcBZais+t3kz3EN/W6hnZ8jntP/HE
E5p//OMf+jmc1AGDIq17gtP31oIDdyFLA/EpW9QiU6PrwDiG42QD6V/OJPDYfN2VMfZSn3YskWBwwosh
gDMAL8/KaRumaxA3P5D+0Voq09QPhsBKIFp/qZKlfGLLlm0KLEVG62bQyhkWHMJK0Rm0/scff1z9/e9/
V4899ph+jG4J+4gVQXP1EoIzPKWtXZMGtGQA/Z3ovbYYMjingAd86PPx2HzdlTH2Ylt5iwe4FQMWPXCh
HcRVNtzaITwv1/L8vAYFIj9SqfVXw9yfWr9eDaxE/T9lAZiAxZetXBoBwrMRYACbEcyWzsJzypdpH8L/
7W9/U48++qh+XJX2JbVaNZ3W8f3rksgSrGEwEF+Paaj1o0vDopYZP8B9P1I/9/cNqMVjUI3nML7CdtjG
lTH2Yu5wvGBnka6wo5gS4tc1Of3bVuXQh3pQKzdBywdVcFEF9f04p758uXKqbJkyqkzpMp74sj+XIput
GyLzLQPBITaLzCletnaIzsL/9a9/VX/5y1/069iv6tQNQFi/2M76hZzKIvWju0DGwHeCAWwxRCPCFNJJ
9W5WIcGRSdC9YoqJ7ZBhXRljL3KnEwF2EAMWDF4wEMQYgKdqtjl6NQpCVQoiAulQ0YHSPYPUD/Ex8IMB
uP/HcjBaO4SP1KJZYG7RZquOJDaEhsgQW4r+yCOPqIcffliD7bAiiewEUbXImLqS0MCbyZDowBE/RS9p
c5dmiyFAA9LdBwnNq6EAsZX3XRljL74VtwSA1q9PWNCzgMbaAHKqZk7TKiUn63SOVl2eBAZJZcp6lAPU
0suUKqVKlSiht8VRQDxfpnRpXz8O4RkWHSKbLZvhAR0/b4oPscFDDz2kefDBB73bBx54QG8DY6Ilo2sy
xfZwxzJ6PEMGwIAW74EBbDEESPkY6cvnMA5AVuDHGCC6MsZeHNcmDjhTpj2cz8dTNJ6myalaEvXjpUuW
VCWvv16VuO46zfXFi2uuA8WKqeJFi6piRYqookRJMsF1tE1Req7wtddaW3deogO0dgat3kzzfB+3ZlaA
8H/+85/V/fffr7MADkwhY+H8BIzsPUhoAME90PIxnnHTP8Y0ZvwkSPXyMboG+RiNzZUx9sLpKlHoLoCc
yeBSajlPN6dnpWkkf12x4iRwUVW0cBFVpHBhVYSELXzNteraa65R1159jbrm6qvV1VddrW9LkFFggOJk
jGJkAk77yAB8y1nAHNhxPw9TwBxsBhaZgdgy3aPFMxD+vvvuU3/605+0GbAiWYkMAFGRBUx8YxyIT90F
xEfXhuxniyGDxoQxFe6j9etGJV7H7MCVMfZCLl3DaSsRYEf1IhD1T+ijRo8c6aV7GMCcj6Plo2VrwVls
V/Crr7pKXX3lVeqqK69UV/6PA1o9hMd7cAthZV/PQstsALEhNMTl9M4gpUNkTve4z2keoLVzi4fw+ufn
iXvuuUc/xrgEaxMQFgLzoFWC1xgtPo11KtN7KlB3ZouhRBrAfA3PkYSXCKIul6SkpFxRo0rKa+inEgH6
KJ4FwAijyACy5ZuLMIMGDaL0SVMiClQVClBlfcKnc9JnJQpURWpdmPdXABQ0/TqB8wEH9O/vtWZO95zy
zRQvH8uUzq2dYTPgVgJToMXffffd6i78zQH8TQIyAcYpEBKi+oRm6LswGMDKQS3eZ4uhCcZStudhjiZN
mvyWdLwMWroELvyGy5KSkv67epUqr9vm4NGC6Qr6Lr2ESSADwAAABjCnaRggytPF+KCRXDtgeDrJU0pk
E9nHs8gylWP0bmvd3Kq5ZTNI7dzCITaQ9+fPn6/uvPNODUyAAWoyDUohKmYzJnpmQ695MxqYmHAMkGSN
YVAwUCT9CqWlpf0OOhKXupoGKtgQb8CbC11xxRWFq1aq9KatH4sG9FOYt+KgCLLAiGHDvJQP4eV0Tc7P
ZX+NQZ1ciJGDOpnWIT6ndQjNUzaGn0PLZhMwcjQv07zs46URILYUnw1QtlRpPXOphDUKFjkvSHy9pE2t
H+MHWwyDgjiTdv9N/B/i90RUmUC3fgJvvIK4+vLLL0+qlFRhA1beYgXzVixi4AwZZAL8dUvu95H6YxFd
tnLzMad1mdL5PsMGsKV1voURWHzcsiFMI0gDwBBlSpSkbqCMFpRbd17AKNz6kTlsMQwK1glItyLEH4n/
ItCYA2cBbIT+oxABF6Gicr/97W/rly+X9E/bqlwQMDjhJU0woF8/ne65xcciOouMW7zOz8nWD4F54AYg
qpnuZcvGLcMCy1QPzG2ANAAoTdNSdAMVSEyImx8wCoABsJBli2FQsBZAmpUhCrsaXk5A06gN8D9EcaIS
0eCyyy7rXL5Mma04WBEtWOzAgQr0T7jFtXy26Zk0gM0IbAIWGq1a9u3cumXqZyNAeIiOVs3AAAwbgYVl
wWWanzt3rv5jVBI8Zxqg1PUldDeQjNmAK25eQHhu/eg6bDEMAgyAxkZ6VSZKEFcR6Ao4C+Rb2ABIHTDA
9UQVojHR5dJLL80td32ZvViqjQZMWXgNGwbAHzXgft9M/2YWYKQBzEzA4nPfbo7cOZ3LPp1FZoFZZPzV
MBM8j+0YvA+ZgbOEFB+Uomls2VKlSEzMBhxx8wPiJ7srn7YYBgFjLTLCL6RVGlGWuJb4A4EuPVA3gA0w
BkAGQB/CGSCd6EyMu+SSSx4rWbLkYdsORAKjU14JBN27ddPCAYgoBeUpGQSVfbcprtlfmyLbBm1SZG69
LDAwWzfDRuD7MAHq5brnzJnjA+sYWKaO1gC89G2LYX7wNLBs2bLHSae6RDKBLvz/EnIwmGdhA6DfwBtR
QRJRh2hLDCMeIhO8WqZIkaO2HbHB6Ylp366dDhQEkIHDY4afw98CnD3b+dt9+u/3zZypZsyYoabz3/Cb
OlVNcf+On/5bfhMnqtzcXDVhwgQ1duxY/ff8Ro0apeH7I2kaCvAYjB8/Pk/wdwFRlwk/P2bMGB9lS2MW
4IiPwV1QsAYAbDHMC6R9NDLcL1++/C7SKC4D8DQQfQf6kJJENSKD6EbMJJ4iE6y6/vrrD9Eo9iRNYU5S
v3fKBl6jLuBknTp1PFpmZp7udOONZ5jWrbLOZrVqpWnVsqV327JFi7OZmZkezZo21TTNyDib0aQJcw40
EcjHGRkZYa/baNyo0dn0hg098Bg0YtLTNfx866zWZ1pnZZ3JatnqTGazTKKZhvbvTNWSpU5VKVHyVGn6
/hyf/GKUF6jDRtWKlX6uXKnyT1VKlfqRtjucVC5pC03d0Uhj7gJQZBbgmQAqq0G0IHKICcRc4l7iAeIh
4mHiEQEeI1s8WKRIkb+kpKT8rXnz5o917dr16SFDhrxILWcxtdSlkydPXk6teAW16FeoRa8iVlMLf51a
/Vpq/euI9ZQR3qH0/R6l3g+IjZTi/0Wp/n+JzZTqt1Dq/5jYSmwndlB3sJOe30mj/V207W56vBv3aftd
eJ66gx2UurdTXduo3k8otW+m1L6JuoGP6P6/6PM20uP36f679Po7dLueWEfPY5+wb2soG60iVtK+L6Ms
8tKwYcNe6N+//4Ls7OznyFDPJCcnP/7HP/7x4d/97neIz58J3D6ImOQBXsd2Jni/5H7iPuIuAg0Soncl
WhP1CQwCMX6LehCIIrMADwaLEjBBdaIRcQPRhehO9CL6EH2JfgI87kMDx96FCxcekJaWNrxt27bjBgwY
MIPS9DwSeT4F/B7qR+8nHiChHiIeoT6euvxH/059/z+IJ2k88DSNC56l8cFzxAIaDL5IA8WFNG1cRCwl
ltHgcQXdgpU0oHyFHq+i29WAnntVgtfc11dSPcvp/nJ6fhkNRpfRc0vodjE9t4gGoS8RL9Ln4TOfpYEo
TUaeprtPPUGDURq+PP4Y7dejNNB8mL7HnWQOfKe5ZOzZ3bp1m0xZYxSNlfoXKlSoJ8UBIE69EZM8wOtB
QX1ojNlEeyKTqEdUJUoTmAYi/Uc1DeTCWQCpAw6CCZAJShEViBSiFgG3YYCIWUITAzwHs6RXrVq1xU03
3dSBWkk2tfhe1AoH0aBuCAk6lAaAwyjQI0mMUSTEGBJgLAkxfuHChblLly6dRExetmzZFLqdtmLFihnL
ly+fCejxLHp+9uLFi2fRjGI6bY/nbluyZMls3MdzLjMYqncmzTxm0etgJli0aNEMqgPvnUnvnS7qn0aP
p9Jrk+k+9mMSbTuR6pmA/cN+Yp/JDEMos/SgbJJDPuhGmazr4MGDO7Vp0yYrKSmpyR/+8IeGFAOAOCEe
iEsiQF2oFxpACzROaAONIH5MC0FcsLE0ASqCm5BSkA2QXuAyDBDLE/jgigZ4DgOR8iVKlKjSoEGD1O7d
u9elQVhDSp1NKAU3pRbflNJzU2r1mWSI5tSqWgBqZRpqcS3JHK0o0FnUKtuQeK1JBA2Jr29JxCwSpRVe
A9iOBLqBofe3odbbGvfJYG0Bma41CdeKDJhFn6PBfWwLaBtsnyXqbkn1Nqf9aAZo2wyafTSizNWQuooG
JHyt22+/vRZ1X2k0aKxJ37N6enp65eLFiyf//ve/R3wAYmGLU6xwfKEBFn4w7y9GXEPEvBQsizQBXIRU
gkphBGQEmAEfhoEGHBcJvH5NsWLFrklNTb22RYsWhSlAhfv27Vtk0KBBhSllamgEX4RSqL517xdlKLjF
AAW6uA0y03XxYKsT8OfKfeH9Y3j/8V3wnfDd8B2p9V9btGhR/d3dGJhxQUaNFVkP6r6auJKA8FjCxzQe
mkG7qFu/WfBmVILK0JfAVfgAZAUYAuBDI6G3oRnDf9WrV0/Ts2fPQllZWZcPHz7cBwW40MWEuf/4XjQA
LMTfE9+Zv78bi/MB6sbnQBM0UggPnWJu+ZEKV8ZmYEME5bIuXbpcRoG7FNBjXR8/vtgxvwu+K74zYcYB
AiUKWS9/nhdbwlJ+85v/B6ADhC6QGzEaAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -402,7 +402,7 @@
</value>
</data>
<data name="C1Auswertungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 770, 398&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 770, 398&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 770, 398&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 770, 398&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -412,7 +412,7 @@
</value>
</data>
<data name="C1TrueDBDropdown1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 326, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 326, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 326, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 326, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -422,8 +422,14 @@
</value>
</data>
<data name="C1TrueDBDropdown2.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 309, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 309, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 309, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 309, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>388, 17</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>530, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAkAAAAAAAEAIABboQAAlgAAAICAAAABACAAKAgBAPGhAABgYAAAAQAgAKiUAAAZqgEASEgAAAEA

39
DPM2016/Sysadmin/frmAuswertungen.vb
View File

@@ -39,21 +39,23 @@ Public Class frmAuswertungen
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Dim db1 As New clsDB
Try
If C1Auswertungen.Columns("Design_Funktion").Value = "Fakturierung" Then
'If C1Auswertungen.Columns("Design_Funktion").Value = "Fakturierung" Then
Dim fnkt As String = Me.C1Auswertungen.Columns("Design_Funktion").Value
Dim param As String = Me.C1Auswertungen.Columns("SQL").Value
Dim behandlung As String = db.Get_Datavalue("Select top 1 nrbehandlung from behandlu order by nrbehandlung desc", "")
Dim f As New frmReportView(Me.C1Auswertungen.Columns("AuswertungNr").Value - 9, True, "Design" + Me.C1Auswertungen.Columns("Bezeichnung").Value, param, behandlung)
Dim behandlung As String = db1.Get_Datavalue("Select top 1 nrbehandlung from behandlu order by nrbehandlung desc", "")
Dim f As New frmReportView(Me.C1Auswertungen.Columns("AuswertungNr").Value, True, "Design" + Me.C1Auswertungen.Columns("Bezeichnung").Value, param, behandlung)
f.Show()
f.Print_Rechnung(False, True)
f.Close()
End If
'End If
Catch
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
@@ -154,5 +156,32 @@ Public Class frmAuswertungen
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
End Sub
Private Sub VorlageImportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageImportierenToolStripMenuItem.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim nr As Integer
Dim name As String
nr = C1Auswertungen.Columns("Auswertungnr").Value
name = OpenFileDialog1.FileName
Dim db2 As New clsDB
db2.Save_RptDatei(nr, name)
End If
End Sub
Private Sub VorlageExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageExportierenToolStripMenuItem.Click
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim nr As Integer
Dim name As String
nr = C1Auswertungen.Columns("Auswertungnr").Value
name = SaveFileDialog1.FileName
Dim db2 As New clsDB
db2.Get_RptDatei(nr, name)
db2.Dispose()
End If
End Sub
End Class

57
DPM2016/Sysadmin/frmStammdaten.Designer.vb generated
View File

@@ -41,15 +41,18 @@ Partial Class frmStammdaten
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15})
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode17, TreeNode18, TreeNode19, TreeNode20})
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode22})
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode24, TreeNode25, TreeNode26})
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode22, TreeNode23})
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode25})
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28, TreeNode29})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -101,12 +104,14 @@ Partial Class frmStammdaten
TreeNode4.Name = "Titel"
TreeNode4.Text = "Titel"
TreeNode5.Name = "Orte"
TreeNode5.Tag = "Demo"
TreeNode5.Text = "Orte"
TreeNode6.Name = "Status"
TreeNode6.Text = "Status"
TreeNode7.Name = "Knoten7"
TreeNode7.Text = "Patienten"
TreeNode8.Name = "Tarif"
TreeNode8.Tag = "Demo"
TreeNode8.Text = "Tarif"
TreeNode9.Name = "Tarife"
TreeNode9.Text = "Tarife"
@@ -120,34 +125,44 @@ Partial Class frmStammdaten
TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar"
TreeNode14.Tag = "Demo"
TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Dentotar_Parameter"
TreeNode15.Tag = "Demo"
TreeNode15.Text = "Dentotar_Parameter"
TreeNode16.Name = "Knoten8"
TreeNode16.Text = "Tarif"
TreeNode17.Name = "Ansatz"
TreeNode17.Tag = "Demo"
TreeNode17.Text = "Ansatz"
TreeNode18.Name = "Abrtyp"
TreeNode18.Text = "Abrechnungstyp"
TreeNode19.Name = "ESTyp"
TreeNode19.Text = "Einmzahlungsscheine"
TreeNode19.Text = "Formulartyp / Einzahlungsschein"
TreeNode20.Name = "RGTyp"
TreeNode20.Text = "Rechnungstyp"
TreeNode21.Name = "Knoten14"
TreeNode21.Text = "Abrechnung"
TreeNode22.Name = "Auswertung"
TreeNode22.Text = "Auswertung"
TreeNode23.Name = "Reporting"
TreeNode23.Text = "Reporting"
TreeNode24.Name = "Spalten"
TreeNode24.Text = "Spalten"
TreeNode25.Name = "Options"
TreeNode25.Text = "Options"
TreeNode26.Name = "User"
TreeNode26.Text = "User"
TreeNode27.Name = "Diverse"
TreeNode27.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode23, TreeNode27})
TreeNode22.Name = "Behandlungsart"
TreeNode22.Text = "Behandlungsart"
TreeNode23.Name = "Gesetz"
TreeNode23.Tag = "Demo"
TreeNode23.Text = "Gesetz"
TreeNode24.Name = "Diverse Stammdaten"
TreeNode24.Text = "Diverse Stammdaten"
TreeNode25.Name = "Auswertung"
TreeNode25.Text = "Auswertung"
TreeNode26.Name = "Reporting"
TreeNode26.Text = "Reporting"
TreeNode27.Name = "Spalten"
TreeNode27.Text = "Spalten"
TreeNode28.Name = "Options"
TreeNode28.Text = "Options"
TreeNode29.Name = "User"
TreeNode29.Text = "User"
TreeNode30.Name = "Diverse"
TreeNode30.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode24, TreeNode26, TreeNode30})
Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1
'

2
DPM2016/Sysadmin/frmStammdaten.resx
View File

@@ -158,7 +158,7 @@
</value>
</data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 751, 423&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 751, 423&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}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{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 751, 423&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 751, 423&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value>

6
DPM2016/Sysadmin/frmStammdaten.vb
View File

@@ -49,6 +49,12 @@ Public Class frmStammdaten
If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
If Globals.License.DemoMode Then
If Me.TreeView1.SelectedNode.Tag = "Demo" Then
MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
Exit Sub
End If
End If
Me.ClsStammdaten_flat1.get_data()
Try

25
DPM2016/Utils/Globals.vb
View File

@@ -1,5 +1,13 @@
Imports System.Math
Module Globals
Public Seriennummer As String = "1.001.2018"
Public Productname As String = "Dental Practice Manager"
Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
Public Version As String = "1.0.2.1808"
Public Versionastaum As String = "04.09.2018"
Public RGCollection As New Collection
Public Spaltendaten As New DataTable
Public SQLStatements As New DataTable
@@ -8,8 +16,6 @@ Module Globals
Public OnLoad As Boolean = False
Public Mandant As Integer = 1
Public Auswertungsverzeicnis As String = "\Default"
Public Version As String = "1.0.1.1801"
Public Versionastaum As String = "13.05.2018"
Public LogedIn As Boolean = False
Public FakturaNr As Integer = 0
Public DefaultPrinter As String = ""
@@ -19,6 +25,16 @@ Module Globals
Public SecurityDaten As New DataSet
Public Mainweindow As Windows.Forms.Form
Public Databasename As String
Public Rg_Funktionen As New clsFakturaFunktionen
Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
Public Enum Taxpunkttyp
Privat = 1
Suva = 2
Minmal = 3
Maximal = 4
Dentotar = 5
End Enum
Public Function Round5(ByVal inp As String) As String
Dim Rappen5 As Double
@@ -44,4 +60,9 @@ Module Globals
Next
Return Nothing
End Function
Function SwissCommercialRound(ByVal input As Decimal) As Decimal
Return Math.Round(input * 20D, MidpointRounding.AwayFromZero) * 0.05D
End Function
End Module

2
DPM2016/app.config
View File

@@ -25,7 +25,7 @@
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/></startup>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6"/></startup>
<userSettings>
<DPM2016.My.MySettings>
<setting name="LogLevel" serializeAs="String">

BIN
DPM2016/bin/Debug/XLSLib.dll
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/_FRReporting.dll
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/_FRReporting.pdb
View File

Binary file not shown.

1327
DPM2016/bin/Debug/_FRReporting.xml
View File

File diff suppressed because it is too large Load Diff

115
DPM2016/frmMain.Designer.vb generated
View File

@@ -25,16 +25,20 @@ Partial Class frmMain
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.mnuMain = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDPMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PatientToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FirmenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FinanzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungskopienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
Me.MahnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZahlungsdateiVerarbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CAMT054ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PruefzifferToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
@@ -43,19 +47,21 @@ Partial Class frmMain
Me.StammdatenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.SecurityObjekteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.cbboxPrinterConfig = New System.Windows.Forms.ToolStripComboBox()
Me.DruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SepaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.AgendaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuMain.SuspendLayout()
Me.SuspendLayout()
'
'mnuMain
'
Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.FinanzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.ToolStripMenuItem1, Me.cbboxPrinterConfig, Me.SuchenToolStripMenuItem, Me.DruckerToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.SepaToolStripMenuItem})
Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.FinanzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.SuchenToolStripMenuItem, Me.ToolStripMenuItem1, Me.cbboxPrinterConfig, Me.DruckerToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.SepaToolStripMenuItem, Me.ToolStripMenuItem5, Me.AgendaToolStripMenuItem})
Me.mnuMain.Location = New System.Drawing.Point(0, 0)
Me.mnuMain.Name = "mnuMain"
Me.mnuMain.Size = New System.Drawing.Size(1325, 27)
@@ -64,46 +70,55 @@ Partial Class frmMain
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.AbmeldenToolStripMenuItem, Me.ToolStripMenuItem3})
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.AbmeldenToolStripMenuItem, Me.ÜberDPMToolStripMenuItem, Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 23)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'AbmeldenToolStripMenuItem
'
Me.AbmeldenToolStripMenuItem.Name = "AbmeldenToolStripMenuItem"
Me.AbmeldenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.AbmeldenToolStripMenuItem.Text = "Abmelden"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(183, 22)
Me.ToolStripMenuItem3.Text = "Datenbank wechseln"
'
'AbmeldenToolStripMenuItem
'
Me.AbmeldenToolStripMenuItem.Name = "AbmeldenToolStripMenuItem"
Me.AbmeldenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.AbmeldenToolStripMenuItem.Text = "Abmelden"
'
'ÜberDPMToolStripMenuItem
'
Me.ÜberDPMToolStripMenuItem.Name = "ÜberDPMToolStripMenuItem"
Me.ÜberDPMToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.ÜberDPMToolStripMenuItem.Text = "Über DPM"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'PatientToolStripMenuItem
'
Me.PatientToolStripMenuItem.Image = CType(resources.GetObject("PatientToolStripMenuItem.Image"), System.Drawing.Image)
Me.PatientToolStripMenuItem.Name = "PatientToolStripMenuItem"
Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(56, 23)
Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(72, 23)
Me.PatientToolStripMenuItem.Text = "Patient"
'
'FirmenToolStripMenuItem
'
Me.FirmenToolStripMenuItem.Image = CType(resources.GetObject("FirmenToolStripMenuItem.Image"), System.Drawing.Image)
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 23)
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(72, 23)
Me.FirmenToolStripMenuItem.Text = "&Firmen"
'
'FinanzenToolStripMenuItem
'
Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.MahnungenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ZahlungsdateiVerarbeitenToolStripMenuItem})
Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.RechnungskopienToolStripMenuItem, Me.ToolStripMenuItem4, Me.MahnungenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ZahlungsdateiVerarbeitenToolStripMenuItem, Me.CAMT054ToolStripMenuItem})
Me.FinanzenToolStripMenuItem.Image = CType(resources.GetObject("FinanzenToolStripMenuItem.Image"), System.Drawing.Image)
Me.FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem"
Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(66, 23)
Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(82, 23)
Me.FinanzenToolStripMenuItem.Text = "Finanzen"
'
'RechnungenToolStripMenuItem
@@ -112,6 +127,17 @@ Partial Class frmMain
Me.RechnungenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungenToolStripMenuItem.Text = "Rechnungen"
'
'RechnungskopienToolStripMenuItem
'
Me.RechnungskopienToolStripMenuItem.Name = "RechnungskopienToolStripMenuItem"
Me.RechnungskopienToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungskopienToolStripMenuItem.Text = "Rechnungskopien"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6)
'
'MahnungenToolStripMenuItem
'
Me.MahnungenToolStripMenuItem.Name = "MahnungenToolStripMenuItem"
@@ -129,11 +155,19 @@ Partial Class frmMain
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Text = "Zahlungsdatei verarbeiten"
'
'CAMT054ToolStripMenuItem
'
Me.CAMT054ToolStripMenuItem.Name = "CAMT054ToolStripMenuItem"
Me.CAMT054ToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.CAMT054ToolStripMenuItem.Text = "CAMT054"
Me.CAMT054ToolStripMenuItem.Visible = False
'
'AuswertungenToolStripMenuItem
'
Me.AuswertungenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PruefzifferToolStripMenuItem, Me.AuswertungenToolStripMenuItem2})
Me.AuswertungenToolStripMenuItem.Image = CType(resources.GetObject("AuswertungenToolStripMenuItem.Image"), System.Drawing.Image)
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 23)
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(112, 23)
Me.AuswertungenToolStripMenuItem.Text = "Auswertungen"
'
'PruefzifferToolStripMenuItem
@@ -153,8 +187,9 @@ Partial Class frmMain
'StammdatenToolStripMenuItem
'
Me.StammdatenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpaltentitelToolStripMenuItem, Me.StammdatenToolStripMenuItem1, Me.AuswertungenToolStripMenuItem1, Me.SecurityObjekteToolStripMenuItem})
Me.StammdatenToolStripMenuItem.Image = CType(resources.GetObject("StammdatenToolStripMenuItem.Image"), System.Drawing.Image)
Me.StammdatenToolStripMenuItem.Name = "StammdatenToolStripMenuItem"
Me.StammdatenToolStripMenuItem.Size = New System.Drawing.Size(90, 23)
Me.StammdatenToolStripMenuItem.Size = New System.Drawing.Size(106, 23)
Me.StammdatenToolStripMenuItem.Text = "&Einstellungen"
'
'SpaltentitelToolStripMenuItem
@@ -162,6 +197,7 @@ Partial Class frmMain
Me.SpaltentitelToolStripMenuItem.Name = "SpaltentitelToolStripMenuItem"
Me.SpaltentitelToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.SpaltentitelToolStripMenuItem.Text = "&Spaltentitel"
Me.SpaltentitelToolStripMenuItem.Visible = False
'
'StammdatenToolStripMenuItem1
'
@@ -180,6 +216,14 @@ Partial Class frmMain
Me.SecurityObjekteToolStripMenuItem.Name = "SecurityObjekteToolStripMenuItem"
Me.SecurityObjekteToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.SecurityObjekteToolStripMenuItem.Text = "Security-Objekte"
Me.SecurityObjekteToolStripMenuItem.Visible = False
'
'SuchenToolStripMenuItem
'
Me.SuchenToolStripMenuItem.Image = CType(resources.GetObject("SuchenToolStripMenuItem.Image"), System.Drawing.Image)
Me.SuchenToolStripMenuItem.Name = "SuchenToolStripMenuItem"
Me.SuchenToolStripMenuItem.Size = New System.Drawing.Size(74, 23)
Me.SuchenToolStripMenuItem.Text = "Suchen"
'
'ToolStripMenuItem1
'
@@ -190,6 +234,7 @@ Partial Class frmMain
'
Me.cbboxPrinterConfig.Name = "cbboxPrinterConfig"
Me.cbboxPrinterConfig.Size = New System.Drawing.Size(150, 23)
Me.cbboxPrinterConfig.Text = "Druckerprofil..."
'
'DruckerToolStripMenuItem
'
@@ -212,6 +257,18 @@ Partial Class frmMain
Me.SepaToolStripMenuItem.Text = "Sepa"
Me.SepaToolStripMenuItem.Visible = False
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(12, 23)
'
'AgendaToolStripMenuItem
'
Me.AgendaToolStripMenuItem.Name = "AgendaToolStripMenuItem"
Me.AgendaToolStripMenuItem.Size = New System.Drawing.Size(60, 23)
Me.AgendaToolStripMenuItem.Text = "Agenda"
Me.AgendaToolStripMenuItem.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
@@ -223,12 +280,6 @@ Partial Class frmMain
Me.Label1.TabIndex = 2
Me.Label1.Text = "Label1"
'
'SuchenToolStripMenuItem
'
Me.SuchenToolStripMenuItem.Name = "SuchenToolStripMenuItem"
Me.SuchenToolStripMenuItem.Size = New System.Drawing.Size(58, 23)
Me.SuchenToolStripMenuItem.Text = "Suchen"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -274,4 +325,10 @@ Partial Class frmMain
Friend WithEvents SecurityObjekteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label1 As Label
Friend WithEvents SuchenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RechnungskopienToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As ToolStripSeparator
Friend WithEvents CAMT054ToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem
Friend WithEvents AgendaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ÜberDPMToolStripMenuItem As ToolStripMenuItem
End Class

174
DPM2016/frmMain.resx
View File

@@ -121,6 +121,180 @@
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PatientToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFIUlEQVRIS51Ve0yTVxSvAnvg3EjG3JzP
Cs4HYoXSUtpCgba0YX1A6RMos62AhaId1qnRUKvOKWK2GJlLijPqxG0uVhQVdIqAq+5B5uaYxjl1IsNl
skznJlvGObv385v7a7H4S365+W7O7/zuOV/uuZyHwWQyRZUalVy3wyhz240yqzb3eY1GE0v2H2NDHh1l
FnUCP4W3LC8vr7uiogICgQCqVaqQWCzeKpPJNpdZtUkVFfwYNnxkWOrUjeVOmlCvkMvvORwO9Pl8uKS2
FlV5eVjjqcbVfj+WlJQcE6Wmpvr9/tGsLDIghzPKmCcSJiYk9M+dkwS8ObNRIU0DfY4Q5yW9hBaDDlwu
F6xYvhz1Wm2Lt0Q1npVGBmoQExNjHfdc/LAoNRlo0n/ZXl/JfEsF80Cr0aBIJLoknjMtjZVGBmoQPXq0
Zzp3EpN0qDeEQ199iL92B/H6RwE8Xe/Abc4cNIhn4cQXxw9FRUUpWWlkoD0lItOqKttff5zfD3CtHf/8
tgXufLobb4TegN63q+CMvwCaXUJUzH7hajSHI2KlkYEaxMfG5m/3V975/dw++Pu7Vhz6JgS3z+7CvtB6
6G0kBnV6aHFn4OLMKZeefTJawEojA23RrIlxWT3bfDdvh3fg3S/24G+f7cHBziBe27cGz28px/DKl7Fj
UQaGXPyLM+Of4bPSyJE0IY4X3uT88vr+tTDQugl/PLwZ+g5swAtNtfD561Y4VSuHjirB8D5X2slt8xXT
6aFY6cNBg/UyXtwmp2xjb9A9dCG4GC82+eBC8FXsqX8FTq/IhxMeCZzypN325U7x+jX82BHdBWpQU6N+
3JyVqO1ar//hzJoiPBOwwNmAGTtfU8NxkvxElQCOegRfZyXGp9DbPKIKKOgMmjGDm7yxhL/1uCcd2yrT
8YhLgG0uPp5wp+Envoy76x3Za3XiGWNHfJMptqz0cA/vf39XcJFr5151Ih60zIKjZUl4zMWDw8XJcNDK
G2huCrYtmW/NHfHpa8rLEpbVet/s6ekZbHGX3HlPMhV3iifjdtFk3CnlYnNWAr4rnDp8trvr1sJy50FH
qZnHSv8fZFrG2G1mldVqPUSG2L3S0lJsbGyEn28OwAG7Ck86k+HcOi12VafAoVIpXO04Ag0NDeh0OmHB
ggXDRqMxZDMYVFUm01Nsyv9AZztJ6jSbzQNkcgIdzWSYIV3D4TDcunIZP15qg1bbTGxbmANXOtvhRt91
sNvtWF1dDV6vF9xuNxCTfoPBsIEcbgyb+j60Wq2S8HJxcTHS0UxOhdSAVlFXV4f9/f34wdEOPHfxe3Sv
DuLg4C/Y3NyMFouFiausrGRItSTPPZ1OV/fgx5OHI1qpVK5TqVRA2oOEQIyAVEQNgAiAJnurpRumrWrF
oo0hpio6rm02GxLSlYmnOhqfk5NzSa1W0/k0ikOSjyEmjXK5HAoLC7GoqAhIyyiRtIwRkFbhjvYuMOwJ
o3P3SQgGm0Cv11OiUqEAqiUrEj3k5+cDefF+InlNTBUkKC4zM3N7dnY2kreWloikRIY0AREw+wUrG7Bw
VyfOXbcXvasCSJ5RZp/0naGO6Ggs3RcKhbdIFXbaHQ4p5en09PR3iAk9CQ0AStIypG1T3D8hpqsLQOwP
4jjbCpBrCiA3N/dBPDktjUNaCUkMfD7/BqGeqYC4PJGRkWEn7JNIJCiVSoGaESJd2W8USySQYizHcVlG
yBBLaBsoH8RQLd0jeUAgEDSSKriMwSNd84jB4fwDvqXLOq2ng6oAAAAASUVORK5CYII=
</value>
</data>
<data name="FirmenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAABKJJREFUSEutU0dTXEcQfief/Bd89M03/wCXDy774jIiCChZQiJIIhWFyMEPY5Ge
kAxILEsOJkjAwi4sIBQKIaJgCYtJm2CJuwQviCiRuj09Fo/ClilT5lV1vZlvur9v+psZ4b9+CQkJn+7v
71e/f//+IRt/8gG+mE+r1X7OyEfX19dhZ2cH9/b2etVq9Wcflv/fZzKZvme7Xrfb7cDGPBwOBzBs1Ww2
f/sh7ewvN+XmdwVpfl6n47bXin3+/u7u7tHs7CxOT08j+8Pc3BxaLBZcWFiAd+/eHa79YU8vTg/8Wy2L
ZJ9vOLlaGebze8s9HGmWgP4Uo88zwbE4iZubm0g7tlqtRI4zMzNAf4qpqSlggWTZms2EYy8eyvXHXPXK
O55CY36YNKxNgeOYeJUPGw47rK6ugsFgALbzfw0SoRyybHN9BQwdpTIPRWNBmChockOloYZkHNQkgaVP
hTtbG9yKyclJbguR0P+sMeXOz8/D7s42zuifci7i1ChDRaE+J0QaUN/FubF2YH5zf/V6Pe2M7EGj0UgH
e+aYcqmGLCMO+/QwE0jFekWIKNRlB0vW4Va6esCuIlKcd/yxNYfNjKpHwaJQmxUo2axjdL8vNLa3t6E6
iwlUZwRI3epMnDKMwNLSElKYTQYYGepHCpvNBsvLyzjPrqd+sI/jszNWygP2NnBUP8jzjIYJud5qngDd
i0qszvAXhccPbkudFTHY36TgLbK7jc31lRAf7IlxQR648fYtx82GcZpzfFjXzW3Y2trCpCg/JExVkQsM
4/W61hLoKI/Gxw9uiUJl+k3pVWkkkMDBwQElQYumihF5QFyQOyPZhMPDQ7AYJ9icBDxAP9DDMbKBCXCs
rjKP17MXDrpnJUCclel+olCe6i21FYdjX+MjKuKH1KKuInKMDbiMJHB0dIRTpkmMDbwMcYHuODLYiyTA
vMakSF/WmTvWsQ6onrrof1oExFme6iMKZSnXpZeFodiryZIFyCIij/F3OyUQE+DG8ZGBHlngboQP34iq
/ESgr7kQiLMs+YYolCZdk57lhkBPfYZsEQkwcoi+7SpbZDaOQ7S/K8fZGXCMLEoM9+aYqlwpW/SmKR+I
s+SulygU/3JValUGYbfq15MO6iqIHKNuucgdWEwTNGe4C7IzkDtIDLuBlFv7m1LuoLcxD4izJPGqKBSK
V6SW7ADsrLkvCzQxASKPvOl8ImCcoDnH9ewWHQv8fOc630hNWY4s0N2gBOIsSrgiCvnxnpI28xZ0PLkn
W9SkKgcii/C7dGKRYZzPI/2cYbi/i2NkUUKoF8+tKfvrFpJFXeocIM6CnzxFITfWXWrM8MP2qjS5Ay0T
iPB1wnCfH051EO7rxHF6B8cdiCHXMML3ElaXKuQOOuuygTjz4txFISfKTdJm+eNYp0YW0Ot6oLZMgTWl
Ctxlz57wJfsim2dzfHbajLRbelQNT4qQsP6uNuqA1xt0L+F5QRQqo1yZQISLZBlu561dZGysrYCCBLLD
ndKMQ6+R/KSWKc47/tjaumMVH4Y5xwvRXl9/+STFe7mtVgmvNUVI0a4uPNf4H2v1BaDKCF2M+fGrL/4E
LYWQ1gx5MLcAAAAASUVORK5CYII=
</value>
</data>
<data name="FinanzenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHT0lEQVRIS3WVeVRU9xXHp0aTnqTNH22T
1qZtjkYrJ3/YxPWoJ5oUN8BtGCjYiqCCiiMKMqyFgLiguETBhUUEtBkwrAHDgIrsW4CZgcFhmRkWYYBh
Z8CZeQPeb3+A0Sax95zPue+8d9/33ve79/d7vGnLvfqvd1uLDn/alOfsIU/lZ8ru8Z9I0/jDdWl8E4Ok
6bvMsnT+qDRV0C5Ns81v+M4pWFV46PP0G/z32eu/mBH5f9b0YP8flff/cYUJtrU8dJ7qa/Chie4wMk9E
guOiyWyOZz6WuIlIMurCaUDpD3Wx63N5pv2gIstO3Ppw/6dM5o1ZtddYc559cnvxAcOoJhhm8y1MTooZ
KYz/MBL/h7uMZIaYxcVjQhuG7kqhuUliX1wv2b+ESc2ZVfyJ1WfspFF1CHFcPE1O3oeZu0OckVVuigFn
jHnho2fuccabNGm+wxJks/g40neEQlXgRNIsR7sXcj+3upSdpj65L1uKZJqaqmYV5rPrFJbsHhOa9inM
J888N5vFLEbCYipmYgYa/KC4L+AqkwW2TOr1vahJ2DzZU+kFXc0pTHEFeP68mdHGUDIaGI0MBeMJQ8VQ
YmqqADrpGXQXH0V96o6p8sQd01/w+gRVsRsNz1SnqKfqBKkl7ugqDqIRRSyZdcWYHK6m53rZjOd0RTTS
GE9dhYFoyT5IT4uEZOw4jeZ0R6pIsFTWptlaMLmf9yHJc+nterHd2EC1P40pQ9BVepyasvaiMcMJqjw3
UuUegCrXlZqznaHM2IPuEiGGFQE0Wh9Iahajzncjbd1hqk3ZvOuF5I/N3Wbxwuv7F+fJvxZAKXZAe+5B
9JWLMCoLxmBNwIwfYn5cEYL+Sh+05+xHQxIf9Um2rAB3THScgVEXhJq7lvVM7rWTNK8g2uq6PMPW3F7o
w146Sop0F6pNFKDs2lYquWqJ4iubqDzahuru2FNLrhu6KnzZ5J0ic885GDWhpC35J5XeWNfKtF67H94o
vWkZ1/7oAI1rTqOvOoh6q0KoX3YWOsUZGlKdw1hbBI13THOOxtvOQt8SRnpFCA3X+ED/xIfGG72oNGq1
gWnNnZX8sc15FPX3cFnSTqNJdQYc260TnaE0XOcP7WNv6sg9BnWaG6lTXUmTeZC0D45CV3ac9M1fknko
CqbOKOop9Ce52I5iYmLefqH5yurE1nu+T7bqLI+1IVnCdmiy9mGwUgSDOghc/0lw4yypIXyWiTBwg6Ew
aWPBDcswpGuD+mk7FK3NqFcUUXPviG9rj/49AK9GtiHTSvtMG0TSuwJqlbhBds+Ryq5ZU230Tsji+NRw
mzX0Np/qb+8iWfwu0uSfwli/Bs06PaLLO3H6oQrBklYEfdeE83mNxgvfViZl12r+wvshiTxtKzsOLkOT
7wpNpjP66/zQKz8BZa4LquIFKIiwRo7/BmR4r0Vx1CGM9aoh7RrGV6UdyGweQ5xsCJGVvYgo1SKssAue
GfLnZ+8VJkVLaubPJKiMXW8Ylh+hEWUINXzjAHm8DalSd9NglQfGWPMMnb4wDQaQSR9Ik8YcaukbQkRh
Gx60TUCsHMfV6gEYzFMznCruQcjjLuyOLTTYnoz33xaS/Tav9NoaMmoCaEQuIk2eEHLxXjaS2+n7G1ao
vWlNshgbSGOsSXrTinTyNKRLOxFR0oWvmXhU7Qi77kaGvAep9X0IetgFP0k7nBKraVNgrGTV0QsLeAUX
Vj7te3wAXHsgjFq2PNXuaPrWBRWRfOSf3Ihsn7VIO7EaGaK10JQn41qBEhdLuxEtG8XFyv6X1U8jYuIe
OWrsSarFZz7R8gX8Yyt5/lv/cOTB2WUki95CHTlOGK07Sga1J3EDPjCN+bEfjT9MwyJ61n2MDLp0isyT
4+SjdlyqHGBLokWgRPMygTCrBW5pTbCLLcdyj0jFfKtD63ipoct3F11ZQ4pMByq8tAFF4Z9R+aXPqSZq
I2qvbSbpjS3Mb6KaSEt6kuZNCQ8qIMpsxGkmHvSoCz73VS8THEh9AucUBbacv0+fuJ6r+tM29gUpwcu2
FF1cNfhUshc91YfR+tgJNUnbkR9uiQy2PCnC5RAf+htSPVcgL2wjcjJjIEwoRkCuCt65r6r/AcfEGizz
iuMWOfgmLd4XspC3dCnvnX9v+70wVbRIVX19vUmVLqC+MhfSt7iznhwjbtQLpnERmYaPk7HXg4aafSHO
jIPTlSy4xFdg3906uIjlsL9VBevLD7Ha786UhWNA4V8dRVu3Xs19a3pS5yz5Le/XJx0+tAqy/k1swpGF
1TmBH2sLwpcbSy6uofKv1qL8yjoqu7SGSiJWUn7YJ/qULzf0BAaLtFaiyPEv/G+b1vslcqu8b5mWHr48
8JGDf9EiO2+7DSdifjezD17Y9DH7y01L33nfae27K7YtelMgsJjnZvfxXA97i7leAoadxRxPuyVzPXZZ
zHO2+ejNHS78FSsXbHYWfLhdGDDfxiPig23C83/eLvT8wNr9C/uQb341u5N5vP8CZ2CG8LQA+DcAAAAA
SUVORK5CYII=
</value>
</data>
<data name="AuswertungenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAA6BJREFUSEudlM1PlFcUxq9aUGKJrYmxjRtjDYQ23bhporsam9pWqxIMEFGwIigC
Dh/jAMPHENKaqMVFN25YqXFhG40ldTerpukf0A2kCI1atKk2BJEBz3l8zp15h0l4mRJv8uSe9773nt85
5364oMk5l9QzDtLgVE45RR3tGtrVtCtoH2F/kP2XHPvcKRv0esce9PevzbjI36SZgHN0cJYOCMEp2nW0
CUEV7aPsj7A/yDFCPMA0emn/qiASIaDVAc3UWaqBIgQnqRqKEMvEIJaJObfmIbd792TcrNw8IMIIzzPC
FkYblKuetpXrOPvqdCZWrgAgImoySN5MpI2Adjpoo4NWOmuhHZSrnjbLhePsqzhGyDIAvxfzlUs6Cehk
+h1UG3WeIgRNVCNFiC8XIZZJAMhtNqZ3E+HlkuiapEYZYScj7GC0hGTLRYg0sj/N/iTHTuRscoj+bf5o
d8btUpMYARfo4AIdROmMmfhyEeLL1cTe9uU0xwhZrFun09z0yUNOJ76i9juM73M69qnTyYr3khm3S026
1iY1xvRNBIHZ+HJxX7Ll4jE2iGVi5UrxdBlk6pDDw4YSLDwax5+f8fvolhBA/K2kdjPCLkYYY7QEWSYS
L1a8SkG+K1O0rgEvpFq5LBN8QwjL9U9rier8Czy9UqMTXzh9WLk5BNBbkAZ0czEh6KI98K5i5jEw/Qcw
9wy4WAY7YR7CE2Z3RRK7FC9nMDvShKmKAn1wgICqd/4HQCFRDHMuk78qhj+GjEYV8zOQ2Nv+GBsEAyUw
5/JTXFNXv8bfPL6Th50+qi4OAxQmNc7a9lCDdD77BBi7D3xfCu218fXAjw0wiGWCb0uB1AvgXhyIbAJ+
/wELtQ5PKx0eHysKAfSlATKUKcvYL96xJDapLfaQofchPzOTued0PktgU3pO/w4/xx7JVK3T6dowQGJD
OoP/poC/fvMLAwUAb1/5ELjTDNyuXzYnuJDzjaGAoqRNlJG9GizIXZxry+BWnq6N2cyy47b5Z2x/8gEu
b1cZWipLsHg1tt16u5DSkgdgEzH8waqd5trga+xvfWRDfoAM73yzDNoZfYTqKFxhk4OJbwqwh9IgnWGA
AR7TzERc3blqp7m2f8P45Eu0YGWAXPtE5dI2xa3ypcU5ttwo96fMj9/MmXOjnLec0dtrHMsH6OUECn3L
bQT/42nBLmYPbQrdtA1g6goF8C2ySOhsRQX/7UIGsqcl6Anxj2QW4NxrN4vRlSXxynMAAAAASUVORK5C
YII=
</value>
</data>
<data name="StammdatenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAABPZJREFUSEuNlf1PU1cYx2umi9vfME2WZT8bf1kWssRkIcYYXaLAjNuUZI5iFWpa
eS96O4uFttDSQpE3+wp9A4EClr5B1U2mM+LMGEt8HdO5LW6j/Ipyzp7v8ZaIovFJPrnPfc7zfM+5z7nn
XsXrTIpE3q7y+9+TwuGPdKFQ/on+0G4Av45iEsYoR05/cyuKRN6q9vm2VHj92uNu31iF23+7ui/0ny4U
WQLwEcNYFeUgl3O+Ti5/vUmZzPpqj3+Pxu25ogtGFhpHzz+1TqS4I53hbekLAviIYQw5Wpf3hzp/YA9q
ZZm1TetybTrWfdZS1xfIWsYnuD05xUiQtU9ehPDKNQfukWMeizHUoFbnCm6S5VabJEnr1ZRwIjz42BpL
QIC3pTJ0JSYvcHtikjmSU7w1nmbwQbuc4yCs8TRHLTSgJcs+M/S81N5eWO0PLFgnkrRKtGMNUlNrx2Ws
sSSHxtG2jgJoCnFsTnlv79ayzp4rxug4t02kWGuCVpmcpMdfzbV79/n8439eiudAnTE6xqCl7fVuFRtf
7HZvVDm7qqp8/QvNtAJrPEWPm2K2RJq7Ll3mqdk53krFwSs/8uXlZarhfPDadRGL3rgpcpALUNdM7a3x
9WfLznRVQVuh7vJuVrV3xqTw0FP08XlGZn4Sgq+zyblfV9UA/cDw8hHnmZja692sKLHb81QdnfcM56LM
PJ7gprE4A/BBbtW/PHyEjRbMPvhjJZ7Ly9Wax+OsYWiUqzq67pXYnXmK7eWaHUc7urMUJOEJ3kSvHDDR
axqYviqE5kgc9y2xBLfFk8KfffBQTOD7flrcA1E7GmPG4TFe1tWT3anR7FDsUGv2lHefXTo9Mg5hHB4G
7vz1txCA2ejNspxPyHecDhntFZGzq3fuQpw3UR0wRs9zdY9rCdqK7WpNwZHOnicNNCtNssLV23fF6kEL
rQ4HL9cWy3icm0ZjwkfsLi0GNUaikd5E+NCEtiJfrdlZ2taRlSJDoneGoSgDDcOj3JW5JAR+pnbgnk4s
txDwb87/Libwfzct7oGopb2kTeaH285k6Ql2Uou0nxyy2X/TBQf4KZrgRXKGSRrlVd6cfyBH+apcgwy0
DrU67kNb8Y3D8f5BsyWpPet5qh8c4dLAEAP6wWE+Qu97ri24ruUHLk9z5AJpYJhqh9lxj3/5oLklCW1F
YUvLO4X1el2poz2rCw3wk6FzTBAe4jbqdYBaAN+dubgi2k2fBcSi12ZEDnxAZ4mdCEXY4TZntvCkXgdt
fCvWfdnQ9PH+RvP1Co+f14cHX8mtR3/y6Vu31xzLAY0vjKYZaEJbfI+Uyq4Ne2tOHvja2rpInwxW2x9m
tYEIf5G64DPWGgOoPWRzLEJr24tf1GJJ2rjPcNpZYm//t9LTx+ivxWv6ggzAr/L2M/qDcW2vh1W4fQxi
NYEw5YRETqW3n6MWGtCSZZ8zepz9JtOHRacMzmKLdZEOinjcSn+ACMpXGV8uFuT0W8Wh4sXNtsUivcEJ
jZXWvGQ0gNl3VdYcKDh1+kax2bpY6uxcLut28WM9bqb19HGt28/gl3e7GMaKW1qzhd82zKBGrPyV4s+Z
UqncUCAZ8j6rrq3fKxnSnxuM8/ubzItfmZqfAPiIFeoN6V2Us89gyMM+yuVvZvgj7ZKkdw+azR/kq1Tb
PlWqdhNFMrvzS1TbMKaknJW/10umUPwPJ8hKspKCyXYAAAAASUVORK5CYII=
</value>
</data>
<data name="SuchenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFcUlEQVRIS6WVe0xTZxiH2cbARV1GHGZm
0bgBiSZuEP5QrkO24byMDFnQocOJFyDIQAEVEYaOTdyUmwUrRdtSrJaykdoVsRMp0NoLpS2F3qiF6rHQ
KusFau+Xs+8k548lgGj2JL/kpPnO877frSfgv8hgOOiJwxEmMBq3C0ymH/ueTpVT5dKK7onHBd0QlMaF
DJ9wIegddPjrITGb35NYLLlCi4WtttmgKZdLb3C7LAaXy/rEbn8mNf6j/RuCxFSlsqRHq10Pw/Cb6KtL
A4GuWHr9SZl1Tmf0eNRun++pz++fBtGDTHl8vkd2r1c2bbeP9EKQkiiRXO8YGfkIff3ljOj1y5kQdGps
bnbK4fMNe30+DQjk9fu1yDOQK0EkTq+XZ/f5WHqbjflgUjuB4wv+7FCrQ1HN4nB0uiiOwSAyOJ0jQIgU
GAVBnkUer1cIwgPyfrvbe8/qdtNMDsdtpdHIaBcOQ1cFgh/uqtXBqGphaGpV2ajFAr0AEhfoEOQBSC/I
fRCmw+vtBstDm3O7O4xOJwnMADdhtjTSZHLOZWZvD0kkCkdVC0OVSvsezb0YBYKbNo+nHaTN5vaQbG53
OxLQNdHidF5/brdjJsyz1Q91uvzeySe5dLkKU0O7o8NyON9UvWzDbw4NaTVWK9/octWZXK7LIJcsLlct
SL3Z4WgwOhx1k2bzaZ5Ol83QaNI7FYpMkKN0heqnn6l/WC7d78tnsViBqG4+RA5Hr5qdZYGjeHbKbj+j
BzHY7eUglZDVWsLV6/fcUU+kUOTyLyljylS8WLoPnKLcLpniTGU72Xaxh3mGKpMFobr5XLnHlPL0+gG5
yVQkMxpzFUbjUemzZwd7tU93kBWKWPzYWBxBItnaKhJtxwgEu+vZ3APtYnE+RSypLcUTrOe7e4pbhoff
RnXzqenq6uwZHx8TzsyUsCDdd3T1RCp5VJHUIhbHYYWS+OahoSQMT5jSMPjw6zo2ew+Wyz9MG5MXEQbY
nYXYlufn6IwsKpX6Fqqbzwks9jB+cNDQp9ViyHL5zmsi0RdYoXBrI5+fXPeQ/3kdh78NkWMGON82c3jf
31WoTowbDJ0XblFUx/EkwXkabQuqWhgCi7W+HE/8iywY0tBUqmKwHGlNPN5OIN/VyOamYrjc3a28ob0k
ofjAfeV44XOrlUNiDQ4UNl0zVXTRz5aRySGoamGQ9SvHk1Mr2kjyNh5f1CmT/UKRjO4nDg/vaROJ9lIk
kv10mTJ7QKPJezwzQ7ndz+4vwjTPgeXhlRKJnwbA8BuoanHALJYV4/FHTuJadbV36NMdw6Jupkr9a//k
ZBH/MVTA12qr746Mkhu7aMq9p047ck8Uw1K5Yi4iMrpmV2ZmBKpZmspbnVuOYbA3jlyq1RReaZotweKc
JVdx7vz6Bkf2hYvmnEaM4mhDY1tEdLT0s8REX0NDPZyVlTWV8lXKwaqqqqX/XZFBvzMYH5y91bH9+A1C
5TFca3N+Cw5fRCA1n+zoOF3e1bUjs6IiYvnKlb+FhX1sLS0tgfl8vr+6uno6NjFxF6pZGuTYNbFYK2oY
jJAqOv19ZCOrmqgrQAOBSBMboqNjgoKChDExMfC5c1WwWCyGy8rKVLEJCWlJSUmL3+pXBSkSvmFDEigy
unHjRk9eXp5fIOAjRfTJycn7wJClN34pkE5Xr16dFhwcLAgLC/Pm5OTATCbTX1BQMLVp06aUjIyMxS/f
qwKKLPtw3bqMwMBARXh4OHzoUDacmJgIg1k9iI+PX4cO+38gnYKZxIIi4pCQEFd6erp/zZo1vLi4uCh0
yP8HKbJ27dptq1atIoSGhrISEhJyQJb+nL4OyJ5ERUWFRkZGrt+8efO74CdwLwIC/gWLDGUWNmirgQAA
AABJRU5ErkJggg==
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>84</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAkAAAAAAAEAIACoJAAAlgAAAICAAAABACAAKAgBAD4lAABgYAAAAQAgAKiUAABmLQEAQEAAAAEA

104
DPM2016/frmMain.vb
View File

@@ -1,5 +1,7 @@
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Public Class frmMain
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
@@ -29,6 +31,26 @@ Public Class frmMain
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Globals.License.Read_LicenseFile(Application.StartupPath + "\keyfile.key")
If Globals.License.DemoMode Then
Dim f As New frmDemoMode
f.ShowDialog()
My.Settings.TempPath = Application.StartupPath + "\Demo"
My.Settings.DocArchivPath = Application.StartupPath + "\Demo"
Globals.License.Gueltigbis = Now.AddDays(30)
End If
If Globals.License.Gueltigbis < Now Then
MsgBox("Ihre Lizenz ist abgelaufen. Sie können diese erneuern.")
Me.Close()
Application.Exit()
Exit Sub
End If
Dim ddif As Integer
ddif = DateDiff(DateInterval.Day, Now, Globals.License.Gueltigbis)
If ddif < 15 Then
MsgBox("Achtung. Ihre Lizenz ist noch " + ddif.ToString + " Tage gültig. Erneuern Sie diese rechtzeitig.", vbInformation)
End If
Globals.Mainweindow = Me
If check_db_connection() Then
@@ -43,12 +65,20 @@ Public Class frmMain
ActUser = -1
Dim f As New frmLogin
f.ShowDialog()
If ActUser = -1 Then Me.Close()
If ActUser = -1 Then
Application.Exit()
Me.Close()
Exit Sub
End If
PatientToolStripMenuItem_Click(sender, e)
End If
Else
MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", vbExclamation)
Application.Exit()
End
End If
Me.Label1.Text = Globals.Databasename
Me.Label1.Left = Me.Width - 20 - Me.Label1.Width
Me.Label1.Left = Me.Width - 100 - Me.Label1.Width
Me.Text = "DPM 2018 - " + Globals.Databasename
Refresh_Printerconfig()
'sec.Set_Form_Security(Me)
@@ -63,7 +93,7 @@ Public Class frmMain
Me.StammdatenToolStripMenuItem.Visible = False
End Select
Check_Tempdir
Check_Tempdir()
End Sub
@@ -131,6 +161,7 @@ Public Class frmMain
f.MdiParent = Me
f.Show()
f.tsbtnfirst_Click(sender, e)
Me.Cursor = Cursors.Default
End Sub
@@ -291,11 +322,13 @@ Public Class frmMain
End Sub
Private Sub MahnungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MahnungenToolStripMenuItem.Click
Dim f As New Mahnungen
f.MdiParent = Me
f.Show()
End Sub
Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width - 20 - Me.Label1.Width
Me.Label1.Left = Me.Width - 100 - Me.Label1.Width
End Sub
Private Sub SuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchenToolStripMenuItem.Click
@@ -305,6 +338,67 @@ Public Class frmMain
End Sub
Private Sub RechnungskopienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungskopienToolStripMenuItem.Click
Dim f As New frmRechnungskopien
f.MdiParent = Me
f.Show()
End Sub
Private Sub CAMT054ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CAMT054ToolStripMenuItem.Click
'Try
Dim serializer As New XmlSerializer(GetType(Document))
Dim reader As New IO.StreamReader("E:\Software-Projekte\DPM\CAMT\Dentis 2018-08-15 1531322859509.054\camt.054_SIC_04_038415740520_NN_0384157405201000_20180711_172739509_213.xml")
Dim xdocument As Document = serializer.Deserialize(reader)
Dim a As List(Of AccountNotification7) = xdocument.BkToCstmrDbtCdtNtfctn.Ntfctn.ToList
For Each accountinformation As AccountNotification7 In a
For Each r4 As ReportEntry4 In accountinformation.Ntry
For Each ed As EntryDetails3 In r4.NtryDtls
For Each td As EntryTransaction4 In ed.TxDtls
MsgBox(td.Amt.Value.ToString)
MsgBox(td.RmtInf.Strd(0).CdtrRefInf.Ref)
Try
MsgBox(td.Chrgs.TtlChrgsAndTaxAmt.Value)
Catch
End Try
Next
Next
Next
Next
'For i As Integer = 0 To a.Count - 1
' For ii As Integer = 0 To a(i).Ntry.Count - 1
' For iii As Integer = 0 To a(i).Ntry(ii).NtryDtls.Count - 1
' For iiii As Integer = 0 To a(i).Ntry(ii).NtryDtls
' MsgBox(a(i).Ntry(ii).NtryDtls(iii).)
' Next
' Next
' MsgBox(a(i).Ntry(0).NtryDtls
'Next
reader.Close()
reader.Dispose()
'Catch EX As Exception
'MsgBox(EX.Message)
'End Try
End Sub
Private Sub AgendaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgendaToolStripMenuItem.Click
Dim f As New frmAgenda
f.MdiParent = Me
f.Show()
End Sub
Private Sub ÜberDPMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÜberDPMToolStripMenuItem.Click
Dim f As New frmDemoMode("Über DPM")
f.ShowDialog()
End Sub
'Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
' Dim formselector As New frmFormSelector
' formselector.ListForms.Items.Clear()

BIN
DPM2016/obj/Debug/DPM2016.Behandlung.resources
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.Leistungen.resources
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.frmAuswertungen.resources
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.frmFakturierung.resources
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.frmMain.resources
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.frmStammdaten.resources
View File

Binary file not shown.

57
DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt
View File

@@ -16,8 +16,8 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Bars.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Editor.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FlexCel.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\MySql.Data.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\SHUKeyGen.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\XLSLib.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.xml
@@ -26,9 +26,9 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Input.4.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\SHUKeyGen.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\SHUKeyGen.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbprojResolveAssemblyReference.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.Behandlung.resources
@@ -36,12 +36,16 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Benhandungdetail.reso
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Leistungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrivatSelect.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDemoMode.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmprogress.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFakturierung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmOffeneBehandlungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmRechnungskopien.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Finanzen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Mahnungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirma.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirmaAP.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAgenda.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmMain.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Krankengeschichte.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Patient.resources
@@ -58,32 +62,45 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_flat.re
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Resources.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSysadminTableSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmTarifDetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmcalendar.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDBConnection.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDentotarDetails.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFormSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFortschritt.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmKalender.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLogin.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSplash.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSuche.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.SplashForm.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmZahlung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.Cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe.licenses
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CopyComplete
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmKalender.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Form1.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.exe.manifest
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.application
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.TreeGX.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Compression.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Pdf.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Compression.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Pdf.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocIO.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocToPDFConverter.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.OfficeChart.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocIO.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocToPDFConverter.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.OfficeChart.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CopyComplete
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFormSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Mahnungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSuche.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Grid.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Grid.Windows.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Pdf.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Schedule.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Schedule.Windows.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Windows.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Tools.Windows.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Google.Protobuf.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.SpellChecker.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Tools.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\MySql.Data.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Tools.Windows.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.SpellChecker.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Tools.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe.manifest
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.application

BIN
DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.vbprojResolveAssemblyReference.cache
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
DPM2016/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.

BIN
DPM2016/obj/Release/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
DPM2016/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

590
_FRReporting/DB/clsAuswertung.vb
View File

@@ -1,590 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Auswertung'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 18:27:01
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'Auswertung'.
''' </summary>
Public Class clsAuswertung
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv, m_bExcel_Report, m_bReport As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iAuswertungNr, m_iMutierer As SqlInt32
Private m_sSQLType, m_sBeschreibung, m_sConnectionstring_Subreport, m_sFilename, m_sBezeichnung, m_sSQL As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungNr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>bReport. May be SqlBoolean.Null</LI>
''' <LI>sFilename. May be SqlString.Null</LI>
''' <LI>bExcel_Report. May be SqlBoolean.Null</LI>
''' <LI>sSQL. May be SqlString.Null</LI>
''' <LI>sSQLType. May be SqlString.Null</LI>
''' <LI>sBeschreibung. May be SqlString.Null</LI>
''' <LI>sConnectionstring_Subreport. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungNr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>bReport. May be SqlBoolean.Null</LI>
''' <LI>sFilename. May be SqlString.Null</LI>
''' <LI>bExcel_Report. May be SqlBoolean.Null</LI>
''' <LI>sSQL. May be SqlString.Null</LI>
''' <LI>sSQLType. May be SqlString.Null</LI>
''' <LI>sBeschreibung. May be SqlString.Null</LI>
''' <LI>sConnectionstring_Subreport. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungNr</LI>
''' <LI>sBezeichnung</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
''' <LI>bReport</LI>
''' <LI>sFilename</LI>
''' <LI>bExcel_Report</LI>
''' <LI>sSQL</LI>
''' <LI>sSQLType</LI>
''' <LI>sBeschreibung</LI>
''' <LI>sConnectionstring_Subreport</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungNr"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
If dtToReturn.Rows(0)("Report") Is System.DBNull.Value Then
m_bReport = SqlBoolean.Null
Else
m_bReport = New SqlBoolean(CType(dtToReturn.Rows(0)("Report"), Boolean))
End If
If dtToReturn.Rows(0)("Filename") Is System.DBNull.Value Then
m_sFilename = SqlString.Null
Else
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
End If
If dtToReturn.Rows(0)("Excel_Report") Is System.DBNull.Value Then
m_bExcel_Report = SqlBoolean.Null
Else
m_bExcel_Report = New SqlBoolean(CType(dtToReturn.Rows(0)("Excel_Report"), Boolean))
End If
If dtToReturn.Rows(0)("SQL") Is System.DBNull.Value Then
m_sSQL = SqlString.Null
Else
m_sSQL = New SqlString(CType(dtToReturn.Rows(0)("SQL"), String))
End If
If dtToReturn.Rows(0)("SQLType") Is System.DBNull.Value Then
m_sSQLType = SqlString.Null
Else
m_sSQLType = New SqlString(CType(dtToReturn.Rows(0)("SQLType"), String))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("Connectionstring_Subreport") Is System.DBNull.Value Then
m_sConnectionstring_Subreport = SqlString.Null
Else
m_sConnectionstring_Subreport = New SqlString(CType(dtToReturn.Rows(0)("Connectionstring_Subreport"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungNr]() As SqlInt32
Get
Return m_iAuswertungNr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungNrTmp As SqlInt32 = Value
If iAuswertungNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungNr", "iAuswertungNr can't be NULL")
End If
m_iAuswertungNr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [bReport]() As SqlBoolean
Get
Return m_bReport
End Get
Set(ByVal Value As SqlBoolean)
m_bReport = Value
End Set
End Property
Public Property [sFilename]() As SqlString
Get
Return m_sFilename
End Get
Set(ByVal Value As SqlString)
m_sFilename = Value
End Set
End Property
Public Property [bExcel_Report]() As SqlBoolean
Get
Return m_bExcel_Report
End Get
Set(ByVal Value As SqlBoolean)
m_bExcel_Report = Value
End Set
End Property
Public Property [sSQL]() As SqlString
Get
Return m_sSQL
End Get
Set(ByVal Value As SqlString)
m_sSQL = Value
End Set
End Property
Public Property [sSQLType]() As SqlString
Get
Return m_sSQLType
End Get
Set(ByVal Value As SqlString)
m_sSQLType = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
m_sBeschreibung = Value
End Set
End Property
Public Property [sConnectionstring_Subreport]() As SqlString
Get
Return m_sConnectionstring_Subreport
End Get
Set(ByVal Value As SqlString)
m_sConnectionstring_Subreport = Value
End Set
End Property
#End Region
End Class
End Namespace

510
_FRReporting/DB/clsAuswertungAuswertungParameter.vb
View File

@@ -1,510 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'AuswertungAuswertungParameter'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'AuswertungAuswertungParameter'.
''' </summary>
Public Class clsAuswertungAuswertungParameter
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMutierer, m_iReihenfolge, m_iAuswertungnr, m_iAuswertungAuswertungparameternr, m_iAuswertungparameternr As SqlInt32
Private m_sDBfeldname As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungAuswertungparameternr</LI>
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungparameternr. May be SqlInt32.Null</LI>
''' <LI>sDBfeldname. May be SqlString.Null</LI>
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDBfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDBfeldname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungAuswertungParameter::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungAuswertungparameternr</LI>
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungparameternr. May be SqlInt32.Null</LI>
''' <LI>sDBfeldname. May be SqlString.Null</LI>
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDBfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDBfeldname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungAuswertungParameter::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungAuswertungparameternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungAuswertungParameter::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungAuswertungparameternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungAuswertungparameternr</LI>
''' <LI>iAuswertungnr</LI>
''' <LI>iAuswertungparameternr</LI>
''' <LI>sDBfeldname</LI>
''' <LI>iReihenfolge</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungAuswertungParameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungAuswertungparameternr"), Integer))
If dtToReturn.Rows(0)("Auswertungnr") Is System.DBNull.Value Then
m_iAuswertungnr = SqlInt32.Null
Else
m_iAuswertungnr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungnr"), Integer))
End If
If dtToReturn.Rows(0)("Auswertungparameternr") Is System.DBNull.Value Then
m_iAuswertungparameternr = SqlInt32.Null
Else
m_iAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungparameternr"), Integer))
End If
If dtToReturn.Rows(0)("DBfeldname") Is System.DBNull.Value Then
m_sDBfeldname = SqlString.Null
Else
m_sDBfeldname = New SqlString(CType(dtToReturn.Rows(0)("DBfeldname"), String))
End If
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
m_iReihenfolge = SqlInt32.Null
Else
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungAuswertungParameter::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungAuswertungParameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungAuswertungParameter::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungAuswertungparameternr]() As SqlInt32
Get
Return m_iAuswertungAuswertungparameternr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungAuswertungparameternrTmp As SqlInt32 = Value
If iAuswertungAuswertungparameternrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungAuswertungparameternr", "iAuswertungAuswertungparameternr can't be NULL")
End If
m_iAuswertungAuswertungparameternr = Value
End Set
End Property
Public Property [iAuswertungnr]() As SqlInt32
Get
Return m_iAuswertungnr
End Get
Set(ByVal Value As SqlInt32)
m_iAuswertungnr = Value
End Set
End Property
Public Property [iAuswertungparameternr]() As SqlInt32
Get
Return m_iAuswertungparameternr
End Get
Set(ByVal Value As SqlInt32)
m_iAuswertungparameternr = Value
End Set
End Property
Public Property [sDBfeldname]() As SqlString
Get
Return m_sDBfeldname
End Get
Set(ByVal Value As SqlString)
m_sDBfeldname = Value
End Set
End Property
Public Property [iReihenfolge]() As SqlInt32
Get
Return m_iReihenfolge
End Get
Set(ByVal Value As SqlInt32)
m_iReihenfolge = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

470
_FRReporting/DB/clsAuswertungGruppe.vb
View File

@@ -1,470 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'AuswertungGruppe'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'AuswertungGruppe'.
''' </summary>
Public Class clsAuswertungGruppe
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iParentid, m_iMutierer, m_iAuswertungGruppeNr As SqlInt32
Private m_sBezeichnung As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeNr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iParentid. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppe::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeNr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iParentid. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppe::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppe::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungGruppeNr</LI>
''' <LI>sBezeichnung</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
''' <LI>iParentid</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungGruppeNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeNr"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
If dtToReturn.Rows(0)("Parentid") Is System.DBNull.Value Then
m_iParentid = SqlInt32.Null
Else
m_iParentid = New SqlInt32(CType(dtToReturn.Rows(0)("Parentid"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppe::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppe::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungGruppeNr]() As SqlInt32
Get
Return m_iAuswertungGruppeNr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungGruppeNrTmp As SqlInt32 = Value
If iAuswertungGruppeNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungGruppeNr", "iAuswertungGruppeNr can't be NULL")
End If
m_iAuswertungGruppeNr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [iParentid]() As SqlInt32
Get
Return m_iParentid
End Get
Set(ByVal Value As SqlInt32)
m_iParentid = Value
End Set
End Property
#End Region
End Class
End Namespace

469
_FRReporting/DB/clsAuswertungGruppeAuswertung.vb
View File

@@ -1,469 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'AuswertungGruppeAuswertung'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'.
''' </summary>
Public Class clsAuswertungGruppeAuswertung
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daMutiert_am, m_daErstllt_am As SqlDateTime
Private m_iMutierer, m_iAuswertungGruppeNr, m_iAuswertungNr, m_iAuswertungGruppeAuswertungNr As SqlInt32
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeAuswertungNr</LI>
''' <LI>iAuswertungGruppeNr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungNr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstllt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstllt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstllt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppeAuswertung::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeAuswertungNr</LI>
''' <LI>iAuswertungGruppeNr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungNr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstllt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstllt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstllt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppeAuswertung::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeAuswertungNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppeAuswertung::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungGruppeAuswertungNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungGruppeAuswertungNr</LI>
''' <LI>iAuswertungGruppeNr</LI>
''' <LI>iAuswertungNr</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstllt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppeAuswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungGruppeAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeAuswertungNr"), Integer))
If dtToReturn.Rows(0)("AuswertungGruppeNr") Is System.DBNull.Value Then
m_iAuswertungGruppeNr = SqlInt32.Null
Else
m_iAuswertungGruppeNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeNr"), Integer))
End If
If dtToReturn.Rows(0)("AuswertungNr") Is System.DBNull.Value Then
m_iAuswertungNr = SqlInt32.Null
Else
m_iAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungNr"), Integer))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstllt_am") Is System.DBNull.Value Then
m_daErstllt_am = SqlDateTime.Null
Else
m_daErstllt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstllt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppeAuswertung::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppeAuswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungGruppeAuswertung::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungGruppeAuswertungNr]() As SqlInt32
Get
Return m_iAuswertungGruppeAuswertungNr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungGruppeAuswertungNrTmp As SqlInt32 = Value
If iAuswertungGruppeAuswertungNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungGruppeAuswertungNr", "iAuswertungGruppeAuswertungNr can't be NULL")
End If
m_iAuswertungGruppeAuswertungNr = Value
End Set
End Property
Public Property [iAuswertungGruppeNr]() As SqlInt32
Get
Return m_iAuswertungGruppeNr
End Get
Set(ByVal Value As SqlInt32)
m_iAuswertungGruppeNr = Value
End Set
End Property
Public Property [iAuswertungNr]() As SqlInt32
Get
Return m_iAuswertungNr
End Get
Set(ByVal Value As SqlInt32)
m_iAuswertungNr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstllt_am]() As SqlDateTime
Get
Return m_daErstllt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstllt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

478
_FRReporting/DB/clsAuswertungRptDatei.vb
View File

@@ -1,478 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'AuswertungRptDatei'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'AuswertungRptDatei'.
''' </summary>
Public Class clsAuswertungRptDatei
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_blobReportfile As SqlBinary
Private m_iMutierer, m_iAuswertungDateiNr As SqlInt32
Private m_sFilename, m_sReportname As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungDateiNr</LI>
''' <LI>sFilename. May be SqlString.Null</LI>
''' <LI>sReportname. May be SqlString.Null</LI>
''' <LI>blobReportfile. May be SqlBinary.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sReportname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReportname))
Dim iLength As Integer = 0
If Not m_blobReportfile.IsNull Then
iLength = m_blobReportfile.Length
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobReportfile", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobReportfile))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungRptDatei::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungDateiNr</LI>
''' <LI>sFilename. May be SqlString.Null</LI>
''' <LI>sReportname. May be SqlString.Null</LI>
''' <LI>blobReportfile. May be SqlBinary.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sReportname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReportname))
Dim iLength As Integer = 0
If Not m_blobReportfile.IsNull Then
iLength = m_blobReportfile.Length
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobReportfile", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobReportfile))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungRptDatei::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungDateiNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungRptDatei::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungDateiNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungDateiNr</LI>
''' <LI>sFilename</LI>
''' <LI>sReportname</LI>
''' <LI>blobReportfile</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungRptDatei")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungDateiNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungDateiNr"), Integer))
If dtToReturn.Rows(0)("Filename") Is System.DBNull.Value Then
m_sFilename = SqlString.Null
Else
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
End If
If dtToReturn.Rows(0)("Reportname") Is System.DBNull.Value Then
m_sReportname = SqlString.Null
Else
m_sReportname = New SqlString(CType(dtToReturn.Rows(0)("Reportname"), String))
End If
If dtToReturn.Rows(0)("Reportfile") Is System.DBNull.Value Then
m_blobReportfile = SqlBinary.Null
Else
m_blobReportfile = New SqlBinary(CType(dtToReturn.Rows(0)("Reportfile"), Byte()))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungRptDatei::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("AuswertungRptDatei")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungRptDatei::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungDateiNr]() As SqlInt32
Get
Return m_iAuswertungDateiNr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungDateiNrTmp As SqlInt32 = Value
If iAuswertungDateiNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungDateiNr", "iAuswertungDateiNr can't be NULL")
End If
m_iAuswertungDateiNr = Value
End Set
End Property
Public Property [sFilename]() As SqlString
Get
Return m_sFilename
End Get
Set(ByVal Value As SqlString)
m_sFilename = Value
End Set
End Property
Public Property [sReportname]() As SqlString
Get
Return m_sReportname
End Get
Set(ByVal Value As SqlString)
m_sReportname = Value
End Set
End Property
Public Property [blobReportfile]() As SqlBinary
Get
Return m_blobReportfile
End Get
Set(ByVal Value As SqlBinary)
m_blobReportfile = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

550
_FRReporting/DB/clsAuswertungsparameter.vb
View File

@@ -1,550 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Auswertungsparameter'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'Auswertungsparameter'.
''' </summary>
Public Class clsAuswertungsparameter
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMutierer, m_iAuswertungparameternr As SqlInt32
Private m_sBezeichnung, m_sParamName, m_sOperator, m_sWert, m_sFeldbezug, m_sParamType As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungparameternr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>sOperator. May be SqlString.Null</LI>
''' <LI>sFeldbezug. May be SqlString.Null</LI>
''' <LI>sWert. May be SqlString.Null</LI>
''' <LI>sParamName. May be SqlString.Null</LI>
''' <LI>sParamType. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOperator", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOperator))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFeldbezug", SqlDbType.VarChar, 200, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldbezug))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sWert", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sWert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamName))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungsparameter::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungparameternr</LI>
''' <LI>sBezeichnung. May be SqlString.Null</LI>
''' <LI>sOperator. May be SqlString.Null</LI>
''' <LI>sFeldbezug. May be SqlString.Null</LI>
''' <LI>sWert. May be SqlString.Null</LI>
''' <LI>sParamName. May be SqlString.Null</LI>
''' <LI>sParamType. May be SqlString.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOperator", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOperator))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFeldbezug", SqlDbType.VarChar, 200, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldbezug))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sWert", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sWert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamName))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungsparameter::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungparameternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungsparameter::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iAuswertungparameternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iAuswertungparameternr</LI>
''' <LI>sBezeichnung</LI>
''' <LI>sOperator</LI>
''' <LI>sFeldbezug</LI>
''' <LI>sWert</LI>
''' <LI>sParamName</LI>
''' <LI>sParamType</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertungsparameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungparameternr"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Operator") Is System.DBNull.Value Then
m_sOperator = SqlString.Null
Else
m_sOperator = New SqlString(CType(dtToReturn.Rows(0)("Operator"), String))
End If
If dtToReturn.Rows(0)("Feldbezug") Is System.DBNull.Value Then
m_sFeldbezug = SqlString.Null
Else
m_sFeldbezug = New SqlString(CType(dtToReturn.Rows(0)("Feldbezug"), String))
End If
If dtToReturn.Rows(0)("Wert") Is System.DBNull.Value Then
m_sWert = SqlString.Null
Else
m_sWert = New SqlString(CType(dtToReturn.Rows(0)("Wert"), String))
End If
If dtToReturn.Rows(0)("ParamName") Is System.DBNull.Value Then
m_sParamName = SqlString.Null
Else
m_sParamName = New SqlString(CType(dtToReturn.Rows(0)("ParamName"), String))
End If
If dtToReturn.Rows(0)("ParamType") Is System.DBNull.Value Then
m_sParamType = SqlString.Null
Else
m_sParamType = New SqlString(CType(dtToReturn.Rows(0)("ParamType"), String))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungsparameter::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertungsparameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertungsparameter::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungparameternr]() As SqlInt32
Get
Return m_iAuswertungparameternr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungparameternrTmp As SqlInt32 = Value
If iAuswertungparameternrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungparameternr", "iAuswertungparameternr can't be NULL")
End If
m_iAuswertungparameternr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [sOperator]() As SqlString
Get
Return m_sOperator
End Get
Set(ByVal Value As SqlString)
m_sOperator = Value
End Set
End Property
Public Property [sFeldbezug]() As SqlString
Get
Return m_sFeldbezug
End Get
Set(ByVal Value As SqlString)
m_sFeldbezug = Value
End Set
End Property
Public Property [sWert]() As SqlString
Get
Return m_sWert
End Get
Set(ByVal Value As SqlString)
m_sWert = Value
End Set
End Property
Public Property [sParamName]() As SqlString
Get
Return m_sParamName
End Get
Set(ByVal Value As SqlString)
m_sParamName = Value
End Set
End Property
Public Property [sParamType]() As SqlString
Get
Return m_sParamType
End Get
Set(ByVal Value As SqlString)
m_sParamType = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

289
_FRReporting/DB/clsConnectionProvider.vb
View File

@@ -1,289 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Connection Provider class for Database connection sharing
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // This class implements IDisposable.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Namespace DB
' /// <summary>
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
' /// on a high level.
' /// </summary>
Public Class clsConnectionProvider
Implements IDisposable
#Region " Class Member Declarations "
Private m_scoDBConnection As SqlConnection
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
Private m_stCurrentTransaction As SqlTransaction
Private m_alSavePoints As ArrayList
#End Region
Public Sub New()
' // Init the class
InitClass()
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Overloads Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
' // Check to see if Dispose has already been called.
If Not m_bIsDisposed Then
If bIsDisposing Then
' // Dispose managed resources.
If Not (m_stCurrentTransaction Is Nothing) Then
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
End If
If Not (m_scoDBConnection Is Nothing) Then
' // closing the connection will abort (rollback) any pending transactions
m_scoDBConnection.Close()
m_scoDBConnection.Dispose()
m_scoDBConnection = Nothing
End If
End If
End If
m_bIsDisposed = True
End Sub
' /// <summary>
' /// Purpose: Initializes class members.
' /// </summary>
Private Sub InitClass()
' // Create all the objects and initialize other members.
m_scoDBConnection = new SqlConnection()
m_bIsDisposed = False
m_stCurrentTransaction = Nothing
m_bIsTransactionPending = False
m_alSavePoints = new ArrayList()
End Sub
' /// <summary>
' /// Purpose: Opens the connection object.
' /// </summary>
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
Public Function OpenConnection() As Boolean
Try
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
' // It's already open.
Throw New Exception("OpenConnection::Connection is already open.")
End If
m_scoDBConnection.Open()
m_bIsTransactionPending = False
m_alSavePoints.Clear()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
' /// </summary>
' /// <param name="sTransactionName">Name of the transaction to start</param>
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
Public Function BeginTransaction(sTransactionName As String) As Boolean
Try
If m_bIsTransactionPending Then
' // no nested transactions allowed.
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("BeginTransaction::Connection is not open.")
End If
' // begin the transaction and store the transaction object.
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
m_bIsTransactionPending = True
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Commits a pending transaction on the open connection object of this class.
' /// </summary>
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
Public Function CommitTransaction() As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("CommitTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("CommitTransaction::Connection is not open.")
End if
' // commit the transaction
m_stCurrentTransaction.Commit()
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
' /// </summary>
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("RollbackTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("RollbackTransaction::Connection is not open.")
End If
' // rollback the transaction
m_stCurrentTransaction.Rollback(sTransactionToRollback)
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
' // can clean it up.
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
' // it's not a savepoint
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
End If
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
' /// with the given name.
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
' /// </summary>
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
Public Function SaveTransaction(sSavePointName As String) As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("SaveTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("SaveTransaction::Connection is not open.")
End If
' // save the transaction
m_stCurrentTransaction.Save(sSavePointName)
' // Store the savepoint in the list.
m_alSavePoints.Add(sSavePointName)
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
' /// transaction is commited, or aborted.
' /// </summary>
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
' /// an error occurs</returns>
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
Try
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // No open connection
Return False
End If
If m_bIsTransactionPending Then
If bCommitPendingTransaction Then
' // Commit the pending transaction
m_stCurrentTransaction.Commit()
Else
' // Rollback the pending transaction
m_stCurrentTransaction.Rollback()
End If
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
End If
' // close the connection
m_scoDBConnection.Close()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
#Region " Class Property Declarations "
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
Get
Return m_stCurrentTransaction
End Get
End Property
Public ReadOnly Property bIsTransactionPending() As Boolean
Get
Return m_bIsTransactionPending
End Get
End Property
Public ReadOnly Property scoDBConnection() As SqlConnection
Get
Return m_scoDBConnection
End Get
End Property
Public WriteOnly Property sConnectionString() As String
Set (ByVal Value As String)
m_scoDBConnection.ConnectionString = Value
End Set
End Property
#End Region
End Class
End Namespace

208
_FRReporting/DB/clsDBInteractionBase.vb
View File

@@ -1,208 +0,0 @@
' //////////////////////////////////////////////////////////////////////////////////////////
' // Description: Base class for Database Interaction.
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because this class implements IDisposable, derived classes shouldn't do so.
' //////////////////////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Namespace DB
' /// <summary>
' /// Purpose: Error Enums used by this LLBL library.
' /// </summary>
Public Enum LLBLError
AllOk
' // Add more here (check the comma's!)
End Enum
' /// <summary>
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
' /// </summary>
Public Interface ICommonDBAccess
Function Insert() As Boolean
Function Update() As Boolean
Function Delete() As Boolean
Function SelectOne() As DataTable
Function SelectAll() As DataTable
End Interface
' /// <summary>
' /// Purpose: Abstract base class for Database Interaction classes.
' /// </summary>
Public MustInherit Class clsDBInteractionBase
Implements IDisposable
Implements ICommonDBAccess
#Region " Class Member Declarations "
Protected m_scoMainConnection As SqlConnection
Protected m_iRowsAffected As Integer
Protected m_iErrorCode As SqlInt32
Protected m_bMainConnectionIsCreatedLocal As Boolean
Protected m_cpMainConnectionProvider As clsConnectionProvider
Private m_sConnectionString As String
Private m_bIsDisposed As Boolean
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Initialize the class' members.
InitClass()
End Sub
' /// <summary>
' /// Purpose: Initializes class members.
' /// </summary>
Private Sub InitClass()
' // create all the objects and initialize other members.
m_scoMainConnection = new SqlConnection()
m_bMainConnectionIsCreatedLocal = True
m_cpMainConnectionProvider = Nothing
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
m_bIsDisposed = False
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Overloads Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
' // Check to see if Dispose has already been called.
If Not m_bIsDisposed Then
If bIsDisposing Then
' // Dispose managed resources.
If m_bMainConnectionIsCreatedLocal Then
' // Object is created in this class, so destroy it here.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
m_bMainConnectionIsCreatedLocal = True
End If
m_cpMainConnectionProvider = Nothing
m_scoMainConnection = Nothing
End If
End If
m_bIsDisposed = True
End Sub
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
' /// </summary>
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
' /// </summary>
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Update() method.
' /// </summary>
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
' /// </summary>
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
' /// </summary>
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
#Region " Class Property Declarations "
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
Set(ByVal Value As clsConnectionProvider)
If Value Is Nothing Then
' // Invalid value
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
End If
' // A connection provider object is passed to this class.
' // Retrieve the SqlConnection object, if present and create a
' // reference to it. If there is already a MainConnection object
' // referenced by the membervar, destroy that one or simply
' // remove the reference, based on the flag.
If Not (m_scoMainConnection Is Nothing) Then
' // First get rid of current connection object. Caller is responsible
If m_bMainConnectionIsCreatedLocal Then
' // Is local created object, close it and dispose it.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
End If
' // Remove reference.
m_scoMainConnection = Nothing
End If
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
m_bMainConnectionIsCreatedLocal = False
End Set
End Property
Public ReadOnly Property iErrorCode() As SqlInt32
Get
Return m_iErrorCode
End Get
End Property
Public Property sConnectionString() As String
Get
Return m_sConnectionString
End Get
Set (ByVal Value As String)
m_sConnectionString = Value
m_scoMainConnection.ConnectionString = m_sConnectionString
End Set
End Property
Public Readonly Property iRowsAffected() As Integer
Get
Return m_iRowsAffected
End Get
End Property
#End Region
End Class
End Namespace

491
_FRReporting/DB/clsKey_tabelle.vb
View File

@@ -1,491 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'key_tabelle'
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:51
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'key_tabelle'.
''' </summary>
Public Class clsKey_tabelle
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
Private m_sBeschreibung As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iKeynr]() As SqlInt32
Get
Return m_iKeynr
End Get
Set(ByVal Value As SqlInt32)
Dim iKeynrTmp As SqlInt32 = Value
If iKeynrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
End If
m_iKeynr = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
Dim sBeschreibungTmp As SqlString = Value
If sBeschreibungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
End If
m_sBeschreibung = Value
End Set
End Property
Public Property [iKey_wert]() As SqlInt32
Get
Return m_iKey_wert
End Get
Set(ByVal Value As SqlInt32)
Dim iKey_wertTmp As SqlInt32 = Value
If iKey_wertTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
End If
m_iKey_wert = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

510
_FRReporting/DB/clsMitarbeiter_Auswertungsparameter.vb
View File

@@ -1,510 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:18:33
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'.
''' </summary>
Public Class clsMitarbeiter_Auswertungsparameter
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bParamPrint As SqlBoolean
Private m_iAuswertungnr, m_iMitarbeiter_AuswertungsparameterNr, m_iMitarbeiternr As SqlInt32
Private m_sTitelzeile2, m_sSQLWhere, m_sBeschreibung, m_sParameterdaten, m_sTitelzeile1 As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
''' <LI>sBeschreibung. May be SqlString.Null</LI>
''' <LI>sParameterdaten. May be SqlString.Null</LI>
''' <LI>sTitelzeile1. May be SqlString.Null</LI>
''' <LI>sTitelzeile2. May be SqlString.Null</LI>
''' <LI>bParamPrint. May be SqlBoolean.Null</LI>
''' <LI>sSQLWhere. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParameterdaten", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParameterdaten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bParamPrint", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bParamPrint))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLWhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLWhere))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iMitarbeiter_AuswertungsparameterNr").Value, SqlInt32))
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_Auswertungsparameter::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
''' <LI>sBeschreibung. May be SqlString.Null</LI>
''' <LI>sParameterdaten. May be SqlString.Null</LI>
''' <LI>sTitelzeile1. May be SqlString.Null</LI>
''' <LI>sTitelzeile2. May be SqlString.Null</LI>
''' <LI>bParamPrint. May be SqlBoolean.Null</LI>
''' <LI>sSQLWhere. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParameterdaten", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParameterdaten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bParamPrint", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bParamPrint))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLWhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLWhere))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_Auswertungsparameter::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_Auswertungsparameter::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
''' <LI>iMitarbeiternr</LI>
''' <LI>iAuswertungnr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>sParameterdaten</LI>
''' <LI>sTitelzeile1</LI>
''' <LI>sTitelzeile2</LI>
''' <LI>bParamPrint</LI>
''' <LI>sSQLWhere</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Mitarbeiter_Auswertungsparameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(dtToReturn.Rows(0)("Mitarbeiter_AuswertungsparameterNr"), Integer))
If dtToReturn.Rows(0)("Mitarbeiternr") Is System.DBNull.Value Then
m_iMitarbeiternr = SqlInt32.Null
Else
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("Mitarbeiternr"), Integer))
End If
If dtToReturn.Rows(0)("Auswertungnr") Is System.DBNull.Value Then
m_iAuswertungnr = SqlInt32.Null
Else
m_iAuswertungnr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungnr"), Integer))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("Parameterdaten") Is System.DBNull.Value Then
m_sParameterdaten = SqlString.Null
Else
m_sParameterdaten = New SqlString(CType(dtToReturn.Rows(0)("Parameterdaten"), String))
End If
If dtToReturn.Rows(0)("Titelzeile1") Is System.DBNull.Value Then
m_sTitelzeile1 = SqlString.Null
Else
m_sTitelzeile1 = New SqlString(CType(dtToReturn.Rows(0)("Titelzeile1"), String))
End If
If dtToReturn.Rows(0)("Titelzeile2") Is System.DBNull.Value Then
m_sTitelzeile2 = SqlString.Null
Else
m_sTitelzeile2 = New SqlString(CType(dtToReturn.Rows(0)("Titelzeile2"), String))
End If
If dtToReturn.Rows(0)("ParamPrint") Is System.DBNull.Value Then
m_bParamPrint = SqlBoolean.Null
Else
m_bParamPrint = New SqlBoolean(CType(dtToReturn.Rows(0)("ParamPrint"), Boolean))
End If
If dtToReturn.Rows(0)("SQLWhere") Is System.DBNull.Value Then
m_sSQLWhere = SqlString.Null
Else
m_sSQLWhere = New SqlString(CType(dtToReturn.Rows(0)("SQLWhere"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_Auswertungsparameter::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Mitarbeiter_Auswertungsparameter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_Auswertungsparameter::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iMitarbeiter_AuswertungsparameterNr]() As SqlInt32
Get
Return m_iMitarbeiter_AuswertungsparameterNr
End Get
Set(ByVal Value As SqlInt32)
Dim iMitarbeiter_AuswertungsparameterNrTmp As SqlInt32 = Value
If iMitarbeiter_AuswertungsparameterNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMitarbeiter_AuswertungsparameterNr", "iMitarbeiter_AuswertungsparameterNr can't be NULL")
End If
m_iMitarbeiter_AuswertungsparameterNr = Value
End Set
End Property
Public Property [iMitarbeiternr]() As SqlInt32
Get
Return m_iMitarbeiternr
End Get
Set(ByVal Value As SqlInt32)
m_iMitarbeiternr = Value
End Set
End Property
Public Property [iAuswertungnr]() As SqlInt32
Get
Return m_iAuswertungnr
End Get
Set(ByVal Value As SqlInt32)
m_iAuswertungnr = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
m_sBeschreibung = Value
End Set
End Property
Public Property [sParameterdaten]() As SqlString
Get
Return m_sParameterdaten
End Get
Set(ByVal Value As SqlString)
m_sParameterdaten = Value
End Set
End Property
Public Property [sTitelzeile1]() As SqlString
Get
Return m_sTitelzeile1
End Get
Set(ByVal Value As SqlString)
m_sTitelzeile1 = Value
End Set
End Property
Public Property [sTitelzeile2]() As SqlString
Get
Return m_sTitelzeile2
End Get
Set(ByVal Value As SqlString)
m_sTitelzeile2 = Value
End Set
End Property
Public Property [bParamPrint]() As SqlBoolean
Get
Return m_bParamPrint
End Get
Set(ByVal Value As SqlBoolean)
m_bParamPrint = Value
End Set
End Property
Public Property [sSQLWhere]() As SqlString
Get
Return m_sSQLWhere
End Get
Set(ByVal Value As SqlString)
m_sSQLWhere = Value
End Set
End Property
#End Region
End Class
End Namespace

570
_FRReporting/DB/clsSecurityObject.vb
View File

@@ -1,570 +0,0 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'SecurityObject'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'SecurityObject'.
''' </summary>
Public Class clsSecurityObject
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iLevel, m_iMutierer, m_iMandantnr, m_iSecurityObjectNr As SqlInt32
Private m_sSecurityForm, m_sSecurityObjectDescriotion, m_sSecurityObjectItem, m_sSecurityObject, m_sSecurityObjectType As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iSecurityObjectNr</LI>
''' <LI>sSecurityForm. May be SqlString.Null</LI>
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
''' <LI>sSecurityObject. May be SqlString.Null</LI>
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
''' <LI>iLevel. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_SecurityObject_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSecurityObject::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iSecurityObjectNr</LI>
''' <LI>sSecurityForm. May be SqlString.Null</LI>
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
''' <LI>sSecurityObject. May be SqlString.Null</LI>
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
''' <LI>iLevel. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_SecurityObject_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSecurityObject::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iSecurityObjectNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_SecurityObject_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSecurityObject::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iSecurityObjectNr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iSecurityObjectNr</LI>
''' <LI>sSecurityForm</LI>
''' <LI>sSecurityObjectType</LI>
''' <LI>sSecurityObject</LI>
''' <LI>sSecurityObjectItem</LI>
''' <LI>sSecurityObjectDescriotion</LI>
''' <LI>iLevel</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
''' <LI>iMandantnr</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_SecurityObject_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iSecurityObjectNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityObjectNr"), Integer))
If dtToReturn.Rows(0)("SecurityForm") Is System.DBNull.Value Then
m_sSecurityForm = SqlString.Null
Else
m_sSecurityForm = New SqlString(CType(dtToReturn.Rows(0)("SecurityForm"), String))
End If
If dtToReturn.Rows(0)("SecurityObjectType") Is System.DBNull.Value Then
m_sSecurityObjectType = SqlString.Null
Else
m_sSecurityObjectType = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectType"), String))
End If
If dtToReturn.Rows(0)("SecurityObject") Is System.DBNull.Value Then
m_sSecurityObject = SqlString.Null
Else
m_sSecurityObject = New SqlString(CType(dtToReturn.Rows(0)("SecurityObject"), String))
End If
If dtToReturn.Rows(0)("SecurityObjectItem") Is System.DBNull.Value Then
m_sSecurityObjectItem = SqlString.Null
Else
m_sSecurityObjectItem = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectItem"), String))
End If
If dtToReturn.Rows(0)("SecurityObjectDescriotion") Is System.DBNull.Value Then
m_sSecurityObjectDescriotion = SqlString.Null
Else
m_sSecurityObjectDescriotion = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectDescriotion"), String))
End If
If dtToReturn.Rows(0)("Level") Is System.DBNull.Value Then
m_iLevel = SqlInt32.Null
Else
m_iLevel = New SqlInt32(CType(dtToReturn.Rows(0)("Level"), Integer))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
If dtToReturn.Rows(0)("Mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("Mandantnr"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSecurityObject::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_SecurityObject_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSecurityObject::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iSecurityObjectNr]() As SqlInt32
Get
Return m_iSecurityObjectNr
End Get
Set(ByVal Value As SqlInt32)
Dim iSecurityObjectNrTmp As SqlInt32 = Value
If iSecurityObjectNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iSecurityObjectNr", "iSecurityObjectNr can't be NULL")
End If
m_iSecurityObjectNr = Value
End Set
End Property
Public Property [sSecurityForm]() As SqlString
Get
Return m_sSecurityForm
End Get
Set(ByVal Value As SqlString)
m_sSecurityForm = Value
End Set
End Property
Public Property [sSecurityObjectType]() As SqlString
Get
Return m_sSecurityObjectType
End Get
Set(ByVal Value As SqlString)
m_sSecurityObjectType = Value
End Set
End Property
Public Property [sSecurityObject]() As SqlString
Get
Return m_sSecurityObject
End Get
Set(ByVal Value As SqlString)
m_sSecurityObject = Value
End Set
End Property
Public Property [sSecurityObjectItem]() As SqlString
Get
Return m_sSecurityObjectItem
End Get
Set(ByVal Value As SqlString)
m_sSecurityObjectItem = Value
End Set
End Property
Public Property [sSecurityObjectDescriotion]() As SqlString
Get
Return m_sSecurityObjectDescriotion
End Get
Set(ByVal Value As SqlString)
m_sSecurityObjectDescriotion = Value
End Set
End Property
Public Property [iLevel]() As SqlInt32
Get
Return m_iLevel
End Get
Set(ByVal Value As SqlInt32)
m_iLevel = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
#End Region
End Class
End Namespace

880
_FRReporting/Formulare/FrmReportSelect.designer.vb generated
View File

@@ -1,880 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmReportSelect
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmReportSelect))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnReportDesign = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSetSecurityObject = New System.Windows.Forms.ToolStripButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.TreeAuswertungen = New System.Windows.Forms.TreeView()
Me.TreeContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlleKnotenSchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlleKnotenÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GrpAuswertung = New System.Windows.Forms.GroupBox()
Me.GrpParameter = New System.Windows.Forms.GroupBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnEditSQL = New System.Windows.Forms.Button()
Me.btnDeleteSavedParam = New System.Windows.Forms.Button()
Me.ComboboxMAParameter = New System.Windows.Forms.ComboBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.BtnParamDel6 = New System.Windows.Forms.Button()
Me.BtnParamDel5 = New System.Windows.Forms.Button()
Me.BtnParamDel4 = New System.Windows.Forms.Button()
Me.BtnParamDel3 = New System.Windows.Forms.Button()
Me.BtnParamDel2 = New System.Windows.Forms.Button()
Me.BtnParamDel1 = New System.Windows.Forms.Button()
Me.BtnInitParam = New System.Windows.Forms.Button()
Me.cbandor6 = New System.Windows.Forms.ComboBox()
Me.cbparam7 = New System.Windows.Forms.ComboBox()
Me.cbvalue7 = New System.Windows.Forms.ComboBox()
Me.cbop7 = New System.Windows.Forms.ComboBox()
Me.cbandor5 = New System.Windows.Forms.ComboBox()
Me.cbparam6 = New System.Windows.Forms.ComboBox()
Me.cbvalue6 = New System.Windows.Forms.ComboBox()
Me.cbop6 = New System.Windows.Forms.ComboBox()
Me.cbandor4 = New System.Windows.Forms.ComboBox()
Me.cbandor3 = New System.Windows.Forms.ComboBox()
Me.cbandor2 = New System.Windows.Forms.ComboBox()
Me.cbandor1 = New System.Windows.Forms.ComboBox()
Me.cbparam5 = New System.Windows.Forms.ComboBox()
Me.cbparam4 = New System.Windows.Forms.ComboBox()
Me.cbparam3 = New System.Windows.Forms.ComboBox()
Me.cbparam2 = New System.Windows.Forms.ComboBox()
Me.cbparam1 = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbvalue5 = New System.Windows.Forms.ComboBox()
Me.cbop5 = New System.Windows.Forms.ComboBox()
Me.cbvalue4 = New System.Windows.Forms.ComboBox()
Me.cbop4 = New System.Windows.Forms.ComboBox()
Me.cbvalue3 = New System.Windows.Forms.ComboBox()
Me.cbop3 = New System.Windows.Forms.ComboBox()
Me.cbvalue2 = New System.Windows.Forms.ComboBox()
Me.cbop2 = New System.Windows.Forms.ComboBox()
Me.lblTitelWert = New System.Windows.Forms.Label()
Me.lblTitelOperator = New System.Windows.Forms.Label()
Me.lblParamTitel = New System.Windows.Forms.Label()
Me.cbvalue1 = New System.Windows.Forms.ComboBox()
Me.cbop1 = New System.Windows.Forms.ComboBox()
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
Me.grpBeschreibung = New System.Windows.Forms.GroupBox()
Me.txtbeschreibung = New System.Windows.Forms.TextBox()
Me.grpdb = New System.Windows.Forms.GroupBox()
Me.btnAufbereitenCSV = New System.Windows.Forms.Button()
Me.grpcr = New System.Windows.Forms.GroupBox()
Me.checkboxprintparam = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtTitel2 = New System.Windows.Forms.TextBox()
Me.txtTitel1 = New System.Windows.Forms.TextBox()
Me.BtnAufbereitenCR = New System.Windows.Forms.Button()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.TreeContextMenuStrip1.SuspendLayout()
Me.GrpAuswertung.SuspendLayout()
Me.GrpParameter.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpBeschreibung.SuspendLayout()
Me.grpdb.SuspendLayout()
Me.grpcr.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
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.Size = New System.Drawing.Size(732, 24)
Me.MenuStrip1.TabIndex = 4
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
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.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.tsbtnReportDesign, Me.TSBtnSetSecurityObject})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(732, 25)
Me.ToolStrip1.TabIndex = 3
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.AutoSize = False
Me.ToolStripSeparator1.ForeColor = System.Drawing.SystemColors.Control
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'tsbtnReportDesign
'
Me.tsbtnReportDesign.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnReportDesign.Image = CType(resources.GetObject("tsbtnReportDesign.Image"), System.Drawing.Image)
Me.tsbtnReportDesign.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnReportDesign.Name = "tsbtnReportDesign"
Me.tsbtnReportDesign.Size = New System.Drawing.Size(23, 22)
Me.tsbtnReportDesign.Text = "ToolStripButton1"
'
'TSBtnSetSecurityObject
'
Me.TSBtnSetSecurityObject.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSetSecurityObject.Image = CType(resources.GetObject("TSBtnSetSecurityObject.Image"), System.Drawing.Image)
Me.TSBtnSetSecurityObject.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSetSecurityObject.Name = "TSBtnSetSecurityObject"
Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSetSecurityObject.Text = "SecurityObjekte generieren"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "ReportFolder.png")
Me.ImageList1.Images.SetKeyName(1, "Report.png")
Me.ImageList1.Images.SetKeyName(2, "BOOK02.GIF")
Me.ImageList1.Images.SetKeyName(3, "rpt.png")
Me.ImageList1.Images.SetKeyName(4, "CR.png")
Me.ImageList1.Images.SetKeyName(5, "Text.ico")
Me.ImageList1.Images.SetKeyName(6, "README.GIF")
'
'TreeAuswertungen
'
Me.TreeAuswertungen.ContextMenuStrip = Me.TreeContextMenuStrip1
Me.TreeAuswertungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeAuswertungen.HideSelection = False
Me.TreeAuswertungen.HotTracking = True
Me.TreeAuswertungen.ImageIndex = 0
Me.TreeAuswertungen.ImageList = Me.ImageList1
Me.TreeAuswertungen.Location = New System.Drawing.Point(3, 16)
Me.TreeAuswertungen.Name = "TreeAuswertungen"
Me.TreeAuswertungen.SelectedImageIndex = 0
Me.TreeAuswertungen.Size = New System.Drawing.Size(286, 533)
Me.TreeAuswertungen.TabIndex = 0
'
'TreeContextMenuStrip1
'
Me.TreeContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleKnotenSchliessenToolStripMenuItem, Me.AlleKnotenÖffnenToolStripMenuItem})
Me.TreeContextMenuStrip1.Name = "TreeContextMenuStrip1"
Me.TreeContextMenuStrip1.Size = New System.Drawing.Size(192, 48)
'
'AlleKnotenSchliessenToolStripMenuItem
'
Me.AlleKnotenSchliessenToolStripMenuItem.Name = "AlleKnotenSchliessenToolStripMenuItem"
Me.AlleKnotenSchliessenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
Me.AlleKnotenSchliessenToolStripMenuItem.Text = "Alle Knoten schliessen"
'
'AlleKnotenÖffnenToolStripMenuItem
'
Me.AlleKnotenÖffnenToolStripMenuItem.Name = "AlleKnotenÖffnenToolStripMenuItem"
Me.AlleKnotenÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
Me.AlleKnotenÖffnenToolStripMenuItem.Text = "Alle Knoten öffnen"
'
'GrpAuswertung
'
Me.GrpAuswertung.Controls.Add(Me.TreeAuswertungen)
Me.GrpAuswertung.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpAuswertung.Location = New System.Drawing.Point(0, 49)
Me.GrpAuswertung.Name = "GrpAuswertung"
Me.GrpAuswertung.Size = New System.Drawing.Size(292, 552)
Me.GrpAuswertung.TabIndex = 0
Me.GrpAuswertung.TabStop = False
Me.GrpAuswertung.Text = "Auswertungen"
'
'GrpParameter
'
Me.GrpParameter.Controls.Add(Me.PictureBox1)
Me.GrpParameter.Controls.Add(Me.btnEditSQL)
Me.GrpParameter.Controls.Add(Me.btnDeleteSavedParam)
Me.GrpParameter.Controls.Add(Me.ComboboxMAParameter)
Me.GrpParameter.Controls.Add(Me.btnSave)
Me.GrpParameter.Controls.Add(Me.BtnParamDel6)
Me.GrpParameter.Controls.Add(Me.BtnParamDel5)
Me.GrpParameter.Controls.Add(Me.BtnParamDel4)
Me.GrpParameter.Controls.Add(Me.BtnParamDel3)
Me.GrpParameter.Controls.Add(Me.BtnParamDel2)
Me.GrpParameter.Controls.Add(Me.BtnParamDel1)
Me.GrpParameter.Controls.Add(Me.BtnInitParam)
Me.GrpParameter.Controls.Add(Me.cbandor6)
Me.GrpParameter.Controls.Add(Me.cbparam7)
Me.GrpParameter.Controls.Add(Me.cbvalue7)
Me.GrpParameter.Controls.Add(Me.cbop7)
Me.GrpParameter.Controls.Add(Me.cbandor5)
Me.GrpParameter.Controls.Add(Me.cbparam6)
Me.GrpParameter.Controls.Add(Me.cbvalue6)
Me.GrpParameter.Controls.Add(Me.cbop6)
Me.GrpParameter.Controls.Add(Me.cbandor4)
Me.GrpParameter.Controls.Add(Me.cbandor3)
Me.GrpParameter.Controls.Add(Me.cbandor2)
Me.GrpParameter.Controls.Add(Me.cbandor1)
Me.GrpParameter.Controls.Add(Me.cbparam5)
Me.GrpParameter.Controls.Add(Me.cbparam4)
Me.GrpParameter.Controls.Add(Me.cbparam3)
Me.GrpParameter.Controls.Add(Me.cbparam2)
Me.GrpParameter.Controls.Add(Me.cbparam1)
Me.GrpParameter.Controls.Add(Me.Label6)
Me.GrpParameter.Controls.Add(Me.cbvalue5)
Me.GrpParameter.Controls.Add(Me.cbop5)
Me.GrpParameter.Controls.Add(Me.cbvalue4)
Me.GrpParameter.Controls.Add(Me.cbop4)
Me.GrpParameter.Controls.Add(Me.cbvalue3)
Me.GrpParameter.Controls.Add(Me.cbop3)
Me.GrpParameter.Controls.Add(Me.cbvalue2)
Me.GrpParameter.Controls.Add(Me.cbop2)
Me.GrpParameter.Controls.Add(Me.lblTitelWert)
Me.GrpParameter.Controls.Add(Me.lblTitelOperator)
Me.GrpParameter.Controls.Add(Me.lblParamTitel)
Me.GrpParameter.Controls.Add(Me.cbvalue1)
Me.GrpParameter.Controls.Add(Me.cbop1)
Me.GrpParameter.Location = New System.Drawing.Point(295, 129)
Me.GrpParameter.Name = "GrpParameter"
Me.GrpParameter.Size = New System.Drawing.Size(425, 301)
Me.GrpParameter.TabIndex = 1
Me.GrpParameter.TabStop = False
Me.GrpParameter.Text = "Parameter"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(360, 65)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(39, 36)
Me.PictureBox1.TabIndex = 48
Me.PictureBox1.TabStop = False
'
'btnEditSQL
'
Me.btnEditSQL.Image = CType(resources.GetObject("btnEditSQL.Image"), System.Drawing.Image)
Me.btnEditSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnEditSQL.Location = New System.Drawing.Point(398, 72)
Me.btnEditSQL.Name = "btnEditSQL"
Me.btnEditSQL.Size = New System.Drawing.Size(24, 29)
Me.btnEditSQL.TabIndex = 28
Me.btnEditSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnEditSQL.UseVisualStyleBackColor = True
'
'btnDeleteSavedParam
'
Me.btnDeleteSavedParam.Image = CType(resources.GetObject("btnDeleteSavedParam.Image"), System.Drawing.Image)
Me.btnDeleteSavedParam.Location = New System.Drawing.Point(399, 21)
Me.btnDeleteSavedParam.Name = "btnDeleteSavedParam"
Me.btnDeleteSavedParam.Size = New System.Drawing.Size(19, 21)
Me.btnDeleteSavedParam.TabIndex = 47
Me.btnDeleteSavedParam.UseVisualStyleBackColor = True
'
'ComboboxMAParameter
'
Me.ComboboxMAParameter.FormattingEnabled = True
Me.ComboboxMAParameter.Location = New System.Drawing.Point(96, 21)
Me.ComboboxMAParameter.Name = "ComboboxMAParameter"
Me.ComboboxMAParameter.Size = New System.Drawing.Size(303, 21)
Me.ComboboxMAParameter.TabIndex = 46
Me.ComboboxMAParameter.Visible = False
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(15, 19)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 45
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'BtnParamDel6
'
Me.BtnParamDel6.Image = CType(resources.GetObject("BtnParamDel6.Image"), System.Drawing.Image)
Me.BtnParamDel6.Location = New System.Drawing.Point(399, 270)
Me.BtnParamDel6.Name = "BtnParamDel6"
Me.BtnParamDel6.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel6.TabIndex = 44
Me.BtnParamDel6.UseVisualStyleBackColor = True
'
'BtnParamDel5
'
Me.BtnParamDel5.Image = CType(resources.GetObject("BtnParamDel5.Image"), System.Drawing.Image)
Me.BtnParamDel5.Location = New System.Drawing.Point(399, 244)
Me.BtnParamDel5.Name = "BtnParamDel5"
Me.BtnParamDel5.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel5.TabIndex = 43
Me.BtnParamDel5.UseVisualStyleBackColor = True
'
'BtnParamDel4
'
Me.BtnParamDel4.Image = CType(resources.GetObject("BtnParamDel4.Image"), System.Drawing.Image)
Me.BtnParamDel4.Location = New System.Drawing.Point(399, 216)
Me.BtnParamDel4.Name = "BtnParamDel4"
Me.BtnParamDel4.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel4.TabIndex = 42
Me.BtnParamDel4.UseVisualStyleBackColor = True
'
'BtnParamDel3
'
Me.BtnParamDel3.Image = CType(resources.GetObject("BtnParamDel3.Image"), System.Drawing.Image)
Me.BtnParamDel3.Location = New System.Drawing.Point(399, 189)
Me.BtnParamDel3.Name = "BtnParamDel3"
Me.BtnParamDel3.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel3.TabIndex = 41
Me.BtnParamDel3.UseVisualStyleBackColor = True
'
'BtnParamDel2
'
Me.BtnParamDel2.Image = CType(resources.GetObject("BtnParamDel2.Image"), System.Drawing.Image)
Me.BtnParamDel2.Location = New System.Drawing.Point(399, 163)
Me.BtnParamDel2.Name = "BtnParamDel2"
Me.BtnParamDel2.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel2.TabIndex = 40
Me.BtnParamDel2.UseVisualStyleBackColor = True
'
'BtnParamDel1
'
Me.BtnParamDel1.Image = CType(resources.GetObject("BtnParamDel1.Image"), System.Drawing.Image)
Me.BtnParamDel1.Location = New System.Drawing.Point(399, 136)
Me.BtnParamDel1.Name = "BtnParamDel1"
Me.BtnParamDel1.Size = New System.Drawing.Size(19, 21)
Me.BtnParamDel1.TabIndex = 39
Me.BtnParamDel1.UseVisualStyleBackColor = True
'
'BtnInitParam
'
Me.BtnInitParam.Location = New System.Drawing.Point(15, 48)
Me.BtnInitParam.Name = "BtnInitParam"
Me.BtnInitParam.Size = New System.Drawing.Size(75, 23)
Me.BtnInitParam.TabIndex = 29
Me.BtnInitParam.Text = "Initialisieren"
Me.BtnInitParam.UseVisualStyleBackColor = True
'
'cbandor6
'
Me.cbandor6.FormattingEnabled = True
Me.cbandor6.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor6.Location = New System.Drawing.Point(15, 271)
Me.cbandor6.Name = "cbandor6"
Me.cbandor6.Size = New System.Drawing.Size(52, 21)
Me.cbandor6.TabIndex = 23
'
'cbparam7
'
Me.cbparam7.FormattingEnabled = True
Me.cbparam7.Location = New System.Drawing.Point(79, 271)
Me.cbparam7.Name = "cbparam7"
Me.cbparam7.Size = New System.Drawing.Size(128, 21)
Me.cbparam7.TabIndex = 24
'
'cbvalue7
'
Me.cbvalue7.FormattingEnabled = True
Me.cbvalue7.Location = New System.Drawing.Point(271, 271)
Me.cbvalue7.Name = "cbvalue7"
Me.cbvalue7.Size = New System.Drawing.Size(128, 21)
Me.cbvalue7.TabIndex = 26
'
'cbop7
'
Me.cbop7.FormattingEnabled = True
Me.cbop7.Location = New System.Drawing.Point(214, 271)
Me.cbop7.Name = "cbop7"
Me.cbop7.Size = New System.Drawing.Size(52, 21)
Me.cbop7.TabIndex = 25
'
'cbandor5
'
Me.cbandor5.FormattingEnabled = True
Me.cbandor5.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor5.Location = New System.Drawing.Point(15, 244)
Me.cbandor5.Name = "cbandor5"
Me.cbandor5.Size = New System.Drawing.Size(52, 21)
Me.cbandor5.TabIndex = 19
'
'cbparam6
'
Me.cbparam6.FormattingEnabled = True
Me.cbparam6.Location = New System.Drawing.Point(79, 244)
Me.cbparam6.Name = "cbparam6"
Me.cbparam6.Size = New System.Drawing.Size(128, 21)
Me.cbparam6.TabIndex = 20
'
'cbvalue6
'
Me.cbvalue6.FormattingEnabled = True
Me.cbvalue6.Location = New System.Drawing.Point(271, 244)
Me.cbvalue6.Name = "cbvalue6"
Me.cbvalue6.Size = New System.Drawing.Size(128, 21)
Me.cbvalue6.TabIndex = 22
'
'cbop6
'
Me.cbop6.FormattingEnabled = True
Me.cbop6.Location = New System.Drawing.Point(214, 244)
Me.cbop6.Name = "cbop6"
Me.cbop6.Size = New System.Drawing.Size(52, 21)
Me.cbop6.TabIndex = 21
'
'cbandor4
'
Me.cbandor4.FormattingEnabled = True
Me.cbandor4.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor4.Location = New System.Drawing.Point(15, 217)
Me.cbandor4.Name = "cbandor4"
Me.cbandor4.Size = New System.Drawing.Size(52, 21)
Me.cbandor4.TabIndex = 15
'
'cbandor3
'
Me.cbandor3.FormattingEnabled = True
Me.cbandor3.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor3.Location = New System.Drawing.Point(15, 190)
Me.cbandor3.Name = "cbandor3"
Me.cbandor3.Size = New System.Drawing.Size(52, 21)
Me.cbandor3.TabIndex = 11
'
'cbandor2
'
Me.cbandor2.FormattingEnabled = True
Me.cbandor2.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor2.Location = New System.Drawing.Point(15, 163)
Me.cbandor2.Name = "cbandor2"
Me.cbandor2.Size = New System.Drawing.Size(52, 21)
Me.cbandor2.TabIndex = 7
'
'cbandor1
'
Me.cbandor1.FormattingEnabled = True
Me.cbandor1.Items.AddRange(New Object() {"und", "oder"})
Me.cbandor1.Location = New System.Drawing.Point(15, 136)
Me.cbandor1.Name = "cbandor1"
Me.cbandor1.Size = New System.Drawing.Size(52, 21)
Me.cbandor1.TabIndex = 3
'
'cbparam5
'
Me.cbparam5.FormattingEnabled = True
Me.cbparam5.Location = New System.Drawing.Point(79, 217)
Me.cbparam5.Name = "cbparam5"
Me.cbparam5.Size = New System.Drawing.Size(128, 21)
Me.cbparam5.TabIndex = 16
'
'cbparam4
'
Me.cbparam4.FormattingEnabled = True
Me.cbparam4.Location = New System.Drawing.Point(79, 190)
Me.cbparam4.Name = "cbparam4"
Me.cbparam4.Size = New System.Drawing.Size(128, 21)
Me.cbparam4.TabIndex = 12
'
'cbparam3
'
Me.cbparam3.FormattingEnabled = True
Me.cbparam3.Location = New System.Drawing.Point(79, 163)
Me.cbparam3.Name = "cbparam3"
Me.cbparam3.Size = New System.Drawing.Size(128, 21)
Me.cbparam3.TabIndex = 8
'
'cbparam2
'
Me.cbparam2.FormattingEnabled = True
Me.cbparam2.Location = New System.Drawing.Point(79, 136)
Me.cbparam2.Name = "cbparam2"
Me.cbparam2.Size = New System.Drawing.Size(128, 21)
Me.cbparam2.TabIndex = 4
'
'cbparam1
'
Me.cbparam1.FormattingEnabled = True
Me.cbparam1.Location = New System.Drawing.Point(79, 106)
Me.cbparam1.Name = "cbparam1"
Me.cbparam1.Size = New System.Drawing.Size(128, 21)
Me.cbparam1.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(12, 88)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(59, 13)
Me.Label6.TabIndex = 38
Me.Label6.Text = "und/oder"
'
'cbvalue5
'
Me.cbvalue5.FormattingEnabled = True
Me.cbvalue5.Location = New System.Drawing.Point(271, 217)
Me.cbvalue5.Name = "cbvalue5"
Me.cbvalue5.Size = New System.Drawing.Size(128, 21)
Me.cbvalue5.TabIndex = 18
'
'cbop5
'
Me.cbop5.FormattingEnabled = True
Me.cbop5.Location = New System.Drawing.Point(214, 217)
Me.cbop5.Name = "cbop5"
Me.cbop5.Size = New System.Drawing.Size(52, 21)
Me.cbop5.TabIndex = 17
'
'cbvalue4
'
Me.cbvalue4.FormattingEnabled = True
Me.cbvalue4.Location = New System.Drawing.Point(271, 190)
Me.cbvalue4.Name = "cbvalue4"
Me.cbvalue4.Size = New System.Drawing.Size(128, 21)
Me.cbvalue4.TabIndex = 14
'
'cbop4
'
Me.cbop4.FormattingEnabled = True
Me.cbop4.Location = New System.Drawing.Point(213, 190)
Me.cbop4.Name = "cbop4"
Me.cbop4.Size = New System.Drawing.Size(52, 21)
Me.cbop4.TabIndex = 13
'
'cbvalue3
'
Me.cbvalue3.FormattingEnabled = True
Me.cbvalue3.Location = New System.Drawing.Point(271, 163)
Me.cbvalue3.Name = "cbvalue3"
Me.cbvalue3.Size = New System.Drawing.Size(128, 21)
Me.cbvalue3.TabIndex = 10
'
'cbop3
'
Me.cbop3.FormattingEnabled = True
Me.cbop3.Location = New System.Drawing.Point(213, 163)
Me.cbop3.Name = "cbop3"
Me.cbop3.Size = New System.Drawing.Size(52, 21)
Me.cbop3.TabIndex = 9
'
'cbvalue2
'
Me.cbvalue2.FormattingEnabled = True
Me.cbvalue2.Location = New System.Drawing.Point(271, 136)
Me.cbvalue2.Name = "cbvalue2"
Me.cbvalue2.Size = New System.Drawing.Size(128, 21)
Me.cbvalue2.TabIndex = 6
'
'cbop2
'
Me.cbop2.FormattingEnabled = True
Me.cbop2.Location = New System.Drawing.Point(213, 136)
Me.cbop2.Name = "cbop2"
Me.cbop2.Size = New System.Drawing.Size(52, 21)
Me.cbop2.TabIndex = 5
'
'lblTitelWert
'
Me.lblTitelWert.AutoSize = True
Me.lblTitelWert.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitelWert.Location = New System.Drawing.Point(272, 88)
Me.lblTitelWert.Name = "lblTitelWert"
Me.lblTitelWert.Size = New System.Drawing.Size(34, 13)
Me.lblTitelWert.TabIndex = 28
Me.lblTitelWert.Text = "Wert"
'
'lblTitelOperator
'
Me.lblTitelOperator.AutoSize = True
Me.lblTitelOperator.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitelOperator.Location = New System.Drawing.Point(210, 88)
Me.lblTitelOperator.Name = "lblTitelOperator"
Me.lblTitelOperator.Size = New System.Drawing.Size(56, 13)
Me.lblTitelOperator.TabIndex = 27
Me.lblTitelOperator.Text = "Operator"
'
'lblParamTitel
'
Me.lblParamTitel.AutoSize = True
Me.lblParamTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblParamTitel.Location = New System.Drawing.Point(77, 88)
Me.lblParamTitel.Name = "lblParamTitel"
Me.lblParamTitel.Size = New System.Drawing.Size(64, 13)
Me.lblParamTitel.TabIndex = 26
Me.lblParamTitel.Text = "Parameter"
'
'cbvalue1
'
Me.cbvalue1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbvalue1.FormatString = "N2"
Me.cbvalue1.FormattingEnabled = True
Me.cbvalue1.Location = New System.Drawing.Point(271, 106)
Me.cbvalue1.Name = "cbvalue1"
Me.cbvalue1.Size = New System.Drawing.Size(128, 21)
Me.cbvalue1.TabIndex = 2
'
'cbop1
'
Me.cbop1.FormattingEnabled = True
Me.cbop1.Location = New System.Drawing.Point(213, 106)
Me.cbop1.Name = "cbop1"
Me.cbop1.Size = New System.Drawing.Size(52, 21)
Me.cbop1.TabIndex = 1
'
'ImageList2
'
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
'
'grpBeschreibung
'
Me.grpBeschreibung.Controls.Add(Me.txtbeschreibung)
Me.grpBeschreibung.Location = New System.Drawing.Point(295, 49)
Me.grpBeschreibung.Name = "grpBeschreibung"
Me.grpBeschreibung.Size = New System.Drawing.Size(425, 74)
Me.grpBeschreibung.TabIndex = 29
Me.grpBeschreibung.TabStop = False
Me.grpBeschreibung.Text = "Beschreibung"
'
'txtbeschreibung
'
Me.txtbeschreibung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtbeschreibung.Dock = System.Windows.Forms.DockStyle.Left
Me.txtbeschreibung.Location = New System.Drawing.Point(3, 16)
Me.txtbeschreibung.Multiline = True
Me.txtbeschreibung.Name = "txtbeschreibung"
Me.txtbeschreibung.ReadOnly = True
Me.txtbeschreibung.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtbeschreibung.Size = New System.Drawing.Size(415, 55)
Me.txtbeschreibung.TabIndex = 0
'
'grpdb
'
Me.grpdb.Controls.Add(Me.btnAufbereitenCSV)
Me.grpdb.Location = New System.Drawing.Point(295, 436)
Me.grpdb.Name = "grpdb"
Me.grpdb.Size = New System.Drawing.Size(422, 54)
Me.grpdb.TabIndex = 30
Me.grpdb.TabStop = False
Me.grpdb.Text = "Resultat als Datentabelle"
'
'btnAufbereitenCSV
'
Me.btnAufbereitenCSV.Image = CType(resources.GetObject("btnAufbereitenCSV.Image"), System.Drawing.Image)
Me.btnAufbereitenCSV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAufbereitenCSV.Location = New System.Drawing.Point(6, 19)
Me.btnAufbereitenCSV.Name = "btnAufbereitenCSV"
Me.btnAufbereitenCSV.Size = New System.Drawing.Size(87, 23)
Me.btnAufbereitenCSV.TabIndex = 27
Me.btnAufbereitenCSV.Text = "Tabelle"
Me.btnAufbereitenCSV.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAufbereitenCSV.UseVisualStyleBackColor = True
'
'grpcr
'
Me.grpcr.Controls.Add(Me.checkboxprintparam)
Me.grpcr.Controls.Add(Me.Label2)
Me.grpcr.Controls.Add(Me.Label1)
Me.grpcr.Controls.Add(Me.txtTitel2)
Me.grpcr.Controls.Add(Me.txtTitel1)
Me.grpcr.Controls.Add(Me.BtnAufbereitenCR)
Me.grpcr.Location = New System.Drawing.Point(295, 496)
Me.grpcr.Name = "grpcr"
Me.grpcr.Size = New System.Drawing.Size(422, 102)
Me.grpcr.TabIndex = 31
Me.grpcr.TabStop = False
Me.grpcr.Text = "Resultat als Crystal-Report"
'
'checkboxprintparam
'
Me.checkboxprintparam.AutoSize = True
Me.checkboxprintparam.Location = New System.Drawing.Point(297, 76)
Me.checkboxprintparam.Name = "checkboxprintparam"
Me.checkboxprintparam.Size = New System.Drawing.Size(116, 17)
Me.checkboxprintparam.TabIndex = 33
Me.checkboxprintparam.Text = "Parameter drucken"
Me.checkboxprintparam.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(46, 13)
Me.Label2.TabIndex = 32
Me.Label2.Text = "Titel Z2:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(46, 13)
Me.Label1.TabIndex = 31
Me.Label1.Text = "Titel Z1:"
'
'txtTitel2
'
Me.txtTitel2.Location = New System.Drawing.Point(60, 45)
Me.txtTitel2.Name = "txtTitel2"
Me.txtTitel2.Size = New System.Drawing.Size(353, 20)
Me.txtTitel2.TabIndex = 30
'
'txtTitel1
'
Me.txtTitel1.Location = New System.Drawing.Point(60, 19)
Me.txtTitel1.Name = "txtTitel1"
Me.txtTitel1.Size = New System.Drawing.Size(353, 20)
Me.txtTitel1.TabIndex = 29
'
'BtnAufbereitenCR
'
Me.BtnAufbereitenCR.Image = CType(resources.GetObject("BtnAufbereitenCR.Image"), System.Drawing.Image)
Me.BtnAufbereitenCR.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnAufbereitenCR.Location = New System.Drawing.Point(6, 73)
Me.BtnAufbereitenCR.Name = "BtnAufbereitenCR"
Me.BtnAufbereitenCR.Size = New System.Drawing.Size(87, 23)
Me.BtnAufbereitenCR.TabIndex = 28
Me.BtnAufbereitenCR.Text = "Bericht"
Me.BtnAufbereitenCR.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAufbereitenCR.UseVisualStyleBackColor = True
'
'FrmReportSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(732, 601)
Me.Controls.Add(Me.grpBeschreibung)
Me.Controls.Add(Me.grpcr)
Me.Controls.Add(Me.grpdb)
Me.Controls.Add(Me.GrpAuswertung)
Me.Controls.Add(Me.GrpParameter)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmReportSelect"
Me.Text = "Report-Auswahl"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.TreeContextMenuStrip1.ResumeLayout(False)
Me.GrpAuswertung.ResumeLayout(False)
Me.GrpParameter.ResumeLayout(False)
Me.GrpParameter.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpBeschreibung.ResumeLayout(False)
Me.grpBeschreibung.PerformLayout()
Me.grpdb.ResumeLayout(False)
Me.grpcr.ResumeLayout(False)
Me.grpcr.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents btnAufbereitenCSV As System.Windows.Forms.Button
Friend WithEvents TreeAuswertungen As System.Windows.Forms.TreeView
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GrpAuswertung As System.Windows.Forms.GroupBox
Friend WithEvents GrpParameter As System.Windows.Forms.GroupBox
Friend WithEvents cbandor6 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam7 As System.Windows.Forms.ComboBox
Friend WithEvents cbvalue7 As System.Windows.Forms.ComboBox
Friend WithEvents cbop7 As System.Windows.Forms.ComboBox
Friend WithEvents cbandor5 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam6 As System.Windows.Forms.ComboBox
Friend WithEvents cbvalue6 As System.Windows.Forms.ComboBox
Friend WithEvents cbop6 As System.Windows.Forms.ComboBox
Friend WithEvents cbandor4 As System.Windows.Forms.ComboBox
Friend WithEvents cbandor3 As System.Windows.Forms.ComboBox
Friend WithEvents cbandor2 As System.Windows.Forms.ComboBox
Friend WithEvents cbandor1 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam5 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam4 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam3 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam2 As System.Windows.Forms.ComboBox
Friend WithEvents cbparam1 As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cbvalue5 As System.Windows.Forms.ComboBox
Friend WithEvents cbop5 As System.Windows.Forms.ComboBox
Friend WithEvents cbvalue4 As System.Windows.Forms.ComboBox
Friend WithEvents cbop4 As System.Windows.Forms.ComboBox
Friend WithEvents cbvalue3 As System.Windows.Forms.ComboBox
Friend WithEvents cbop3 As System.Windows.Forms.ComboBox
Friend WithEvents cbvalue2 As System.Windows.Forms.ComboBox
Friend WithEvents cbop2 As System.Windows.Forms.ComboBox
Friend WithEvents lblTitelWert As System.Windows.Forms.Label
Friend WithEvents lblTitelOperator As System.Windows.Forms.Label
Friend WithEvents lblParamTitel As System.Windows.Forms.Label
Friend WithEvents cbvalue1 As System.Windows.Forms.ComboBox
Friend WithEvents cbop1 As System.Windows.Forms.ComboBox
Friend WithEvents BtnAufbereitenCR As System.Windows.Forms.Button
Friend WithEvents BtnInitParam As System.Windows.Forms.Button
Friend WithEvents BtnParamDel6 As System.Windows.Forms.Button
Friend WithEvents BtnParamDel5 As System.Windows.Forms.Button
Friend WithEvents BtnParamDel4 As System.Windows.Forms.Button
Friend WithEvents BtnParamDel3 As System.Windows.Forms.Button
Friend WithEvents BtnParamDel2 As System.Windows.Forms.Button
Friend WithEvents BtnParamDel1 As System.Windows.Forms.Button
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents ComboboxMAParameter As System.Windows.Forms.ComboBox
Friend WithEvents btnDeleteSavedParam As System.Windows.Forms.Button
Friend WithEvents grpBeschreibung As System.Windows.Forms.GroupBox
Friend WithEvents txtbeschreibung As System.Windows.Forms.TextBox
Friend WithEvents TreeContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents AlleKnotenSchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AlleKnotenÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents grpdb As System.Windows.Forms.GroupBox
Friend WithEvents grpcr As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtTitel2 As System.Windows.Forms.TextBox
Friend WithEvents txtTitel1 As System.Windows.Forms.TextBox
Friend WithEvents checkboxprintparam As System.Windows.Forms.CheckBox
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents btnEditSQL As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents tsbtnReportDesign As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnSetSecurityObject As System.Windows.Forms.ToolStripButton
End Class

599
_FRReporting/Formulare/FrmReportSelect.resx
View File

@@ -1,599 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnReportDesign.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMYSURBVDhPbVHrTxNZHJ1/wS8uwUQjMRqJS6KY+A6yLCDB
3USyYuIrPmIwhsAq0V1QYgQ/+QHNonV9LDN9UGOhglVGKihoa3nYWgWEbltaShVru0iLBYeWzvHe6SQb
jCc5uSfn8eV3mW9xQteVUvN6+vzVkc8WzjEboKx/G31Ra58+d1z/YrFc+z4qX4ZLbjiin1nXDOqGorhg
n5Z4mWiOeH8PzkSqrJFDcn0hTvWGq8gY56wRVFhCuP4mBMOAQ6LCHkSFOYhqWwT1A1NiRe/USXmWxGHe
k3XJOpkos0yhtu8j/COdmPc/g6DLgdCcL2n/cAdqLO9RbvmEi28m548Z/RvkOcOUmT+ZaXDaFED43zaI
sShEUYTQlAvhXqGkqRd2PERF9zucJN1S82SnNM6u1Swr7QqI+zo/wmw3QZwJQpybRtTRAr7PAr6/h+hW
yaOZydqNvR0fUNIVSGRd0qUwuTe7dx14GkIx78cXhx6J4GvEnXr80eFC0aMJFLV/QGXXGOIOHRITPZgd
vovfDB7QTS7XU8BksX2Hfn0UwEGjH3OPSyBoNyPYew35ejcK+YDEgvs+hPoUUkY7B9o8oJvtDf17mPV1
xl9yHkygsNWLmP0a4nYF5gaVKL7vRI5hAjTb89BLPBZx6xXEbPUoaCYZ8TcqTD8za8pu/bClZSyxudmH
VzYjxLiARGQM7oF2VD8fR7XJD/egUfJoZrPy2KTzYEvL+9iPfzYukg65Vudry2zy4yjvQmyUT179yxSE
1iIIhmJJU49mRwzDWNc0jsy7Pr00plh55XlGutonpGu9OGMcwIyLRyLsJd+YR75xp6Spd5p/hfTGUaSr
3bOrFP2r5HkSyznn/jTWOZ+m9mDbnRHUP7HgyVONxL86zdjaOIQ01SiWsd74CpVrtzxbiCyVbcdSbmQ8
lfMglXUjtcGZJNXEW865vNkq609yfSGUSuVqtVpd9Y+6UVV2u+2/vJsmMfPGS8J+MZ/oUrY91KDWKEnn
rFarzZBn/4Nl2RQS7iIs12g0NeStI+9lSllT73fa4ThuSXLFMF8BIdZvSBF1G4YAAAAASUVORK5CYII=
</value>
</data>
<data name="TSBtnSetSecurityObject.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKwSURBVDhPvY5bTFJxHMdPUtaLOXso21yrrVnpecppN5sP
bc5Zq/lgtZpTJ9NuamjcDDveQAPT44UjKGiDTAVBCkuNCKvh1EPTFFkqiOb9wQ1XD139BeyYo8t667P9
H77/7++zfZH/ShQnPJbTffN1hDRiC/Xli0ql8rcMDaWQJFlrMBhL2trawrwFhvidbo4OiuKHpjFN9NX4
psjg47oDAd5uHYPBEDhqHSP7+/s/GV6YXur13c52TccXiaThwkF+CHrnTcYSNpLkwizJa9zB88vn1CeM
SAyymdIRZGCAxE0m07JWqw31ZPcaGlEnbRSK7rnCLu8JC8+gSWPFAc+zyL2fDzNpsn3JfreRRITmlT0Y
jcapdq2uiIpe2Gx2IJPJPQkAmwSMtLiY0oAUnnWba38mspU62UCt1jllssZCKv5kVCONnO5R9813KUEg
SHh8lLmj3mf6OgQhEQuF1UuZmdh2TyaVFbsdz1T3nUb190WdFObVNTBJYB/pCVEhXuFXuFz+LharYJWR
zcAnnrZwnE80H5b0clhoF8NcSyXMKu/CTGMJDFeyH1DK78hF/CarvhmWuxSwoCFAxMiAsusp8L5JADMN
heCsy4e3Zey13vz0Y5SyQWctFmx7RHxb7JDAvKoa5prLoTorFeKjj8AozganOA8cVSyYKGdAb15qC6X5
MiIvrZ97WAGzijKYkRfDtBSDuIhwUN64CPaKXBgrpX/t49GrOjmXgijFF7Mod6cVx1zT9QXuuTyYquGA
vfIWjAuzYRBL7+5lJR2iTv8OKczJcbhFB86ESfdcS9GV8Vec1DNU/W9UWKK/pfjau2HsqsvMS8v1ZKr6
M3a7HTWbzaher0cVCgVKEAQqLeKdxfO5pzCMj3oeny9CRTiOEjIZ2tqqQXtMJtRms6ErKyvoDz9cWXKw
2Nd7AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>229, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAQ
DwAAAk1TRnQBSQFMAgEBBwEAAYQBAAGEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEABP8B9AHzCv8LAALP
BAAB8wwAAfAB7BAAA/8B8QFVAU8B9wnvCQABzwHdAs8DAAHsDf8B7QHxEAAC/wEIAVUBlwFVAU8BkQG1
AQcBCQQZAesHAAHPA90CzwMAAewN/wHtAfEQAAH/AZgBVQGXAZgCVQFPAXIB8AH0A/8B4gHrBQABzwTd
A88DAAHsDf8B7QHxEAABmAF3AZcCmASXAQgE/wHiAesDAAHPBN0BzwEAAd0CzwMAAewB/woAARQB/wHt
AfEQAAH/AZ4BCAHzAfQBlwGdAYsBpgGGAc8D/wHiAesBAAHPBN0BzwEAAd0BAAHdAs8DAAHsAf8KAAEU
Af8B7QHxEAAC/wIIAfQClwGYAbQCpgHPAv8B4gHrAQAD3QMAAt0BAAHdAs8DAAHsAf8KAAEUAf8B7QHx
EAAD/wEIAcIBVQGXAvQDpgL/AeIB6wEAAd0BAAPdAQABzwHdAQADzwMAAewB/woAARQB/wHtAfEQAAT/
AQgBnQHzAfQB3QKmAYsC/wHiAesBAAHdAQAC3QEAAt0BzwLdAs8DAAHsDf8B7QHxEAAE/wEZA/MCpgGL
A/QB4gHrAQAB3QEAAc8C3QHPA90B/wEAAdYDAAHsDf8B7QHxEAAE/wEZAfMBCQGmAYsBtQL0AvMBGQFt
AQAB3QEAAd0BzwLdAdYCFALWBAAB7A3/Ae0B8RAABP8BtAHPAbQBCQPzAfEDkgESAQAB3QHPA90B/wTW
Ac8EAAHsDf8B7QHxEAAD/wIJBvMB8AL/AfQBBwEAA90B/wEUAdYB3QPWARQEAAHsDf8B7QHxEAAE/wEZ
BvMB8AH/AfMB8AH/AQAB3QH/ARQB1gHdARQJAAHsDf8B7QHxEAAE/wEZBv8D8wL/AgAB1gHdARQLAAHs
ARIB/wEOAf8B6wHxAbwB7AH/ARAB/wEUAf8BQwHxEAAQ/xEAAewB7QEAAfIBAAH0AQAB7wESAUMBBwEA
Af8B8BMAAXkBMQFLDQAB8wvsAfMKAAHwAW0B8gQAAf8BtQS7CbUBkgIAAVkEegExAUsJAAGuBRkFCQHd
AfEKAAEBAfAC7wMAAf8BtQEZAfMCTQEZAq0BGQGXAU8BuwHdAbUBkgIAAXoBwwd6AVgGAAGuBhkB3QMJ
Ad0B8QcAA20BCwEQAe8B8gFtAgAB/wG1AfQBGQJNARkBsgGsARkBlwEuAbsB3QG1AZICAAGaARsIoAFY
BQABrgcZAd0CCQHdAfEGAAHtARABAAHsAesCAAHsAwAB/wG1AvQCGgHzAtMBGQGXAVUBuwHdAbUBkgIA
AZoBMQWgAnoCoAFLBAABrgkZAQkB3QHxBQAB9AETAbwB/wFtAQ4B9AH/ARQBbQHzAeoB/wG7BPQBGQLz
ARkBeAFWAQgBGQG7AZICAAGaAXoBwwSgAtwBoAHDATEEAAGuChkB3QHxBQAB7AFtAv8BAAEHAfMB8QH/
AewBFAH0Af8BBwX0A/MEGQEJAZICAAGaAXoBGwHDAqAB3AIJAbwCwwFLAwABtAoZAQkB8QQAAfIBFAHy
Af8B9AFtAvQBBwHwAf8BBwH0Af8BBwHzAW0CFAFtAfMB6wIUARIB8AEZAQkBkgIAAZoEegFSAf8B3AIZ
AvYBMQMAAbQB9AkZAQkB8QQAAUMB7AL/AgAB8wH3Af8BBwG8ARQBAAH/AQcC/wb0ARkC8wEZAQkBkgIA
BKAB7wEZAbsBWAEaAf8B9AH/AfYDAAG0AvQIGQHWAfEDAAEHARID/wHsAf8C8gEHAfMB8AHzAQAB/wG8
AfQB6wISAesB8wHsAhIBbQHxAfMBCQGSAgADoAGZAQkE3AEJARkBCQQAAbUD9AcZAdYB8QIAAf8BFAHv
Af8B9AHwAfMB/wEHAfAC8gGSAgAB/wG8BP8H9AEZAQkBkgIAAfYCoAHcARkC3AEJBBkBtQMAAbUE9AYZ
AdYB8QIAAeoBEwP/AfAB/wH3Af8BvAEHAfcB/wIAAf8BvAH0AewCbQHsAfQB7QJtAesB8gH0AQkBkgMA
ATEBuwP0BBkB9AG1BAABtQH/BfQEGQHWAfEDAAHyAW0B9AHtAW0B8QH/Ae0C/wHvAwAB/wHwB/8D9AHz
AfEBuwGSBQABCQL/AfQCGQH/AbUFAAEJAv8F9AEZAd0C1gHyBAAB8gFtAfIBAAHsAQcB9AEHAe0EAAH/
AfAB/wHtBesB7AHyAfEBrgHqAWYB7wYAAfQC/wEZAf8BtQYAAQkD/wX0AdwB1AHsAf8JAAHvAewC8QQA
Af8B8Qn/AfIBvAH3AfQB/wcAAf8B1AH/AbUHAAHcBf8D9AEZAe0B/wsAAfIB6wUAAf8B8QT/AvQD8wHw
AewD/xIAAdwECQG7A7UBvBQAEP8BQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/wMA
Af8BxwG/AfwEAAH/AQcGAAH8AQcGAAHwAQcGAAHAAQcGAAGAAQcGAAGAAQcGAAGAAQcGAAGAAQcGAAGA
AQcGAAGAAQcGAAGAAQ8GAAGAAQ8GAAGBAT8GAAGHAf8GAAHfAf8BgAEBAgABxwH/AcABAQH/AY8CAAHA
AX8BwAEBAf8BhwIAAcABDwHAAQEB/AEDAgABwAEHAcABAQH4ASUCAAHAAQMBwAEBAfADAAHAAQMBwAEB
AfABgAIAAcABAQHAAQEB4AMAAcABAQHAAQEB4QGBAgABwAEBAcABAQHAAQECAAHAAQMBwAEBAYABAwIA
AcABAQHAAQEBgAEDAgAB4AEDAcABAQHAAQcCAAH4AQcBwAEBAeIBDwIAAfwBDwHAAQEB/wEPAgAB/gEf
AcABAwH/AZ8CAAL/AcABDwL/AgAL
</value>
</data>
<metadata name="TreeContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>442, 17</value>
</metadata>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAB3NJREFUWEfd
VgtQVdcVlY8gpgQkGNQgDFhrGVBC0dGMGjCgBIjamIBgKXH4FFp4iIrKx8dPEQgqGoHEWEAEy0cooEgK
IgRQRMkkfCpQiFFRxEBoRKHI762u83ixn5gZbTUz7ZpZc+89956999ln73XPlP9nKCmuPyqUyVmktYnJ
a568mijGfjTMd3OLqpVIjg4FBWVi9uyfpnNMZ/LVI4iAnlt2HIKD/zARHJyNHTtOYvnyd3o5Zk9qkNNJ
CzMzax9eF5HPJTNr/PyS/iaVFkIqLcbWrRlwdPS7YWRknr5kyVtZbm57uyWSVBgZvVrKb40npzw7aCxa
ZBUplf5xIjT0FDZtioKn5wHs2pWLsLBibNuWhS1bjkMiSYO7e9yYmtq0cM6ZNjn1ySBS9hPyBXIqKfZR
PFuQa8nQ0NDcfpH+efOWwNLyLfj5HcPHH7fg/ferEBpayADSERCQxsAOYe5c02rOmUP+IFQV/A6mUml6
nrNzQM6KFWtj+WxtaWnrER6e+01MzJmJhIRKxMdXYMGC12BgsJBBLMaaNb9FenoHurrGERdXhsDAE9iw
YZd4L1NRmZpBG/9eoHKIlRm5uEh2Tp2qLuH9fHLahg2++0+f7sKpU51ITCzDjBlzOszNrWoOHjxPx2U4
fLiOKz4idy740kv6Mh0d/YdSaTlGR4Hs7Cvw8UmCtvasUSUlpXzaFJn7XjcoGRgYWyYnF9U0N8uwf3/h
hIaGZgXHA8PCjl0vKbmNgoJriIrKho7OK7Jlyxy+TUysYorLceTIJfj6HpI7nzPn5+CcS2Ket/eRgcFB
IC2tDq6ukWK8iNQnH9uKahERh+M6O4GWFuCLLyZw9Gg5Kip6ZXV1Y6iqGkRpaR+dVcHQ0FSmpqbRZGa2
ciIwMAUREQXMxDlWuAXmz1/GAPXvLF/uUpuZ+fV4be0A35cwgAioqqpn0o/2pLvvQ0T1q7q6O6PXrgGC
FRU3ueIsxMQUIDW1AadPd6Ok5GvubSPWr/cdiYrKQ0pKHXbuTOM+l3Ofj3F8BwstiU4rkJTUgj17yvk+
h52QCSen0AF19en+9PODHbAqN7d84NYtcKUFsLf3REhIJpKTLyI390tmYQgXLgyhuLib+/olM3SZAVxi
DdQgODiT9XGBmahCZORZuePo6E84fooBZMsDCAzMwOuvb2qnHyFGjzCDtCLX+/tvz+/tBftYgjfe+DVb
5ygnpiI8vIDOPkNl5SDa24Hr10eRl/cVs9IoDyAo6PfYt+8s9u49y2x9wqBz8Pbb27F4sSM2btwtV0YR
gIfHAVGgf6EvUYRyqLi7e/n19QGXL98YuXlzQJacnI0VK5z5cRxcXMLJCFbwB/I2O39+EN3dwNgY0NTU
jxMn2uDlFQsbGzduwZ8YQAlXX8Tg3aGmNl1IcT5rpdrGxmNECBOd3+PYVlJIsxwz4uOTSu/eBe7cAfr7
waht6TSMKwjC6tXeWLnSjVvhz1Vmo75+CCMjkGN4eAwZGW3MVhhmzpw74ejoMxISIlaaynabPUjbXqQm
+YqSkvJOtm4x739Hvkg+gsG5c5/9+fZtoKcHqK1thYWFHQOQws7Ol8Gsg7HxYrbWApmpqfV4c/ODSe8K
FBR0cptSoK7+Qjdt7aF2nDE0NOtQVlZJ5rOe3MMkRNG9rLj+C8Sf6pcmJuaVFRWfT2RllbFIXBQB+MDc
3E7e21Sur/hdYlNTG5P/DxQWdrIG6ilCieMODl71Wlozd/O7VaSQ2cf2+uMgdP4X+fmVt7OzK2Fru5k/
jL1Yt24ra2ETFi60gaambt/Spauqh4cfyhS+5cjIuMpWu4RDhz6lcJ1n0B5DtOVCqgjDT4N5MTHJ7fX1
PdxzZ/j7J2Pz5lhWsJQCEs2/Wh5aWx8q3E6ip2eQXdCMgwer5ExIOAczMysZbYk+f6r/va6Tk0/CxYv9
o6LFnJ23sO3y2EonyWzExpYx1d0YGFB4VqCs7IZ89ZGR+ThwoJJtWAotLb1vaG/1pNkng7Krq8SjoWFk
/MqVETQ2TvCH0wpv7ziKSzV7v4GF1oXm5nE8/KcEtLX9latvYa2EiAL8lnbO6OkZFqqoqAbzXhTbE0NZ
W1t3Y2lp18iFCw9QU3OfnTBM41e48iKu/Baqq4fR0QHcvw+24DiD7KMUX5Urn67u3AnakJJC37XIR/39
NDAMCIivy8lpZtvZwdr6HSreA5SX32M2rlF8RFD3GFwv5biThdeKjz5qoLqJfp81wvlOk2b+c6jq6Lzs
oKmpk6M4KES6um7rKSm5y59PD7fgFh1fx8mTnXLp/fDDy9yeT+WVz6KDoufFSem/gjj9iDQK5dKTSBLq
c3La6VSstg5vvunJY7bxwNKl9neFc1EfovDefXc7eGbI4Rxd8pnBMDo6pz0zswXHjzfyHPeB+L+Pc1zs
9Zq1a39zNSGhnDLtPsaM1YgxUpwTnxl0bW1dU957b3f/vn1FMisrZ5mGxoufc/xVUmTKXl//Z8d5FRU/
j3zmZ3whoULHhaQGkVGKezVSQAQhKv675+cKIanC0RPr+v8Qpkz5O987bdQ6XKoXAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnEditSQL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAh5JREFUOE99
kEtrE1EAha8QS0FKac1GK21NFqUIump+hRTdZiMYly7c+QBx6UqKLoTZCJI0j0mqRV2oGKEkBanVFrOI
NO04zTSTV2easSbNa+Z479waq0l64Nvce76TmyFHMu10OufcbrfAcLlcwuTkeeHs2DlheOS0QO8v8Vrv
DHm93lJZ28MfCiUNUlbF8moKoVdx+Hy+Mu31HZmJRmP4kc11kCibsoLU9y0kPn+DWijTkRt9RzzR2AIU
tdjF9k6ejkjI5gp0WMWty9frF8lYijpTXOWxB9izu9mFrOSxISlY9S9hefA20uQ+zpDhxUPXDh2IYVev
9OVDYgUfn7zBV8c9CKeuYZA4Hhy6djwi/QaVn/s9+SWHIa/cpK/I4uXTRTx6+BjM4SqPRxRj2K/Wuqjt
iDDXBmBKJ7C1dAcZ+mH9gWD3QESMonZQ/4e6GqPySVgbBM3kBVQrCqq1A4QjYvcAO6w3Gh2ahQWY6wOw
0gS15BQUaR2GYdh3PQdCYRHNVsumpcXtZ1spAiPpwpdP75DJbKJK/xK7Z13mcJXHEwxF0G63bapyhA44
oCXG8fZ1AOl0Go1Gs3PPuszhKo9nPhiGaZrQNQ3ba3G8n7+LF+Iz5FTVPj8K6zKHqzwzz/0BWJYFXdfp
czMoFov0Vxv22f+wLnO4yjM0e+VqKZcvQdszjiWXL4J1mcPVv5keGR2dG5+YEI6DdViXK4T8BtyTRSrq
309CAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnDeleteSavedParam.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<data name="BtnParamDel1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
</value>
</data>
<metadata name="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>336, 17</value>
</metadata>
<data name="btnAufbereitenCSV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAArtJREFUOE+F
k2tIU2Ecxk+5NedlurnNKctNw6GNLDFRS8xiSmpIVh+szAtrGKYoaQmBfVEMo5QunyQspC8S2U2yLENS
0EpnkZcKU0sLL7ntaG5ruvN0znFw7IYPPPDy/n/P874f3pf4Q2La0jXMMH8pnKfxGpAdU1Ahehm25IsR
d1IEXbEHkmgz6wh6j5nJaYZhmcxKlBZfLeyq+STBMzsPrYt83JsXoMksRON3T9RPiXDlqy8ufJagclSK
sx/lyOxWg8m44gShy+VZOhzr8epnIt7ai9BrLUb3QglekKfQbi7F47kyPJw5g+apctSNZiDbqMKmDC+L
K04Q6YZ1ZKuVDzs1g7Vkd87gcK8aqgxv0hUniNTj68lm0p0emjBtM+HiYAOufriOycVJTCxO4Bq9vjTU
gFmbmWUOdIdAuV/EFSTr3chbc56wOc2gKArl/ecQ9USLE30HoX+dgpinm1EzVMvegGH2doYiIN2HK9iT
xyPrp0WwLptXoGUrCvpTkWMMwtFeFaqGDXBSy+yMYRKeh0G2T8wV7Mrlk5cnffFjaaWAuUXzdClOv1eg
eDAQfeRtdp8Rw0S3aSFO8+MK4rMF5PlxPywsWVjIOH8TVWNSVI+pUTEiR814CEyOUXbGMNpHEfBOkXIF
sVkCsmJEhnmHBRP2HtR9CUYt7QlbD1pmS1BNl9/4thtLlJ1lgu9HQpgs4wqijriTZcMKWBwke8pqOZxW
dJgr0W6qwKT9Jcso7myHIEnOFWzNdLcUDQTinXnIFfu/3piG4dMUAzedP/eQpGH8LoNRiUM9GqR1RkHX
EY2E9hjEtsUhsnUntC3xCH2QANXdRIibdmBDYywIlQf3lGmFy7YJBiIKxZS20A+aAhmC8+VQGhTw1wdA
khcI7xwlhFkbwcsMogiN9++faZUktP/1hVebYVwiiF+DdQhv93f/NQAAAABJRU5ErkJggg==
</value>
</data>
<data name="BtnAufbereitenCR.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAbZJREFUOE99
z8FqGkEYB3DfILc8Qa55j76C4KGXXortIWmTg7f0klJIIL1sJLQXhVJMmu4GN3VN1Fl3A0Wd3QRsum0W
FAUV10fIv9+3bBPCqAM/GPb7z39mU/9XFEUHs9lMLjKdTmUmk3mZxNVFBZJgmWw2e59Op+eX8A1T/yui
6sZCe+82sfV28z6Xy6klk8lEDsrbuHu/uhRnxuPxn+TY4xqNRnL4y0avebQUZyirFgyHQ0nAtEob7dsQ
wd87tP2b2GAwiGcJtaDf70sC9kIr49Txcfs7QMu7jvV6vXiWUAvCMJQEptPB648n2DrU8bPj4cyqP7Aa
DjhD1IIgCCRBpd4k9lwXwgVniFrQ7XYlgXd9A9PtxM/2/Kd8mnGGqAW+70sC9mz3GJ9NBw3nCt9MK+Z5
XjxLqAWtVksSlM4Fnn/4glcHJVyKJk7K1gOjcgHOELXAdV1JUGvQ/9YEqnVB+6fqQoAzRC0QQkjbtqGf
W/hOT57H+FEFZyj7WKBp2kqhUFjXdb1ommZI+mSyAM9CwzBKxWJxPZ/Pr6To8BrJkDdkh+yRfXJEPiV4
z994xhnO0pnC2j+Ia2ryPbNY9wAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>623, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAMDAQAAEABABoBgAAhgAAACAgEAABAAQA6AIAAO4GAAAYGBAAAQAEAOgBAADWCQAAEBAQAAEA
BAAoAQAAvgsAADAwAAABAAgAqA4AAOYMAAAgIAAAAQAIAKgIAACOGwAAGBgAAAEACADIBgAANiQAABAQ
AAABAAgAaAUAAP4qAAAoAAAAMAAAAGAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMwAAAAAAAAAAAA
AAAAAAAAAAAAAAAAADPzMzAAAAAAAAAAAAAAAAAAAAAAAAAAAzP7i4MzMAAAAAAAAAAAAAAAAAAAAAAA
A4P4uLi4uDMzAAAAAAAAAAAAAAAAAAAAA7P7i4uLi4uLMzMAAAAAAAAAAAAAAAAAA4P4uLi4uLi4uLgz
MwAAAAAAAAAAAAAAP7g/i4uLi4uLi4uLi4MzMAAAAAAAAAAAP4s/uLi4uLi4uLi4uLi4szAAAAAAAAAA
P7g/i4uLi4uLi4uLi4uLh4AAAAAAAAAAP4s/uLi4uLi4uLi4uLi4t7cAAAAAAAAAP7iz+4uLi4uLi4uL
i4uLh/gAAAAAAAAAP4uD+Li4uLi4uLi4uLi4t79wAAAAAAAAP7iz+4uLi4uLi4uLi4uLh/uAAAAAAAAA
P4uLP7i4uLi4uLi4uLi4t7+3AAAAAAAAP7i4P4uLi4uLi4uLi4uLh/v4AAAAAAAAP4uLP7i4uLi4uLi4
d7i4t7+/AAAAAAAAP7i4P4uLi4uLi4uHiHuLh/v7cAAAAAAAP4uLP7i4uLi4uLh4iIe4t7+/gAAAAAAA
P7i4s/uLi4uLi4eIiIh7h/v79wAAAAAAP4uLiz///7i4uHiIiIiHt7+/uAAAAAAAP7i4uLMzM///94iI
iIiId/v7+3AAAAAAP4uLi4uLizMzP4iIiIiIh7+/v4AAAAAAP7i4uLi4uLi3g/+IiIiIiHv7+4cAAAAA
P4uLi4uLi4t4/z///4iIiIe/v7gAAAAAP7i4uLi4uLeP+IMzM///iIh7+/gAAAAAP4uLi4uLi3j/j4j4
jzMz///4//8AAAAAP7i4uLi4t4//iPiPiPiPMzMzMzMAAAAAP4uLi4uLeP+I+I+I+I+I////gAAAAAAA
P7i4uLi3j/j4j4j4j4j4j///+AAAAAAAP/uLi4t4//iPiPiPiPiP/////4AAAAAAA/i4uLeP//+I+I+I
+I+I/////4AAAAAAA/+Li3j////4j4j4j4j4j///+AAAAAAAAD+4t4//////iPiPiPiP////8AAAAAAA
ADP/9///////+I+I+I+Ij//4AAAAAAAAAAAzN4///////4j4j4j///+AAAAAAAAAAAAAAHj///////iP
iPiP//gAAAAAAAAAAAAAAAeP//////+I+I///4AAAAAAAAAAAAAAAAB4///////4j///+AAAAAAAAAAA
AAAAAAAHj///////iP//gAAAAAAAAAAAAAAAAAAAeP////j////4AAAAAAAAAAAAAAAAAAAAB4///4CP
//+AAAAAAAAAAAAAAAAAAAAAAHj/+AgI//gAAAAAAAAAAAAAAAAAAAAAAAePh/+Aj4AAAAAAAAAAAAAA
AAAAAAAAAAB4f//4CAAAAAAAAAAAAAAAAAAAAAAAAAAHd3d3cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///////wAA/n//////AAD8B/////8AAPwAf////wAA+AAD////AAD4AAA///8AAPgA
AAP//wAA+AAAAB//AADwAAAAB/8AAPAAAAAD/wAA8AAAAAP/AADwAAAAAf8AAPAAAAAB/wAA8AAAAAD/
AADwAAAAAP8AAPAAAAAAfwAA8AAAAAB/AADwAAAAAH8AAPAAAAAAPwAA8AAAAAA/AADwAAAAAB8AAPAA
AAAAHwAA8AAAAAAPAADwAAAAAA8AAPAAAAAABwAA8AAAAAAHAADwAAAAAAcAAPAAAAAABwAA8AAAAAAH
AADwAAAAAD8AAPAAAAAAHwAA8AAAAAAPAAD4AAAAAA8AAPgAAAAAHwAA/AAAAAA/AAD8AAAAAH8AAP8A
AAAA/wAA//AAAAH/AAD/+AAAA/8AAP/8AAAH/wAA//4AAA//AAD//wAAH/8AAP//gAA//wAA///AAH//
AAD//+AA//8AAP//8AH//wAA///4A///AAD///////8AACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAAAAAAD/
/wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzMzMAAAAAAA
AAAAAAAAAAM/uLMzMAAAAAAAAAAAAAADP4uLi4szMwAAAAAAAAAAAz+4uLi4uLizMwAAAAAAAAM/+4uL
i4uLi4uDAAAAAAAD8/i4uLi4uLi4t3AAAAAAA/P7i4uLi4uLi4fwAAAAAAPz+Li4uLi4uLi3twAAAAAD
8/uLi4uLi4uLh/sAAAAAA/P4uLi4uLh4uLe/cAAAAAP7P4uLi4uHh4uH+/AAAAAD+LP4uLi4eIh4t7+3
AAAAA/uD+4uLh4iIh4f7+wAAAAP4s///uHiIiIh3v79wAAAD+4szM///+IiIh/v78AAAA/i4uLgzMz//
//d/v7cAAAP4uLiwj/jzMzM/h//3AAAD+4uLCP+I+I+I8zMzMwAAA/i4sI/4+I+I+I//gAAAAAP7iwj/
+I+I+I+I//gAAAAAOLCP//+I+I+I//+AAAAAAD+Hj///+I+I+I/4AAAAAAAD/3j///+I+I//gAAAAAAA
ADM3j///+I//+AAAAAAAAAAAAHj//////4AAAAAAAAAAAAAHj/+I//gAAAAAAAAAAAAAAHj4AI+AAAAA
AAAAAAAAAAAHgPgIAAAAAAAAAAAAAAAAAH//gAAAAAAAAAAAAAAAAAAHd3AAAAAAAAD/////+H///+AH
///gAD//4AAD/+AAAP/gAAB/4AAAP+AAAD/gAAAf4AAAH+AAAA/gAAAP4AAAB+AAAAfgAAAD4AAAA+AA
AAHgAAAB4AAAA+AAAA/gAAAH8AAAD/AAAB/4AAA//AAAf//AAP//4AH///AD///4B////A////4f/ygA
AAAYAAAAMAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAgIAAgAAAAIAA
gACAgAAAgICAAMDAwAAAAP8AAAAAAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAADMzAAAA
AAAAAAAAA/+4szMAAAAAAAAAAz+Li4uDMzAAAAAAAz+4uLi4uLMzAAAAAz+Li4uLi4uHAAAAA/P4uLi4
uLi3cAAAA/P7i4uLh4uH8AAAA/P4uLi4eHi3twAAA/s/i4uHiIeH+wAAA/g/+Lh4iIh3vzAAA/uDP///
iIiH+7AAA/i4szMz////f7MAA/uLgP/4MzMz//8AA/i4D/+I+I+IczMAA/uA//j4j4j/+HAAA/8P/4iP
iPj/+AAAADD///+I+I//gAAAAAB////4j//4AAAAAAAH////iP/wAAAAAAAAf//wj/8AAAAAAAAAB49/
CPAAAAAAAAAAAHf/8AAAAAAAAAAAAAd3dwAAAAAAw////8A///+AAf//gAA//4AAH/+AAB//gAAP/4AA
D/+AAAf/gAAH/4AAA/+AAAP/gAAB/4AAAf+AAAP/gAAD/4AAB//AAA//8AAf//gAP//8AH///gD///8B
////g///KAAAABAAAAAgAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACA
gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAAAAAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAA
AAAAAAAAAzMzMzMzMzA/P7i4uLi4MD8/i4uLi4swPz+4uLi4uDA/P4uLi4uLMD8/uLi4uLgwPz//////
/zA/MzMzMzMzAD+4f/////cAP4t/iIj/9wAD/3////AAAAAzf4iI9/gAAAB////3gAAAAHd3d3dwAP//
///AAf//gAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAB//8AAf//AAH//4AB///AAf//8AP///AH
//8oAAAAMAAAAGAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA//v/AHNx
cwDWmpwAvY6MAP/z7wCUjowA/+/nAM6ehADvupwA1qaMAJyCcwDWspwA99O9AP/r3gD3vpQA57KMAPfb
xgD/484A/+fWAPfPrQD/17UA/9u9AO/PtQD/x5QA//PnAP/37wD/+/cA/8uUAP/PnAD/06UA/9etAO/L
pQD/27UA/9+9AM62nAD/48YA/+fOAPfjzgD/69YA/+/eAP/DewD/x4QA/7ZaAP/TnAD3z5wA/9elAPfT
pQD/pikA/9ulAO/XtQD/58YA/9+tAP/jrQD/9+cA/+e1AP/vzgD/670A/++9AP/31gD/98YA1tO9AP//
9wDO18YAvcu1AMbjzgDv+/cApa6tAK3r5wCc+/cAtd/eAJT//wCc//8Apf//AK3//wC9//8Axv//AM7/
/wDW//8A3v//AOf//wDv//8A9///AJT7/wCc+/8Atfv/AK3b3gCM9/8AlPf/AIzz/wCl9/8AnOfvAHPn
9wCE7/8AnPP/AIS+xgCUx84Aa9vvAITr/wCM6/8AtfP/AOf7/wBCpr0AhOf/AM7v9wAYrtYAOYacAFrP
7wBj1/cAWq7GAHvj/wB7z+cAUnmEALXv/wAAns4AAJbGAAiezgAIirUAEKbWABCSvQAhst4AIZ7GACmy
3gAprtYAMbbeADGu1gA5vucAMaLGAEq63gBSy+8Aa9v/AHPf/wB73/8AjNfvAJTT5wCc2+8AzvP/AACa
zgAAksYACKLWAAiWxgAIjr0AEKLWABCezgAQfaUAGKreABim1gAhptYAGHmcACGizgAhlr0AIYqtADG2
5wBCw+8AKXmUAEK23gBKw+8AQqrOAFrP9wBSut4Aa9f/AGvT9wBjvt4Ac9v/AKXn/wCl2+8A7/v/ABii
1gAhqt4AKbLnADGy5wBCvu8AUsf3AGPT/wBavucAQn2UAHPX/wBzx+cAhNv/AIzT7wCc4/8Avef3ANbz
/wBCuu8ASr7vAFLD9wBax/cAY8//AGvT/wBz0/8Ac8/3AHvX/wCc2/cAY8v/AGvP/wCE1/8AlNv/AJTX
9wCc3/8Ard/3AOf3/wBry/8A3vP/AP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJycnJycAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi6GnlIt3nJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAi5UBpsOumpOLj5acnJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAi4tqiqKioqKioLmqdIySnJycAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi7m1AaWlpaWl
paWlpa+efHiLnJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8R/AaaFhYWFhYWFhYWFhYWirpqT
i5ycnJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8upAXOFhYWFhYWFhYWFhYWFhYWGhqCAenScnJycAAAA
AAAAAAAAAAAAAAAAAAAAi8Gqt7iGhoaGhoaGhoaGhoaGhoaGhoaGhoZum3yQnAAAAAAAAAAAAAAAAAAA
AAAAi8WsswFpcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCjbZwAAAAAAAAAAAAAAAAAAACLi7StlQFmaWlp
aWlpaWlpaWlpaWlpaWlpaWlpaWlponWcAAAAAAAAAAAAAAAAAACLi7S6jWq4ZGRkZGRkZGRkZGRkZGRk
ZGRkZGRkZGRkvX6cAAAAAAAAAAAAAAAAAACLqsa6qnEBX19fX19fX19fX19fX19fX19kZF9fX19fvV6O
nAAAAAAAAAAAAAAAAACLqsatmn8BZltbW1tbW1tbW1tbW1tbW1uysltbW1tbvUxrnAAAAAAAAAAAAAAA
AACLqsi6uo3MUFtbW1tbW1tbW1tbW1tbW4a/v3BbW1tbvUxjeZwAAAAAAAAAAAAAAACLqsi7u6uHAVpa
WlpaWlpaWlpaWlpacLI/IrJfWlpavVdXeJwAAAAAAAAAAAAAAACLfsi7u7qdAUxVVVVVVVVVVVVVVVVb
hUEfH0GGWlVVvU1Ng5mcAAAAAAAAAAAAAACLsMa8vLyNqFBKSkpKSkpKSkpKSltwQR8uLh9YaUlKvU1N
V3acAAAAAAAAAAAAAACLsMjDw8OriVRKSkpKSkpKSkpKVWlIHzAzMy4vXVtKvU5OToKZnAAAAAAAAAAA
AACLsMi9vb27ggFOS0tLS0tLS0tKX0gfMzY2NjYuMWVWvU9PT2Z1nAAAAAAAAAAAAACLsKa+vr6+jWoB
U1FOTUxMTExbRh8zNzc3Nzc3Hz9bvVBQUFCdbJwAAAAAAAAAAACLcbaysrKynnizt6gBAQFUU09XIzY5
Nzc5OTk5Nx9DvVFRUVGmjpwAAAAAAAAAAACLx7aFhYWFhaKtfJORnXGJagEBAT07MB85Ozs7OzcfiFFR
UVFRfbGcAAAAAAAAAACLx6ZwcHBwcHBwcHBwhIOalZh/agE6Ox8uPDw8PDw2L0RSUlJSh3mcAAAAAAAA
AACLwqZpaWlpaWlpaWlpabLABhIin2oBNTsfMD4+Pj4+MCFTU1NTU5RynAAAAAAAAACLyaZfX19fX19f
X19fhrJFEh8jP5dqAQEcGz09PT4+PjAkVFRUVHGZnAAAAAAAAACLuGBbW1tbW1tbW1tkhUUMHyQjIyV7
nYJxibeoAQEBQDgnQAEBAaiRnAAAAAAAAACLuFxVVVVVVVVVVVtwRQwfIyYfISMfNEJFYW9okZ2kcclq
AQEBAQGznAAAAAAAAACLzExKSkpKSkpKVWRiCh4jJCEjHyMhHyQgHyQfIChBYmGfgZWds4eCnAAAAAAA
AACLykxKSkpKSkpJX4gKHiEnIx8kIR8kIB8mHyAkHyEnJycmIBIIBAAAAAAAAAAAAACLZ01KSkpKSkpZ
XQoaISkgJCEfJiAfJh8gJh8jIx8kKSkpJB8SDQQAAAAAAAAAAACLx2dKSkpKSlVdChEgKSkhHyYgHycf
ICYfISQfJCQpKSkpKSMfCgYAAAAAAAAAAAAAi8pOSkpKSkclESApKiopICAnHyAnHyMkHyQjHycqKioq
KioSCwYAAAAAAAAAAAAAi3FTSkpKRyURHyoqKioqKR8hJx8jJB8mIx8nICAqKioqKg8LBgAAAAAAAAAA
AAAAAIuoAQFSQRIhKRsbGxsbGycfIyYfJiMfJyAfKR8hGxsbEwsGAAAAAAAAAAAAAAAAAACLi4uLiw4V
GxsbGxsbGxskHycjHykgHykfICkgGxsVCwYAAAAAAAAAAAAAAAAAAAAAAAAAAAALGxwcHBwcHBwcIx8p
IB8qHyApHyQcHBsLBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxwcHBwcHBwcHCEfKh8hKh8kJyocBwsF
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxkdHR0dHR0dHRsfISofJCkfGx0dGQUAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAsoHR0dHR0dHR0qHyQpHycqHR0PBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAALEAEBAQEBAQEBJx8pJCYBARUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxwBAQEBAQEB
ASQfGwEBCQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYDAQEBAQMQAQEkAQEcDAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACsYAQEBARctHAEBAQMMAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAArFAEBJDIyMgMBAQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAKyoQLS0tLSwBDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACssKysr
KywsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///////3d3/B//////d3f4Af////93d/gAH////3d3+AAB////d3f4AAAf//93d/gA
AAH//3d3+AAAAB//d3f4AAAAD/93d/gAAAAH/3d38AAAAAP/d3fwAAAAA/93d/AAAAAB/3d38AAAAAH/
d3fwAAAAAP93d/AAAAAA/3d38AAAAAB/d3fwAAAAAH93d/AAAAAAP3d38AAAAAA/d3fwAAAAAB93d/AA
AAAAH3d38AAAAAAPd3fwAAAAAA93d/AAAAAAB3d38AAAAAAHd3fwAAAAAAd3d/AAAAAAB3d38AAAAAAH
d3fwAAAAAD93d/AAAAAAH3d38AAAAAAfd3f4AAAAAB93d/gAAAAAP3d3/AAAAAB/d3f+AAAAAP93d//4
AAAB/3d3//wAAAP/d3f//AAAB/93d//+AAAP/3d3//8AAB//d3f//4AAP/93d///wAB//3d3///AAP//
d3f//+AB//93d///8AP//3d3///4B///d3f///////93dygAAAAgAAAAQAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAD/+/8Ac3FzANaanAC9jowA//PvAJSOjAD/7+cAzp6EAO+6
nADWpowAnIJzANaynAD3070A/+veAPe+lADnsowA99vGAP/jzgD/59YA98+tAP/XtQD/270A78+1AP/H
lAD/8+cA//fvAP/79wD/y5QA/8+cAP/TpQD/160A78ulAP/btQD/370AzracAP/jxgD/584A9+POAP/r
1gD/794A/8N7AP/HhAD/tloA/9OcAPfPnAD/16UA99OlAP+mKQD/26UA79e1AP/nxgD/360A/+OtAP/3
5wD/57UA/+/OAP/rvQD/770A//fWAP/3xgDW070A///3AM7XxgC9y7UAxuPOAO/79wClrq0ArevnAJz7
9wC1394AlP//AJz//wCl//8Arf//AL3//wDG//8Azv//ANb//wDe//8A5///AO///wD3//8AlPv/AJz7
/wC1+/8ArdveAIz3/wCU9/8AjPP/AKX3/wCc5+8Ac+f3AITv/wCc8/8AhL7GAJTHzgBr2+8AhOv/AIzr
/wC18/8A5/v/AEKmvQCE5/8Azu/3ABiu1gA5hpwAWs/vAGPX9wBarsYAe+P/AHvP5wBSeYQAte//AACe
zgAAlsYACJ7OAAiKtQAQptYAEJK9ACGy3gAhnsYAKbLeACmu1gAxtt4AMa7WADm+5wAxosYASrreAFLL
7wBr2/8Ac9//AHvf/wCM1+8AlNPnAJzb7wDO8/8AAJrOAACSxgAIotYACJbGAAiOvQAQotYAEJ7OABB9
pQAYqt4AGKbWACGm1gAYeZwAIaLOACGWvQAhiq0AMbbnAELD7wApeZQAQrbeAErD7wBCqs4AWs/3AFK6
3gBr1/8Aa9P3AGO+3gBz2/8Apef/AKXb7wDv+/8AGKLWACGq3gApsucAMbLnAEK+7wBSx/cAY9P/AFq+
5wBCfZQAc9f/AHPH5wCE2/8AjNPvAJzj/wC95/cA1vP/AEK67wBKvu8AUsP3AFrH9wBjz/8Aa9P/AHPT
/wBzz/cAe9f/AJzb9wBjy/8Aa8//AITX/wCU2/8AlNf3AJzf/wCt3/cA5/f/AGvL/wDe8/8A////AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnJycnAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIuCd5mcnJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8qi
oLl6kZmcnJycnAAAAAAAAAAAAAAAAAAAAAAAAACLAcGlpaWlr56aeHecnJycnAAAAAAAAAAAAAAAAAAA
i67Jc4aGhoaGhoaGpaCAqneZnJycAAAAAAAAAAAAAACLxaG4cHBwcHBwcHBwcHBwcG6efJGcAAAAAAAA
AAAAAIvBqgFlZGRkZGRkZGRkZGRkZGRkhI+cAAAAAAAAAAAAi8F6t2ZfX19fX19fX19fX2lfX1+igJwA
AAAAAAAAAACLxbmzUFtbW1tbW1tbW1twvmRbW6Jad5wAAAAAAAAAAIvGu6wBWlpaWlpaWlpaZLU/tFla
sld9nAAAAAAAAAAAi8WummpXSUlJSUlJSVuHMR8/aUmlTWWZnAAAAAAAAACLxsOus1FKSkpKSkpVZTEw
Mx9DWqVPT2ucAAAAAAAAAIu0xMSdAU9XTExMS1sWMzY2Nh9GhU9Ph5ycAAAAAAAAi8aioq6hycwBU1JP
KDY5Nzk5NyCHUVFRl5wAAAAAAACLtoaGhqWggHyws7XMODYfOTw8NxlSUlKznJwAAAAAAIu2aWlpaWlp
abJFJW9qGyQgPD4+NyRTU1F5nAAAAAAAi2BbW1tbW1uGRRIhGWiJt0QBQBw4GAlUVLOcnAAAAACLXFVV
VVVVZGISISMgIEJFYW9hpHHJtx0DqJmcAAAAAItMSkpKSlliESEkICAhICEfIR8mKENhb2h1mJwAAAAA
i1dKSkpVXQwgJCEgISAhHyMfIx8pKSYfDQQAAAAAAACLZ0pKSkYOICkpICMfIx8kHyMgJykpKjsOBgAA
AAAAAIu3T1dcDB8pKiopHyQfJB8jICEhKioqDgYAAAAAAAAAAIuJt0MZKhsbGxsnHyQfGCAjISAnGzQG
AAAAAAAAAAAAAIuLiy0THBwcHBwmICMhISEhJhwoBgAAAAAAAAAAAAAAAAAAAC0QHR0dHR0kISEjISYc
EAwAAAAAAAAAAAAAAAAAAAAAAC0cHR0dHR0hIyAmHRwKAAAAAAAAAAAAAAAAAAAAAAAALQ8BAQEBAR0f
JhwdCgAAAAAAAAAAAAAAAAAAAAAAAAAALRMBAQEHAxwcAQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAALRAB
BzIrAVQKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALQksLSstCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAALS0tLS0AAAAAAAAAAAAAAAAAAP/////w////4A///+AA///gAA//wAAB/8AAAP/AAAB/wAAAf8AA
AD/AAAA/wAAAH8AAAB/AAAAPwAAAD8AAAAfAAAAHwAAAA8AAAAPAAAADwAAAD8AAAA/AAAAf4AAAP/AA
AH//AAD//4AB//+AA///wAf//+AP///wH///+D//KAAAABgAAAAwAAAAAQAIAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAAAP/7/wBzcXMA1pqcAL2OjAD/8+8AlI6MAP/v5wDOnoQA77qcANam
jACcgnMA1rKcAPfTvQD/694A976UAOeyjAD328YA/+POAP/n1gD3z60A/9e1AP/bvQDvz7UA/8eUAP/z
5wD/9+8A//v3AP/LlAD/z5wA/9OlAP/XrQDvy6UA/9u1AP/fvQDOtpwA/+PGAP/nzgD3484A/+vWAP/v
3gD/w3sA/8eEAP+2WgD/05wA98+cAP/XpQD306UA/6YpAP/bpQDv17UA/+fGAP/frQD/460A//fnAP/n
tQD/784A/+u9AP/vvQD/99YA//fGANbTvQD///cAztfGAL3LtQDG484A7/v3AKWurQCt6+cAnPv3ALXf
3gCU//8AnP//AKX//wCt//8Avf//AMb//wDO//8A1v//AN7//wDn//8A7///APf//wCU+/8AnPv/ALX7
/wCt294AjPf/AJT3/wCM8/8Apff/AJzn7wBz5/cAhO//AJzz/wCEvsYAlMfOAGvb7wCE6/8AjOv/ALXz
/wDn+/8AQqa9AITn/wDO7/cAGK7WADmGnABaz+8AY9f3AFquxgB74/8Ae8/nAFJ5hAC17/8AAJ7OAACW
xgAIns4ACIq1ABCm1gAQkr0AIbLeACGexgApst4AKa7WADG23gAxrtYAOb7nADGixgBKut4AUsvvAGvb
/wBz3/8Ae9//AIzX7wCU0+cAnNvvAM7z/wAAms4AAJLGAAii1gAIlsYACI69ABCi1gAQns4AEH2lABiq
3gAYptYAIabWABh5nAAhos4AIZa9ACGKrQAxtucAQsPvACl5lABCtt4ASsPvAEKqzgBaz/cAUrreAGvX
/wBr0/cAY77eAHPb/wCl5/8ApdvvAO/7/wAYotYAIareACmy5wAxsucAQr7vAFLH9wBj0/8AWr7nAEJ9
lABz1/8Ac8fnAITb/wCM0+8AnOP/AL3n9wDW8/8AQrrvAEq+7wBSw/cAWsf3AGPP/wBr0/8Ac9P/AHPP
9wB71/8AnNv3AGPL/wBrz/8AhNf/AJTb/wCU1/cAnN//AK3f9wDn9/8Aa8v/AN7z/wD///8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAJycnJwAAAAAAAAAAAAAAAAAAAAAAAAAAItsmJicnJycAAAAAAAAAAAAAAAA
AAAAAIuKoJ5+mJmYnJycnAAAAAAAAAAAAAAAAIu3aYaGpaKguXuBe5ycnJwAAAAAAAAAi7mJpoVwcHBw
aXCFbp5/mZmcAAAAAAAAi7qkTnBkZGRkZGRkW2VbcHucAAAAAAAAi8Ost1plW2VbZVtbhV9bZG6YnAAA
AAAAi6OaiUxZWVlZWVpwiIdZZGCYnAAAAAAAi8C7s09JSUlJSVlYHz9ZX0xxmJwAAAAAi8W9uopXS0pK
SacxMy5BXmZNs5wAAAAAi7SyoLO3ilBQTSE3OTkzWGZSs5mcAAAAi8iGcK9tbcBxpzgzMzw8McxTiqSc
AAAAi1xkZGRbX68GQojMKDo9PiQcA6SYnAAAi1dZWlpZcCUgIT9iYoiJWGrMRGpsnAAAi01JSkpbRR8k
ISEwIBkiQ1hFb2hiAAAAi09JSklCHzUhISEhISEhNSk1EgQAAAAAi4lOS0EvKSokNSE1FzUhJyoqCgQA
AAAAAIuJpyUpHBsbIzUjNSMhJAclCgAAAAAAAACLi4sYHRwcGyM1IzUkHBkKAAAAAAAAAAAAAAAtFQEd
ARsjHCQcKAoAAAAAAAAAAAAAAAAALQlAAQEqIxwbCgAAAAAAAAAAAAAAAAAAAC0DQCcqHB0KAAAAAAAA
AAAAAAAAAAAAAAAtJy0tOAoAAAAAAAAAAAAAAAAAAAAAAAAALS0tLQAAAAAAAAAAAADD//8AwD//AMAD
/wDAAD8AgAAfAIAAHwCAAA8AgAAPAIAABwCAAAcAgAADAIAAAwCAAAEAgAABAIAAAwCAAAcAgAAHAMAA
DwDgAB8A/AA/AP4AfwD/AP8A/4H/AP/D/wAoAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///wAAAAAA//v/AHNxcwDWmpwAvY6MAP/z7wCUjowA/+/nAM6ehADvupwA1qaMAJyC
cwDWspwA99O9AP/r3gD3vpQA57KMAPfbxgD/484A/+fWAPfPrQD/17UA/9u9AO/PtQD/x5QA//PnAP/3
7wD/+/cA/8uUAP/PnAD/06UA/9etAO/LpQD/27UA/9+9AM62nAD/48YA/+fOAPfjzgD/69YA/+/eAP/D
ewD/x4QA/7ZaAP/TnAD3z5wA/9elAPfTpQD/pikA/9ulAO/XtQD/58YA/9+tAP/jrQD/9+cA/+e1AP/v
zgD/670A/++9AP/31gD/98YA1tO9AP//9wDO18YAvcu1AMbjzgDv+/cApa6tAK3r5wCc+/cAtd/eAJT/
/wCc//8Apf//AK3//wC9//8Axv//AM7//wDW//8A3v//AOf//wDv//8A9///AJT7/wCc+/8Atfv/AK3b
3gCM9/8AlPf/AIzz/wCl9/8AnOfvAHPn9wCE7/8AnPP/AIS+xgCUx84Aa9vvAITr/wCM6/8AtfP/AOf7
/wBCpr0AhOf/AM7v9wAYrtYAOYacAFrP7wBj1/cAWq7GAHvj/wB7z+cAUnmEALXv/wAAns4AAJbGAAie
zgAIirUAEKbWABCSvQAhst4AIZ7GACmy3gAprtYAMbbeADGu1gA5vucAMaLGAEq63gBSy+8Aa9v/AHPf
/wB73/8AjNfvAJTT5wCc2+8AzvP/AACazgAAksYACKLWAAiWxgAIjr0AEKLWABCezgAQfaUAGKreABim
1gAhptYAGHmcACGizgAhlr0AIYqtADG25wBCw+8AKXmUAEK23gBKw+8AQqrOAFrP9wBSut4Aa9f/AGvT
9wBjvt4Ac9v/AKXn/wCl2+8A7/v/ABii1gAhqt4AKbLnADGy5wBCvu8AUsf3AGPT/wBavucAQn2UAHPX
/wBzx+cAhNv/AIzT7wCc4/8Avef3ANbz/wBCuu8ASr7vAFLD9wBax/cAY8//AGvT/wBz0/8Ac8/3AHvX
/wCc2/cAY8v/AGvP/wCE1/8AlNv/AJTX9wCc3/8Ard/3AOf3/wBry/8A3vP/AP///wAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaWlpaWlpaWlpaWlpYAAJmSgYGBgYGBgYGBgYF7loHD
eVahoaGhoaGhoaGmgZaBw5hgPz8/Pz8/Pz8/P4GWgcOYYD8QEBAQEBAQED+BloHDgVY/EBAQEBAQEBA/
gZaBvoFWPxAhISEhISEQP4GWgYaBAxUBAwEDAQEBARWBloFpgWgNJSUlJSUlJSUNgQCBWllaDSobGxsb
GxsbDQAAgQNKSg04IyMjIyMjHA0AAACBAwMNHR0dHR0dJycNAAAAAIGBDVQjIyMjATIyMgAAAAAAAA0c
HR0dHR0tLQAAAAAAAAANDQ0NDQ0NLQAAAAD//wAAwAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAQAAAAMAAAADAACAAwAAwAMAAPAHAADwDwAA
</value>
</data>
</root>

1157
_FRReporting/Formulare/FrmReportSelect.vb
View File

File diff suppressed because it is too large Load Diff

185
_FRReporting/Formulare/frmAuswertung.designer.vb generated
View File

@@ -1,185 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAuswertung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertung))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnPrint = New System.Windows.Forms.ToolStripButton()
Me.TSBtnExcelExport = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SpalteLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
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.Size = New System.Drawing.Size(834, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
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.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnPrint, Me.TSBtnExcelExport, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(834, 25)
Me.ToolStrip1.TabIndex = 4
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'TSBtnPrint
'
Me.TSBtnPrint.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnPrint.Image = CType(resources.GetObject("TSBtnPrint.Image"), System.Drawing.Image)
Me.TSBtnPrint.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnPrint.Name = "TSBtnPrint"
Me.TSBtnPrint.Size = New System.Drawing.Size(23, 22)
Me.TSBtnPrint.Text = "Drucken"
Me.TSBtnPrint.Visible = False
'
'TSBtnExcelExport
'
Me.TSBtnExcelExport.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnExcelExport.Image = CType(resources.GetObject("TSBtnExcelExport.Image"), System.Drawing.Image)
Me.TSBtnExcelExport.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnExcelExport.Name = "TSBtnExcelExport"
Me.TSBtnExcelExport.Size = New System.Drawing.Size(23, 22)
Me.TSBtnExcelExport.Text = "Export"
'
'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(23, 22)
Me.ToolStripButton1.Text = "Als Excel-Datei speichern"
'
'C1Daten
'
Me.C1Daten.AlternatingRows = True
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
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, 49)
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.ScrollTips = True
Me.C1Daten.Size = New System.Drawing.Size(834, 395)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 6
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpalteLöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(151, 26)
'
'SpalteLöschenToolStripMenuItem
'
Me.SpalteLöschenToolStripMenuItem.Name = "SpalteLöschenToolStripMenuItem"
Me.SpalteLöschenToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
Me.SpalteLöschenToolStripMenuItem.Text = "&Spalte löschen"
'
'frmAuswertung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(834, 444)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAuswertung"
Me.Text = "Auswertung"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents TSBtnPrint As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnExcelExport As System.Windows.Forms.ToolStripButton
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents SpalteLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource
End Class

944
_FRReporting/Formulare/frmAuswertung.resx
View File

@@ -1,944 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>229, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIESURBVDhPrZI/bxNBEMXnI/BR+AiUlNdBeVVEeWXKaxLR
RDoJRUKI4gQUqdBFKYgQSCslkYxsiU0IxMHG3iSYc/wnPkxD95iZ80JsE0RxI/3s9d695zezSz+mE1QJ
Tb9PUCU0La5QJVRMRriJ45MuMmP/yaKGiqsh/sbxpy6Ojs6wVD8B1y+Q7VoEYYx2uzOno8l4gEXyb7kK
pIqigKlZRfayzMA2HcIoxr2V9SUtjUd9LPKmfqop5oqTsTes+5Nu6+XrJS2Nh7y4Rsc5pJxCSkzn0vHM
rOV0D2I1TB5nSNJsTk+jQQ7PXq2hZqbm1FBS+WSOPxynS7eMmsVJqu/K+roHDS97EPbr77Hx7BW/ZFUk
30lqWJghilOeWaLiIIx0fpIsepjqnvcQaND/CkHEhSS6oeSZJJVDklHEbBauln/iPQS6zM8hxDwPvVs8
K2lFEsieCKM40YR+dsH9qNzj33d47T0EynsOgrS2dLKzknTy7BZIoZRmI4hw+26oeg/1LjoQ1jZ39H4t
lh4IH4ZplobZzDCQdEFp6D0EujhrQdjefYvNJzucZJZIjHht2SizfLqmUCOPtCpmK6vrqvfQefczhIOD
PaxtvIDheybz+x/EsNGoq95D7ssJPPu1d9pKeT3KKyJJFG7Pt+h59PT5b62HOq2PqBJqn35AlVCreYjq
OMQvjpZMWrGxmEkAAAAASUVORK5CYII=
</value>
</data>
<data name="TSBtnExcelExport.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABBaSURBVGhDrVp7dFXVmb+v3HvzfpBEwM44Ol1dqx0rUtHR
iMgSREjAtGUcsXnfPIlRRGg7C2ZkoJYqOkyXtbNmrU4fqJCAY2sVCA+XTrvsGhYIOoWEynswBAhJ7vu8
7r35ze/bNwkJJkwk/eO3zjn37LPP9/v2t7/vt/e5tlc/qMXK1mK0vFWK5dsfRcvWR/HU1iVY3rYYTdsX
4unW+Vixbd6E8PQ1aGkbH0+2fh5X78/HM1sXYuXrJVixtZj3FqG5rRhNYlPbo2gUvPUwXj3kg02Mz3vc
hqxqO9KrbciuIiptyOC5x2dHis89cVS7huES1LrHhy8FzhrXVfB65P2UOjvcdTYebXDVj4b8lkUbW7bN
ha2prQQZNNpOY53NDjgabXA08JpHeyOv6/iiCULajoS9fhJosCs7BE4aLXAMQs6zfTY8uX2BEFiivC0N
bS122Jbz2OCETYyodykvTBQptVfhEvBF40EZxWdGYnQbO+Gkt2kDR8dTy5Gtc8AlhIg02rx8RzFsT7eW
quFwNNFwGu/0OZFTm4OCykLkVxUiqyYPmb4bQ8YkkF5bgMy6qciqnYaMmkKk+3LgrPXQuXbYWxzwcgQa
31wM24ptpSrm1QjUO5BZnYkf7luPnUd/jd2ftGPPH393Q2gndh+9cbQffQ97ju0l9mDnsXexaf8LKCjP
Q6rMFZJIrbGhSQg0b1+iJq/EvIRNYdVN2NX5G4SsK9CiQRiGcUPQJwlD1xV0U0Mg5sfeznbc8sTNSK1g
SDFS0kmgeYcQ2LEInhrGvkxYxlxeZQH2dexTxlumDi0WHYQ2fB6NRRCJhxGORxEiwrwXIaJWEpql86jz
vjaMCNtFh/tKnoelHwVeDz4r/ai+TBOaEYdmJtDLZ9/t3I/c8qlwNno5cW3wco6pObCi7WGk1CSziKSn
TMb83qO/J3tDGaqzM8MyYFrmIOgVMUIZriMYMxG0LIRNCxFCMwg9xmOM7XjkMwKd7QwB+9JjhBhrhWlo
lB5nnwbb6PKs9GEOk7CMBPuPYHfnbuRX5is7bY2c4LS16U0SeEYRcKsbkklk8g0RCCfCCA1EECaiiaTR
Bo0XmINeC5NQiMcQXxjkb0MIqTYREg7T2EiS8ADvEf4BhgWPYd5TJNSRI8FjOCYIIcR3R00DMRIIDRIo
+KIEQokICdA4eRmhMRRMGhujZ+L0tMU2usGQIcSTEhIhIhiPIBAPkWiYHg8xZJIEIgn2RQQGSDo+9Cwd
YZJALMjnAzwKeM4QnTSBaJwTyRpgHDIUOPy6hBKHN67FMRAZQDwqJBhWWvJ3mXxRTryoPMvzCEMnRCO0
mMVnLdVn3IrBiophMZhRhhmfjxocZSOoiOg8N3UNOp01eQI0Jh4d4Hmcw03v0StBDq3Ep8bOxeNBDrea
oMwWUU1nzMaRMAYQ0wYQNOMckTjnUkI5Ic45YUUiGNCjJMH5RTIROik0wLAhgoYfFknHIhZHmu+fLAGd
Wcikl8P0ysngSfwx8D/4KPgRcRiHg5/gUPAIz3kMHMGnvN9n9atYjmo0UCajRQIMtzDDpd/yozvShe7o
OZyPnsD/aqdxRv8Mp/RzOKGf4vEkzkZOw2/2KeM1S5wy2RGQCWYE0BPrxtJ1pSh8LA/ZT2Qis4z4Tja8
ZRnwlmcia1kebiv/a6x5Yy26jPOM/z6GQIihEIbFeXRF78aBcx9i8dpizFwxE7d/9+u4ffUdmLnqHty5
+i7M+O4M3LV6Ju5tvht7Onahz+xFhHNv0gQ0yQZGH7oTXZjZNAsFNdPxtXUzqEMyKQAzqVFSKQKdLPF8
tsqLKWX5eHH/Szgf70Y/CWiM6b5YDw72HMB93/9bpJalwlPvgb2WmoaywMt+XHx3SpMLnsoUFHwnDy/8
ehP8NDj4xUYgWQfcLA6jRoBZRFLblUQfStc9hr+o+TJ+dnYLHvrXBciuyIW3Ko2q00nl6ICNz7p9HtxU
NR0v738VZ81LuBzrxSc9RzH/nxYgrSKDlZ7tlGQhalk8Sd7WRPDaQxu+1vJVHLx8BAHOvQiTxuQJ0At6
3EIvY/tg10E8vGoeZq28Cz8/8wss+OkilvV0eOs5CiKwWB2d9GxqZRoKy6ZjffuPcKDnEB783kPIqcin
galJ40WyCAGqTZvId1Z/b3Uqbqu/FW93vs1w7WVRZAZjkZw0AckQUUmhPAaMK+i8fBjfXFOMou8X4d/+
9DM88gpJVHqV5BWjHE3suJHhUO1Bri8fX332b5BVlQtnlYQJlaQYrzQXjRcylO8pdamYVvElvPbha7gS
v8KQDal0HZloGl3BJaMQcIjevpaApEsrAZMkDMazRu8cv/IxStcswT2r7sfPO3+JRT9eiHTGv5trB7uQ
YOd2GuhqZJ9cadnZr/I2ySVHQO47qGnkfSRaXYCXdm5GX9zPd1A6iMNY3SOs/CMJ7OrchfyKKRxl9scR
l/VG4/ZFSQKy/JMXfZ6ACC8az3RosvOoEYafGaazrwOPP/cE5q6ai9dPbMEjm+chrdIDT4ObspyGisHq
SIOHwkbQxDlAye6geHRXuRhaeVi943s4b3UpWRKX+sE6Irrp+gS44FEEFv4/BCgJJHykkkZZkIIkEeSo
9Jl+nOk/Dd/zVZi78gG0nn4D8zY9BG8FMwuzjJNx7WxIhtVV0PM03smlayqXjDnlGah/pZ75/xT8CT+L
JmsHC59JROm0cGL0HLghAmGmQvFEOGFQhMXo/TjnAn+nhokwVs8GTqHupRrMYTi9cfp1PLx5PlLL0+Dm
HFCxyjhNIhk2Dk5yLxfs3nIXijfOx2k+H2CBC5lBCj9RujLaCVW55Z0TInC9SSxiLjhCzIUlpFhVRReF
ZbERjqErfBGV/16FO9fdiS0ciUc2FGMKQ8NZzUU5PZ0ic0HCiUTcjWlIZf2Y9ew38EnvIZXlNFZ7XXQR
DTW1BAzqI4vXsv4YcxKz5kw4C4mkFfkrxkepInW+0BAJrVFwJTjU1C0d/k8x7+V59LobM9fOwm8+ewez
nytCej2zE2GvllTJEWDKdDekwVORhqbWRhwzP8Y58wzOECfN0zhlnMV5swuXjR4E9QA11BdSo2MTEEk7
ZLxBj8RZEyIRVlgSCeghnPCfRskPSuDm85I+Myqzce8/3I+2rlbMev4b8LDQSY73sG+HhFGDkyPiQTpJ
3FJ3M/6q7i8xvXEaCp8swE3NhbjVdys2796M/kS/Eo5/FgKykBGvW8zNMYZPhOm0n4XtT70nUfr8N5FB
Y1KkmjIuU6vTkFdWgPvWFeG1C79C0ctz4V7mQdpQmmU7OzNRCuM41edWxFV4NXNNvtxOeZKO9W9vQG+s
H1GuGSZNIMJhlEVMVBOdzgUJFyd98V4c9R/F0g2PUdClc3Jykg6mSRfj08NJnFWejbs33I0tMhLP3YM8
Cj5vhWxWMY1KKqXRMqFVQZPtHCHAMCuoKsDLv93MSsx3qUQh8pwTmiO++/iNEGAaDVFKWwydKL3QT03U
EepAycbFyC7PUZ5UKVIMIRxMnVIQPTVe1oU0zFpfhDfOb8WcdfchtyKLWolzgil2VI0gJEN5KlNxx/IZ
ON53nAWNqVuK2eQJSCGT9QC9wZE4EzmHv9v4GDKqs5J5nt5zUJSJonQwJOwi7JjrpRK7+VsmXzj7n+eg
9cwWzN3wACt2Jt9D7cTslKzOJEAiomRva/yy0kIXrQvMcKwLsk6eGIGklJAbnytksmPAKizF60TwDJa9
WIbccqZIMb6FL2fYpLCqeqr4bDX7YFgM7V26fPSqLx3ZVdl48AdF+NWp/0DRD2fT2HQ42F5EnDwvZL3U
U7evugP7L3yAS4lLikCYcy3KkRACQ3NA7UqoOjBIYMeglJCXj6WFZBg1Vt9L8X7U/LQB6eX0PL0snlPq
k8OfQk8OQfYznSNgf5IgwTQa+OALs/FqxyuY/tQ0vtylnCDrAhlBJ+GgDV9ZNQPvfLofAZOZTgnJq5P4
upV4PAKy+SQPd9ErX6+7M7kGYBxLWvTINni9aB/PMOzUQsPgvRRfCtcMFGxMr/llubjtqVuQ3ZBBIccw
k3kgISSQDeVmOqAxC1+q+wreobf7BxhGkyUgezRSUC4melC5yYe5ax5C0drZKPrHIszm8f619/P8Olj7
AOasmcM1wRw8sFqeuRdT6wvgrROSko1kziRDUYi4SDy9OhdL/+Xv0TPQ+wUISD5mCryWgOzKaZQMAcbj
Ja4HzpsXWT27eezGBeMSevSL6NO6R+DCMHp53aVfZjtBNz7jWrkzfAzF6xdiyrJcZC7LRtbjechamo70
b7MuPO6GZ6kXN5VNxYyq23E5cVERGDUHuDAangNCQOZAMguNvSaWdDagDSiZKyIrQrElW4hRSl5Do+zV
ZV/HGhNqi1BPKMh1lHUkGPMzTXbi4JWPcKj3CA5f/hhHLhzAR12/x393vY8/dP8O/3X2PRw++wdW4n61
dWPx+Qmk0XG2VfhggkbGabBlUmjRGzo7NCi6rCgJ8TpAmT0WgsxeYrwINFOjytTEIdRRZoQKNIwA5UlQ
9BVHN8YCaSSC/L1fqVP5TZMiOnECY9cB2ZUwKCd0kRSyt8mQkg0uQXIvM6IK3FiQe0E+J3MoTAOjhDgk
FA2qDbMAc3wgzhGkkXFKdFPIMWn4WThj/D2gyU5dkoAKoePtY2/uPrutmNlCqijTGXNyBteye469B1Pk
MkPIiAU5FwQkEpPd6iRk39OiUXGmvCHEuEYYgsVr2RvSCF0cIV6mZw2OgMlwUnuidIhIFFPnb6w5Jhfy
ptozpQN4DMtqkAucAN+18/g+5FVOU9lNpId8hlIEVm1drLbV5eOe5PiM2qnY27GPzKUGyPBR+1PI/TkQ
iXOpOARZU4zRZghBWQXKepxrgxDJt3fu5zrjZhbAawg8s22QgEpNLmT5hMDeZLzGBjiZBBxGIiiQ+B4H
Q+2G24+6P/j8ID7XVjCifYSI0fsDumwq+7G/Yw+mlk2jzpLaQ1uHQuiptmJ1IeXfXeNiHi7Azo53OWz9
VJ6ysGZMc0iHIdfjYWS7sdoanEujIL+NwIi2QZk7hMaJ7Y9f4Bz4LQrV/pJLeV+crgg0t5WoT5cO/uD2
OZFel4cX923kPNhNIvvw/rF2fMDzieB9hV3DGKvNEK5tK9dX77ejne9u73wP++j5XRR5P/pgI7Lqcuho
52C02NAghUz+UjBEQL7DOuo8kK+B8kEtp2IacqrzJ4zsqimjMFabkRjVvnp0++yqaSrmp7KwieczfNRh
sjkm0bLcwYJGAm2KQKn6bCkLExFn8nXey7SaWsFy3+RlypK0xeo3EYhKHYmx2ozE9drKHhMlh8hyCW3Z
gxXp7WihEGS2VCMgBJpIIEVuDBJQH7uZkdzMtbL8c1HfyxfzCUF23EZgzDbDuKbtqPbUSUrgJW0R++To
4LJTlGsqyXjkQ3crCdT/ZzEyyqnJy2xIq0nekM/4GTXJb7HyN4QbRSaRXpXEWPevhzS+WyDfsOVajmKX
HDPZX94yJ1ZuLYFt04E6NLYtwPK3StHw1rfge7MUtTseRf2OEjTsKFbH8bGYWDIuGt5cjDr2IZDzsfsY
D9fvu2lbCX7yoQ//B4xxLcfzFcCVAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAD49SURBVHhe7X0FQBXL9z9goqJidwcgCAq2Pp/dYnd397MV
u7u7u0XFBFRE7MCuZ4Figojtm/M/n9ndy+V6r4CA7/1/X8b3ebuzd9mdnc/nnDOzMWMWn+JTfIpP8Sk+
xaf4FJ/iU3yKT/EpPsVeysWozRjAmMNYH48oAXWFOkPdoQ7/v0nmjByMoYwzjLeM7wwRj1/CNwbqEHU5
hIG6RR3/5xIKZc9YyfjIIBW4CG09Ph/zPOp2EcOO8Z8RghVjHOMNI7YvOD5vPI+6Rp2j7v/VZMuAe/qH
8WOBzc2EeWJzSpg+MVk6piCrCtYiVQVrSl0htUSaiqlF2oqpCEhfKRVlqJRSZKyUkjJVTkmZK1tRlspW
ImsVK8pWJYVEjiopRM6qyQnIXS055amWTDAoHyN/9WRUoLqlKFjdkmxqWJItw65GUlGoZlKyZzjUTEKF
ayURjrWSkFOtxFSktoQoqizlNv5N8D7kwMDf8N8KO17a1kgqj8nHFnwOPpelPGde9fwoSy6lXILLSNnV
8nLZBV+DvBZcE1+b4GuU15pOuW6RhpfWan1w3YiUXD/JiljJOuO6E1yH4fUZsX5R56cZNox/Jf3JeMZA
oSLA3NJCJCmSUlj3ziWyzCokcm1wEnk3Oon8mxyF7ebCotAWB1F4i70osrWQcN5mJ4pvtxWldtiKMjtt
xB87C4oKuwqISrvzi6p78onqe/OJWu55Rd19eUS9fblFw/25RJMDOUVzjxyi5cHsos2h7KL94Wyi45Gs
osuRLKL70cyi57FMoo9XJtHfO6MYeDyDGHw8vRh2Mp0YcTKtGO2TRridYvgC1sLtNANLbOPfRvqkFcN5
3yEn0otB/LcD+Bh9vTKKXnzMHnzsrkeziE58rg58zraHsolWXIYWB3OIph45RaMDuUT9/bmFK5e1tnse
UWNvXlGNr6HynvzymsrvKijK8vWV2mEjSvA1u2y3k3VQeKu9sOc6Qd0U2FRY5NvoKHJznWXlukvDdYi6
RJ0aq2sGOAAXvzVVZrxmoADhCrUwE0nKpiHrybaUcXNRyrq+qMi+owjlZuTd6URSALsLU6E9DlR4rz1J
AbjbUfF9dlRqvy1JAXgUpAoeBajSofwkBXA4H9U6kpfqHs1D9bhyG3rmoiaeOam5Vw6SAjiendqfyEYd
T2YlKQCfzNTzVGbqezoTSQGcyUCDz6anYefSkRTA+bQ09kJamnAxDYH4yZesaSKvj0MeAuDfh/O+Q/hv
pAD8Mspj9fLNRD2OsQB8slAnPlcHPqcUAJ+/hXcOauqVk6QAjuUmVy5rbS6zFACXvzJfS4WDBUgK4IAN
X6sNleDrlQJwLyTrwp7rRApglyPlY+Te4UQ51hcR2bYXpUxbilIarlOuW8F1HF7f4fUPLsDJb0lOjECG
fgHIgl1Wir/yi7QbXSj9VhfKtM05XgCxJIDMXJcZuE7TrXIRVn/ll3VtWP+MpwxHRpwma4Y/I0IBEthY
kdU8R7JeXUyk3VLMqABwUYW3sdvfV4hc9jPpB5j0nez2PWzoj4NM+iEmfW8BUeVIfqp+hEk/mpfq7M8j
XD1zUwOv3NTIOxc1PZhTtDieg1qdyE5tTzLxR7OJTj5ZqeupLNTdNwv18sos+vhlon5M2sCzTPzJDGLo
+fQ04nw6GsWkw+2Pu5SGJl62psmMsWdSi2lXU9OUK9Y0ifNup9OIsfz7aN53xIV0NMwnvRh8joXAx+p/
hoXgnUn0YjH08M1M3ficnY9xKPDJRu24LK25TC0O5RDNjuekxlzWhlzmegdyi7rH8lCtY3mp+tF8VNU9
v6h0mMXA1/rHoYJUdpeNKOVhSyUO2FIxrpOi2wsJR3d7ym9KAGtcRJrNxchqrqOsc63+9QBuwFGcpZkM
nFQHCxsrkXx2UZFyVXEhBbCmmEi/1kVkXucs/thnI7r7ZRWT7liLNYHJxNYXScTWl0nENh0Si+0qdrxS
sFPFrleJdNj9WsEeHRKKvSrc3yjYp2K/DgnEAeBtAuGh4qAOFuKQhuDwde13bX/8rTwGQzuudh55Xpxf
rywoF8qnlXe33jVo16VdJ6BdO+oB9YG6QR2hribetpZ1V47rMAsbUoa1zkIKgOs4Fdc16hx1b8gHAxzF
SSrGeM/QKc7c0Wpn4gH5/JMud/G32ljMPyUj03rnq3Z77fwb+OX0n/owjf/ekMT+3h/Nr575buYP+H03
9/f5an4V23y+8boKL84DJ75a+AOeHy38D3+wuHrog7J+jHGIsT9M2YZ1wCPMwn/fO4urWHrwdndeuodY
+O8KSXzVnc/tHgYk4XySqzuDk1zdEZLEX8OWt0lpa3BS2h5iKbH1rSVtfG1Jmxlbgi1pE+c3vbGkNa9S
0GrG4qcpxKqXVrSSsYIx/7GVWP7CipYxlgZZ0ZxHKcXioJS0+HlKWsSY+XcqseBZKloQmIrmM6Y9SCXm
BqamuQGpaQ5j8j1rMeupNc1kzHhiTePvphH4DX+/8U0y2vM2kTj+JQGXKRm1OJuLsm8sKj1Aqs3FyWpT
CUo6pYgwz5xU3wNAAODIhRGrKSFjKwMnUE6W2IIsOub0TzLDkZKvK06puEDZ2FXB6gdcy0zL+CL2vU9M
3p8syCvMTJz+bk6A73cLOhZmIY68txAnvlmQxFcLOhjKFsjw4gsGjn5KSO5vE4pDYQnpCK8fZhz8kIh2
vUkk9r9PRAc+JJZwD01MsKC9oUlo7/sktIeXTDRtYkvaGZKUdr5LSjveWdKGF0nFuqCkYgsTvSUkGROc
jNa/VLDpbXLayFj/OjmtCkpOq1+moLWvU9AaBoieHWBNs55y6GCCZjxJQ9OepKWpj9PSmDtpxORHaWkS
Y+JDDjG30orxf6ejcYyxD9KT2430wu1+ehp9PwONvJeBRvhnEMPvZqRhjKF3MtKQqxnF4NuZaBBj4K1M
NOAS91xuZqZ+jL43slCfi1kE9oOIDn1MRGueWYoq3gXIWhVAspUlReLhdpILlReNH3AFzmItOTBCGToB
mFfISIlnO/knXaUUJu8eJ6rvk5fG3Egr9rxLQr7fzOnsP2Z0+qsZeb03F6c4f4rJ9mGA/ENMtvfXBASA
8AMh7GoZxz4nlOTjgnezmz3AZB/kdQ8mf39YYtrOrnMvk+7OZIPwXXwuSTYTrZENS1733FJsZSveqpK9
5nkysepZMgHL2vCGyWaAbECSzRa+iolfGsgW/Vyx8OUvUtKSoFSS/JmMCSwAjfwpDLfbaYRG/gQI4GZa
oZE/BgK4nl7oyGcMZwHoyL+TiQZfySh05N/KTP0vZRY68hm9L2QRPa9npZ7Xssptk9hjoF76XstCabit
BQEkWV+KLCpkMBQAuAJnsZYmMXBwBZYJRIJJRUXi5aX8k68rQfl2O1ET75I043wl2nCxqNhz3Y72Xrel
vTdsafc1O9p2yUF43HOmky8qkl9wdTrxoqYA/EJqkd87Bi+9X9QSgG9wbfINrkM+b+vQsed1xInXvC7z
dekE48izusL7dV06/saVvBmer1zpYKCr8HxVjzxf16NjvDzywpX2P3UVWB55WY8OM/Y+cRW7HtVlVKc1
V0vR0vNFaeHpIhKLzhaVWHK+GK2+Xp5WPs5HS1kES56lpAUBqaTlg/xxbPFjGbB8kO92C0ir4GY64XZD
A1s+yL+WXoy8lkFIywf5bPFDYfVMvCT/ciYxkCEtH+RfzCz6stXD8iX5F7KKHucVdDuXTXQ9m03ut5bF
PYbPac3trSQrSomEE4sKsyQ/3CcAZ7GSEjG0lj8OTGal0lHCtaUo6epi/jk4LrXyySlm+9YSKzfPoWmz
RtDocX1o1JheNGZ8Xxo3aSBNnj6Mlq2eRSfOHSX/+5fo1kN/uvPoGt15fJ3uPlXxRMG9pzcYNyPgfsBN
ehB4K4rgfQNu0AM+jlzibxk49vW/L9OJ88do0crpNH7KEHKbMFBi9PgBNGbiQJoycyRt2DmfBVKTFj1N
SQsZcwNScnxW3D7Ih+Vrbh/Ew/I1tw/ypeVrbh/kw/I1t8/kS8vX3D7Ih+Vrbh/kw/Jh9QxJ/rVs1M0/
G3VldGEBdL6anbowVrK3gsisNpeQXJgzJzp+FIAzcBfjlI2BJ3q6E5j3LkiJ1pem7Jud/Jv75aKV3ADa
cr4UjZswgrp16UrNmzaj5k2aUsf2Hahnj540aOAgmj1nHp2+eI0ePntNz16FUtCbMAp6zcDSCF6+NcQH
ehn8gV4Hh9HrkA/0xgiC332kkNBwvHv/SYfgdx/4fCF04coNmjVnLg0cMJB69ezF6Em9uIy9eTmgX3+a
Mm0cLfKtyB6A3T9jIRpvUY75bP0xjPka+XD70vI18pn0zmeyi05XslPHKzmo89VsshHa6nwu5oIFwJxo
/KgAZ+AuxsmVoR1UmFklIvOZzlTA3YnqncjrP/9pavLmGL7tbBEa9FcvSX69uq7kWrsOteD1zh07Ud8+
fWnGrDl05vINevryHb0K+USv333mZeTAfm8i4BO9Cf1MbxnBjJCwLzq8UxH64Qu9//iVwvSA/BsWyCX/
WzRj5mzq27uvFGu3Ll106Nm9B41yG0JzjpfjVn0qGf/Rgjcd89PFWcyXlg+3r5HP6MgCAPkdLuegdoxO
nEfvpIC7I1kwJ2ZWCfUFAIC7GKdBDBxYQbZkwmJxKTGBrWHOw5T+B8MSycbeFj8nGjCgh2L9jCaNGlOr
5i2oU4eO1Kd3H1UAtyiABRD4+j09DgqlR0Hv6OHzd3JpDA+fh8gl9jWGJy9CWVAREcAIZA/zjM+hAR4F
woHnuAgBzJgly9S1cxdGZx16dOtGI0b9RbO9y7L1p+LuGHffuA0Q05gvLf8XY750+yCe0cFPQTu/HKLt
6RyijW8OuS/KkIA5ATcRuFK4i3GaxQj3APapqeB+RzrJXTfPD9yH/8Ldu29mtNlXEUBLJr11i5ZSBK1b
tooggLNXblPAq/eSuHsBbzn2v1EQYAS8/c7T13Id+/4M9wODI+DBs4h4/CJECR/6AujVm7p06hwB3bsq
ApjpWVa6flj/PBZA1GN++mjG/MxRivma25fks+W3vZSD2lzKSa19c4pWF3PKsoET5gak63sAcBfjNJcR
LoAiaaiHf1Zp9T4fzfy935sJb+7nr/V2EgMGdJcCaNygITViYB3tgN5c2VIAV2+zRXI8D/5Iz9gqDS1V
AzyE8lsoPdfbjnVDwLpfMLk/wyu0DcI4bHA74NK1WzSdBdCb4z/Ckz4QEoaPHETTj5aheU9S0VzGzMcp
f7mfL1v7sRTzpduH5WvkM/EtT+UULS/kovb8W+sLOcnMKY2hAMBdjFMEASRxSUVrXyWnM6oAfLmff5r7
+JtOOdHAQT2pQ7v21KZVa4n2bdtKD6AJ4Lz/HUmIjM+fvsmlsq5Ay2vbPgCfv/Hym8x//PLtB3xifP76
PQK+fPtOX7//I/FF3Yb9grlhiDYABICGH8oGdO6IZQcZBoaPHEgzPMvQwmepaQFjDnuB/0rMl25fJR+W
3/JULtGCBdCc0ft6FmJu4kwAWkwRWcslE3vfJhReYebipBSAcodvo68jDRyoVCpEoAEVi5b2dG54nfe/
zQ27j0yGStA3JsgIsP2b+vvX74LXhdz/2z+8boDveuD/SKj4h/8H4DjAZxbAW/YECAHTps+UDT54p3C0
5zDQiYaOGBBBAEueZaU9z5oJYLeKXYydgUBziR0BzcV2FdskWoitwNMWYouKzU8UbGJsfNJSYsNjoIVY
+KAStyGyy7gfWcyXbh+WD/J9conmjKY+uQUahJnL/tAGiH0P4FAlIRNuRr5M+omP8r6+vMO3gT0A2gCo
TBDfvm07Caz37NGDrU4RAFrisEiNNJDzXSVLl9f7TSP5H4PlzyAFowpJ8wrwIK9Cwuj8lZvc1ZtB3bt1
57IpZdQA8Q4Z1o+mHyvD8T81zWNseFmahPrv48ePXMrwf7GX57KK13QpeJKY89ieQ4BhzM+pF/NzEdw+
LL8ZyD+fm5qcy03tODTkLJ8UpMeJB9AJoGxthXyQ7skCOPGZhfDFgtb5hAtAv1IhgB5sbdOmz6ILLIC3
7IZBiGaZGuEaseHb9dd5H+T/UfbFUvMgGqT3gKsH2MN85NABINQA7z58pqC37+ksd0UnT2UBdO0eoZyA
FMDQ/jTXszqtfl6QVjF2vaxNWgJh6qpMcZH/IO6Q+9vq3BDM+kPMl5avkt+ciYflg/zG5/IwclP+ionj
XgBlWAAg/yQEwL2AI+/MxZFQC7Hc00n050YgCG/Xpq0OqFhY29RpM6X7xQ2b9x/RT48EaBN8UtbRr1f6
9uFA/h037DQEv1fuC7wJxX2CTyw03GsAPuqARiUEMGnKdG7wdYtQTgDiHTxkIG08PohOvOkncSF0qkpP
7BCsrspkKv9FPKMdbxxkG8BozAf5sPyTEEAeanQ2DzVkZOHwrMdVrApAiykQgHySd5hJhwfw/mxBx9kD
rDnpSH37KZXatnUbHZDvxt2rKSyAc+x+YYVBb8Nk1+zv58Exg9rNk92/AAW6riFD61Ii/zgohJ6+DKEz
l67TpMlT5T0AlA+NVa2s7Vm8Q4cMoZNnDlHot0cqAiQxvxsBYbvFxLsZZMyXrX015ku3D8tn8hufyC0a
ncgjGh7PIxowMv2ONgA8AB7fHv+agPCMXgqA1/UFoPUCtMrtyt0ruF1YH6zw2Zv39IgJ0e+r65OKpf5v
P8P9QMP7AiBcIR73EbR7CY+eh7AIguXt6ImTplIXPQFogLcaMngInT17VlokkuAorSUQo67KFJf57+I9
ebwuKbuBxmK+tHyQz5bf4Exeqs9QBRAnHkAngNIsABCOx7jHPlj4e31W1lefKEx9+oZXKm4CAVhHZcPt
wvoCXr2TN2VeBIfRc/YEADxCEOcl1HXtN0Pg/oGC9zoEsqiAAOCVgqeMJy/f0ZMXCnCX8BELy/eiP02Y
NIU6d+ocgXyUFeId/Nfg/4QAkC6GdpXvAxjGfJ3bh+Wr5Lv65aWMZZP/HgFoz/DxZs6xjyyETwlopXdh
6t27M7XVyG/RUgGvo7InTp5GfiwAuGF0BbVY/YYbhYjXANYjg2Fcf8VtCg24xxAkES6m5xDJ6/dSFPAu
py740/iJU6hTx846kWrlbcfihQDO+Plxo5N7Kox/uMGppdgmOLL8lXfDxJRHaamZXsxHg0+L+XD7Gvl1
/fLFqQC0mCJK1zITHu+UlzcOhVn4HwhW1hcfLix69epEbbgy8QxAB67YTh070QR2u77sfp9w7AdJL1kE
EMJLJi7KwN/p4cVbJptJVohWPcPrMOVOogbVI8Ab3ONwceKcP42dMJk6dugky6ZfVoh38KC/6LSvL335
8kXi69evkph/A5dZAHgErYv5DP2YX987j3D1zivqeinIWEYKQB+x7wFK1TInzy8JCW/uQABH4QF4fQV7
gJ49O8pKbdGsuQ4tGR3bd5QC8DmPx8HBkhiQBdI0Ag2h/aYQCytWbg3rQ5KrPgDSoLh8jvcGeMju/y63
B06cvUJjxk2UDT79cgLwBIMGDJQeAK4f+Dc9wMWQ4fLxs6mYD/Kl9Z/OR7V92QMoAogTDxBBACAc7+lJ
AfBSE0CPHh3k/X/tiSCAR8Id2nWgcex2YX33A9/QY7ZGCZCFOG0E+E3Z50cyNaAh+ZAbdg+xZIIBpTH5
lh4w0EDUgIbhrcevyNvvMrmNnUDtuMGnX04A4h3YfwAL4IxKwb/bBrjAApj0MJ3s5xuL+dLyVfJrncr/
+wSgvKSZiA6GWPgf+ai8w7fcK6IAmjVpKl8KwXq7tu1pzPhJdPzMFW6Vv6I7Aa/pJpNx/dHLH3BDhbHf
IuDhS7r28IWCv1+QvxFcfRBEV+4H8fIF76/A0/cSjXIbT23btJNl1MqJJcKAIgA/lYJ/VwDng0eICSwA
YzFfE4BCfj6qyQLIEIcC0GKKKFnLXD4LwCvLEADe2gWWHitM3bu3ly5fq1ApAEY7rmy4XVjfTSYPpF28
+5zO33n2yzh3O/AHnL1liAA6czNA/nb5/nPyZ0EcYwGMHD2OeyttTQrgtO9pXSMQADH/Bs6yAPAAylTM
r30sn6jFqHk0n6hxNL9QBaCP2PcALAD5xq58U5cFsPcNi4Exz8NBdOvWTrr8Zo2bRAAqWxPADVguW+dl
tsxL957/FBcN1o3jmQ4X7kIcgUbwTB7jKovgmO9FGjFqLHf92vxQTogXr4Wd8jmlawR++/ZNtcfYt/DI
8mfejpDvG+jHfLT2dW4f5LPl1/DJT9V9CsSpBwgXQE1z3Wva+ADDI4zFwOtLjjkQBABLwttA+mjNrevR
Y8aT5+lLTH6QFMH1hxwCIsE1uZ+BuzeAPx9PH1cePGe3/1xa/A9gkRzxuUDDR46lVi1b/1BOhKt+ffrK
XsB/oRHo92akfNxsPOaz24flS/LzU7WTBSh96d8ggBIsAJAvP8rQBMCCWHLMnrp2bUtN2ZIaN2wUAWhd
jx49lo6y9cEKtRgNT3CdSdOWgH4Mj4iIRANXGZJwfUiif/QOF9k7XGBPcOjkBRo2YrTy4opBOSHevr37
kN/p0yoFeKz8D335zt6AERL2TnzmpYbo5L/88y3aAvBlAeBdA1MxH25fI7+qFECKOBOAFlMgALHzTSKx
43ViAQEcYAFAEIuP2lOXLopVNVLfCNLQsnlLGs6VfvDEOTp/+ykTESBx0Qi0336K2wF8HAXn+Hg/4NZT
jv9POf4/iQC/G49pv9cZGjx0hLT2RvUbRCgnxItXxeABtPR36COqebCpqM6o6tFMVDnQXFTa31xUYPy5
r4Uo795SlNvbUpTZ20qU3t1KlGQU39VauOxsI4ruaCOK7GgrHLe3FXOubtHF9qji1OtRYrh/RpMxv/qR
/KLakQKi6uECojIjnSIAfcS+ByjOHgBf6OxjQAD7QhPRvveJaOFhe+rcubW0pIZcsRpQyc0aN6WevfrR
0rVbaeu+Y7T9gBftULHTw5t2HTzOOEG7DwEnJfYcBnwUHPGhvcDRU3KJbbt1wP7K3+5i7OTj7OTjAdv3
e9E2PsfWfZ60xf0Ybd57lJas3kTde/SWQm1YL7yMALbhVbFTPj66BuCtkNuUz92J8uwtQrm2FBE59hSl
bLuLUpZdzpRpo4vIsMOF0m0vRmm2FaPUa4uLlFtKUIrNJSjZppKUFJ9ubShFNTz7U+jXD9H2AD4sALxh
ZDzms+WDfLb8yicKSqgCiBMPEEEAIB+fZe0NtvDf8UrxBrP22YuOnVpJS2pQr74ODSVQuU2oS9ce1Lvv
QOo/cDANGDSUBjIGDxlGQ4aNZIxm1+wm4/MIxkhuqKG1PnL0eBrJ3bbRYybQmLETaTT34UfxuoTbBGUf
7MvA3+IYQ4eP5uONokFDhtPAwcP5fEOp74DBfO5BsgwQaQNXLh+gV0Zsx6tiJ0+coM9fPkvceHuDbPY7
UoF9jpRvm5OQQthThKQQNhcVUgg7XUgKYX0xASFYby1OUgirSwiXAy3oaViQJDS6AjjxapQYcjuTyZgv
LV8lv9Lx3ygA+REmwB4AH2fiI9D5h+ypY8eWsiJRsfVd61H9uvpwZWtrKCsZYmjKXgExt0XT5tSCQwTC
RMsWeH7QitpwA03/QQ1a7IB8bIvHzRoMnuahrdGK/x7A8ZrzsQHZMGX33qQhWz2XAWWR5TMoYyP+rVf3
nrIXoDUCb7MHKORRmOwOFCabHY5CCsGkR3CO4BFsttYUV9/eUemMvgCOvxwt/rqVWd7kCY/5BXQxH25f
I7/CcRtK+zvaAMW4DbDlVRKx+WUSoRMAe4T5hwtRhw4tpAD0KzUcXOk6qNuYAM0KdeC8YpGGYHfN0Ny1
ljcF7VgKjJUj4rZ6dVig/Hc9u/Ug31OnVAqI7obcIcfdDsJhl4MotLOwsGUUhBC2OwrpEbYWEVII7A2y
bWKPsMlZIDRk21RK7HlwxGhsjyq8WQADL2X+MeYzQH6lQwUlKjD+PFhQqALQR+x7gGI1LGh3aFLaxdgR
nNhf+1J3HnuADh2aywpHZf4a6v4EpvY13P4rUI4FofXo2k16AC3dDb1Dzty+KcLXJ4Xg4SA9gi17BCkE
Q4/A3iDXnuK07N5G+vDxQ7Qs3jDv+WK0fI3cVMyX5LPl/+ltQ+UZcekBIggA5MtPsV8l9t8dkph2hySh
OR721L59c2lN+Czsl8FEmISx/WMR8BTdu3TlNsBJXSPw7rtbVPyoHbkcKUTOe+2FFMJBB5JCgEeAELiN
kF9tI+R1L0qjr07hbp/yFFHlUqbo5o8FuQm8Qq5z+wYxX1q+Sv4fXraUptRvEIALC0D7Dh8C2PyCwwFj
6p5Com27ZtKS6taq/etgIgBjBEUGo8eLBiDebp27kLe3l64ReDv4OpU+ZkslWQTF3QsJCKHoTzxCO79u
9P5bmCQwpgI4ygLAhyOmYj7cvkK+DZWLYwFoMQUCEBhtY32Qpdj+Kon/Trb+XSyI2ewB2rZtalIAdWrW
igBsA2ma+42AunWlNUZAPYO8EchYrgIew7AMkQF/j49D0AvQGoH3Qm5ROQ8bUeaArSi931aU3Gcnirvb
CRcWQ1F4hD32Qmsj1DlcTzwNCTAaz38Fh5+7iV7ns+r6+YYxvzyX6w9GuQM2oiyXTxWAPuLGA2A8nW0Y
V0cKQGkPzD5oT21YACDVkGygdo2aOoBk9AZw7x0td7xEghY9Xsnq0Lad/EhD+1yrCwOkwDJ1kF/zql/2
qtvwbR/2x6vdOA5u9KCRqQkBZahVowbVqs7gJcphWEaUCx+HnDx5UrVBogfvb3OMLUjlYWUQgqctldJ5
BBaC6hGqHq9Il15cipHFG+YPsQB6+GczGfMl+Wz5ZblMZTztyPp3hQCQj6FXNrMAdqjj8MzyKEStWzdW
KhqVbAJ1atWSL1+OHjWa5syeQwvmz2csoIULFtKihYto8aLFtGTxYlq6ZKnEsqVLafnSZbR8mSGWK0v8
xvssk/svoSX897NnzZJjEiCUVK5YiSr+WYEq/FGe/iz3B5UvV06uV69SlWpWrx6hbBAKBIQ2gJYggEpc
+RXZ7f55kC1OulsbrnAWAjwCC6GcpzMdf+EZY8IN8x7P3ES3q4oAfoz5XA5YviQfovxNAnBmAWjj7kAA
294mpW3BSWn6fjtq1aqRtK4a1aoZBSrctU4dGvzXX7R582Y6fvw4+fj4/BpO6uOkDnDfBw8eZHHNloSW
LVWaSpcoSaWKl6CSxYpTCZdiclm5QkWqXrVqhPLVrllTfhvg6eVJX759kY3AB6G3ZPytcgKDVxYQUgjs
ESQBcMFe9rTl8VoZLmJbAAdYAF1YAD/GfFsZ8+H2Yfkgv6QUgBw2Lk4EoMUUCECseW4pB1za/Cqp//rn
aA8kFRN32YmWLRtSzWrVpXUZA35DrB49ahTt2bNHEunr60unuN/9A8Eq8Bv2iQ68vLykd2jcsCFVLP+n
Yvlly1G5MmWlGCAAbK9WuUqE8sEL4IPWLR6bKCD0KX368onuBV+jmuiDM9D/rqLG4opwxwdtxVR/NxH2
McxoDI8p9gW6yW/+TMX8MuyBpBfidkkJhioAfcSBB6huQZveYmg1eICk/hiRa1uwJU3bZ0fNm9eXFVm1
UmWjqF61mrxBA/e/e/duSTDi7ZEjR+jAgQM67Nu3T2L//v3k6ekZbRFAACuWL6emjRtLSwfZUgjs+suW
LiO9AcJAFQ4P+uWrweVr1aoljdwyhI4+P0AfuDX/9/ubulux2tM3zSMMP9dZhH17r9przC3eMO8e4CY6
XM5uIuarIYgtvwTaI0cLUeqScecBdAIoWj2BJB9DrW3SBMBtgmn7bKlZs3rSqlCxxoDf0EIfNXKUFADI
h7tGzB45fLj8KGPo4MH0F8dvjOEznLetW7tOhgpjRBsCQjnBIQCCWsrtgqaNGsvzVuI2AAQA0jUvAK8A
ceiXD+Jt1qIJNVtRlybdHEbX312mu++vUj08ij2dl+p45hPynjyLoPulOvQ8NDBWCTfM72UB4KNPndvX
xXzV7cPymXiQX4wbo79NANo4extZAFtYAGgTTHW3pSZN6uoq3BjwGxpmI4ePkAIAsbt27qQ+vXvL3gMs
EIBQ0HiDWGbOmEHHjh0z6QW08AHicTx4DHiRhQsXyhBgygP8wULANv3ywQs0btaQai8uRy3PVKMVf8+h
068PU4Mzeag+Q76Rw0Joc740PQy7HeuEG+b3PHUTbS/mNBnz4fY18l2O2FOqOBSAFlNEkeoJxPKA5GIZ
AwLY9NqSNr1JRpN221KjRnVkRcLSjAFkoGEGa9+9a5ckbNvWrfIzbcRoEAOgoeZSpChVYIImTpggLVon
gFO+utAB4Bje3t6S+KNHj9Lhw4fJfe9emjd3LjVq0EAnAJy/PFs9BFCSz4ElvIBh+Ro3bUC1F5Wlqt4O
1ON8Y1pybxxp7+PjvbzmJx3EicB9RmN2bGPXEzc5FsAPMX+/EvNxY6oYbk7tLSRwl1IVgD5i3wOwAGjd
a2V0zbUvk/qvDrQUq7lBOGarjWjYsLZiaVyxxgBxoP89fOhQafkgbgv3Btq1aUPlmBAQDxQr6kxFCjtK
Kx0/bhwdPnRItvZxjx5LQ8KBQ7yPh4eHbDfg2LNmzqSG9evrBAmB/cEow70CCABLbNPKhn2wb6Mm9anO
gjJU+WhBquftTB3PVqJm53PJd/ObncwvDgatky1+JJAkV9QU2/mdLAB8F6hz+7qYr7p9eWfSXnlWwUj5
O0IABKANrQoBYCBjeICJuwpS/fo1pZUhzhoDKhoufgjH+R3bd8jGGgSAm0DorhV3dpHkOzsVoaKOTpKw
sWPGSpeOfSU8vaRH0AiXDUcmfT83GmH56F1s2bKFpk2dKkMIiMVxcH7p/jn+Q2RlSpaSosNv2EcLBw0a
u1LdxaWp6vECVIP7366+Nsq3eYzFd9wEXhHTUmwTbpjf/thNNGfxmYr50vKZeNyIcjrk8HsE4FQtgSR/
lb4AuFE4gQVQr14NWdGwLg0gFhUPwOKqcUML9wF27NhB3l6KB8AnWaWZEGd2+wDIlx6A93cb7UZ7mViQ
rhGPhiMsfZ+7O7kD/DvaFDjm9u3bacP6DRw6JlIdDjey+4fzczlwDnQBITQ0BFE+lFezfqB+o7osgFLy
6RuewdfzzSu/z59+rx29DXsVqwRHlt/2yE00Zc9jKubD7WvkO0IAJX5DG4AFIBY9TSEWPrESa18k9d/A
AtjIDcLxOwtQ3brVdDdeIoArHgARaGj9NWgQe4Dt0qI3b9okbwUj9hdlyy/C5Ds5FKbC9g6SoJEjRtIu
bi+AdM3Fo4sorZ1JR1sCLh/Ew/I38fFWr1otPQfuOxjeCAL5aF9gHd4Av8NraV6gXoM65Lq4hOz2ocHX
6EwuGn2lhggKfWI0TscltrIAMAaA1s83jPl4DuEkn0XYi8K7HYQqAH3EjQfAePnAqiBLWvcyGSM5jdlW
gGrXriJdq9aYMwR+Q08AAti+bRt5cut+w/r11LJ5c0kIrF6SX8ieHOwKSeKGDxsmyZWks7Xrkw4RbePj
bFWJX8/HWrt2LS1btkx2NdGbwHm1toVGPjwM1nFOGQrYC6C9gV6Ca/1aVG9RCXI9lZcans5NLc7lokcf
/KNksbGd38wCaMi9D2MxX1o+yGfLL4zH0wyrOPQAOgE4qgLAUOorn1nSqufJGMnJbUt+qlWzks7KDAEC
QCgEMHDAAHkrGI231atXyxs2iPv2tnZUyMaWbAvakJ2NjTwWPtfGviAdLh6Ew9KxbePGjTrS16xZQ6tW
raIVK1bQokWLaBgLB11JrVGptS0gMkcHBykE/KYJE4AI6rrWpAYLi1OjU3mo+elc1PpcDvJ8PV83qJPK
jUxxnd/00E008MtrMuY7QgAq+fYehVkAKX+HABJK8pepAljD1o9xA8fuUDwAKhWVawgQAELhZvHxxfp1
62XDDbdscXvY3s6O8uXJQ3mB3Lkpf9685MJ/M6B/f0mw5t41S1+3bp2O9JUrVtLy5cul5S9ZsoTmzJkj
HwbBrWttCq1dAQ/jyOEFYkC5NHGibBBorTrVqPFSZ2n5GHyx3cUcNOJuHrodFvsPeyLLb/zbTeAmlH7M
R2tfi/lw+xr5eCchLgWgxRThWDWhmPc4pZj7KKVYHphMEQD3CqZxAVq1bigr0ZB8QBMAGlp9+/SR5KHF
jlu2eCxcolgxKsyW6cDkOBQqRE5MFlwyPAC8xIYNGyTpAPIrV6qkL10mnxouXrxYWv6CBQtoxowZ1L9v
P9mIlBbPx5Tg0FKYQwtCDAQBEegLAeWrUasyNVteRA7NhhG6cCt28NWMYtzNkuJ56H2jsTqusJ4FUMcr
ny7mF9ViPkOSv8tB2KvvKtoxUhSXAtBH7HuAwlUT0tIgZSaNZYHK9CroFSy+louGLSpPdetVkRWpWZ0G
VDQqGR4AI4euXLlKxvH1TOi4sWPl3UAMJoXxhPBsH8v+/frR9GnTJdka6YBm6YsWMekLFdLnz59P8+bN
k08Bp0yZIs+BRiTIRmiR4PCCEIN1eAKIQwPKCJFWrV6BWixzlMS3Z3S8kp2G3lWGf136oJX4Ln7ft4Lr
HrjJL4EMY77O7YN8Njy7A45ky1AFECceIIIAQD5G0l7KAlgZlIJWvkhBK4KsaM6l7NRn8h9UpXoZaVU6
y2OgwiECdMswbiAsFw1BuHY0BDWCEcNBLgALR37F8hXy+T+2wdJxm1chfD7Nncuks8ufzcQDsP6JEyfK
eQoQ30G4HdoUBQuSbQEFyEMY+uUDIIJKVcpTiyUO1ImvpSOjC4sA5A+/l5FGXsskvN/MJKHeC4htwg3z
a++7yQ9BdG4flq8X86Xlq+Tj24XfJgCQv4ixhAWwLDAFLXuWgpYyFj1JRVNOZ6e2ParI7hUqFRWtVTYq
GNs7d+pE85g4WD9cutaIWy3j+Qr5IEeDJHwBEw6y58yVJM+aOYtmzpxJM6ZPp2nTpklMnTKVpk5lsPWP
GztOjvyNsBJOfAGyyZ9fAusO3ObQyqYBnqBipXLUYpEDdb6QnToxul3KJscBBjAU/PgHeejeB29JUGwT
bphfzQLA/QhTMR9uXyO/4H4nSh6HAtBiinDgNsCsh6kEpkRbEmglLX/FCwWYbGnuda6wmc3IlVvTcPlF
4V71XCxa2rjzN3H8BOVNILZmvBUE9z13LhM8i8mdAXJnsPufxu58Kk2aNFk+Exg/bjyNHcsYM47GcT9/
rNsYGsPQLTmUjB0zhkYMHy7HKC5dsiQVtkeX0i4C0A4owh5JVzaGM5evRDEXqu5anlqvtie8idOV0f1K
Fkn8qGvpxSgMDs2YcsdFvHj/0Gjcjk2suucm30EwFfNtdxQW+Fil4HZHkX+7k1AFoI/Y9wAsAN1AyosC
FAGgW4hZtjBV3IKHaWm2ryMNHN+QWrVqRo0aulLDBq68rC/7+3hvb9jQodJVL2DLXihjOFz6AunSJaRb
nyvj+SwWBO7rQxCatQMzuG0AD4DtOBYgvQIvp0yeLJ834OWOZtzFxFNBPBhq2KAe1a9flxrUR5nqyTI1
alSfGjOaNW1EbTo3ofbzi1OX47mp+7Ws1I3R83oWGnU/A43GsPBMvps6UviG500o9ENwrFq8YX7lvTGi
8skCun6+/a7CEWK+JJ8tP/8+J8rHiEsPEEEAIB8DKS8MSEnLpQfgJaZYgwCepqRFmGbtpDON3/4HDVtf
ioatrkmzNv9Fu/ZtoWNHj+qe7587d14HPz8/xhk1f47OnDlLp0+fltvPnDkjh21BHk8FsUQe2/H76dO+
ch3j+2GJY3t7ecqHSHhOgFvG63esoLFrB1D7JdWozZKK1HZJBeq89E/qsbw89Vr1B/VeU4H6balAvX0K
UM+r2hDuWanX9cw0GkPDA+oEEWP/Tk/j/s5Ah56NFVp7ACmmhBvml98dI/A+oqmYLy1fJT+vexFK9jsE
YF8loSQfM2AuYAEsfWbFYPIZiwJT0vwnykRLC56m5nVrmv4gLU2/XYT2BU6ilx8eyWHXPn36JIF1Dch/
/vw5wjauEKPbtOHbAKx//Pghwjb8jf42LAPePaDdj5ZS/8uVqfWZAtTmbC7qdj479b2clfr5Z2Fkpb5M
fJ/LWag3L3tzvhejt39mafFyfgAWgEK+MmnEmNs5xN0PR+RNIqToEhxZftmdsfItYFMxH25fIz8PBFDs
N8wXYF8lkZh6P7WYct9aYFaN+Wzx8x4rmPMoJc1izFQx5UFqmnm/AK1+1Ii8gpbRq7AASU5UoYlCl//8
iV68f0BPQi/q4RI9eneRHvNSH4bbHr67QKdebKIZt1tT94sFqPulrDTgSib662omGsQYoIG39VfRD3n/
TJJ4HTBXkATmDUorpt51EEHv7xqN4THFEhZA+YM2JmO+/BJJ/T4xN8NSEYA+4sIDJKI5AdZyOlXMZIkZ
NU3Nq4dJj1Y/mqbqOeYWcfzFND5+OpqMc+jN4qUBU7pMfJSOJj5MRxhdS07xwksNuhk/2Iph0SM5piO+
KzGeoRfjjVk8/l47lnZ8LDcHNaFv4lOMr88wv/j2OPkOoKmYL8lny8+N7xL3FiVVAHHiAXQCKMQCUObS
tY50Ll3MfLHqYcwFgBcwboXtpgl3sykC0xOAXNcTgDy3Co0gDbBYkDf1UW669G49TbpdTMjGHciWhKfX
xXhAEwzmCVIEZHA8KTicOz2dDJ7C5Y3Zx6CG+UW3xskPUUzFfGn5Kvk59/xGAUR1Lt2OftnFyr+nq5fz
axWC+Brw+TzNe1pQHh/n0aATgAqTHoGhETbpYUa6ELpaHv/Gm8Pcr88qyY+qxcO7KMdUjq+da/rjbOT/
Zrcsr5Z+5XrVVZkW3hwn8C6AqZgPt6+Rn52R9He0AVgAYuK9qMylm1a098sh5t8cbzS+RRUv3/8t5j0o
oRw/utDKooe9gcPEB733+A8Gjg2P70ZivISR4yiIeL6Z9x25PXAnQvljAtQd3gNQYr4yHoF0+9uUmI/P
0XMysmNsAoYqAH3Evgewq5woynPptjudQyyLgQcI+fBSbApyjWDx2rqpvGmPkI42PG4tvvyjfLmLhPN9
+ecDbX7eksuruHxDi8dS8yLIhx/P+PlQ3q98TO34ckVN0c3PuzFeFD9SyGTMl+SrI5Rk3e0cpx4gggBM
xXxUkP68em18c4qlD2aolxO9CvgmPtOugD6REm4sr08IygeseVaFXoc9NXq+4G9PuNtazESMTxdOuCoA
eUzt+Oq5ws+fjo4Hj6N/RPSHhTPMz70xQTgfLmQy5kvLV8nHEDVxOW1cBAGYnks34vz5eKV58f3oCwCN
Pr+QOTTuTsZfEoB+HuTMe2pDb77e/+n5H3704f2zRG7xKvmaAAzPh+WMJ9no7gePKF+vlgzzs69PkO/8
mYr5cPsa+ZnjWABaTBG2lRNFef58zHEziy8CFxYdXH2zg9sXmSLE11/F5Lu5xc23B42exxCeQVP4bzKE
XxNg5JhRwfR7tuJ56G2j54kqUHdOexx0/XzDmJ9VHZMo80ZlXCJVAPqIfQ/AAjAZ80G+bE2r06k2O5lL
LLw3U9Vz1Cwg8PMFmvu0gEmLjk4eIroSGvX3+EM/vBU7X7SNtsWbyq96VO+HNoe6KlNk+ZnXJsrHv6Zi
viQfo5PtdKGMO1zYA/wwd3DcCACVYyzmS+vXm0u3yYncYv7dqAvgxft7YnlgaZMVGt38gWejxD/iu3r0
qBEQwu2BxQEuUuQ4nkb+rwhgzJ304kTwhF9+f2C6/0SB28CmYr60fJAvxyksRol/hwBsWADhMf/nc+k2
PpFHzLs7S72cn18w+s8+L+aKnS/bkIaNT9r8cv7Y2xEU9vFdtCpcyz/+dIr79VmjTbix/PTHWejWh73y
+qJ6fi1N858kMD6hqZgPt6+Rnz6OBaDFFBZAYpMx33D+fIxzP+XqJKPx7b8Or6DJYixbMEiMKabdsxEB
odeMnudnQN3h9q+pmJ9xg4vIwEi/vpjAKKWqAPQR+x6gYKXEUZ4/v753XjHnTtQ8ANJ/KY/YvfFJqxh7
AG19U1Bdevchel8WTb4ySRTY72g85sPyQT5bPkYmTbu9OCX6HSEAAgiP+WwhejHfcP58V6+8Ytbt2erl
RI8ApH87/+r9Q7EssGSUCI48n472PxvJbZKov1Q66cpkeevXVMyXlq+Sn2YbC8D5NwnAVMw3nD8fAyrM
vPX/rwCQf/rpDM18kj0KBEeeH38ni7gZtlu2B7TjyxU1GeYnXp4s8ro7RYz53NrXYj7cvka+dRwLQIsp
okAlbgMg7utiPrt9NeYPu5pRDGUMYQy+klGObT/+8hSj8e3/J9wKPiTOvVoVK7j51sPoOYwBdYf+vxLz
nfVivouM+WnXFRNpGNZriwsMVZ9QEYA+Yt8DsAD0Yj43+PRiviSfLX/w7Uw0iFHjWH4x7eYcVc9Rszh1
Vab/9fy4S1MEegBaP98w5qdZV1zA8lNvLUGpGKoA4sQDRBCAqZgvLV8lf+CtTISRtabGC0CXopsfe3GK
yM4NQJ3bN4j50vJV8jE/QUJn67gXQH4WgKmYD7evkT/gVmbCK82Tb8xVLyf2K+j/et7t4lSRlWO/qZgP
t6+Rb8VIEIcC0GKKyF8x8Q8xH8RL8i9nEgMZAy5lEv0vZRaVDxcUbhemGo1v8YgcqLvM3PXT+vlKzGe3
r8b8VGuKi5RrSgir1SUEZidJUFQKQB9x4AEqJjEZ8yX5bPkY474foyILYOL1eaqeY99C/q/nIQDEf1Mx
X5Iv5ygqSckYFooA4sQDRBCAqZgvLV8lH+PcY2zdEVdi9kqYuirT/1p+qN8YOQWNqZgvLV8l33LTbxJA
PhaAqZgPt6+R34dRiT1Ada/29On7Z3lBsV1B/5fzqLPqHu1ko89UzIfb18hPuqlUnApAiykQgK6fbxjz
+13MLPpezCL6MHpfyCIaHc8jsm4sKzyf+BqNcfEwDdQZ6k6/n28Y85OtKiksGZieLsnKUsL8d7QB4AFM
xXxJPls+Zrnoyeh8Nrvsx1Y82pY+fov99+b/r+bff/0g6yyymC/JZ8tPsrEUJWaoAoh1DzCLoRNArjKJ
TcZ8afkq+fLbuvNZRbWT+eU8ei18BtPDt8bfydNSfP6jeP7xlayrVEw0rP5nMV9avkp+og2lydz+hxtB
4C7GaRBDJ4B0BRJSP3/jMR9uX0f+tWzU7Vw20flKdjm/jtWWkoRpVbc9OiwVrl2wXFHT/3IedbL21h5R
3KMFWTHBmgB+FvPh9jXyE64pRWbZkxkKANzFOLkytJgiLNNYiI7u6Y3G/J4MWD0A8vFpWBdGB7/scn6d
FKtLcvwqIwpuqSeaHhki+vlMEP1PTQyHj976/0gedYC6QJ2gbhDXrdjVRyXmJ15RSiRaUVokXF5aWEx0
FmZWCXU8qQB3MU7ZGN8Z0gOYmZtRnXnWRmO+JB+W75+NujJAfuer2akTe4EOl3NQHa+8Ip+7k1R3UlYu
LgIuTIf/4TzqIzkbiLT8KMZ8ST5bf4L1Zci8d0GFn3DrB2fgLsYpEcOfoTtBwVqW1OdaZqMxX0c+E49v
A0F+xysYbSsHtfPLITD6FgY/xKQLmHIF8+9oEyCUPmArSusNhy5HxZaTIdhRMd1AiYXkoEly4CQMm8bh
xUnCQU7jhpcolQEVCusGVCh0QJn6FV/X2u7XPq92JMz+iYkf5YcXLEx8eIHHr9rHF8pr2EXkK1mYIjbH
5qLy3jxe0Mi2y5mybnKWcwfjUW3mnS56j2sVpN/gIrtxyo0c7s6hRY+5hWXDLrxbByAfWT/fMObD8kG+
xdrSZFYqnaEAwBm4i5U0iaE7QeLk5tT2cEajMV9HPqMjC0BHPqPt6RyiDQsAY++2YrQ8lUvIgZjP56am
jCYnc4sm5/JQo7N5qCEDw7PXP6PMnR+V+fMjm1dPGW9fmWApKmPvRjYmT2Tf6kX2Dl9k9/Z/GvNh+XD9
sP6ZzmRmmcBQAOAs1pIDI5SBE0gUapRM9DxnPObD8kE+Yj8gLR/k++YQrX1zipanACbfJ5doxmjqw8Qz
+RgXF+Py411CSb53HiEnaYji/PmRzatnOMeOybF3ozgmj+H3+ZG9t2/4Dl9k9/Z/FvMl+cvKCPOlZYTZ
nxl1vKgAV+As1lJCxlYGDi4VljCpObkuTGcy5kvLB/mw/Es5SFo+ky8tn61eWj7Ih+WfA9jyQT4sn61e
Wj6TLy0/ivPnRzav3s/G24/KOHyRfZ//0/f2Yfk/PM9HSIh6P18/5kvLZwGYDbUns8QWmtVr/IArcBar
qRjjPUM7GaXOlVC0PJQpkpivkg+3D8vXyIfbh+Vr5MPtw/I18lWXryMfbj+S+fMjm1dPGW9fmWDJ6Ni7
GHVbIx9uH5avkQ+3H8n3+ZG9tx/Z8/wox3yQv64MmU10EWaZLXV8MCAAcASu4iTNZEQ4YeaiSai1V5Zo
xfxmejG/sYmYX9cvn17Mj9r8+ZHNq2cs5v9s7N1YifnayxyxFfOZeEn+/OJkVvCHQaGQB0dxlqwZFxk4
kQ6ZnJOIpruymIz50vLVmC/dvhbz1bl4DGM+3ib+acxnRCvmm5hjJ7KxdyPG/Mi/z48Y8yN/hy/6Mb+0
kG5/Elu+Qr4hLjDAUZwmR8ZThqY4qb4UWRJQlanpRdvz2U3GfNngU2O+tPw4jfmYV88uwrx6kY23H9k4
fDGP+dG7t/9DzF9cWpj1tyWzdEn0LV5bByfg5rek0oxAhn4ByDyBmchTIznV2pCJWp3LESHmS7evxnyd
2/9pzGe3r4v5UZs/P7J59bSYH9Wxd3855mtuP7Zi/prSZD7Wkfv66YWZRXh9M7T6Bxfg5LemsoxnjB8K
lCiZOWUpY0ml3dIJ1/3ZqNm5XP/Jfr6c9v2nMZ/dfrRiPrt9rcEXzZhvaRjz15cmi0nOwrxbfjJztCaz
pD/087X8cwa4+FeSDcOH8Q8DhYkIczORIIm5SJEtochU2lLkqpVC5KyZQuTQQ3aghpVENhVZqyvIokNK
kRmollJkUpFRDxmqAqlEeg1VUol0KtJKpBZpgMoKrPWQuhJgLVKpSAlUVGClIoVEGpG8QjiS6cHyTwVJ
/0yroHxakUQPicunk0j0RzgSqkgAlAPSCwsV5o6phVmGpMIskYWsQ6N1q9Q56h4c/KvJijGO8YaBghkq
ND4f+3nUNeocdf+fSOYMO8YixkeGYYHj87GTR92ijlHXqPP/XEKhsjKGMs4w3jK0J4nGLig+//M86g51
iLr8i4G6/U8SbyrlYtRloPDzGevjESXMYaDOajNQh/EpPsWn+BSf4lN8ik/xKT7Fp/gUn+JTzJOZ2f8D
TH6groYT4jkAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>469, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 832, 393&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 832, 393&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 17</value>
</metadata>
<metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>626, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA
CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ
AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////ABEQ
AAAAAAAAAAAAAAAAARERF4iIiIiIiIiIiIiIiAERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF///////////////+AERERf/////
//////////gBEREX///////////////4ARERF///////////////+AERERf///////////////gBEREX
///////////////4ARERF///////////////+AERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF////////////3AAAAERERf/////
//////9/+HAREREX////////////f4cBERERF////////////3hwERERERf///////////93AREREREX
////////////cBERERERF3d3d3d3d3d3d3ERERER4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAP4AAAH+AAAD/gAAB/4AAA/+AAAf8oAAAAEAAAACAAAAABAAQAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAA
AAAA//8A/wAAAP8A/wD//wAA////ABEAAAAAAAABEXiIiIiIiAERf//////4ARF///////gBEX//////
+AERf//////4ARF///////gBEX//////+AERf//////4ARF///////gBEX//////+AERf//////4ARF/
////8AABEX/////49xERf/////hxERF3d3d3dxERwAH//8AB///AAf//wAEBEcAB///AAf//wAH//8AB
ARHAAf//wAH//8AB///AAQERwAH//8AD///AB///wA8BESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8Azs7OANbW1gDe3t4A5+fnAO/v7wD39/cA///3AP/3xgD/770A7961AP/n
rQD/9+cA/+/WAP+1QgD/rTEA/60pAP+cAAD/xnMA/71jAP+1UgD3jAAA/9alAP+1WgDWcwAA53sAAO+E
AAD/794A/+fOAP/37wD/3r0A786tAP/WrQD/zpwA98aUAN6lawDenFoA3pRKAN6MOQDnrXsA/9a1APfO
rQDvxqUA772UAOe1jAC9YxgA/+fWAP/exgDevaUA972UAP/OrQDerYwA/9a9AN61nADnvaUA3qWEANac
ewD/7+cA/97OAM6UewDGjHMA1q2cAM6llADWnIQAtYRzAK17awC9hHMAxoRzAK2EewC9e2sAtXNjAMac
lAC9lIwAtYyEAKV7cwCte3MApXNrALV7cwCtc2sAvXNrALVrYwCtY1oA9+/vAP/39wD3zs4A/87OAP/G
xgD/vb0Ae1paALWEhACte3sA/7W1AKVzcwCca2sA/62tAJRjYwD/paUAjFpaAJxjYwC1c3MAhFJSAP+c
nACUWloAjFJSAK1jYwCESkoApVpaAJxSUgClUlIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAbm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
bm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
blhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYbm5ubm5ubm5ubm5ua2thYWFhYWdkZGRk
ZGRkZGRkZGRkZGRkZGRkZGRkZGRpaWlYbm5ubm5ubm5ubm5ubFRVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
VVVVVVVVVVVVIWlYbm5ubm5ubm5ubm5ubAEcLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgICAyMjIyVWRY
bm5ubm5ubm5ubm5ubAEcOi8vLy8vLy8vHh4eHh40NCgoKCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5u
agEcHBwvLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5uagIcHBwcOi8vLy8v
Ly8eHh4eHh40NCgoKCgoKCgoICAgVWRYbm5ubm5ubm5ubm5uagIcHBwcHDovLy8vLy8vLx4eHh4eNDQo
KCgoKCgoKCAgVWdYbm5ubm5ubm5ubm5uagIcHBwcHBwcLy8vLy8vLy8eHh4eHjQ0NCgoKCgoKCggVmFY
bm5ubm5ubm5ubm5uUQIuHBwcHBwcHC8vLy8vLy8vLx4eHh4eNDQoKCgoKCgoVmFYbm5ubm5ubm5ubm5u
UQIuLi4cHBwcHBwcLy8vLy8vLy8eHh4eHh40KCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4cHBwcHBwc
HC8vLy8vLy8vHh4eHh4eNCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4uLhwcHBwcHBw6Ly8vLy8vLy8e
Hh4eHjQ0KCgoV2FYbm5ubm5ubm5ubm5uUAMNLi4uLi4uHBwcHBwcHC8vLy8vLy8vHh4eHh40NCgoV2ZY
bm5ubm5ubm5ubm5uUAMNDS4uLi4uLhwcHBwcHDovLy8vLy8vLx4eHh4eHjQ0V2ZYbm5ubm5ubm5ubm5u
RgMbDQ0uLi4uLi4cHBwcHBwcOi8vLy8vLy8vHh4eHh40V19Ybm5ubm5ubm5ubm5uRgMbGxsNDS4uLi4u
LhwcHBwcHDovLy8vLy8vLx4eHh4eW19Ybm5ubm5ubm5ubm5uTwMbGxsbDQ0uLi4uLi4cHBwcHBwcLy8v
Ly8vLy8vHh4eW19Ybm5ubm5ubm5ubm5uTwQbGxsbGw0NLi4uLi4uHBwcHBwcHDovLy8vLy8vLx4eW2JY
bm5ubm5ubm5ubm5uRQQbGxsbGxsbLi4uLi4uLi4cHBwcHBwcLy8vLy8vLy8eW11Ybm5ubm5ubm5ubm5u
RQQbGxsbGxsbGw0NLi4uLi4uHBwcHBwcHC8vLy8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5ORsbGxsbGxsN
DS4uLi4uLi4cHBwcHBw6Ly8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5OTkbGxsbGxsbGw0uLi4uLi4uHBwc
HBwcOi8vLy8vW11Ybm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsNDS4uLi4uLhwcHBwcHDovLy8vXl1Y
bm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsbGw0NLi4uLi4cHBwcHBwcLy8vXl1Ybm5ubm5ubm5ubm5u
OwQMDDk5OTk5GxsbGxsbGxsNLi4uLi4uHBwcHBwcHDovXlxYbm5ubm5ubm5ubm5uOwUdDAwMOTk5OTkb
GxsbGxsbDS4uLi4uLi4cHBwcHBwcXlxYbm5ubm5ubm5ubm5uOAUdDB0MDDk5OTk5GxsbGxsbGw0NLi4u
Li4uHBwcHBwcYFxYbm5ubm5ubm5ubm5uOAUdHR0MDAwMOTk5ORsbGxsbGxsbDS4uLi4uLhwcHBwcYEpY
bm5ubm5ubm5ubm5uPwUdHR0dDAwMDDk5OTkbGxsbGxsbGw0NLi4uLi4uHBwcYEpYbm5ubm5ubm5ubm5u
PwUdHR0dHR0MDAwMOTk5GxsbGxsbGxsNDS4uLi4uLhwcYEpYbm5ubm5ubm5ubm5uNwUdHR0dHR0dHQwM
OTk5OTkbGxsbGxsbDQ0uLi4uLi4cYFpYbm5ubm5ubm5ubm5uN1JTHR0dHR0dHR0MDDk5OTk5GxsbGxsb
GxsNDS4uLi4uZVpYbm5ubm5ubm5ubm5uMwZTUx0dHR0dHR0MDAwMDDk5OTkbGxsbGxsbDQ0uLi4uZURY
bm5ubm5ubm5ubm5uMwYHB1NTHR0dHR0dHQwMDAw5OTk5GxsbGxsbGxsNLi4uZURYbm5ubm5ubm5ubm5u
LAYHBwdTUx0dHR0dHR0dDAwMOTk5ORsbGxsbGxsNDQ0uZURYbm5ubm5ubm5ubm5uLAYHBwcHB1MdHR0d
HR0dHQwMDDk5OTkbGxsbV1tbXl5gZVlYbm5ubm5ubm5ubm5uLAYHBwcHB1NTHR0dHR0dHR0dDAwMOTk5
GxtISElJSUlZY2pYbm5ubm5ubm5ubm5uKwYABwcHBwcHU1MdHR0dHR0dHQwMDDk5OTlMFBEVGhkYLVhu
bm5ubm5ubm5ubm5uKwAAAAAHBwcHB1NTHR0dHR0dHR0MDAw5OTlOIRQODxAmWG5ubm5ubm5ubm5ubm5u
MQAAAAAABwcHBwdTU1MdHR0dHR0dDAwMDDlBFhcUDiVYbm5ubm5ubm5ubm5ubm5uMQAAAAAAAAAHBwcH
B1MdHR0dHR0dHQwMDAxLCxMXJFhubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAABwcHBwdTUx0dHR0dHR0d
DAxNCRIjWG5ubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAAAAAHBwcHB1NTHR0dHR0dHQxACCdYbm5ubm5u
bm5ubm5ubm5ubm5uIQAAAAAAAAAAAAAGBgYGBgYGBgYGUlIFBQVAClhubm5ubm5ubm5ubm5ubm5ubm5u
ISgoICkpKR8qKio2NjAwNTU1PT09Pj4+R0dCSW5ubm5ubm5ubm5ubm5u////////AAD///////8AAP4A
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAA/8AAPwAAAAH/wAA/AAAAA//AAD8AAAAH/8AAPwA
AAA//wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD//v0A/f39AP/9
/AD8/PsA//z5AP/8+AD7+/sA/vv3AP/69gD5+fkA//n1AP759AD3+PcA//jzAP748wD++PIA//fxAPb2
9gD+9/EA9fb2AP738AD+9vAA/vbvAP717wD09PQA/vXuAP717QD99e0A/fXsAPLz8wD+9OwA/vTrAP30
6wDx8vIA/vPqAP3z6gD+8+kA/fPpAP7y6QD+8ugA/fLoAP3y5wDv8PAA/vHnAP7x5gD98eUA/fDmAO7u
7wD98OUA/fDkAP3v5QD97+QA/u/jAP3v4wD97+IA/e7jAP3u4gDs7OwA/e7hAAAAAAD97eEA/e3gAOrr
6gD97d8A/ezfAP3s3gD87N4A/ezdAP3r3gD97NwA6OnpAP3r3AD869wA/evbAP3q2wD86tsA/eraAPzq
2gD96tkA5ufnAP3p2QD86dkA/enYAP3p1wD86NkA5eblAPzo2AD86NcA/OjWAPzn1wD959YA/OfWAPzn
1QDj5OQA/OfUAPzm1QD859MA/ufSAPzm1ADi4+MA/ObTAPzm0gD85dMA/OXSAPzl0QD75dEA/OTRAPzk
0AD75NAA/OTPAPvkzwD749AA/OPPAPzjzgD85MwA++POAPzjzQD84s4A/OLNAPvizQD84swA++LMAPvi
ywD84cwA/OHLAPvhywD74coA+eHKAPzgygD74MoA/ODJAPvgyQD74MgA+9/IAPvfxwD738YA+97HAPve
xgD73sUA9t3HAPvdxQD73cQA+93DAPTcxwD73MMA+tzDAPvcwgD63MIA+9vBAPvbwAD628AA8tnFAPva
vwD927sA+tq+APvavQD72b4A+tm+APDYwwD62b0A+9i8APrYvAD62LsA+ti6AO7WwgD617oA+te5APrX
uAD61rkA/dK/APrWuAD617YA+ta3AOzUwAD61bgA+tW2APnVtgD21bUA+tS1APrUswDp0b4A+tOzAPnT
sgD+1awA9NK0APnSsAD60a4A8dCyAObNuwDu0bAA7dCvAOTMuQD/2JYA782xAOLKuQDtzK8A7MquAN/H
twDexrYA6sesAP/MmQDcxLQA68eoAOfEqwDawrMA5sKpANjAsgD/zoUA5MGoANa+sADiwKYA68CeAPez
swDTu68A372lANy7pADQuKwAzrerAPesrADMtakAybKoAM2xqADltpEA9qGiAP+9YADVpZkAzK2KAPia
mgDRo5MA/rVUAM2ekQDJmY4Ax5iNANiViQCqmpAAxpaMAMWVjADWk4cA1ZOGAMOTjADXkoQAw5KLANaP
gwDLmXMA0JxoAO6hRwD/qTEAu4puAPyiIgDLj1MA55U4AN6LNgDVgjUAAAAAAGZmZgD+/v7+/v7+/v7+
/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+///////////////////////////////+/v7+/v7+/uXi
5+jp6ezt8PLy8vLy8vLy8vLy8vDq//7+/v7+/v7+3qqqqqqqqqqqqqqqqqqqqqqqqqqqye7//v7+/v7+
/v7dZISGio2SlZaZoKKnq7GztLe6u7uq7v/+/v7+/v7+/txkfoKGh4uOlJebnKGkp6+ws7a2uqrv//7+
/v7+/v7+2l51fYGEh4uOkZeWnqGjpquss7O3qu///v7+/v7+/v7ZVm91en6Dh4qNj5WXm6CipqitsLaq
7//+/v7+/v7+/tZQam5xd36ChYqNj5SVmZ2goamtsKrv//7+/v7+/v7+1kdlaGlxcnyBhIeLjpOVlpuh
o6aoqu///v7+/v7+/v7SR11jZWlxdHl+hIeKjY6TlpmeoKaq7//+/v7+/v7+/s8/WFxjZ2lsdHd9hIWH
io6TlZmdoqrv//7+/v7+/v7+zT9NU1hdY2htcXR5fYOHi42SlJaZqu///v7+/v7+/v7KOkhOUlRcY2Zp
b3Z5fYKFio2PlJeq7//+/v7+/v7+/sc6QkhKUVdcY2dobG91eYKFh4qOkarv//7+/v7+/v7+xjBAQ0RJ
TVdZXWFnaXFyeX6BhoiLqu///v7+/v7+/v7DKzk9QURKTFFXXGNnaWxyd3uBhomq7//+/v7+/v7+/sAi
NDY9QENGS1JTWF9jamtueHl/hKrv//7+/v7+/v7+vSIsMTY5PkNESk5SWF1jZWtwcnh9qu///v7+/v7+
/v61HikqLjU3O0FCSE5RUlxgZWlscniq7//+/v7+/v7+/rUZIyYsLTQ4OUBCSUpPV1ldY2hrbqrv//7+
/v7+/v7+rhQdISYqLTE2OT1BRExOVVRbY2hqqu///v7+/v7+/v6lEhccICMnLC8yNjtBQkhMUVdcX2Wq
7//+/v7+/v7+/p8NFhgaHyEmKS80NjtAQkNLUVdaXaru//7+/v7+/v7+mA0QExYaGyAlKS0xNjk+QENI
TVJYqvP//v7+/v7+/v6QCgsPEBUaGx0jJyotNDc7PkXV2+Dk8f/+/v7+/v7+/owHCAkMEBMXGh8jJigt
MzY73/b7/P34//7+/v7+/v7+gAQFCAkMDhAVGhshIygqMTTU4ff5+v/+/v7+/v7+/v57AgMFBggLDBAT
FxsfJCYsMcvQ5vX//v7+/v7+/v7+/nMBAQMFBgkJDA8RFxwcJCYsv8H0//7+/v7+/v7+/v7+YgACBwoN
FBkiKzA6P0dQXmS+4//+/v7+/v7+/v7+/v64mqissrm8wsTFyMzO0dPX2M7r/v7+/v7+/v7+//////gA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAH/AAAD/wAAB/8AAA//AA
Af8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4JJBAPemQwBmZmYArntuALWC
cgC7iHUA6rN3AMKPeQDIlXwAs4h+AM+cgADVooMA1qOEANyphwDeq4gAuI6LALaRiwDBlpMAxJmVAMac
lgDJnpcA0qSXANOmmADMoZkA1qiaANmtnQDuvaUA77+oAPWzqgDwwasA+tCuAPDDrwDxxbEA+dKxAPrT
sQD61LQA8si1APrVtQD71bYA8sm3APrWuAD717gA+9e5APTJugDzzLoA+ti7APvZvAD62rwA8829APvZ
vgD62r4A+9q/APrbvwD728AA+tzBAPvcwgD73MMA+93DAPvcxAD73sQA+97GAPvfxgD738cA++DIAPvg
yQD74coA/OHKAPvhywD84csA/9XMAPzizAD74s0A++POAPzjzgD85M8A/OTQAPzk0QD85dEA/OXSAPzl
0wD85tMA/ObUAPzn1AD85tUA/OfWAP3n1gD86NcA/OjYAP3p2AD96dkA/OraAP3q2gD86tsA/evbAPzr
3AD8690A/ezdAP3s3gD97N8A/e3fAP3u4AD97eEA/e7hAP3u4gD97+IA/e/jAP3v5AD98OUA/vDlAP3x
5gD98ecA/fLnAP3y6AD+8ukA/fPqAP7z6gD98+sA/fPsAP307AD+9OwA/fXtAP717QD+9e4A/vbuAP72
8AD+9/EA/vjxAP748gD++PMA/vn0AP769QD/+vcA//v3AP/7+AD//fsA//77AAAAAAD///8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiAICAgICAgICAgIC
AoiIiAMZGBYVFxQTEhEQDwKIiIgERD87NzItKSMhHhoCiIiIBUpGQDw4My4oJSIbAoiIiAdSTElCPjo1
LyomHQKIiIgIV1NOSUM/OzYxLR8CiIiICl9bVFBKRkA8NzQgAoiIiAtkYFxWUExHQT05JAKIiIgNbGZi
XVhTTUhCPicCiIiIDXJtaWNeWVVPSkQsAoiIiA14c29qZWFaVlBLMAKIiIgNf3p2cGtnYVtXUSsCiIiI
DYOAfHdxbWhFRRwJAoiIiA2GhIF9eXRuAQEAAoiIiIgNiYeFgn57dQ0GAoiIiIiIDQ0NDQ0NDgwNAoiI
iIjgAf7+wAFqbsABfoLAAY2PwAGZncABqa3AAe//wAH+/sAB/v7AAWVowAFyfMABh4vAAZWWwAOjpsAH
7//AD/7+KAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAACsrAAY3EhIOORwOEjMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMRgMFTMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQ5HA4SNxISDisrAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfChkzHA43NBwOSTQaDU8zGg1QMxoNUDMaDVAzGg1QMxoNUDMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMhwNUTMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDQaDU80HA5JMxwONzMfChkrKwAGAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMcDjczGg14MhsNojMaDa4zGg2vMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMa
DbA0HA+yMxoNsDMaDbAzGg2wMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa4yGw2iMxoNeDMc
Djc3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJJfX/+QXV3/j1xc/45b
W/+NWlr/jFlZ/4tYWP+JVlb/h1RU/4dUVP+GU1P/hFFR/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQ
UP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+CT0//gE1N/39M
TP+ATU3/MxsNoTQYDko5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJRh
Yf/yzMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///Mmf+BT0//MxoNrjQaDU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJRhYf/MzMz/++DH//vfxv/738X/+97F//vdxP/73MP/+tvB//vcwP/72sD/+tq+//vZ
vv/62bz/+9i7//vYuv/617n/+ta4//rVt//61bb/+tW1//rUtP/607P/+tOy//nSsP/50a//+dGv//rR
rv/60Kz/+c+s//nPq//6zqn/+c2o///Ky/+CUFD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJViYv/Nzc3//OHJ//vfyP/738f/+97G//vexf/73cT/+9zD//vc
wv/728D/+9vA//vavv/72r3/+9m9//vYu//62Lr/+9e6//vXuP/61rf/+tW3//rVtf/61LT/+tOz//rT
s//60rH/+tKw//rSr//50a7/+tCt//nQrP/5z6v/+s6q///Jyf+EU1L/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJdkZP/Ozs7/++HK//vhyf/74Mn/+9/H//ve
xv/73sX/+97E//vcw//73ML/+9zB//vbwP/727//+9q+//vZvf/62Lv/+ti7//rYuv/717n/+ta4//rV
t//61bb/+tW1//rUs//507L/+tKx//rSsP/50a//+dGu//nQrv/6z6z/+c+r///IyP+FVFP/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhlZf/Q0ND/++HL//zi
y//84Mr/++DJ//vfyP/838f/+97G//vexP/73cP/+9zC//vbwv/728H/+tq///vavv/62b7/+9m8//vY
u//72Lr/+te5//vXuP/61bf/+tW2//rVtf/61LT/+tSy//rSsv/50rD/+tKw//nRrv/60K7/+tCs///G
x/+HVVT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
Zv/R0dH//OPN//zizP/84cz//ODK//vhyf/838j//N/H//vexv/73sX//N7E//vcw//73ML/+9zB//va
wP/72r//+tq+//vZvf/62Lz/+ti6//vXuf/617n/+ta3//rVt//61Lb/+tS0//rTs//507P/+tKx//rS
sP/60a//+tCu///Fxf+IV1b/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJxpZ//S0tL//OPP//zjzv/74s3/++LM//zhy//74cn/++DI//zfx//83sf//N7G//ve
xP/73MP/+9zC//vbwf/728D/+9q///vZvv/72b3/+ti8//vYu//717r/+9a5//rWuP/61bf/+tW2//rU
tP/61LT/+tSy//rTsv/60rD/+dGv///Dw/+JWVf/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5raP/T09P//OXQ//vkz//8487//OLN//zhzP/74cv/++HK//vg
yP/738f/+97G//zexf/73sX/+93E//vcw//73ML/+9vA//rawP/62r7/+tm+//rYvP/62Lv/+9i6//rX
uf/617j/+ta3//rVtv/61LX/+tS0//rTs//607L/+dKx///Cwv+LWVj/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFuav/V1dX//OXS//zk0f/849D//OPO//zi
zf/84sz//OHL//vhyv/84Mn/++DI//vex//73sb/+93F//vdxP/73cP/+9zB//vcwf/727//+9q+//va
vf/72b3/+ti7//rYu//617r/+ta4//rWt//61rb/+tW1//rUtP/607P/+tOz///BwP+MW1r/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNwa//W1tb//ObT//zl
0v/85ND/++TP//zkzv/7483/++LN//vizP/84Mv/++HJ//vgyP/738f/+97G//vexf/73sT/+93E//vc
wv/73MH/+9vA//rav//62r7/+9m9//rZvP/62Lr/+ti5//vXuf/61rf/+tW3//rVtv/61bT/+tOz//+/
v/+NXVv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVy
bP/X19f//ObU//zm0//85tL//OXR//zk0P/848///OPO//vizf/74sz/++HL//zhyv/84Mj/+9/I//ve
x//73sX/+97E//vdw//73MP/+tzB//vbwP/728D/+9q+//vavf/72Lz/+ti7//rYuv/617n/+ta4//rW
tv/61bb/+tS0//++vf+OX1z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAKh1bv/Y2Nj//OfW//zm1f/85tP//OXS//zl0f/85ND//OPQ//zjzv/84s3//OLN//vh
y//84Mr/++DJ//vgyP/738f/+97G//vexf/73cT/+9zD//vcwv/728H/+9vA//ravv/62r7/+9m8//vY
vP/617r/+9i5//rXuP/61bf/+ta3//+8vP+QYF7/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKt4b//a2tr//OjX//zn1v/859X//ObU//zm0//85dL//OXR//zk
0P/848//++LO//vizP/84sv/++HL//zgyv/738j/+9/H//zfxv/83sb/+93E//vdw//73MP/+9vB//rb
wP/72r//+9q+//vZvf/62bv/+ti6//rYuv/617n/+ta4//+7uv+SYV//MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK57cP/b29v//ejZ//zo1//86Nf//OfV//zn
1P/85tT//OXS//vl0f/85ND//OPP//vjzv/84s3/++HM//zhyv/74Mr//ODI//zfyP/738f/+97F//vd
xP/73cT/+9zC//rbwv/628D/+tu///vavv/72b3/+tm8//rYu//62Lr/+te5//+6uf+SY2H/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB9cf/c3Nz//OnZ//3p
2f/86df//OjW//zo1f/85tX//ObU//zm0//75dH/++TQ//zj0P/8487//OLN//vhzf/74cv/++HK//vg
yf/738j/+97H//vexf/73sX/+93E//vcw//63ML/+9vB//vbv//72r7/+tm+//vZvP/72Lv/+te7//+4
uP+UZGL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJ/
c//d3d3//Orb//zq2v/96tn//OnY//zo1//86Nb//efV//zm1P/85tL//OXS//zk0f/849D//OPP//zi
zv/84sz/++HM//vhyv/84Mn//ODI//vfx//73sb/+97F//vdxP/73cP/+9zC//vcwf/628D/+9u///rZ
vv/62bz/+ti7//+2t/+VZmT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAALaDdP/f39///Ovc//3q2//96tv//enZ//zp2P/96Nf//OjW//zn1f/85tT//OXT//zl
0v/85NH//OTQ//vjz//8487/++LN//ziy//84cv/++DJ//vgyP/838j//N/G//vexf/73sT/+93D//vc
wv/73ML/+9vB//vawP/72r7/+tq9//+1tf+XaGX/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAALiFdf/g4OD//eze//zr3f/969z//Ora//zq2v/86dn//OnY//3n
1v/859X//OfV//zm0//85tL/++XR//zk0P/749D/++PO//zizf/74sz/++HL//vgyv/74Mn/++DI//zf
x//73sb/+93F//vdw//73MP/+tzC//vbwf/727//+9q+//+0tP+YaWf/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuId//h4eH//O3f//3s3//87N3//evc//3q
2//86tr//OnZ//zp2P/96Nf//OjV//zn1f/85tT//ObT//zl0v/75ND//OTP//vjzv/8487//OLN//vh
y//84cr//ODJ//vgyP/738f/+97G//vexf/73cT/+93D//vcwv/73MH/+9vA//+ysv+Zamj/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL6LeP/i4uL//e7g//3t
4P/97d7//eze//3r3P/86tz//Ora//3p2f/86dj//ejX//zo1v/859X//OfU//zm0//85tL//OXR//vk
0P/85M///OLO//zjzP/84cv//OHK//vhyf/74Mn/+9/I//vfx//73sb/+97F//vdxP/73ML/+tvC//+w
sf+bbGr/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCN
ef/k5OT//e7i//3u4f/87eD//ezf//3s3v/9693//evc//3r2//96dr//enZ//zo2P/859f//OfV//zn
1P/85tT//ObS//zl0f/85ND/++PQ//zjzv/7487/++LM//vhy//74cr//ODJ//vfyP/83sb//N7G//ze
xf/73sT/+9zC//+wr/+cbWv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAMOQe//l5eX//fDj//3v4v/97uH//e3g//3t4P/87N7//evd//3q3P/969v//Ora//3p
2f/96dj//OjW//zo1f/859X//ObU//zm0v/85dL/++XQ//zkz//848//++PN//vizf/74sz/++HK//vg
yv/738j/+9/H//vfxv/73cX/+97E//+urf+db2z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMWSff/m5ub//vDl//3v5P/+7+P//e7h//3u4P/97d///e3e//3r
3f/8693//erb//3q2v/86tn//enY//zp1//86Nb//OfW//zm1P/85tP//OXS//zl0f/85ND/++TP//vi
zv/84s3//OLM//vhyv/74Mn//ODJ//vfx//738b/+97F//+srf+fcW3/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMiVfv/n5+f//fHm//7w5f/97+T//u/j//3u
4v/97uH//e3g//3s3//8693//Ovd//zq2//969r//era//zp2P/96df//OfX//3n1f/859X//ObU//zl
0v/85NH//OTQ//zjz//8487//OLN//zizP/74cv//OHK//vgyf/738j//N/H//+rq/+gcm//MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMqXf//p6en//fLn//3x
5v/98eb//fDl//3v4//97uL//e7h//3t4P/97eD//eze//zr3f/869z//erb//zp2v/96dn//OjY//zo
1//959b//OfV//zm0//85dL//OXS//vl0f/75ND/++PP//zizf/74s3//OHL//zgyv/74Mr/++DI//+p
qf+hdHD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM2a
gP/q6ur//vLp//7x5//98uf//fDm//3w5f/+7+P//e7j//3u4f/97eD//e3g//3s3//97N7//evc//zq
2//96tv//erZ//zo2P/96Nf//OfW//zn1f/85tT//ObT//zm0f/85NH//OTQ//zjzv/7487//OLN//zh
y//74cv/++DK//+oqP+idXL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAANCdgf/r6+v//fPq//7y6f/98uj//fHn//7x5v/98OX//fDk//3v4v/97uL//e7h//3t
4P/97N///eve//3r3P/969v//era//zp2v/86dj//OnX//3o1v/859X//ObU//zm0//85tL//OXR//zk
0f/848///OPO//vizf/74sz/++HL//+np/+jd3P/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANOggv/s7Oz//fTs//3z6v/98+r//fLo//3x5//98eb//vDl//3w
5f/+7+T//e/j//3u4f/97eD//e3f//3s3v/97N3//Ovc//3q2//96tr//OnZ//zo2P/96Nf//OjV//zn
1P/859P//OXT//vl0f/85dD//OPQ//vjzv/84s7/++LM//+lpf+leXT/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWihP/u7u7//vXt//707P/+8+v//vPq//3y
6P/98uj//fHn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97N///eze//3r3P/869v//Ora//3p
2f/96dj//ejX//zo1v/859X//OfU//zm0//85dL//OTR//zk0P/75M///OPO//+kpP+menb/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANilhf/v7+///vXu//71
7f/+9Oz//fPr//7z6v/+8+r//vLo//3y5//+8eb//fDl//3v5P/97uP//e/h//3u4P/97eD//O3f//zs
3v/9693//erc//zq2//86tn//enY//3o1//86Nf//efV//zn1f/85tP//OXS//zl0f/85ND/++TP//+i
o/+oe3f/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANqn
hv/w8PD//vbw//727//99u3//vTt//306//+8+v//vPp//3y6f/+8uj//fHn//3w5f/97+T//e/k//7v
4v/97uH//e3g//3t3//97N7//evd//zr3P/969v//era//zp2P/86Nj//OjX//zn1v/95tX//efU//zm
0//85dH//OXQ//+goP+pfXj/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAN2qiP/x8fH//vfx//738P/+9e///fbu//717f/99Oz//vTr//3z6v/98+n//fHn//7x
5v/98eb//fDl//3w5P/97+P//e7i//3u4f/97eD//e3f//3r3f/969z//erc//zq2v/96dn//OnY//zo
1//86Nb//OfU//zm1P/85dP//OXS//+gn/+qf3n/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOCtiv/z8/P//vjz//738v/+9/D//vbw//327v/+9e3//fTt//30
6//+8+r//fLp//7y6f/+8ef//vDm//3w5f/98OT//e/j//3u4v/97uH//e3g//3s3//97N7//Ozd//3r
3P/96tr//OnZ//zp2P/96dj//OfW//zn1f/85tX//ObU//+enf+rgHv/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOOwi//09PT///j0//748//++PL//vfx//73
8P/+9u///vXu//707P/+9Ov//vPr//3y6v/+8un//fLo//3x5v/98OX//fDk//3v4//97+L//e7h//zu
4P/97d///Oze//3r3f/869z//erb//3q2v/86dn//ejX//zo1//86Nb//OfV//+cnf+sgn3/NBsNrTQa
DU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOWyjP/19fX//vn2///4
9P/++PP//vfy//748f/+9/D//vXv//727v/99e3//vTs//706//98ur//vLp//3y5//98ef//vHm//7v
5f/97+P//e/i//3v4v/87uD//ezf//3s3//97N3//Ovc//+8vf//uLf//7Oz//+urv//qan//6Sk//+g
n/+ug37/Nx4RozgcEUk5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOe0
jv/29vb//vr3//769v/++fT//vj0//748//+9/H//vfx//727//+9u///fXt//717f/+8+v//vPr//7y
6f/+8uj//fLn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97d//upGK/7mPiP+2jIb/tYqF/7OI
hP+yh4P/sYaB/7BwcP+bamn/OyEVhUAgFzg7JxQNAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAOq3j//4+Pj//vv4//769//++fb///n1//749P/++PL//vfy//738f/+9vD//vbu//31
7v/+9e3//vPr//7z6//98+r//vLp//7y6P/98eb//fDl//7v5f/97+T//e7i//3u4f/97eD/pXJs//+0
Uv//mQD/9Y8A/+uFAP/gegD/1nAA/79mGf9+UU7XQSUZUkQiGh5VKysGAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO26kP/5+fn//vz6///7+P//+/f//vr2//759v/++fT//vjz//73
8v/+9/H//vbw//727//+9e7//vXt//716//+8+v//vLq//3y6f/98ej//fHn//3x5v/98OX//e/k//3v
4//97uH/qHVu///Mmf//tFL//7BE//+rNv//qC3/2Yw5/4BTUNhAIxpXRyMcJE0zGgqAAAACAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPC9kf/6+vr///37///8+v///Pn///v4//76
9v/++vb//vn1//758//++PP//vfx//738f/99vD//vXv//717v/+9Oz//fTr//3z6v/98+n//fHo//3x
5//98eb//fHl//3w5P/97+P/q3hv///Wo///t1v//7RS//+wRP/bk0n/g1ZS2EMmGldFKRwlRi4XC4AA
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPAkv/7+/v///38///9
/P///Pv//vz5//77+P/++/f///r2//759f//+fT//vjy//748v/+9/D//vbv//727//+9e3//fXs//70
7P/98+r//vLp//3y6f/98ef//vDm//3w5f/98OX/rntw///grf//u2f//7db/92bW/+HWlTYQyYaV0Up
HCVGLhcLgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPXC
k//9/f3///7+//7+/P///fz//vz7//78+f/++/j//vv3///69v/++fX//vj0//749P/++PL//vfx//72
8P/+9u///vXu//307f/99Oz//vTr//7z6v/+8un//fHo//7x5//98Ob/sH1x///ruP//wHT/3qFq/4pd
VthDJhpXRSkcJUYuFwuAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPfElf/+/v7//////////v///v3//v78//79+////Pr///v4///79///+vf///r2///5
9f//+PP///jy//748f/+9/D//vbw//717v/+9e3//vTs//7z7P/+8+r//vLp//7y6P/98ef/sn9z///1
wv/gqHv/jmFX2kYpHVhMKRwlRi4XC4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPrHl/////////////7+/v/9/f3//Pz8//z8/P/7+/v/+vr6//r6
+v/5+fn/+Pj4//f39//39/f/9vb2//X19f/19fX/9PT0//Pz8//z8vL/8vHw//Hw7//w7uz/8O3r/+/s
6f/u6+j/toN0/+zftv+OYlbkRikbaUsyJSlVKxUMgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP7Lmf/81rH/+tSw//jRrv/1z63/882r//HL
qv/uyKn/7MWo/+rDpv/owaX/5b+k/+O9ov/guqH/3ref/9u1nv/as53/17Gb/9Wumv/SrJn/0KqY/86n
lv/LpZX/yaOU/8agkv/EnpH/uIV1/7WCdJ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPwAAAAADwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAA8AAPwA
AAAAHwAA/AAAAAA/AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAP/8AACgAAAAgAAAAQAAAAAEA
IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxISDjYXDyE0GhAxNhsNOTQa
DTszGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMa
DTw0Gg07MhsOODQaCjE2Fw8hNxISDlUAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2Fw8hNBoNTjMb
DXMzGw2GMxoNizMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMa
DYwzGg2MMxoNjDMaDYs0Gw2FMxsNczIaDU02Fw8hQCAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAM2b
iuvSn5Pwy5qN9siXi/nGlov6xpaL+sWUivrEk4r6wpGJ+sKQifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQ
ifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQifnXkob4MxsNczQaEDFAFRUMAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAzbGo//3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3S
v//90r///dK///3Sv//90r///dK///3Sv//90r///8yZ/9WRhfo0GQ2FMRsNOTsUFA0AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADJsqj/4eLi//vgyf/738j/+97G//vdxf/63MP/+9vB//vawP/62r//+tm9//rY
vP/617n/+ta4//nVtv/51LX/+tSz//nTsv/50rD/+tGv//rRrf/90r//1ZGF+zMaDYs0Gg07NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMy1qf/i5OP/++HL//vgyv/738j/+9/H//vexf/73cT/+tzC//rb
wP/62r7/+9q9//vYvP/62Lr/+te5//rVuP/61Lb/+tS0//rTs//60rL/+dKw//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAzrer/+Pk5P/8483//OHL//zgyv/74Mn/+9/H//ve
xf/73cT/+9zD//rbwP/727//+tm+//vZvP/62Lv/+te6//rWuP/61rb/+tS1//rUtP/507L//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADQuKz/5ebm//vkz//8483/++LM//vh
y//84Mn/+9/H//vexv/73cX/+93D//vbwf/628D/+tq+//rZvf/62Lz/+te6//rXuP/61rf/+tW1//rT
s//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAANK6rv/m5+f/++XR//zk
z//848///OLN//vhy//74Mr/++DI//vexv/73cX/+93D//rcwv/728H/+9q///vZvv/62bz/+9i7//rW
uf/61bf/+tW2//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA07yv/+fo
6P/85tP//OXS//zl0P/848///OPO//zhzP/84Mr/++DJ//vfx//73sX/+93E//vcwv/728H/+9vA//ra
vv/72L3/+ti7//rXuv/617j//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AADWvrD/6Onp//zn1f/85tT//ObT//zl0f/848//++PN//zizP/74cv/++DJ//vfx//73sb/+93F//rd
xP/728L/+9vA//vZv//62b7/+tm8//rXuv/90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAANjAsv/p6ur//OjX//zn1v/85tT//OXT//zl0f/85ND/++PO//zizf/84cv/++DJ//vg
yP/738f/+97G//vdxP/73ML/+tvB//vav//72b7/+ti8//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA2sKz/+rr6//96dr//enY//zo1//859X//ObU//vl0v/75ND//OPP//vj
zv/84sz//OHL//zgyf/738f/+97F//vdxf/63MP/+tzB//vbwP/72r7//dK//9SRhPszGg2MMxoNPDcS
Eg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADcxLT/6+zs//3r3P/86tr//OnZ//3o1//859b//ObU//zm
0v/85dH/++TP//zizv/84sz//OHL//vgyv/74Mj/+97G//vdxf/73cP/+tzC//rbwP/90r//1JGE+zMa
DYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAN7Gtv/t7e3//eze//3r3P/969v//enZ//zo
2P/859b//ObU//zl0//85dL//OTQ//vkzv/8483//OLM//vgyv/74Mj/+9/H//vexv/73cT/+9zD//3S
v//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA38e3/+7u7//97d///Oze//3s
3f/869v//era//zo2P/86Nb//OfV//zn0//85dP//OXR//zjz//8487//OLM//vhy//84Mr/+9/I//vf
xv/73sT//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADiyrn/7+/v//3u
4v/97eH//ezf//3s3f/969v//Orb//3p2f/86Nj//OfW//zm1P/85dP//OXR//zk0P/8487//OLN//vi
y//84Mr/+9/I//vex//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAOTM
uf/w8fH//e/k//3v4//97eH//e3f//zs3v/97Nz//erb//zp2f/96dj//OjX//zn1P/85tT/++XR//zk
0f/85M//++LN//zizP/74cr/++DJ//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAA5s27//Hy8v/+8ef//fDl//3v4//97uL//e3g//zt3v/97N3//evb//zp2v/86dn//OjX//zn
1f/85tT//ObT//zk0f/749D//OPO//vizf/84cv//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADo0L3/8vPz//3y6P/98uf//fHl//7v4//97+L//O7h//3s3//97N7//evc//zq
2v/96dn//OnY//zn1v/85tX//ObT//zl0f/85ND//OPO//vizf/90r//1JGE+zMaDYwzGg08NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAOrRvv/z9PT//vPq//3z6f/+8ef//fHm//3v5P/97uP//e7i//3t
3//97N7//Ovd//3r2//96tn//OjY//zo1v/859X//ObU//zl0v/85NH//OTP//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA7NTA//X19f/99ez//fPr//3y6f/98uf//vHm//3w
5f/97+P//e7i//3t4f/97N///evd//zq2//86tr//OjZ//3p1//959b//ObU//zl0v/75NH//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADu1sL/9vb2//727//99e3//vTr//7z
6v/+8un//vHn//3w5v/98OT//e/j//zu4f/97N///eze//3r3P/86tv//enZ//zo2P/859b//OfU//zm
0//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAPDYw//39/f//vbw//71
7//99e7//vTs//306v/98+n//fHo//3w5v/97+T//e/j//3u4f/97d///eze//zs3f/96tv//enZ//zo
2P/859f//OfV//3Sv//VkYX7MxoNizQaDTs3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA8tnF//j4
+P/++PL//vfx//728P/+9e7//vTt//706//+8+n//fLo//7x5v/98OX//e/j//3u4v/97eD//O3f//zs
3v/969z//era//zp2f/86Nf//dK//9WNgfs3HhGHNh8SOTckEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAD03Mf/+fn5///59f/++PP//vjx//738P/+9e7//vXt//307P/+8+r//vLp//3x5//+8Ob//e/k//3v
4v/97uH//e3g//3r3v/3s7P/96ys//ahov/4mpr/1pCC+z4jF3xBKBkzQCsVDAAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAPbdx//6+/v//vv3///69f/++PT//vjy//738f/+9u///vXu//707P/+8+r//fPp//7x
6P/+8eb//e/l//3v4//97uH/5baR/+6hR//nlTj/3os2/9WCNf+1gGHqSS8iYkg0Jyc5ORwJAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA+ODK//z8+///+/n//vv3///69v/++fT///jz//738v/+9/D//vXu//71
7f/99Ov//vPq//7y6P/98ef//fDl//3v5P/rwJ7//71g//+pMf/8oiL/x4ZG7V9DM39RNys8WUAzFEBA
QAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD64sr//fz9///9+////Pn///v4//769//++fX//vnz//74
8v/+9vH//vbv//717f/+9Oz//fPq//3y6f/+8ef//fDl/+vHqP//zoX//rVU/82VXe5fQzSDVDgsQFg7
MRpJSSQHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPzkzP/+/v7///79///9/P///Pr///z4///6
9//++vb//vn0//748///9/H//vbv//317f/99O3//fPq//3z6f/+8ef/7dCv///Ylv/Ik2rwXkEzhlE6
K0JVQi8bYEBACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ufS///////9/f3/+/v7//n5
+f/3+Pf/9fb2//T09P/y8vL/7/Dw/+7u7v/s7Oz/6uvq/+jp6f/l5+f/5OXk/+Lj4//u0bD/yqqG9lw/
MKJROCxSWkIxH2BAQAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+1Kr5/dq5+frX
tvn51rT59tSz+fTRsvnxz7D578yv+e3Lrfnsyaz56caq+ebDqfnkwaf548Cm+eG+pPneu6P527mi+d+v
j8bap4YUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAA/AAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAA/AAAAPwAAAH8AAAD/AAAf8oAAAAEAAAACAA
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHA43MxoNeDIbDaIzGg2uMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrjIbDaIzGg14MxwONwAAAAAAAAAArntu/9mtnf/WqJr/06aY/9Kk
l//MoZn/yZ6X/8aclv/EmZX/wZaT/7aRi/+4jov/MxsNoTQYDkoAAAAAAAAAALWCcv/84cv/++DI//ve
xP/73ML/+tq+//rYu//717j/+tS0//nSsf/60K7/7r2l/zMaDa40Gg1PAAAAAAAAAAC7iHX//OTP//zi
zP/74Mn/+97G//vcw//72r//+9m8//rWuP/61bX/+tOx/++/qP8zGg2vMxoNUAAAAAAAAAAAwo95//zn
1P/85NH//OPO//zhyv/738f/+9zE//vbwP/62rz/+9e5//vVtv/wwav/MxoNrzMaDVAAAAAAAAAAAMiV
fP/86Nj//ObV//zl0v/8487/++HL//vgyP/73sT/+tzB//vZvv/62Lv/8MOv/zMaDa8zGg1QAAAAAAAA
AADPnID//Ovd//3q2v/859b//ObT//zkz//84sz/++DJ//vexv/73ML/+tu///HFsf8zGg2vMxoNUAAA
AAAAAAAA1aKD//3u4P/97N3//Orb//zo1//85tP//OTR//vizf/74cr/+9/G//vdw//yyLX/MxoNrzMa
DVAAAAAAAAAAANyph//+8OX//e7h//3s3//969v//enY//zm1f/85dH/++PO//zhyv/738f/8sm3/zMa
Da8zGg1QAAAAAAAAAADcqYf//fPq//3x5v/97+P//e3f//zr3P/96dn//efW//zl0//85M///OHL//PM
uv8zGg2vMxoNUAAAAAAAAAAA3KmH//317f/+8+r//fLn//3v5P/97eH//eze//zq2v/86Nf//ObT//zk
0P/zzb3/NRsPqjUaDU0AAAAAAAAAANyph//++PL//vXu//307P/98uj//fDl//3u4v/97N7//era//zo
2P/85tT/9Mm6/zogEZk9IhNDAAAAAAAAAADcqYf///r3//748//+9vD//vTs//7y6f/98eb//e/i///V
zP//1cz/9bOq/6l4bOBCKBh0SCccLgAAAAAAAAAA3KmH///9+///+/f//vn0//738f/+9e3//fPr//3x
5//3pkP/96ZD/+CSQP5HKxqRTi4gSFk3IRcAAAAAAAAAANyph/////////77///7+P/++vX//vjx//72
7v/98+z/3KmH/+qzdv5oSDLCTzMkZFM3IiVVORwJAAAAAAAAAADcqYf/3KmH/9yph//cqYf/3KmH/9yp
h//eq4j/1qOE/9yph//ZqYktAAAAAAAAAAAAAAAAAAAAAMAAAADAAAAAwAAAAMAAAADAAK7/wADn/8AA
0f/AAM//wADP/8AAzf/AAMv/wADK/8AAyP/AAMb/wADF/8APw/8=
</value>
</data>
</root>

254
_FRReporting/Formulare/frmAuswertung.vb
View File

@@ -1,254 +0,0 @@
Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Windows.Forms
Public Class frmAuswertung
#Region "Deklarationen"
Dim Auswertungsdaten As DataSet
Dim Auswertungsname As String
#End Region
''' <summary>
''' Initialisierung des Formulars
''' </summary>
''' <param name="Auswertungnr"></param>
''' <remarks></remarks>
Sub New(ByVal Auswertungname As String, ByRef Auswerungsdaten As DataSet, Optional tempfilepath As String = "")
Me.InitializeComponent()
If tempfilepath <> "" Then Globals.TmpFilepath = tempfilepath
Me.Text = Me.Text + ": " + Auswertungname
Me.Auswertungsdaten = Auswerungsdaten
Me.Auswertungsname = Auswertungname
End Sub
Private Sub frmAuswertung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.C1Daten.DataSource = Me.Auswertungsdaten
Me.C1Daten.DataMember = Me.Auswertungsdaten.Tables(0).TableName
Dim i As Integer
For i = 0 To Me.Auswertungsdaten.Tables(0).Columns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If C1Daten.Columns(i).Caption = "Journaleintrag" Then
C1Daten.Splits(0).DisplayColumns(i).Width = 250
End If
C1Daten.Splits(0).DisplayColumns(i).Locked = True
Next
Catch
End Try
End Sub
Private Sub TSBtnExcelExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnExcelExport.Click
Cursor = Cursors.WaitCursor
Dim fn As String = System.IO.Path.GetRandomFileName
fn = fn.Substring(0, Len(fn) - 4)
fn = Globals.TmpFilepath + "\" + fn + ""
Dim xls As New XLSLib.clsXLSLib
xls.Write_Excel(fn, Me.Auswertungsdaten.Tables(0))
Dim fnn As String = fn + ".xls"
Rename(fn, fnn)
Process.Start(fnn)
Cursor = Cursors.Default
Exit Sub
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xls|CSV-Dateien|*.CSV"
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xls")
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FileName <> "" Then
If Me.SaveFileDialog1.FileName.EndsWith("xls") Then
Me.DatatableToExcel(Me.Auswertungsdaten.Tables(0), Me.SaveFileDialog1.FileName)
Else
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
End If
End If
Exit Sub
If Me.C1Daten.Splits(0).Rows.Count > 0 Then
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.csv")
Me.SaveFileDialog1.Filter = "CSV-Dateien|*.CSV"
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FileName <> "" Then
' Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", "", True, System.Text.Encoding.Default.BodyName)
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
End If
End If
End Sub
Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, ByVal aOutputFilename As String) As Boolean
Application.DoEvents()
'Dim f As New FrmFortschritt
Dim app As New Object
Dim wb As New Object
Dim ws As New Object
Try
' f.Show()
Application.DoEvents()
' f.ProgressBar1.Minimum = 0
' f.ProgressBar1.Maximum = aDataTable.Rows.Count
app = CreateObject("Excel.application")
'Dim wb As Object
'Dim ws As Object
' Dim app As New Excel.ApplicationClass
' Dim wb As Excel.Workbook
' Dim ws As Excel.Worksheet
wb = app.Workbooks.add()
'wb = app.Workbooks.Add()
ws = wb.ActiveSheet()
Dim dc As DataColumn
Dim dr As DataRow
Dim colIndex As Integer
Dim rowIndex As Integer
' Columns erstellen
For Each dc In aDataTable.Columns
colIndex += 1
app.Cells(1, colIndex) = dc.ColumnName
Next
' Rows hinzufügen
For Each dr In aDataTable.Rows
' f.ProgressBar1.Value = rowIndex
rowIndex += 1
colIndex = 0
For Each dc In aDataTable.Columns
colIndex += 1
Try
app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
Catch ex As Exception
Dim s As String = dr(dc.ColumnName)
s = "'" + s
Try
app.Cells(rowIndex + 1, colIndex) = s
Catch ex1 As Exception
app.Cells(rowIndex + 1, colIndex) = "'* Text beim Export entfernt"
End Try
End Try
Next
Next
ws.Columns.AutoFit()
wb.SaveAs(aOutputFilename)
app.Workbooks.Open(aOutputFilename)
' Excel anzeigen wenn fertig exportiert
app.Visible = True
ws = Nothing
wb = Nothing
app = Nothing
'f.Close()
Return True
Catch ex As Exception
'f.Close()
MsgBox(ex.Message)
End Try
End Function
Private Sub TSBtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnPrint.Click
Dim fontbold As New Font("Arial", 12, FontStyle.Bold)
Dim fontregular As New Font("Arial", 12, FontStyle.Regular)
With Me.C1Daten.PrintInfo
.PageHeaderStyle.Font = fontbold
.PageSettings.Margins.Bottom = 20
.PageSettings.Margins.Top = 80
.PageSettings.Landscape = True
.PageFooter = "Seite \p von \P" & vbLf & "Druckdatum " & Now()
.PageHeader = Me.Auswertungsname
.ShowProgressForm = True
.UseGridColors = True
.RepeatColumnHeaders = True
.VarRowHeight = .RowHeightEnum.StretchToFit
.WrapText = C1.Win.C1TrueDBGrid.PrintInfo.WrapTextEnum.NoWrap
.PageBreak = .PageBreaksEnum.OnColumn
.FillAreaWidth = .FillEmptyEnum.None
.PrintPreview()
End With
End Sub
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub C1Daten_FetchScrollTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles C1Daten.FetchScrollTips
Try
Select Case e.ScrollBar
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Horizontal
e.ScrollTip = Me.C1Daten.Columns(e.ColIndex).Caption
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.Auswertungsdaten.Tables(0).Rows.Count)
End Select
e.TipStyle.ForeColor = Color.Blue
Catch
End Try
End Sub
Private Sub ContextMenuStrip1_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
If Me.C1Daten.SelectedCols.Count > 0 Then SpalteLöschenToolStripMenuItem.Enabled = True Else Me.SpalteLöschenToolStripMenuItem.Enabled = False
End Sub
Private Sub SpalteLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpalteLöschenToolStripMenuItem.Click
Dim i As Integer
For i = 0 To Me.C1Daten.SelectedCols.Count - 1
Me.Auswertungsdaten.Tables(0).Columns.Remove(Me.C1Daten.SelectedCols(i).Caption)
Me.Auswertungsdaten.AcceptChanges()
Next
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = Me.Auswertungsdaten
Me.C1Daten.DataMember = Me.Auswertungsdaten.Tables(0).TableName
For i = 0 To Me.Auswertungsdaten.Tables(0).Columns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If C1Daten.Columns(i).Caption = "Journaleintrag" Then
C1Daten.Splits(0).DisplayColumns(i).Width = 250
End If
C1Daten.Splits(0).DisplayColumns(i).Locked = True
Next
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xls|CSV-Dateien|*.CSV"
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xls")
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FileName <> "" Then
If Me.SaveFileDialog1.FileName.EndsWith("xls") Then
Me.DatatableToExcel(Me.Auswertungsdaten.Tables(0), Me.SaveFileDialog1.FileName)
Process.Start(Me.SaveFileDialog1.FileName)
Else
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
Process.Start(Me.SaveFileDialog1.FileName)
End If
End If
End Sub
End Class

52
_FRReporting/Formulare/frmCRReporting.designer.vb generated
View File

@@ -1,52 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmcrreporting
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.PreviewControl1 = New FastReport.Preview.PreviewControl()
Me.SuspendLayout()
'
'PreviewControl1
'
Me.PreviewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.PreviewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.PreviewControl1.Location = New System.Drawing.Point(12, 12)
Me.PreviewControl1.Name = "PreviewControl1"
Me.PreviewControl1.PageOffset = New System.Drawing.Point(10, 10)
Me.PreviewControl1.Size = New System.Drawing.Size(643, 283)
Me.PreviewControl1.TabIndex = 0
'
'frmcrreporting
'
Me.ClientSize = New System.Drawing.Size(284, 261)
Me.Controls.Add(Me.PreviewControl1)
Me.Name = "frmcrreporting"
Me.ResumeLayout(False)
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents PreviewControl1 As FastReport.Preview.PreviewControl
End Class

120
_FRReporting/Formulare/frmCRReporting.resx
View File

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

122
_FRReporting/Formulare/frmCRReporting.vb
View File

@@ -1,122 +0,0 @@
Imports System.Windows.Forms
Imports FastReport
Public Class frmcrreporting
Dim ds As DataSet
Dim auswertungnr As Integer
Dim dms As New Utils.MyDocMgmt
Dim auswertung As New TKB.Auswertung.clsAuswertung
Dim rptfilename As String
Dim printparam As Boolean = True
Dim StandardAuswertung As Boolean = True
Dim Design As Boolean = False
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer, ByRef auswertung As TKB.Auswertung.clsAuswertung, ByVal printparam As Boolean, ByVal Design As Boolean)
InitializeComponent()
Me.ds = ds
Me.auswertungnr = Auswertungnr
Me.auswertung = auswertung
Me.printparam = printparam
Me.StandardAuswertung = True
Me.Design = Design
End Sub
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer)
InitializeComponent()
Me.ds = ds
Me.auswertungnr = Auswertungnr
Me.StandardAuswertung = False
End Sub
Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Sub DesignReport()
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
Dim i As Integer
ds.Tables(0).TableName = "Daten"
For i = 1 To ds.Tables.Count - 1
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
Next
Dim report As New Report
Try
If rptfilename <> "" Then report.Load(rptfilename)
report.RegisterData(ds)
report.GetDataSource("Daten").Enabled = True
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
If Me.printparam Then
i = 0
Dim s As String = ""
For i = 1 To Me.auswertung.ParamCollection.Count
If s <> "" Then s = s + "|"
s = s + Me.auswertung.ParamCollection.Item(i).ToString
Next
report.SetParameterValue("Parameters", s)
End If
Cursor = Cursors.Default
report.Preview = Me.PreviewControl1
report.Design()
report.Dispose()
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub DisplayReport()
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
Dim i As Integer
ds.Tables(0).TableName = "Daten"
For i = 1 To ds.Tables.Count - 1
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
Next
Dim report As New Report
Try
If rptfilename <> "" Then report.Load(rptfilename)
report.RegisterData(ds)
report.GetDataSource("Daten").Enabled = True
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
If Me.printparam Then
i = 0
Dim s As String = ""
For i = 1 To Me.auswertung.ParamCollection.Count
If s <> "" Then s = s + "|"
s = s + Me.auswertung.ParamCollection.Item(i).ToString
Next
report.SetParameterValue("Parameters", s)
End If
Cursor = Cursors.Default
report.Preview = Me.PreviewControl1
report.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
End Class

62
_FRReporting/Formulare/frmCalendar.designer.vb generated
View File

@@ -1,62 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmCalendar
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar()
Me.btnok = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'MonthCalendar1
'
Me.MonthCalendar1.Dock = System.Windows.Forms.DockStyle.Top
Me.MonthCalendar1.Location = New System.Drawing.Point(0, 0)
Me.MonthCalendar1.Name = "MonthCalendar1"
Me.MonthCalendar1.TabIndex = 0
'
'btnok
'
Me.btnok.Dock = System.Windows.Forms.DockStyle.Top
Me.btnok.Location = New System.Drawing.Point(0, 162)
Me.btnok.Name = "btnok"
Me.btnok.Size = New System.Drawing.Size(162, 23)
Me.btnok.TabIndex = 1
Me.btnok.Text = "OK"
Me.btnok.UseVisualStyleBackColor = True
'
'frmCalendar
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(162, 183)
Me.Controls.Add(Me.btnok)
Me.Controls.Add(Me.MonthCalendar1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frmCalendar"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Kalender"
Me.ResumeLayout(False)
End Sub
Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar
Friend WithEvents btnok As System.Windows.Forms.Button
End Class

120
_FRReporting/Formulare/frmCalendar.resx
View File

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

29
_FRReporting/Formulare/frmCalendar.vb
View File

@@ -1,29 +0,0 @@
Imports System.Windows.Forms
Public Class frmCalendar
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
End Sub
Private Sub MonthCalendar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MonthCalendar1.KeyDown
If e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End If
End Sub
Private Sub frmCalendar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End If
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub frmCalendar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

92
_FRReporting/Formulare/frmDataSelect.Designer.vb generated
View File

@@ -1,92 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDataSelect
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDataSelect))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(451, 25)
Me.ToolStrip1.TabIndex = 4
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'C1Daten
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
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.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.ScrollTips = True
Me.C1Daten.Size = New System.Drawing.Size(451, 284)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 7
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'frmDataSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(451, 309)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmDataSelect"
Me.Text = "Datenauswahl"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

172
_FRReporting/Formulare/frmDataSelect.resx
View File

@@ -1,172 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}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{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 449, 282&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 449, 282&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

28
_FRReporting/Formulare/frmDataSelect.vb
View File

@@ -1,28 +0,0 @@
Public Class frmDataSelect
Dim m_selectedvalue As String
Property SelectedValue As String
Get
Return m_selectedvalue
End Get
Set(value As String)
m_selectedvalue = value
End Set
End Property
Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
End Sub
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Me.SelectedValue = Me.C1Daten.Columns(0).Value
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
Exit Sub
End Sub
End Class

62
_FRReporting/Formulare/frmEditWhere.designer.vb generated
View File

@@ -1,62 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmEditWhere
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEditWhere))
Me.Editor = New System.Windows.Forms.RichTextBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Editor
'
Me.Editor.Location = New System.Drawing.Point(12, 12)
Me.Editor.Name = "Editor"
Me.Editor.Size = New System.Drawing.Size(646, 168)
Me.Editor.TabIndex = 0
Me.Editor.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 186)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'frmEditWhere
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(670, 222)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Editor)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmEditWhere"
Me.Text = "Edit Where-Klausel"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Editor As System.Windows.Forms.RichTextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

418
_FRReporting/Formulare/frmEditWhere.resx
View File

@@ -1,418 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAQAMDAAAAEAIACoJQAARgAAACAgAAABACAAqBAAAO4lAAAYGAAAAQAgAIgJAACWNgAAEBAAAAEA
IABoBAAAHkAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvgAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAvgAAAIEAAAAfAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEDAwP/LCwr/z4+
PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z4+PP8+Pjz/Pj48/z4+
PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/LCwr/wMDA/8AAADxAAAAYgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABbAAAA/Ds6
Of/Cvrv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le
2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/8G+
u/87Ojn/AAAA/AAAAFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ABEAAADqNTQz/9rX0//k4Nz/7Orn//Px7//z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8fD/7Orn/+Pg3P/a19P/NTQz/wAAAOoAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAGIBAQH/raqo/+Th3f/29fT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//b19P/k4d3/raqn/wEBAf8AAABiAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcTEhL/3tvY/+7s6v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/u7Or/3tvX/xMSEv8AAACXAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5eLe//Tz8v/+/v7//v7+//7+
/v/+/v7//f39//T09P/6+vr//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/08/L/5eLe/xsb
Gv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5uPf//X0
8//+/v7//v7+//7+/v/+/v7/4uLi/5WVlf+NjY3/mpqa/6Wlpf+ysrL/v7+//8zMzP/b29v//Pz8//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/29PP/5uPf/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMbGxv/5+Th//b08//+/v3//v79//7+/f/+/v3/9fT0/6KjpP+4xtT/ornQ/42apv+Oj4//kZGQ/5SU
lP+Yl5f/sLCv/+zs6//+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+
/f/+/v3//v79//7+/f/29PP/5+Th/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMbGxv/6OTh//X08//9/f3//f39//39/f/9/f3//f39/9fc4v/d6fX/yNzw/6TG
6P+Eq9P/fpew/5GWmv+ZmZn/nZ2d/6SkpP/S0tL/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39
/f/9/f3//f39//39/f/9/f3//f39//39/f/19PP/6OTh/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6OXi//X08//9/f3//f39//39/f/9/f3//f39//b4
+//W5PP/3en1/8jc8P+fxuj/RL/r/x687f9Jr9D/nKCh/6Ojo/+oqKj/vLy8/+/v7//9/f3//f39//39
/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fP/6OXi/xsbG/8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6ebj//b18//9/f3//f39//39
/f/9/f3//f39//39/f/W5PP/1eTz/8zm9v8q0Pv/ANL+/wDW/v8AyP7/N7Xf/6KnqP+rq6v/r6+v/7W1
tf/b29v/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fT/6ebj/xsb
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcGxv/6ufk//b0
8//9/Pz//fz8//38/P/9/Pz//fz8//38/P/o7/f/wNfu/0HR+v8Ayv7/AM/+/wDT/v8A1P7/AMb+/zm3
4f+qrq//srKy/7a2tv+7u7v/y8vL//Hx8f/9/Pz//fz8//38/P/9/Pz//fz8//38/P/9/Pz//fz8//38
/P/29PT/6ufk/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMcGxv/6+jl//b19P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/7+/z/mdLv/wLW/v8Ayv7/AMz+/wDR
/v8A1P7/ANP+/wDE/v89uOP/sbW2/7m5uf++vr7/wsLC/8nJyf/l5eX/+/v7//z8/P/8/Pz//Pz8//z8
/P/8/Pz//Pz8//z8/P/29fT/6+jl/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMcGxv/6+nm//b18//8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//8/Pv/qOT5/wDL
/v8A1f7/AMz+/wDP/v8A0/7/ANX+/wDR/v8Awv7/P7rm/7e8vf/AwMD/xsbG/8vLy//R0ND/3dzc//X1
9P/8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//29fT/6+nm/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7Orn//b18//7+/v/+/v7//v7+//7+/v/+/v7//v7
+//7+/v/7/j7/zrO/f8Ay/7/ANX+/wDO/v8A0f7/ANX+/wDW/v8Az/7/AMD+/0G86P+/xMX/ysrJ/8/P
zv/T09P/2NjY/97e3v/v7+7/+vr6//v7+//7+/v/+/v7//v7+//29fT/7Orn/xwcG/8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7evo//b19P/7+/r/+/r6//v6
+v/7+/r/+/r6//v6+v/7+/r/+/r6/+r2+v84zf3/AMv+/wDV/v8Az/7/ANP+/wDX/v8A1/7/AM3+/wC+
/v9Fvuv/yMzN/9HR0f/W1tb/3Nvb/+Hg4P/n5ub/7+7u//j49//7+vr/+/r6//v6+v/29fT/7evo/xwc
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7uzp//b1
8//6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/p9vr/Oc79/wDK/v8A1f7/ANH+/wDV
/v8A2f7/ANf+/wDL/v8AvP7/R8Du/87U1f/a2tn/3t7e/+Tk4//p6en/7+/u//T09P/6+fn/+vr5//r6
+f/29fT/7uzp/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMcHBz/7uzq//b08//6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/6PX5/znN
/f8Ayf7/ANT+/wDS/v8A1/7/ANv+/wDY/v8AyP7/ALn+/0rC8f/X3N3/4uHh/+fm5v/t7Oz/8vHx//j3
9//6+fn/+vn5//r5+f/29PP/7uzq/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMcHBz/7+3r//X08//5+fj/+fn4//n5+P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
+P/5+fj/+fn4/+j1+f83zP3/AMj+/wDT/v8A0/7/ANn+/wDe/v8A2f7/AMb+/wC3/v9OxPP/3+Pk/+rp
6f/w7+7/9fX0//n4+P/5+fj/+fn4//n5+P/29fP/7+3r/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8O7s//X08//5+Pf/+fj3//n49//5+Pf/+fj3//n4
9//5+Pf/+fj3//n49//5+Pf/+fj3//n49//p9Pj/OMv9/wDH/v8A0v7/ANX+/wDb/v8A4P7/ANr+/wDD
/v8AtP7/T8X2/+br7P/z8vH/+Pf2//n49//5+Pf/+fj3//n49//29PP/7+3r/xwcHP8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8e/t//X08//49/b/+Pf2//j3
9v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/5/P3/zjL/P8Axv7/ANH+/wDW
/v8A3f7/AOL+/wDa/v8Awf7/ALL+/1LH+f/w9PT/+Pf2//j39v/49/b/+Pf2//j39v/18/L/7+3r/xwc
HP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8fDu//X0
8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1/+jz
9v81yfz/AMX+/wDQ/v8A2P7/AOD+/wDk/v8A2/7/AL7+/wCv/v9VyPv/8vX1//f29f/39vX/9/b1//b1
9P/z8vD/7uzq/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHBz/8vDv//Xz8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f2
9f/39vX/9/b1//f29f/n8vX/N8n8/wDD/v8Az/7/ANn+/wDi/v8A5v7/ANz+/wC7/v8ArP7/U8b7//D0
9f/39vX/9vX0//X08v/y8O7/7ero/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHBz/8/Hw//Xz8v/29fP/9vXz//b18//29fP/9vXz//b18//29fP/9vXz//b1
8//29fP/9vXz//b18//29fP/9vXz//b18//29fP/5fH0/zjI/P8Awv7/AM7+/wDa/v8A5P7/AOj+/wDd
/v8BuP7/Oazk/6Cztf/Vz8n/9PPx//Px7//v7ev/6+jl/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHRz/8/Lx//Tz8v/19PP/9fTy//X08v/19PP/9fTy//X0
8v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy/+Xw8/82x/z/AMD+/wDM
/v8A3P7/AOb+/wzq/f+X2uL/zMW+/7ivpP+lmIr/z8nB//Dt6//s6ef/5+Tg/xsaGv8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9PPy//Tz8f/08/L/9PPy//Tz
8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8f/08/L/9PPx//Tz
8f/k7/L/OMb7/wC+/v8Ay/7/Cd38/7Hn6//q5+T/3tnU/83Fvv+4r6T/pJiK/8vEvP/o5OD/4t7Y/xoa
Gf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9fTy//Ty
8f/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8vD/8/Lw//Py8P/z8vD/4u7x/zjF+/8AvP7/c8fb/93Z1P/q5+T/6ufk/97Z1P/Nxb7/v7at/6ud
mf/Ox8D/29XO/xkYF/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHR3/9vTz//Py8P/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv/+Lt8P9Hwe//sa+o/83Fvv/e2dX/6ufk/+rn
5f/a0Nb/l1LA/2kJq/+TWbD/0MfA/xgXFf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHR3/9vX0//Py8P/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw
7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/d2tb/o5aJ/7iv
pP/Nxr7/3tnV/97R3/+RKNn/dQDJ/2kAtf9iAKr/k1iw/xUTE/8AAADKAAAADAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9/b1//Px7//w7+3/8O/t//Dv7f/w7+3/8O/t//Dv
7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Du
7P/v7ev/wLet/6OWif+4r6X/0cjG/5Azzv9+ANj/fADW/3QAx/9oALT/YwCr/zcAXf8AAAD/AAAAlgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pf2//Lx7//v7ev/7+3r/+/t
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t
6//v7ev/7+3r/+7s6v/u6+n/6+nm/7yzqf+mmo3/onO0/3IAwv93AM3/fQDX/3wA1v90AMf/bgC+/2wA
uf8hADn/AAAA9AAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pj3//Lw
7v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
6v/u7Or/7uzq/+7s6v/u7Or/7uvp/+3q6P/n4+D/0srC/8/Gvf/FvbT/g0ac/20Auf9xAMH/dwDN/30A
2P+CAN7/gADa/3cAy/9EAHT/AAAA/wAAADkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHR3/+fj3//Hv7v/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6P/s6uj/6+nm/+Tg3P/Jv7X/6ubi//z8/P/29fT/5uDi/5hR
yf9tALn/cQDB/3oA0f+FAOP/hwDm/34A2P87AGb/AAAA/QAAACoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHR3/+fn4//Hv7f/s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp
5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+vp5v/r6OX/6OXi/8vCuP/u6+j/9vX0/+Tg
3f/h3dn/4d3Z/9/Y2P+TSsP/bQC6/3QAxv98ANX/gQDe/20Auv8JAA//AAAA0AAAAAQAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHR3/+vr5//Du7P/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo
5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6OX/6ufl/+nm4//o5eH/4NvX/9PL
wv/8+/v/4+Dc/+Hd2f/h3dn/4d3Z/+Hd2f/s6Or/nFnL/20Auf90AMX/XwCj/wwAFf8AAADtAAAANQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/r6//Du7P/q5+T/6ufk/+rn
5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/p5uP/6OXi/+fj
4P/l4d3/19HK/+Ld1//z8vH/4d3Z/+Hd2f/h3dn/4d3Z/+/t6//w8PD/QEBA/w4AGf8UACP/AgAD/wAA
AO0AAAA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/v7/+/t
6//p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jk
4f/n5OD/5eLe/+Pf3P/g3Nj/0srC/+Tg2//x8O7/4d3Z/+Hd2f/h3dn/7+3r//Ly8v8/Pz//AAAA+QAA
AMgAAADMAAAAlQAAACMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMeHh7//Pz7/+/s6v/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
4f/n5OH/5uPg/+Xi3//k4N3/4t7a/9/b1v/b1tH/y8O6/+Pe2f/y8O7/4d3Z/+Hd2f/v7ev/8PDw/z8/
P/8AAAD4AQEBVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMeHh7//Pz8/+7s6v/m4t//5uLf/+bi3//m49//5uLf/+bi3//m49//5uLf/+bi
3//m49//5uLf/+bi3//l4t7/5OHd/+Pf2//h3dj/3tnV/9rUz//Vzsj/xLqv/+Hb1v/x8O7/4d3Z/+/t
6//s7Oz/QEBA/wAAAPkBAQFXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcVFRX/9vb2//Ty8f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Th
3f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Tg3P/j39v/4t3Z/9/b1//d2NP/2dPO/9PNxv/MxLv/ua6i/97Y
0//y8O7/7+3r/+7u7v85OTn/AAAA+QEBAVgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIBAQH/wcHB//39/f/r6Ob/49/c/+Pf
3P/j39z/49/c/+Pf3P/j39z/49/c/+Pf3P/j39v/4t7b/+Hd2f/g3Nj/3tnV/9vW0f/X0sz/0szE/8vC
uv/Atq3/raCT/9vWz//7+/v/7Ozs/zk5Of8AAAD4AQEBWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAADqOzs7//T0
9P/+/f3/9PPx/+7r6f/t6+j/7evo/+3r6P/t6+j/7evo/+3r6P/t6uf/6+nm/+rn5P/o5eH/5eHd/+Hc
2P/b1tD/1M3F/8nAt/+7sKX/ppiK/9vVzv/s7Oz/Ojo6/wAAAPgBAQFYAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABbAAAA/EJCQv/a2tr//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/Pz/+/r6//n4
9v/29PL/8e/s/+vo5P/j3tn/2NHJ/8nAtf+3q57/oZGA/8rEvf85OTn/AAAA+AAAAFkAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEEBAT/MjIy/0dHR/9HR0f/R0dH/0dHR/9HR0f/R0dH/0ZG
Rv9GRkb/RUVF/0VERP9EQ0L/QkFA/0A/Pv89PDr/Ojc0/zUyL/8vKyf/KSQf/xoYF/8AAAD4AQEBWAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvQAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
AMsAAABXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////yBP8AAAAA//IE/AAAAAA/8gT8AAAAAD/yBPgA
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgA
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAA/yBPgAAAAAD/IE+AAAAAAH8gT4AAAAAAfyBPgA
AAAAB/IE+AAAAAAH8gT4AAAAAA/yBPgAAAAAH/IE+AAAAAA/8gT4AAAAA//yBPgAAAAH//IE+AAAAA//
8gT4AAAAH//yBPgAAAA///IE/AAAAH//8gT8AAAA///yBP8AAAH///IE////////8gQoAAAAIAAAAEAA
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAMgAA
AEIAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
AEQAAABEAAAAQgAAADIAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFgAA
AIgLCwrcJSUk7CopKO4qKSjuKiko7iopKO4qKSjuKiko7iopKO4pKSjuKSko7ikpKO4pKSjuKSko7ikp
KO4pKSjuKSko7ikpKO4lJSTsCwsK3AAAAIgAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAQFBQWxUE9N/tXRzv/m4+D/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+bj4P/U0c7/UE9N/gUFBbEAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAALywsK/rCv7z/8vHv//n4+P/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6
+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+fj4//Lx7//Cv7v/LCwr+gAAAC8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAABnWVdW/+ro5v/+/v7//v7+//39/f/7+/v//f39//39/f/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/+ro5v9ZV1b/AAAAZwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1eXVv/7+7s//7+/v/+/v7/9/f3/8bGxv+0tLT/wMDA/87O
zv/Z2dn/7u7u//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/8O7s/15d
W/8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbV9eXf/w7u3//f39//39/f/7+/v/ysvN/73N
3f+dssb/ipai/5CUl/+enZ3/xcXF//Pz8//9/fz//f39//39/f/9/f3//f39//39/f/9/f3//f39//39
/f/w7u3/X15c/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtX15d//Du7f/9/f3//f39//39
/f/x8/b/1+Xz/8Ta7/+Bud3/SrDT/3aks/+hoaL/v7+//+jo6P/9/f3//f39//39/f/9/f3//f39//39
/f/9/f3//f39//Hv7f9fXl3/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1gXl3/8e/t//38
/P/9/Pz//fz8//38/P/X5fP/rd/1/xLP/P8A0/7/DMb3/2Cxyv+sra3/s7Oz/9nZ2f/09PT//fz8//38
/P/9/Pz//fz8//38/P/9/Pz/8e/u/2BeXf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWBf
Xv/y8O7//Pz8//z8/P/8/Pz//Pz8/9rr9v9G1Pj/AMv+/wDQ/v8A0v7/DMT3/3y0yP+1trb/v7+//9DQ
0P/x8fH//Pv7//z8/P/8/Pz//Pz8//z8/P/y8O7/YF9e/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABtYWBe//Lx7v/7+/r/+/v7//v7+v/7+/v/5/b6/0zW/P8A0P7/AM7+/wDT/v8A0/7/DsL4/228
1v/Cw8P/ysrK/9TU1P/n5+b/+Pj3//v7+v/7+/r/+/v7//Lx7/9hYF7/AAAAbQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAG1hYF//8vHv//r6+v/6+vr/+vr6//r6+v/5+vr/x+76/xjN/f8A0f7/ANH+/wDV
/v8A0P7/DsH5/4zD2P/Nzs7/1tbW/97d3f/s7Ov/9vb2//r6+v/6+vr/8vHv/2FgX/8AAABtAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAbWJhYP/z8e//+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/xe36/zPQ
/f8A0f7/ANP+/wDY/v8A0v7/D7/6/3vI5f/b3Nv/4+Li/+zr6//z8/P/+vn5//r5+f/z8fD/YmFg/wAA
AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtYmFg//Px8P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
+P/3+Pj/xO35/xjL/f8A0P7/ANb+/wDb/v8Azf7/EL37/53T6P/m5ub/8O/v//f29v/5+fj/+fn4//Py
8P9iYWD/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1iYmH/8/Lw//j39v/49/b/+Pf2//j3
9v/49/b/+Pf2//j39v/49/b/xOv4/zLN/P8Az/7/ANf+/wDe/v8A0P7/Ebr8/4rU8//09PP/+Pf2//j3
9v/49/b/8/Hw/2JhYf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWNiYf/z8vD/9/b1//f2
9f/39vX/9/b1//f29f/39vX/9/b1//f29f/19fX/xOr3/xfI/f8Az/7/ANz+/wDg/v8Ayv7/Erj8/6zh
9//29vX/9/b1//b19P/x8O7/YmFg/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZGJi//Ty
8f/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/w+n2/zLK/P8Azv7/ANz+/wDj
/v8Azv7/GbT6/6fT5v/u7Or/9PPx/+/t6/9hX1//AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AG1kY2L/8/Lx//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/z8/L/wuj0/xjF
/f8AzP7/AOH+/wXm/f93yOD/qbS0/8G5r//p5uP/6+jm/19eXP8AAABtAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAbWRkZP/08vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lw//Py
8f/z8vD/wObz/zHG+/8Oy/n/jt7n/+fj4P/X0cz/ua+l/7mwp//f2tX/W1lX/wAAAG0AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAABtZWRk//Ty8f/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
7//y8e//8vHv//Lx7//w8O//v+Xy/1O84P/AxMH/5ODd/+fj4P/Frsf/i02r/7WXuv9WU1D/AAAAbQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1lZWT/9PLx//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/0MvF/6+kmf/Mxb7/y67W/4QR1P9wAMH/bhOt/0Ec
V/8AAACmAAAAEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWVlZf/08vH/7+3r/+/t6//v7ev/7+3r/+/t
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+7t6//o5eL/wbiv/62bof+NO8L/egDS/3oA
0v9uAL3/XwCk/w4AGfEAAABRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZmZl//Py8f/t6+n/7evp/+3r
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+j/6+fl/9zV0P/c1tD/xLLC/4g6
uv9xAMH/eQDR/4IA3/98ANT/KwBK/wAAAHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1mZmX/8/Lw/+zq
5//s6ef/7Orn/+zp5//s6uf/7Onn/+zq5//s6ef/7Orn/+zp5//s6uf/6+nn/+rn5f/a1M7/5+Le/+7r
6f/m4uD/0LzW/34gvv9zAMX/gADc/3gAzf8RAB30AAAAVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWdm
Zv/z8fD/6ufl/+rn5P/q5+X/6ufk/+rn5f/q5+T/6ufl/+rn5P/q5+X/6ufk/+rn5P/o5eL/49/b/9nT
zP/x7+7/4d3Z/+Hd2f/k4N3/yLfR/10ajP9NAIP/GgAt+wAAAIIAAAAMAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABtZ2dn//Px8P/p5uP/6OXi/+nm4//o5eL/6ebj/+jl4v/p5uP/6OXi/+nm4//o5eL/5+Tg/+Th
3v/d19L/3tjS/+zq5//h3dn/5ODd/+7t7P9YWFj+CgcM5QQACNEAAACCAAAADQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAG1oaGf/8/Hv/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPf/+Th
3v/i3tr/3tnV/9PMxv/Z08z/7Onn/+Tg3f/b2tn/WFhY/gAAAJUBAQETAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAZ2JiYv/08vH/5eHd/+Th3f/l4d3/5OHd/+Xh3f/k4d3/5eHd/+Tg
3f/j39v/4d3Z/93Y0//X0cv/yMC3/9PMxP/v7ev/7evq/1RUVP4HBweyAQEBEwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvMTEx+tjY2P/u6+r/5+Ph/+bj4P/m4+D/5uPg/+bj
4P/l4t7/5ODd/+Hd2f/e2dT/1tHK/83FvP+3rKH/ysK5/97e3v9UVFT9AAAAlQEBARQAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBgaxWlpa/uzs7P/5+Pf/+Pf2//j3
9v/49/b/9/f2//f19P/08/H/7+3q/+nm4v/d19H/zcW7/7Gklv/At63/VFRU/QYGBrIBAQEUAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYAAACIDAwM3Coq
KuwvLy/uLy8v7i8vL+4uLi7uLi4u7i4tLe4sLCvuKyop7igmJe4kIiDuHhsY7hQSEe4AAACVAQEBFAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAcAAAAyAAAAQgAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
ABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgAAB/wAAAP4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAH4AAAP+AAAH/gAAD/4AAB//AAA//4AAf/KAAAABgA
AAAwAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAA
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGIAAAAoAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG5APj38i4mG/5COi/+Qjov/kI6L/5COi/+Qjov/kI6L/5CO
i/+Qjov/kI6L/5COi/+Qjov/kI6L/4uJh/8/Pj38AAAAbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHTg3
N/rm4+D/9vX0//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//b1
9P/l4+D/ODc2+gAAAB0AAAAAAAAAAAAAAAAAAAAAAAAATnx6eP/39vb//v7+//39/f/6+vr//f39//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/39vb/fHp4/wAAAE4AAAAAAAAAAAAA
AAAAAAAAAAAAUoB/ff/5+fj//v79//T09P+foqb/m6St/6SkpP+0tLT/5eXl//7+/f/+/v3//v79//7+
/f/+/v3//v79//7+/f/6+fj/gH99/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoF/fv/5+Pj//f39//39
/f/g6PH/xNnv/3mx1f9kprz/oKGh/8zMzP/5+fn//f39//39/f/9/f3//f39//39/f/5+Pj/gX9+/wAA
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoKAf//5+Pf//fz8//38/P/u8/j/qNz0/wrO/f8A0f7/RLbZ/62u
rv/AwMD/7e3t//38/P/9/Pz//fz8//38/P/5+Pj/goB//wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoOB
gP/5+Pf//Pz7//z8+//7+/v/UNX5/wDN/v8A0f7/AM/+/0u63/+7vL3/x8fH/+Pj4//6+vn//Pz7//z8
+//5+Pf/g4GA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoSDgf/4+Pf/+/r6//v6+v/7+vr/w+37/w7O
/f8A0P7/ANX+/wDM/v9Rv+X/zM3N/9fX1//l5OT/9/b2//v6+v/49/f/hIOB/wAAAFIAAAAAAAAAAAAA
AAAAAAAAAAAAUoWEgv/49/b/+vn5//r5+f/6+fn/+vn5/8Hs+v8Ozf3/ANP+/wDY/v8Ayf7/V8Ps/9zd
3f/o5+f/8/Ly//r5+f/49/b/hYSC/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoWEg//39vX/+fj3//n4
9//5+Pf/+fj3//n49//A6/n/Dsv9/wDU/v8A3P7/AMb+/1/I8v/s7e3/9/f2//n49//39vX/hYSD/wAA
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoaFhP/29fT/9/b1//f29f/39vX/9/b1//f29f/39vX/v+n3/w3J
/f8A1v7/AOD+/wDD/v9lzPn/9vb1//f29f/19PP/hYSD/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoeG
hf/19PP/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0/77o9v8Ox/3/ANj+/wDj/v8Av/7/h8bi/+3r
6P/y8O7/g4KA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoiHh//08/L/9PPy//Tz8v/08/L/9PPy//Tz
8v/08/L/9PPx//Tz8v+85vT/DsT9/wLa/f+P5Ov/y8S9/7Sqnv/j39v/f316/wAAAFIAAAAAAAAAAAAA
AAAAAAAAAAAAUomIh//z8fD/8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//u+Ty/1q8
3P/c19L/5+Pg/7+nwP+dca3/d3Ju/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUomJiP/y8O7/8e/t//Hv
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t/8vFvf+4rqT/x6nS/4AK1P9pALb/UBpy/wAA
AJsAAAAAAAAAAAAAAAAAAAAAAAAAUoqKif/w7uz/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
6v/u7Or/7uvp/+Tg3P+9tKn/gS6y/3cAzP97ANT/dADH/xkAK/wAAAAUAAAAAAAAAAAAAAAAAAAAUouK
iv/u7Or/7Oro/+zq6P/s6uj/7Oro/+zq6P/s6uj/7Oro/+zq6P/r6eb/4NzX/+Xh3P/t6+n/z7nX/3cS
vf97ANP/fADV/xEAHfMAAAAMAAAAAAAAAAAAAAAAAAAAUoyLi//t6uj/6ufk/+rn5P/q5+T/6ufk/+rn
5P/q5+T/6ufk/+nm4//n4+D/29XO/+zq6P/h3dn/5OHd/66cuf9AAG7/GwAu+gAAAFcAAAAAAAAAAAAA
AAAAAAAAAAAAUoyMjP/r6Ob/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5uPg/+Th3f/f29b/2dLM/+nm
4//k4d3/xMPD/xAQENIAAABlAAAALgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATomJif/r6OX/5eHe/+Xh
3v/l4d7/5eHe/+Xh3v/k4N3/4t7a/93Y0//TzMb/z8a+/+zq6P/AwL//EBAQ0gEBARYAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAHT8/P/r29fX/6ufk/+jl4v/o5eL/6OXi/+fk4P/k4d3/39vW/9bQ
yf/DurD/wriu/8PDw/8ODg7SAQEBFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AG5ISEj8nZ2d/6Kiov+ioqL/oqKi/6CgoP+enJv/l5WT/4yIhP95cmr/a2Rc/w4ODtIAAAAWAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAAAGYAAABmAAAAZgAA
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAA
D0HgAAdBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAA
A0HAAAFBwAABQcAAA0HAAAdBwAAfQcAAP0HgAH9B8AD/QSgAAAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkSEhGPHx8emR8fHpkfHx6ZHx8emR8fHpkfHx6ZHx8emR8f
HpkSEhGPAAAAKQAAAAAAAAAAAAAAAAAAAA1RUE7q6ufl//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
7f/x7+3/6efl/1FQTuoAAAANAAAAAAAAAAAAAAA1pKOh//7+/v/u7u7/29vb/+np6f/5+fn//v7+//7+
/v/+/v7//v7+//7+/v+ko6H/AAAANQAAAAAAAAAAAAAANqimpf/9/f3/7e3u/73P4f95pbr/nqqu/+bm
5f/9/f3//f39//39/f/9/f3/qKal/wAAADYAAAAAAAAAAAAAADapp6b//Pz8//z8/P+p4PX/BM/9/x7D
7f+ks7j/19fX//r5+f/8/Pz//Pz8/6mnpv8AAAA2AAAAAAAAAAAAAAA2qqin//v7+v/7+/r/ve37/wbP
/f8A0/7/IsTx/7nIzf/c29v/9vX1//v7+v+qqKf/AAAANgAAAAAAAAAAAAAANqqpqP/5+fj/+fn4//n5
+P+t6Pr/BtD9/wDX/v8nxPb/0N7j//Hx8f/5+fj/qqmo/wAAADYAAAAAAAAAAAAAADarqqn/+Pf2//j3
9v/49/b/+Pf2/6zm+P8Fz/3/ANr+/yvE+v/j8PX/9/b1/6qpqP8AAAA2AAAAAAAAAAAAAAA2rKqq//b1
8//29fP/9vXz//b18//29fP/quT2/wbP/f8B3v3/eMHd/+Pg2/+mpKP/AAAANgAAAAAAAAAAAAAANqyr
qv/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P+o4PT/bMrg/+Le2v+wlq//kYeN/wAAADYAAAAAAAAAAAAA
ADasrKv/8O7s//Du7P/w7uz/8O7s//Du7P/w7uz/8O7s/8rDvP+0kr7/egTO/18Lmf8EAAh/AAAAAAAA
AAAAAAA2rayr/+3q6P/t6uj/7ero/+3q6P/t6uj/7Oro/+fj4P/j3tr/waPM/3cIxf99ANf/DwAZsAAA
AAAAAAAAAAAANq2sq//p5uP/6ebj/+nm4//p5uP/6ebj/+fk4f/e2NP/6OXi/+bi3/9iTHD4GwAu0wAA
ACcAAAAAAAAAAAAAADWsq6v/5eLf/+Xi3//l4t//5eLe/+Pg3P/d2NP/0svD/+vo5v9kY2PrAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAANWlpa6u/t6//v7ev/7+3r/+3q6P/m4t7/08zF/72yp/9jY2PrAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkUFBSPIyMjmSMjI5kiIiKZISAgmRwbGpkTEQ+ZAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAAAwAOsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYAB
rEGAAaxBgAGsQYAHrEGAD6xBwB+sQQ==
</value>
</data>
</root>

22
_FRReporting/Formulare/frmEditWhere.vb
View File

@@ -1,22 +0,0 @@
Public Class frmEditWhere
Dim m_sql As String
Property sql() As String
Get
Return m_sql
End Get
Set(ByVal value As String)
m_sql = value
End Set
End Property
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.sql = Me.Editor.Text
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub frmEditWhere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Editor.Text = Me.sql
End Sub
End Class

37
_FRReporting/Formulare/frmViewer.Designer.vb generated
View File

@@ -1,37 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmViewer
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.SuspendLayout()
'
'frmViewer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 262)
Me.Name = "frmViewer"
Me.Text = "frmViewer"
Me.ResumeLayout(False)
End Sub
End Class

120
_FRReporting/Formulare/frmViewer.resx
View File

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

3
_FRReporting/Formulare/frmViewer.vb
View File

@@ -1,3 +0,0 @@
Public Class frmViewer
End Class

37
_FRReporting/Formulare/sample.Designer.vb generated
View File

@@ -1,37 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class sample
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.SuspendLayout()
'
'sample
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(824, 591)
Me.Name = "sample"
Me.Text = "sample"
Me.ResumeLayout(False)
End Sub
End Class

120
_FRReporting/Formulare/sample.resx
View File

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

3
_FRReporting/Formulare/sample.vb
View File

@@ -1,3 +0,0 @@
Public Class sample
End Class

34
_FRReporting/Klassen/Crypto.vb
View File

@@ -1,34 +0,0 @@
Module Crypto
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
End Module

11
_FRReporting/Klassen/Globals.vb
View File

@@ -1,11 +0,0 @@
Module Globals
Public Spaltendaten As New DataTable
Public sConnectionString As String
Public conn As New DB.clsConnectionProvider
Public ConnectionFileName As String = ""
Public Mitarbeiternr As Integer
Public TmpFilepath As String
Public SecurityDaten As New DataSet
End Module

425
_FRReporting/Klassen/MyDocMgmt.vb
View File

@@ -1,425 +0,0 @@
Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.Diagnostics
'
Namespace Utils
''' <summary>
''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
''' </summary>
''' <remarks>
''' Es werden folgende Datebanktabellen berücksichtigt:
''' <list type="bullet">
''' <item>
''' <description>Dokument Attribut DocImage</description></item>
''' <item>
''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der
''' Vertragsübersicht|Vertragselemente</description></item></list>
''' </remarks>
''' <includesource>yes</includesource>
Public Class MyDocMgmt
''' <summary>
''' Grid-Layoutfile speichern
''' </summary>
''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
Dim filename As String = Globals.TmpFilepath(+Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt")
c1data.SaveLayout(filename)
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "profil")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
' Neues Profil sepeichern
myRow = ds.Tables(0).NewRow
myRow.Item(1) = Globals.Mitarbeiternr
myRow.Item(2) = ""
Select Case GridNo
Case 1
myRow.Item(3) = mydata
End Select
ds.Tables(0).Rows.Add(myRow)
DA.Update(ds, "profil")
Else
myRow = ds.Tables(0).Rows(0)
Select Case GridNo
Case 1
myRow.Item(3) = mydata
End Select
DA.Update(ds, "profil")
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
End Function
Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
'Exit Function
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.Fill(ds, "docs")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
Select Case GridNo
Case 1
MyData = myRow.Item(3)
End Select
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Return True
Catch ex As Exception
Return False
End Try
CB = Nothing
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Return True
End Function
Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
Dim filename As String = Globals.TmpFilepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
If File.Exists(filename) Then
c1data.LoadLayout(filename)
Return True
End If
If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
c1data.LoadLayout(filename)
Return True
End If
Return False
End Function
''' <summary>
''' Dokument in der Tabelle Dokument speichern
''' </summary>
''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
''' <param name="Filename">Zu speichender Dateiname</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(Dokumentnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "Dokument")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
Return False
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(16) = mydata
DA.Update(ds, "Dokument")
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
End Function
''' <summary>
''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
''' </summary>
''' <param name="DokumentNr"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
Dim Filename As String = Globals.TmpFilepath
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Select Case myRow.Item("Speichertypnr")
Case 1
Dim MyData() As Byte
MyData = myRow.Item(16)
Dim K As Long
K = UBound(MyData)
Filename = Filename + myRow.Item(6)
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Case 2
Filename = myRow.Item("OriginalFilename_incl_Path")
Case 3
Filename = myRow.Item("OriginalFilename_incl_Path")
Case Else
Filename = myRow.Item("OriginalFilename_incl_Path")
End Select
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return ""
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Filename
End Function
Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
Dim tmpfilename As String = Me.Get_Dokument(Dokumentnr)
If tmpfilename <> "" Then
OpenSystemFile(tmpfilename)
Return True
End If
Return False
End Function
Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
If Len(sFileName) > 0 Then
System.Diagnostics.Process.Start(sFileName)
'
' ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
Return True
End If
End Function
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
Dim filename As String = AuswertungName
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
' Neues Datei speichern
myRow = ds.Tables(0).NewRow
myRow.Item(0) = Auswertungnr
myRow.Item(1) = AuswertungName
myRow.Item(2) = RptName(AuswertungName)
myRow.Item(3) = mydata
myRow.Item(4) = Now
myRow.Item(5) = Now
myRow.Item(6) = Globals.Mitarbeiternr
ds.Tables(0).Rows.Add(myRow)
DA.Update(ds, "RptFile")
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(1) = AuswertungName
myRow.Item(2) = RptName(AuswertungName)
myRow.Item(3) = mydata
myRow.Item(5) = Now
myRow.Item(6) = Globals.Mitarbeiternr
DA.Update(ds, "RptFile")
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return RptName(AuswertungName)
End Function
Public Function RptName(ByVal path As String) As String
Dim i As Integer
Dim file As String = path
i = InStrRev(file.Trim, "\")
If i = 0 Then
Return file.Trim
Else
Return Right(file.Trim, Len(file.Trim) - i)
End If
End Function
Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
Dim connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim Filename As String = ""
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
Filename = Globals.TmpFilepath + "\" + myRow.Item(2).ToString
If fname <> "" Then
Filename = fname
End If
MyData = myRow.Item(3)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
Return ""
End Try
CB = Nothing
ds = Nothing
DA = Nothing
connection.Close()
connection = Nothing
Return Filename
End Function
Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
Dim filename As String = iFilename
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
' Neues Datei speichern
myRow = ds.Tables(0).NewRow
myRow.Item(0) = Applikationnr
myRow.Item(1) = mydata
' myRow.Item(4) = Now
' myRow.Item(5) = Now
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
ds.Tables(0).Rows.Add(myRow)
DA.Update(ds, "RptFile")
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(1) = mydata
' myRow.Item(2) = RptName(AuswertungName)
' myRow.Item(3) = mydata
' myRow.Item(5) = Now
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
DA.Update(ds, "RptFile")
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Function
Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
Dim connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim Filename As String = ""
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
Filename = Globals.TmpFilepath + "\architekturfile.xml"
If fname <> "" Then
Filename = fname
End If
MyData = myRow.Item(1)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
Return ""
End Try
CB = Nothing
ds = Nothing
DA = Nothing
connection.Close()
connection = Nothing
Return Filename
End Function
End Class
End Namespace

816
_FRReporting/Klassen/MySecurity.vb
View File

@@ -1,816 +0,0 @@
Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.Drawing
Namespace Utils
''' <summary>
''' Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen
''' </summary>
''' <remarks></remarks>
Public Class MySecurity
Dim SecurityData As DataSet = Globals.SecurityDaten
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim IntForm As Object
Dim ctlcol As New Collection
Dim formname As String = ""
''' <summary>
''' Formularsecurity setzen
''' </summary>
''' <param name="f">Aktuelles Formular</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Set_Form_Security(ByRef f As Object)
IntForm = f
formname = f.Name
'Load form DB
Load_Data(f.Name)
'Load FormObjects
Me.ctlcol.Clear()
formname = f.Name
For Each ctl As Control In f.Controls
Objectanalysis(ctl)
' AddHandler ctl.HelpRequested, AddressOf Object_MouseDown
'ctl.ContextMenuStrip = Globals.TTContextMenuStrip
'AddHandler ctl.KeyDown, AddressOf Object_MouseDown
Next
Set_Security()
End Function
Public Function Set_Menu_Security(ByRef f As Form, ByRef menu As ToolStripMenuItem, ByVal Menuname As String)
IntForm = f
formname = f.Name
Load_Data(f.Name)
Me.ctlcol.Clear()
formname = f.Name
Dim ctl As Object = menu
Dim typ As System.Type = ctl.GetType
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, Menuname, ctl.Name))
Set_Security()
'If Globals.Set_ToolTips = True Then
' tt.Edit_ToolTips(f, ctlcol)
'Else
' tt.Set_ToolTips(f)
'End If
End Function
Public Function Set_Form_Readonly(ByRef f As Form)
IntForm = f
Me.formname = f.Name
Load_Data(f.Name)
Me.ctlcol.Clear()
For Each ctl As Control In f.Controls
Objectanalysis_readonly(ctl)
Next
End Function
Public Function Set_Form_Default(ByRef f As Form)
IntForm = f
Me.formname = f.Name
Load_Data(f.Name)
Me.ctlcol.Clear()
For Each ctl As Control In f.Controls
Objectanalysis_default(ctl)
Next
End Function
Private Function Objectanalysis_readonly(ByRef ctl As Object) As String
Dim typ As System.Type = ctl.GetType
Select Case LCase(typ.Name)
Case "splitcontainer"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmpsplit As SplitContainer = ctl
For Each ctrl As Object In tmpsplit.Panel1.Controls
Objectanalysis_readonly(ctrl)
Next
For Each ctrl As Object In tmpsplit.Panel2.Controls
Objectanalysis_readonly(ctrl)
Next
Case "tabcontrol", "clsmytabcontrol"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabcontrol As TabControl = ctl
For Each ctl In tmptabcontrol.TabPages
Objectanalysis_readonly(ctl)
Next
Case "tabpage"
Dim tmptabpage As TabPage = ctl
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
For Each ctl In tmptabpage.Controls
Objectanalysis_readonly(ctl)
Next
Case "groupbox"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabpage As GroupBox = ctl
For Each ctl In tmptabpage.Controls
Objectanalysis_readonly(ctl)
Next
Case "panel"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmppanel As Panel = ctl
For Each ctl In tmppanel.Controls
Objectanalysis_readonly(ctl)
Next
Case "textbox"
Dim x As TextBox = ctl
x.BackColor = Color.LightGray
x.ForeColor = Color.Black
x.ReadOnly = True
Case "maskedtextbox"
Dim x As MaskedTextBox = ctl
x.BackColor = Color.LightGray
x.ForeColor = Color.Black
x.ReadOnly = True
Case "combobox"
Dim x As ComboBox = ctl
x.Enabled = False
x.BackColor = Color.LightGray
x.ForeColor = Color.Black
Case "checkbox"
Dim x As CheckBox = ctl
x.Enabled = False
Case "radiobutton"
Dim x As RadioButton = ctl
x.Enabled = False
Case "comboboxtree"
Dim x As Object = ctl
x.enabled = False
x.BackColor = Color.LightGray
x.ForeColor = Color.Black
Case "richtextbox"
Dim x As Object = ctl
x.BackColor = Color.LightGray
x.ForeColor = Color.Black
x.ReadOnly = True
Case "button"
Dim x As Button = ctl
x.Enabled = False
Case "listbox"
Dim x As Object = ctl
ctl.enabled = False
Case "checkedlistbox"
Dim x As Object = ctl
ctl.enabled = False
Case "datetimepicker"
Dim x As Object = ctl
ctl.enabled = False
Case Else
End Select
End Function
Private Function Objectanalysis_default(ByRef ctl As Object) As String
Dim typ As System.Type = ctl.GetType
Select Case LCase(typ.Name)
Case "splitcontainer"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmpsplit As SplitContainer = ctl
For Each ctrl As Object In tmpsplit.Panel1.Controls
Objectanalysis_default(ctrl)
Next
For Each ctrl As Object In tmpsplit.Panel2.Controls
Objectanalysis_default(ctrl)
Next
Case "tabcontrol", "clsmytabcontrol"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabcontrol As TabControl = ctl
For Each ctl In tmptabcontrol.TabPages
Objectanalysis_default(ctl)
Next
Case "tabpage"
Dim tmptabpage As TabPage = ctl
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
For Each ctl In tmptabpage.Controls
Objectanalysis_default(ctl)
Next
Case "groupbox"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabpage As GroupBox = ctl
For Each ctl In tmptabpage.Controls
Objectanalysis_default(ctl)
Next
Case "panel"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmppanel As Panel = ctl
For Each ctl In tmppanel.Controls
Objectanalysis_default(ctl)
Next
Case "textbox"
Dim x As TextBox = ctl
x.BackColor = Color.White
x.ForeColor = Color.Black
x.Enabled = True
Case "maskedtextbox"
Dim x As MaskedTextBox = ctl
x.BackColor = Color.White
x.ForeColor = Color.Black
x.Enabled = True
Case "combobox"
Dim x As ComboBox = ctl
x.Enabled = True
x.BackColor = Color.White
x.ForeColor = Color.Black
Case "checkbox"
Dim x As CheckBox = ctl
x.Enabled = True
Case "radiobutton"
Dim x As RadioButton = ctl
x.Enabled = True
Case "comboboxtree"
Dim x As Object = ctl
x.enabled = True
x.BackColor = Color.White
x.ForeColor = Color.Black
Case "richtextbox"
Dim x As Object = ctl
x.BackColor = Color.White
x.ForeColor = Color.Black
x.readonly = True
Case "button"
Dim x As Button = ctl
x.Enabled = True
Case "listbox"
Dim x As Object = ctl
ctl.enabled = True
Case "checkedlistbox"
Dim x As Object = ctl
ctl.enabled = True
Case "datetimepicker"
Dim x As Object = ctl
ctl.enabled = True
Case Else
End Select
End Function
''' <summary>
''' Daten ab Datenbank laden
''' </summary>
''' <remarks></remarks>
Private Sub Load_Data(ByVal Formname As String)
Try
'xxx
If SecurityData.Tables.Count > 0 Then
SecurityData.Tables.Clear()
End If
' Exit Sub
Catch ex As Exception
End Try
SecurityData.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "dbo.my_security_get_data"
sqlcmd.Parameters.Add("@FormName", SqlDbType.VarChar, 255)
sqlcmd.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
sqlcmd.Parameters(0).Value = Formname
sqlcmd.Parameters(1).Value = Globals.Mitarbeiternr
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(SecurityData, "SecurityTable")
Globals.SecurityDaten.Tables.Add(SecurityData.Tables(0).Copy)
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
''' <summary>
''' Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt
''' </summary>
''' <remarks></remarks>
Private Sub Set_Security()
Dim i As Integer
For i = 0 To Me.SecurityData.Tables(0).Rows.Count - 1
Dim SecurityObject As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObject")
Dim SecurityObjectitem As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObjectItem")
Dim read_only As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("readonly")
Dim invisible As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("invisible")
Dim ii As Integer
For ii = 1 To ctlcol.Count
Dim secobj As MyFormControls = ctlcol(ii)
If secobj.MySecurityObject = SecurityObject And secobj.MySecurityObjectItem = SecurityObjectitem Then
Set_Preferences(secobj.MyControl, read_only, invisible, SecurityObjectitem)
End If
Next
Next
End Sub
''' <summary>
''' Security-Einstellungen setzen
''' </summary>
''' <param name="obj">Betroffenes Objeckt (Menuitem, Conrol usw.)</param>
''' <param name="read_only">Readonly ja/nein</param>
''' <param name="invisible">Sichtbar ja/nein</param>
''' <param name="SecurityObjectItem">Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet</param>
''' <remarks></remarks>
Private Sub Set_Preferences(ByRef obj As Object, ByVal read_only As Boolean, ByVal invisible As Boolean, ByVal SecurityObjectItem As String)
Dim objtype As System.Type = obj.GetType
Select Case LCase(objtype.Name)
Case "button"
Dim ctl As Button = obj
If read_only Then ctl.Enabled = False
If invisible Then
ctl.Visible = False
ctl.Enabled = False
End If
Case "toolstripmenuitem"
Dim ctl As ToolStripMenuItem = obj
If read_only Then ctl.Enabled = False
If invisible Then
ctl.Visible = False
ctl.Enabled = False
End If
Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker"
If read_only Then obj.Enabled = False
If invisible Then obj.Visible = False
Case "richtextbox"
If read_only Then obj.Enabled = False
Try
obj.readonly = True
obj.enabled = True
Catch ex As Exception
End Try
If invisible Then obj.Visible = False
Case "tabpage"
If invisible Then
Dim tbp As TabPage = obj
For Each x As MyFormControls In Me.ctlcol
If x.MySecurityObject = tbp.Parent.Name Then
Dim tb As TabControl = x.MyControl
tb.TabPages.Remove(tbp)
Exit Sub
End If
Next
End If
'20100406 - TabPageHandling
If read_only Then
'obj.enabled = False
For Each CTLX As Control In obj.CONTROLS
Me.Objectanalysis_readonly(CTLX)
Next
End If
Case "c1truedbgrid"
Dim ctl As C1TrueDBGrid = obj
If SecurityObjectItem = "" Then
If read_only Then ctl.Enabled = False
If invisible Then obj.Visible = False
Else
If read_only Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Locked = True
If invisible Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Visible = False
End If
End Select
End Sub
#Region "Read Objects from Form and save to Database"
Dim tmpmenuname As String
''' <summary>
''' Alle Controls des Formulars zusammensuchen und auf der DB speichern
''' </summary>
''' <param name="f">Betroffenes Formular</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function List_Form_Controls(ByRef f As Object)
Me.ctlcol.Clear()
formname = f.Name
For Each ctl As Control In f.Controls
Objectanalysis(ctl)
Next
Dim i As Integer
For i = 1 To ctlcol.Count
Dim secobj As MyFormControls = ctlcol(i)
secobj.Write_Object_to_DB()
Next
End Function
''' <summary>
''' Sämtliche Controls vom Formular auslesen
''' </summary>
''' <param name="ctl"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function Objectanalysis(ByRef ctl As Object) As String
Dim typ As System.Type = ctl.GetType
Select Case LCase(typ.Name)
Case "menustrip"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
tmpmenuname = ctl.name
ReadMenu(ctl)
Case "contextmenustrip"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
tmpmenuname = ctl.name
ReadContextMenu(ctl)
Case "toolstrip"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptoolstrop As ToolStrip = ctl
Try
Dim ic As Integer
For ic = 0 To tmptoolstrop.Items.Count - 1
Try
Dim subobj As ToolStripButton
subobj = tmptoolstrop.Items(ic)
ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
Catch ex As Exception
End Try
Next
'For Each subobj As ToolStripButton In tmptoolstrop.Items
'ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
'Next
Catch
End Try
Case "splitcontainer"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmpsplit As SplitContainer = ctl
For Each ctrl As Object In tmpsplit.Panel1.Controls
Objectanalysis(ctrl)
Next
For Each ctrl As Object In tmpsplit.Panel2.Controls
Objectanalysis(ctrl)
Next
Case "tabcontrol", "clsmytabcontrol"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabcontrol As TabControl = ctl
For Each ctl In tmptabcontrol.TabPages
Objectanalysis(ctl)
Next
Case "tabpage"
Dim tmptabpage As TabPage = ctl
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
For Each ctl In tmptabpage.Controls
Objectanalysis(ctl)
Next
Case "groupbox"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmptabpage As GroupBox = ctl
For Each ctl In tmptabpage.Controls
Objectanalysis(ctl)
Next
Case "panel"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim tmppanel As Panel = ctl
For Each ctl In tmppanel.Controls
Objectanalysis(ctl)
Next
Case "c1truedbgrid"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim ctrl As C1TrueDBGrid = ctl
Dim i As Integer
For i = 0 To ctrl.Columns.Count - 1
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ctrl.Columns(i).Caption, 0, ctrl.Columns(i).Caption))
Next
Try
If ctrl.ContextMenuStrip.Name <> "" Then
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
Objectanalysis(x)
End If
Catch ex As Exception
End Try
For Each xctl As Object In ctrl.Controls
Objectanalysis(xctl)
Next
Case "treeview"
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
Dim ctrl As TreeView = ctl
Try
If ctrl.ContextMenuStrip.Name <> "" Then
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
Objectanalysis(x)
End If
Catch ex As Exception
End Try
Case Else
If ctl.name = "TreeStruktur" Then
End If
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
End Select
End Function
''' <summary>
''' Auslesen von MenuItems
''' </summary>
''' <param name="x"></param>
''' <returns></returns>
''' <remarks></remarks>
'''
Dim level As Integer = 0
Private Function ReadMenu(ByRef x As Object)
Dim tmpmnu As MenuStrip = x
level = 0
For Each xx As Object In tmpmnu.Items
Dim objtype As System.Type = xx.GetType
If LCase(objtype.Name) = "toolstripmenuitem" Then
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
get_all_menus(xx)
End If
Next
End Function
''' <summary>
''' Auslesen von ContextMenuItems
''' </summary>
''' <param name="x"></param>
''' <returns></returns>
''' <remarks></remarks>
'''
Private Function ReadContextMenu(ByRef x As Object)
Dim tmpmnu As ContextMenuStrip = x
level = 0
Try
For Each xx As Object In tmpmnu.Items
Dim objtype As System.Type = xx.GetType
If LCase(objtype.Name) = "toolstripmenuitem" Then
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
get_all_menus(xx)
End If
' ctlcol.Add(New MyFormControls(xx, formname, "contextmenustrip", tmpmenuname, xx.Name, level))
' get_all_menus(xx)
Next
Catch ex As Exception
End Try
End Function
''' <summary>
''' Auslesen von Menu-Subitems
''' </summary>
''' <param name="xx"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function get_all_menus(ByRef xx As ToolStripMenuItem)
level = level + 1
For Each subobj As Object In xx.DropDownItems
If LCase(subobj.GetType.Name) = "toolstripmenuitem" Then
ctlcol.Add(New MyFormControls(subobj, formname, "menustrip", tmpmenuname, subobj.Name, level))
get_all_menus(subobj)
End If
Next
level = level - 1
End Function
''' <summary>
''' Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
''' </summary>
''' <param name="securityform">Formular</param>
''' <param name="securityobjecttype">Objekttyp</param>
''' <param name="securityobject">Objektname</param>
''' <param name="securityobjectitem">Objektitem</param>
''' <returns></returns>
''' <remarks></remarks>
Private Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityform))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjecttype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobject))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjectitem))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
Finally
scmCmdToExecute.Connection.Close()
End Try
End Function
#End Region
#Region "ScreenDoku"
Public Function Print_Screen(ByRef ctl As Control)
saveasbitmap(ctl, ctl.Name)
End Function
Public Function Generate_HTML()
saveasbitmap(Me.IntForm, "testform")
'Exit Function
'Dim x As MyFormControls
'For Each x In ctlcol
' Try
' saveasbitmap(x.MyControl, x.MyFormname & "_" & x.MySecurityObject & "_" & x.MySecurityObjectItem)
' If x.MySecurityObjecttype = "ToolStrip" And x.MySecurityObjectItem = "" Then
' Dim gaga As ToolStrip = x.MyControl
' For Each c As ToolStripButton In gaga.Items
' Dim xxx As Control = CType(c, Control)
' xxx = CType(c, Control)
' saveasbitmap(xxx, "xxx")
' Next
' End If
' Catch ex As Exception
' MsgBox(ex.Message)
' End Try
'Next
End Function
Public Function saveasbitmap(ByRef ctl As Control, ByVal filename As String)
Dim g As Graphics = ctl.CreateGraphics
Dim b As New Bitmap(ctl.Width, ctl.Height)
ctl.DrawToBitmap(b, New Rectangle(0, 0, ctl.Width, ctl.Height))
'b.Save("E:\Software-Projekte\Vertragsverwaltung\Screens\" & filename & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Function
#End Region
End Class
''' <summary>
''' Klasse für ein Control-Objekt
''' </summary>
''' <remarks></remarks>
Public Class MyFormControls
Public MyControl As Object
Public MyFormname As String
Public MySecurityObjecttype As String
Public MySecurityObject As String
Public MySecurityObjectItem As String
Public MyDescription As String
Public MyLevel As Integer
''' <summary>
''' Neue Instanz erstellen
''' </summary>
''' <param name="ctl">Control-Objekt</param>
''' <param name="Formname">Betroffenes Formular</param>
''' <param name="securityobjecttype">Objekttyp</param>
''' <param name="Securityobject">Objektname</param>
''' <param name="SecurityObjectItem">Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids)</param>
''' <remarks></remarks>
Sub New(ByVal ctl As Object, ByVal Formname As String, ByVal securityobjecttype As String, ByVal Securityobject As String, ByVal SecurityObjectItem As String, Optional ByVal level As Integer = 0, Optional ByVal desc As String = "")
MyControl = ctl
MySecurityObjecttype = securityobjecttype
MyFormname = Formname
MySecurityObject = Securityobject
MySecurityObjectItem = SecurityObjectItem
If desc = "" Then
MyDescription = Get_Description(ctl)
Else
MyDescription = desc
End If
Try
MyDescription = MyDescription.Replace("&", "")
Catch ex As Exception
End Try
MyLevel = level
End Sub
Private Function Get_Description(ByRef ctl As Object) As String
Dim typ As System.Type = ctl.GetType
Select Case LCase(typ.Name)
Case "menustrip", "toolstripmenuitem", "toolstrip", "toolstripbutton", "contextmenustrip", "tabpage", "c1truedbgrid", "label"
Return ctl.Text
Case Else
Return ctl.Name
End Select
End Function
''' <summary>
''' Schreibt einen Datnsatz in die Tabelle SecurityObjects
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Write_Object_to_DB()
If Objexists() Then Exit Function
Dim sectbl As New DB.clsSecurityObject
Dim dbkey As New DB.clsMyKey_Tabelle
dbkey.cpMainConnectionProvider = Globals.conn
Dim newkey As Integer = dbkey.get_dbkey("SecurityObject")
sectbl.cpMainConnectionProvider = Globals.conn
conn.OpenConnection()
sectbl.iSecurityObjectNr = New SqlInt32(CType(newkey, Int32))
sectbl.sSecurityForm = New SqlString(CType(MyFormname, String))
sectbl.sSecurityObjectType = New SqlString(CType(Me.MySecurityObjecttype, String))
sectbl.sSecurityObject = New SqlString(CType(Me.MySecurityObject, String))
sectbl.sSecurityObjectItem = New SqlString(CType(Me.MySecurityObjectItem, String))
sectbl.bAktiv = New SqlBoolean(CType(True, Boolean))
sectbl.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
sectbl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
sectbl.sSecurityObjectDescriotion = New SqlString(CType(Me.MyDescription, String))
sectbl.iLevel = New SqlInt32(CType(Me.MyLevel, Int32))
sectbl.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
sectbl.iMandantnr = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
sectbl.Insert()
conn.CloseConnection(True)
sectbl.Dispose()
dbkey.Dispose()
End Function
''' <summary>
'''Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Function Objexists() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MyFormname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjecttype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObject))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjectItem))
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
Finally
scmCmdToExecute.Connection.Close()
End Try
End Function
End Class
Public Class ControlsCollection
Private Shared m_controls As Collection
Public Sub New(ByVal myForm As Form)
m_controls = New Collection
'create a control walker to get
'all controls on the form
Dim aControlWalker As New ControlWalker(myForm)
End Sub
'This property returns the collection of all controls
'on the form
ReadOnly Property Controls() As Collection
Get
Return m_controls
End Get
End Property
Public Function FindControl(ByVal ctlname As String) As Boolean
Dim i As Integer
For i = 1 To Me.m_controls.Count
Dim ctl As Control = m_controls(i)
If UCase(ctl.Name) = UCase(ctlname) Then MsgBox("found")
Next
End Function
Private Class ControlWalker
' This class recursively walks through all controls
' in a container, and all containers contained in
' this container, visiting all controls throughout
' the hierarchy
Private mContainer As Object
Public Sub New(ByVal Container As Object)
Dim cControl As Control
If Container.haschildren Then
For Each cControl In Container.controls
'add this control to the controls collection
m_controls.Add(cControl)
If cControl.HasChildren Then
'This control has children, create another
'ControlWalk go visit each of them
Dim cWalker As New ControlWalker(cControl)
End If
Next cControl
End If
End Sub
End Class
End Class
End Namespace

343
_FRReporting/Klassen/clsAuswertung.vb
View File

@@ -1,343 +0,0 @@
Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.Windows.Forms
Namespace TKB.Auswertung
Public Class clsAuswertung
Private Auswertungen As New DataSet
Private Mitarbeiter_Auswerungsparameter As New DB.clsMitarbeiter_Auswertungsparameter
Public AuswertungParameter As New DataTable
Public Auswertung As New DB.clsAuswertung
Public MitarbeiterAuswertungsparameter As New DataTable
Dim sheader1 As String
Property TitelZeile1() As String
Get
Return sheader1
End Get
Set(ByVal value As String)
sheader1 = value
End Set
End Property
Dim sheader2 As String
Property TitelZeile2() As String
Get
Return sheader2
End Get
Set(ByVal value As String)
sheader2 = value
End Set
End Property
Dim scparamcollection As New Collection
Property ParamCollection() As Collection
Get
Return scparamcollection
End Get
Set(ByVal value As Collection)
scparamcollection = value
End Set
End Property
Dim mFullparam As String
Property FullParam() As String
Get
Return mFullparam
End Get
Set(ByVal value As String)
mFullparam = value
End Set
End Property
Public Sub Get_Auswertungen(ByRef tree As TreeView)
Read_Auswertungen()
Load_Treeview(Auswertungen, tree)
End Sub
''' <summary>
''' Auswertungen, für welche der User berechtigt ist, auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Function Read_Auswertungen() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_Auswertung_Get_Auswertungen"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
sdaAdapter.Fill(dtToReturn)
Auswertungen.Tables.Clear()
Auswertungen.Tables.Add(dtToReturn)
Catch ex As Exception
Throw New Exception("clsAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Interne Relation aufbauen und Tree aufbauen
''' </summary>
''' <param name="oSourceData"></param>
''' <param name="tree"></param>
''' <remarks></remarks>
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As TreeView)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation", _
oDS.Tables(0).Columns("id"), _
oDS.Tables(0).Columns("Parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New TreeNode()
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("auswertungnr").ToString
oNode.ToolTipText = oDataRow("Beschreibung").ToString
oNode.ImageIndex = 0
oNode.SelectedImageIndex = 0
oNode.StateImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New TreeNode()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("Auswertungnr").ToString()
If oChildRow("Auswertungnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.SelectedImageIndex = 0
oChildNode.StateImageIndex = 0
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
Else
oChildNode.ImageIndex = 1
oChildNode.SelectedImageIndex = 1
oChildNode.StateImageIndex = 1
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Public Function Get_Auswertung(ByVal Auswertungnr As Integer) As Boolean
Try
Me.Auswertung.iAuswertungNr = New SqlInt32(CType(Auswertungnr, Int32))
Me.Auswertung.cpMainConnectionProvider = Globals.conn
Me.Auswertung.SelectOne()
Me.AuswertungParameter = Get_Auswertungsparameter(Me.Auswertung.iAuswertungNr.Value)
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(Me.Auswertung.iAuswertungNr.Value)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function Get_Auswertungsparameter(ByVal Auswertungnr As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_rpt_get_auswertungparameter"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Auswertungnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Auswertungnr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function get_rptparam_values(ByVal sp As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = sp
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Get_Auswertungsdaten(ByVal sql As String, ByVal sqlwhere As String, ByVal sqltype As String) As DataSet
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataSet = New DataSet()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = sql
Select Case UCase(sqltype)
Case "SQL"
If sqlwhere <> "" Then sql = sql + " where " + sqlwhere
'gaga
Case "VIEW"
If sqlwhere <> "" Then sql = sql + " where " + sqlwhere
Case "SP"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Parameters.Add(New SqlParameter("@sqlwhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sqlwhere))
End Select
scmCmdToExecute.Connection = conn.scoDBConnection
Try
'scmCmdToExecute.Parameters.Add(New SqlParameter("@Rolle", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Get_Auswertungsdaten(ByVal sp As String, ByVal sqlwhere As String, ByVal txp As Boolean) As DataTable
Dim con As New SqlConnection(Get_TXP_Connection)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = sp
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = con
scmCmdToExecute.CommandTimeout = 30000
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sqlwhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sqlwhere))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
con.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
con.Dispose()
End Try
End Function
Private Function Get_TXP_Connection() As String
Dim sCstr As String = ""
Dim txpfile As System.IO.File
Dim txpread As System.IO.StreamReader
txpread = txpfile.OpenText(Application.StartupPath + "\TXPConn.cfg")
sCstr = txpread.ReadLine
sCstr = Crypto.DecryptText(sCstr, "HutterundMueller")
sCstr = Left(sCstr, Len(sCstr) - 1)
txpread.Close()
Return sCstr
End Function
Public Function Save_MAParameter(ByVal auswertungnr As Integer, ByVal Bezeichnung As String, ByVal Parameter As String, ByVal Titel1 As String, ByVal Titel2 As String, ByVal PrintParam As Boolean, ByVal sqlwhere As String)
Me.Mitarbeiter_Auswerungsparameter.cpMainConnectionProvider = Globals.conn
Me.Mitarbeiter_Auswerungsparameter.iAuswertungnr = New SqlInt32(CType(auswertungnr, Int32))
Me.Mitarbeiter_Auswerungsparameter.iMitarbeiternr = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
Me.Mitarbeiter_Auswerungsparameter.sBeschreibung = New SqlString(CType(Bezeichnung, String))
Me.Mitarbeiter_Auswerungsparameter.sParameterdaten = New SqlString(CType(Parameter, String))
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile1 = New SqlString(CType(Titel1, String))
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile2 = New SqlString(CType(Titel2, String))
Me.Mitarbeiter_Auswerungsparameter.sSQLWhere = New SqlString(CType(sqlwhere, String))
If PrintParam = True Then
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(True, Boolean))
Else
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(False, Boolean))
End If
Globals.conn.OpenConnection()
Me.Mitarbeiter_Auswerungsparameter.Insert()
Globals.conn.CloseConnection(True)
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(auswertungnr)
End Function
Public Function Get_MAParameter(ByVal Auswertungnr As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_mitarbeiter_auswertungparamter_selectall"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Auswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Auswertungnr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Delete_Parameter(ByVal AuswertungParameterNr As Integer)
Me.Mitarbeiter_Auswerungsparameter.iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(AuswertungParameterNr, Int32))
Me.Mitarbeiter_Auswerungsparameter.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
Me.Mitarbeiter_Auswerungsparameter.Delete()
Globals.conn.CloseConnection(True)
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(Me.Auswertung.iAuswertungNr.Value)
End Function
End Class
End Namespace

61
_FRReporting/Klassen/clsMyKey_Tabelle.vb
View File

@@ -1,61 +0,0 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Public Class clsMyKey_Tabelle
Inherits db.clsKey_tabelle
Public Function get_dbkey(ByVal Tablename As String) As Long
Dim m_dbkey As Long
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
Try
scmCmdToExecute.Connection.Open()
Catch ex As Exception
Finally
End Try
scmCmdToExecute.ExecuteNonQuery()
m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
scmCmdToExecute.Connection.Close()
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return m_dbkey
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
End Class
End Namespace

13
_FRReporting/My Project/Application.Designer.vb generated
View File

@@ -1,13 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
_FRReporting/My Project/Application.myapp
View File

@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
_FRReporting/My Project/AssemblyInfo.vb
View File

@@ -1,35 +0,0 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("_FRReporting")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("_FRReporting")>
<Assembly: AssemblyCopyright("Copyright © 2013")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("62c24cfc-27b8-4bf5-a942-c28ff6fc8672")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

Some files were not shown because too many files have changed in this diff Show More