diff --git a/.vs/DPM2016/v15/.suo b/.vs/DPM2016/v15/.suo index 9436183..abcfdfc 100644 Binary files a/.vs/DPM2016/v15/.suo and b/.vs/DPM2016/v15/.suo differ diff --git a/DPM2016.sln b/DPM2016.sln index 23cb772..c208db8 100644 --- a/DPM2016.sln +++ b/DPM2016.sln @@ -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 diff --git a/DPM2016/Behandlung/Behandlung.Designer.vb b/DPM2016/Behandlung/Behandlung.Designer.vb index 079cbe4..65e8956 100644 --- a/DPM2016/Behandlung/Behandlung.Designer.vb +++ b/DPM2016/Behandlung/Behandlung.Designer.vb @@ -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 diff --git a/DPM2016/Behandlung/Behandlung.resx b/DPM2016/Behandlung/Behandlung.resx index 7e723a0..c7d1d0e 100644 --- a/DPM2016/Behandlung/Behandlung.resx +++ b/DPM2016/Behandlung/Behandlung.resx @@ -236,7 +236,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO - DQAAAk1TRnQBSQFMAgEBBQEAAZgBAgGYAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + DQAAAk1TRnQBSQFMAgEBBQEAAcABAgHAAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/DPM2016/Behandlung/Behandlung.vb b/DPM2016/Behandlung/Behandlung.vb index 70de269..decd0cb 100644 --- a/DPM2016/Behandlung/Behandlung.vb +++ b/DPM2016/Behandlung/Behandlung.vb @@ -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 - Me.Get_Behandlungen() - Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnr, behandlungsnr) - Me.nodeselected() + 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 diff --git a/DPM2016/Behandlung/Benhandungdetail.Designer.vb b/DPM2016/Behandlung/Benhandungdetail.Designer.vb index 1138bd3..87216ee 100644 --- a/DPM2016/Behandlung/Benhandungdetail.Designer.vb +++ b/DPM2016/Behandlung/Benhandungdetail.Designer.vb @@ -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 diff --git a/DPM2016/Behandlung/Benhandungdetail.vb b/DPM2016/Behandlung/Benhandungdetail.vb index 28ebbc6..910e090 100644 --- a/DPM2016/Behandlung/Benhandungdetail.vb +++ b/DPM2016/Behandlung/Benhandungdetail.vb @@ -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 diff --git a/DPM2016/Behandlung/Leistungen.Designer.vb b/DPM2016/Behandlung/Leistungen.Designer.vb index f215dcf..b4b625c 100644 --- a/DPM2016/Behandlung/Leistungen.Designer.vb +++ b/DPM2016/Behandlung/Leistungen.Designer.vb @@ -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 diff --git a/DPM2016/Behandlung/Leistungen.resx b/DPM2016/Behandlung/Leistungen.resx index 0fc5df8..44b73b7 100644 --- a/DPM2016/Behandlung/Leistungen.resx +++ b/DPM2016/Behandlung/Leistungen.resx @@ -197,6 +197,6 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1071, 137</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1071, 137</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1071, 137</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1071, 137</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> \ No newline at end of file diff --git a/DPM2016/Behandlung/Leistungen.vb b/DPM2016/Behandlung/Leistungen.vb index 025441a..3ef77a1 100644 --- a/DPM2016/Behandlung/Leistungen.vb +++ b/DPM2016/Behandlung/Leistungen.vb @@ -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,24 +116,25 @@ Public Class Leistungen tn.Nodes.Add(tn1) Next - Case "SSO-Tarif 01.04.1994" + Case Trim(r("Bezeichnung")).Contains("SSO") Case Else - Dim tn As New DevComponents.AdvTree.Node - tn.Text = r("bezeichnung") - tn.DataKey = r("nummervon") - tn.Tag = r("nummerbis") - 'tn.Tag = r("nummervon") - Me.TreeTarifGruppen.Nodes.Add(tn) - For Each r1 As DataRow In IntTables.Inttables.Tables("tarifgrp").Rows - If r1("tarifvon").ToString >= tn.DataKey.ToString And r1("tarifbis").ToString <= tn.Tag.ToString Then - Dim tn1 As New DevComponents.AdvTree.Node - tn1.Text = r1("tarifgruppe") - tn1.DataKey = r1("tarifvon") - tn1.Tag = r1("tarifbis") - tn.Nodes.Add(tn1) - End If - Next - + 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") + tn.Tag = r("nummerbis") + 'tn.Tag = r("nummervon") + Me.TreeTarifGruppen.Nodes.Add(tn) + For Each r1 As DataRow In IntTables.Inttables.Tables("tarifgrp").Rows + If r1("tarifvon").ToString >= tn.DataKey.ToString And r1("tarifbis").ToString <= tn.Tag.ToString Then + Dim tn1 As New DevComponents.AdvTree.Node + tn1.Text = r1("tarifgruppe") + tn1.DataKey = r1("tarifvon") + tn1.Tag = r1("tarifbis") + 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 diff --git a/DPM2016/Behandlung/frmLeistungDetail.Designer.vb b/DPM2016/Behandlung/frmLeistungDetail.Designer.vb index 66ae30f..297c0e8 100644 --- a/DPM2016/Behandlung/frmLeistungDetail.Designer.vb +++ b/DPM2016/Behandlung/frmLeistungDetail.Designer.vb @@ -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) diff --git a/DPM2016/Behandlung/frmLeistungDetail.vb b/DPM2016/Behandlung/frmLeistungDetail.vb index a27b2e1..cca2d32 100644 --- a/DPM2016/Behandlung/frmLeistungDetail.vb +++ b/DPM2016/Behandlung/frmLeistungDetail.vb @@ -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 \ No newline at end of file diff --git a/DPM2016/DPM2016.vbproj b/DPM2016/DPM2016.vbproj index d7ca64f..70e36c1 100644 --- a/DPM2016/DPM2016.vbproj +++ b/DPM2016/DPM2016.vbproj @@ -11,8 +11,10 @@ DPM2018 512 WindowsFormsWithCustomSubMain - v4.5 - publish\ + v4.6 + false + + E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\ true Disk false @@ -22,12 +24,11 @@ false false true - 0 + 1 1.0.0.%2a - false false + true true - AnyCPU @@ -69,6 +70,18 @@ My Project\app.manifest + + 075701EF85E86E39DDBE3FE06E332A57792E8A98 + + + DPM2016_TemporaryKey.pfx + + + true + + + true + ..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll @@ -86,6 +99,7 @@ False C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar2.dll + True @@ -105,20 +119,60 @@ False ..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll + + False + ..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll + + + False + ..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.Entity.dll + ..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll - - - - - + + False + ..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + + @@ -131,8 +185,9 @@ - - ..\_FRReporting\bin\Debug\_FRReporting.dll + + False + ..\..\..\TKBDiverse\BEA\BEA\bin\Debug\XLSLib.dll @@ -172,6 +227,13 @@ UserControl + + + Form1.vb + + + Form + frmLeistungDetail.vb @@ -185,6 +247,7 @@ UserControl + frmPrivatSelect.vb @@ -192,6 +255,12 @@ Form + + frmDemoMode.vb + + + Form + frmprogress.vb @@ -212,6 +281,12 @@ Form + + frmRechnungskopien.vb + + + Form + Finanzen.vb @@ -236,6 +311,12 @@ Form + + frmAgenda.vb + + + Form + Form @@ -350,6 +431,12 @@ + + frmcalendar.vb + + + Form + frmDBConnection.vb @@ -405,6 +492,8 @@ Form + + frmZahlung.vb @@ -415,6 +504,7 @@ FremAuswertung.vb + Designer frmreport.vb @@ -425,6 +515,9 @@ Benhandungdetail.vb + + Form1.vb + frmLeistungDetail.vb @@ -434,6 +527,9 @@ frmPrivatSelect.vb + + frmDemoMode.vb + frmprogress.vb @@ -443,6 +539,9 @@ frmOffeneBehandlungen.vb + + frmRechnungskopien.vb + Finanzen.vb @@ -455,6 +554,9 @@ frmFirmaAP.vb + + frmAgenda.vb + frmMain.vb @@ -505,6 +607,9 @@ frmTarifDetail.vb + + frmcalendar.vb + frmDBConnection.vb @@ -540,6 +645,7 @@ Designer + MyApplicationCodeGenerator diff --git a/DPM2016/DPM2016.vbproj.user b/DPM2016/DPM2016.vbproj.user index efc7b61..08e81ff 100644 --- a/DPM2016/DPM2016.vbproj.user +++ b/DPM2016/DPM2016.vbproj.user @@ -1,7 +1,7 @@  - + E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\|publish\ @@ -10,4 +10,7 @@ de-DE false + + false + \ No newline at end of file diff --git a/DPM2016/Database/IntTables.vb b/DPM2016/Database/IntTables.vb index e65aa7b..85bbbba 100644 --- a/DPM2016/Database/IntTables.vb +++ b/DPM2016/Database/IntTables.vb @@ -23,14 +23,18 @@ End Function Public Function Get_Ort_Kantton(ByRef plz As String, ByRef ort As TextBox, ByRef kanton As ComboBox) - Dim db As New clsDB - db.Get_Tabledata("Ortsverzeichnis", "where plz=" + plz.ToString, "", "", False) - Ortsverzeichnis = db.dsDaten.Tables(0).Copy - If Ortsverzeichnis.Rows.Count > 0 Then - ort.Text = Ortsverzeichnis.Rows(0).Item("Ort") - kanton.Text = Ortsverzeichnis.Rows(0).Item("KT") - - End If + Try + Dim db As New clsDB + db.Get_Tabledata("Ortsverzeichnis", "where plz=" + plz.ToString, "", "", False) + Ortsverzeichnis = db.dsDaten.Tables(0).Copy + If Ortsverzeichnis.Rows.Count > 0 Then + ort.Text = Ortsverzeichnis.Rows(0).Item("Ort") + kanton.Text = Ortsverzeichnis.Rows(0).Item("KT") + + End If + Catch + End Try + End Function End Module diff --git a/DPM2016/Database/clsDB.vb b/DPM2016/Database/clsDB.vb index 74cf6d6..0430373 100644 --- a/DPM2016/Database/clsDB.vb +++ b/DPM2016/Database/clsDB.vb @@ -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 diff --git a/DPM2016/EventHandler/Generic_Event_Handler.vb b/DPM2016/EventHandler/Generic_Event_Handler.vb index 4a5a701..2b1bbe6 100644 --- a/DPM2016/EventHandler/Generic_Event_Handler.vb +++ b/DPM2016/EventHandler/Generic_Event_Handler.vb @@ -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 diff --git a/DPM2016/Fakturierung/frmFakturierung.Designer.vb b/DPM2016/Fakturierung/frmFakturierung.Designer.vb index 6a7c434..f4dd52b 100644 --- a/DPM2016/Fakturierung/frmFakturierung.Designer.vb +++ b/DPM2016/Fakturierung/frmFakturierung.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmFakturierung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/DPM2016/Fakturierung/frmFakturierung.resx b/DPM2016/Fakturierung/frmFakturierung.resx index 74348cc..37c88cd 100644 --- a/DPM2016/Fakturierung/frmFakturierung.resx +++ b/DPM2016/Fakturierung/frmFakturierung.resx @@ -191,6 +191,21 @@ UsCASAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIAQMiBQyIFDAgUsCASAEDIgUMiBQwIFLAgEgBAyIF DIgUMCBSwIBIAQMiBQyIFDAgUsCASAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIAQMiBQyIFDAgUsCA SAEDIgUMiBQwIFLAgEgBAyIFDIgUMCBSwIBIWw3Dbzt1IR+N7cFFAAAAAElFTkSuQmCC + + + + + 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== @@ -258,37 +273,37 @@ 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 @@ -382,7 +397,7 @@ QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg== - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG @@ -397,6 +412,9 @@ TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + 388, 17 + iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 @@ -434,8 +452,11 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 765, 140</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 765, 140</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 765, 140</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 765, 140</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + + 231, 17 + iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 @@ -473,7 +494,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 765, 140</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 765, 140</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 765, 140</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 765, 140</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> diff --git a/DPM2016/Fakturierung/frmFakturierung.vb b/DPM2016/Fakturierung/frmFakturierung.vb index 0613a51..b8d7d4c 100644 --- a/DPM2016/Fakturierung/frmFakturierung.vb +++ b/DPM2016/Fakturierung/frmFakturierung.vb @@ -1,10 +1,11 @@ Public Class frmFakturierung Dim db As New clsDB + Dim abgeschlossen As New DataTable + Dim ausgeschlossen As New DataTable + 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") + 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 \ No newline at end of file diff --git a/DPM2016/Klassen/clsStammdaten_flat.vb b/DPM2016/Klassen/clsStammdaten_flat.vb index aa3a715..e3986c9 100644 --- a/DPM2016/Klassen/clsStammdaten_flat.vb +++ b/DPM2016/Klassen/clsStammdaten_flat.vb @@ -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 diff --git a/DPM2016/My Project/Resources.Designer.vb b/DPM2016/My Project/Resources.Designer.vb index 4e7586b..c034d90 100644 --- a/DPM2016/My Project/Resources.Designer.vb +++ b/DPM2016/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/DPM2016/My Project/licenses.licx b/DPM2016/My Project/licenses.licx index 31819d3..89a2285 100644 --- a/DPM2016/My Project/licenses.licx +++ b/DPM2016/My Project/licenses.licx @@ -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 diff --git a/DPM2016/Patient/Patient.Designer.vb b/DPM2016/Patient/Patient.Designer.vb index 3c0c9ed..d08d976 100644 --- a/DPM2016/Patient/Patient.Designer.vb +++ b/DPM2016/Patient/Patient.Designer.vb @@ -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!) diff --git a/DPM2016/Patient/Patient.vb b/DPM2016/Patient/Patient.vb index 5cde9ea..93eed69 100644 --- a/DPM2016/Patient/Patient.vb +++ b/DPM2016/Patient/Patient.vb @@ -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 @@ -108,8 +108,8 @@ Me.Label1.Text = PatientDetails1.Patientname 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 diff --git a/DPM2016/Patient/PatientDetails.vb b/DPM2016/Patient/PatientDetails.vb index 296af64..8404c75 100644 --- a/DPM2016/Patient/PatientDetails.vb +++ b/DPM2016/Patient/PatientDetails.vb @@ -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 diff --git a/DPM2016/Reporting/frmReportView.vb b/DPM2016/Reporting/frmReportView.vb index 7f3cf20..32cc340 100644 --- a/DPM2016/Reporting/frmReportView.vb +++ b/DPM2016/Reporting/frmReportView.vb @@ -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,16 +437,34 @@ Public Class frmReportView Catch End Try + 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 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 @@ -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 diff --git a/DPM2016/Sysadmin/frmAuswertungen.Designer.vb b/DPM2016/Sysadmin/frmAuswertungen.Designer.vb index 5ea0ddb..d8dad98 100644 --- a/DPM2016/Sysadmin/frmAuswertungen.Designer.vb +++ b/DPM2016/Sysadmin/frmAuswertungen.Designer.vb @@ -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 diff --git a/DPM2016/Sysadmin/frmAuswertungen.resx b/DPM2016/Sysadmin/frmAuswertungen.resx index 9156ca4..e03620f 100644 --- a/DPM2016/Sysadmin/frmAuswertungen.resx +++ b/DPM2016/Sysadmin/frmAuswertungen.resx @@ -127,209 +127,209 @@ 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== 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 @@ -402,7 +402,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 770, 398</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 770, 398</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 770, 398</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 770, 398</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> @@ -412,7 +412,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 326, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 326, 148</ClientArea></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 326, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 326, 148</ClientArea></Blob> @@ -422,8 +422,14 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 309, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 309, 148</ClientArea></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 309, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 309, 148</ClientArea></Blob> + + 388, 17 + + + 530, 17 + AAABAAkAAAAAAAEAIABboQAAlgAAAICAAAABACAAKAgBAPGhAABgYAAAAQAgAKiUAAAZqgEASEgAAAEA diff --git a/DPM2016/Sysadmin/frmAuswertungen.vb b/DPM2016/Sysadmin/frmAuswertungen.vb index e742606..0666389 100644 --- a/DPM2016/Sysadmin/frmAuswertungen.vb +++ b/DPM2016/Sysadmin/frmAuswertungen.vb @@ -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 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 \ No newline at end of file diff --git a/DPM2016/Sysadmin/frmStammdaten.Designer.vb b/DPM2016/Sysadmin/frmStammdaten.Designer.vb index 2a265e2..f33b8f3 100644 --- a/DPM2016/Sysadmin/frmStammdaten.Designer.vb +++ b/DPM2016/Sysadmin/frmStammdaten.Designer.vb @@ -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 ' diff --git a/DPM2016/Sysadmin/frmStammdaten.resx b/DPM2016/Sysadmin/frmStammdaten.resx index 1f84cc3..6865df8 100644 --- a/DPM2016/Sysadmin/frmStammdaten.resx +++ b/DPM2016/Sysadmin/frmStammdaten.resx @@ -158,7 +158,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 751, 423</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 751, 423</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor: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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 751, 423</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 751, 423</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> 239, 17 diff --git a/DPM2016/Sysadmin/frmStammdaten.vb b/DPM2016/Sysadmin/frmStammdaten.vb index 7239d3c..07e8422 100644 --- a/DPM2016/Sysadmin/frmStammdaten.vb +++ b/DPM2016/Sysadmin/frmStammdaten.vb @@ -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 diff --git a/DPM2016/Utils/Globals.vb b/DPM2016/Utils/Globals.vb index 6295d6e..329990a 100644 --- a/DPM2016/Utils/Globals.vb +++ b/DPM2016/Utils/Globals.vb @@ -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 diff --git a/DPM2016/app.config b/DPM2016/app.config index da30d59..e12c3ce 100644 --- a/DPM2016/app.config +++ b/DPM2016/app.config @@ -25,7 +25,7 @@ - + diff --git a/DPM2016/bin/Debug/XLSLib.dll b/DPM2016/bin/Debug/XLSLib.dll index d0324ca..87352d8 100644 Binary files a/DPM2016/bin/Debug/XLSLib.dll and b/DPM2016/bin/Debug/XLSLib.dll differ diff --git a/DPM2016/bin/Debug/_FRReporting.dll b/DPM2016/bin/Debug/_FRReporting.dll deleted file mode 100644 index cb9db4b..0000000 Binary files a/DPM2016/bin/Debug/_FRReporting.dll and /dev/null differ diff --git a/DPM2016/bin/Debug/_FRReporting.pdb b/DPM2016/bin/Debug/_FRReporting.pdb deleted file mode 100644 index 2538213..0000000 Binary files a/DPM2016/bin/Debug/_FRReporting.pdb and /dev/null differ diff --git a/DPM2016/bin/Debug/_FRReporting.xml b/DPM2016/bin/Debug/_FRReporting.xml deleted file mode 100644 index 064c1c8..0000000 --- a/DPM2016/bin/Debug/_FRReporting.xml +++ /dev/null @@ -1,1327 +0,0 @@ - - - - -_FRReporting - - - - - - Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - - - - - Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - - - - - Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - - - - - Purpose: Data Access class for the table 'Auswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • bReport
    • -
  • sFilename
    • -
  • bExcel_Report
    • -
  • sSQL
    • -
  • sSQLType
    • -
  • sBeschreibung
    • -
  • sConnectionstring_Subreport
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungAuswertungParameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr
    • -
  • iAuswertungparameternr
    • -
  • sDBfeldname
    • -
  • iReihenfolge
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppe'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iParentid
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr
    • -
  • iAuswertungNr
    • -
  • bAktiv
    • -
  • daErstllt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungRptDatei'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungDateiNr
    • -
  • sFilename
    • -
  • sReportname
    • -
  • blobReportfile
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungparameternr
    • -
  • sBezeichnung
    • -
  • sOperator
    • -
  • sFeldbezug
    • -
  • sWert
    • -
  • sParamName
    • -
  • sParamType
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'key_tabelle'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iKeynr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr
    • -
  • iAuswertungnr
    • -
  • sBeschreibung
    • -
  • sParameterdaten
    • -
  • sTitelzeile1
    • -
  • sTitelzeile2
    • -
  • bParamPrint
    • -
  • sSQLWhere
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'SecurityObject'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iSecurityObjectNr
    • -
  • sSecurityForm
    • -
  • sSecurityObjectType
    • -
  • sSecurityObject
    • -
  • sSecurityObjectItem
    • -
  • sSecurityObjectDescriotion
    • -
  • iLevel
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iMandantnr
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Initialisierung des Formulars - - - - - - - Auswertungen, für welche der User berechtigt ist, auslesen - - - - - - - Interne Relation aufbauen und Tree aufbauen - - - - - - - - Tree aufbauen - - - - - - - - Child-Nodes hinzufügen - - - - - - - - Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank - - - Es werden folgende Datebanktabellen berücksichtigt: - - - Dokument Attribut DocImage - - Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der - Vertragsübersicht|Vertragselemente - - yes - - - - Grid-Layoutfile speichern - - C1Truedbgrind, von welchem das Layout gespeichert werden soll - Nummer des Grids: 1=Vertragsübersicht... - - - - - - Dokument in der Tabelle Dokument speichern - - Nummer des Dokument-Datensatzes - Zu speichender Dateiname - - - - - - Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab - - - - - - - - Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen - - - - - - Formularsecurity setzen - - Aktuelles Formular - - - - - - Daten ab Datenbank laden - - - - - - Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt - - - - - - Security-Einstellungen setzen - - Betroffenes Objeckt (Menuitem, Conrol usw.) - Readonly ja/nein - Sichtbar ja/nein - Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet - - - - - Alle Controls des Formulars zusammensuchen und auf der DB speichern - - Betroffenes Formular - - - - - - Sämtliche Controls vom Formular auslesen - - - - - - - - Auslesen von MenuItems - - - - - - - - - Auslesen von ContextMenuItems - - - - - - - - - Auslesen von Menu-Subitems - - - - - - - - Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - Formular - Objekttyp - Objektname - Objektitem - - - - - - Klasse für ein Control-Objekt - - - - - - Neue Instanz erstellen - - Control-Objekt - Betroffenes Formular - Objekttyp - Objektname - Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids) - - - - - Schreibt einen Datnsatz in die Tabelle SecurityObjects - - - - - - -Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - - - - - - Formular schliessen - - - - - - - - Formualr schliessen - - - - - - - - Formular schliessen - - - - - - - - Mousedown-Ereignis auf dem Tree - - - - - - - - Nach Selektion eines Nodes Parameter neu aufbereiten und Auswerungsmöglichkeit (CR/CSV) anzeigen - - - - - - - - Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet - die gefundnen Controls in der Liste L zur weiteren Bearbeitung - - Base-Contrlo (z.B. aktuelles Formular - Schlüssel welcher gesucht werden soll - Liste der gefundenen Objekte - True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde. - - - - - - Parameter initialisieren - - - - - - Selektion Parameter - - - - - - - - Datenrow in den zur Auswertung gehörenden Parameterliste suchen - - - - - - - - Where Bedingung für die Abfrage zusammenstellen - - - - - - Where zusammenstellen - - - - - - - diff --git a/DPM2016/frmMain.Designer.vb b/DPM2016/frmMain.Designer.vb index 9750c51..1e23f87 100644 --- a/DPM2016/frmMain.Designer.vb +++ b/DPM2016/frmMain.Designer.vb @@ -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 diff --git a/DPM2016/frmMain.resx b/DPM2016/frmMain.resx index 575d2f2..aabf0e7 100644 --- a/DPM2016/frmMain.resx +++ b/DPM2016/frmMain.resx @@ -121,6 +121,180 @@ 17, 17 + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= + + + + + 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= + + + + + 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== + + + + 84 + AAABAAkAAAAAAAEAIACoJAAAlgAAAICAAAABACAAKAgBAD4lAABgYAAAAQAgAKiUAABmLQEAQEAAAAEA diff --git a/DPM2016/frmMain.vb b/DPM2016/frmMain.vb index f4c01f6..c2e8eea 100644 --- a/DPM2016/frmMain.vb +++ b/DPM2016/frmMain.vb @@ -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() diff --git a/DPM2016/obj/Debug/DPM2016.Behandlung.resources b/DPM2016/obj/Debug/DPM2016.Behandlung.resources index e23f8e6..be483da 100644 Binary files a/DPM2016/obj/Debug/DPM2016.Behandlung.resources and b/DPM2016/obj/Debug/DPM2016.Behandlung.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.Leistungen.resources b/DPM2016/obj/Debug/DPM2016.Leistungen.resources index 96aa7bb..8f776f6 100644 Binary files a/DPM2016/obj/Debug/DPM2016.Leistungen.resources and b/DPM2016/obj/Debug/DPM2016.Leistungen.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.frmAuswertungen.resources b/DPM2016/obj/Debug/DPM2016.frmAuswertungen.resources index 5d2daee..fa432dd 100644 Binary files a/DPM2016/obj/Debug/DPM2016.frmAuswertungen.resources and b/DPM2016/obj/Debug/DPM2016.frmAuswertungen.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.frmFakturierung.resources b/DPM2016/obj/Debug/DPM2016.frmFakturierung.resources index 276a8f2..edc7fc4 100644 Binary files a/DPM2016/obj/Debug/DPM2016.frmFakturierung.resources and b/DPM2016/obj/Debug/DPM2016.frmFakturierung.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.frmMain.resources b/DPM2016/obj/Debug/DPM2016.frmMain.resources index 148e132..1d904e4 100644 Binary files a/DPM2016/obj/Debug/DPM2016.frmMain.resources and b/DPM2016/obj/Debug/DPM2016.frmMain.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.frmStammdaten.resources b/DPM2016/obj/Debug/DPM2016.frmStammdaten.resources index 0386859..cf00205 100644 Binary files a/DPM2016/obj/Debug/DPM2016.frmStammdaten.resources and b/DPM2016/obj/Debug/DPM2016.frmStammdaten.resources differ diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt b/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt index 391e37f..89210d0 100644 --- a/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt +++ b/DPM2016/obj/Debug/DPM2016.vbproj.FileListAbsolute.txt @@ -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 diff --git a/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache b/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache index 4885a1c..df1bb7a 100644 Binary files a/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache and b/DPM2016/obj/Debug/DPM2016.vbproj.GenerateResource.Cache differ diff --git a/DPM2016/obj/Debug/DPM2016.vbprojResolveAssemblyReference.cache b/DPM2016/obj/Debug/DPM2016.vbprojResolveAssemblyReference.cache index 52c07bc..d150946 100644 Binary files a/DPM2016/obj/Debug/DPM2016.vbprojResolveAssemblyReference.cache and b/DPM2016/obj/Debug/DPM2016.vbprojResolveAssemblyReference.cache differ diff --git a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 6504a33..758674e 100644 Binary files a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index dba10fc..b03f732 100644 Binary files a/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/DPM2016/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/DPM2016/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/DPM2016/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll index e8c2988..ac558c8 100644 Binary files a/DPM2016/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/DPM2016/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/DPM2016/obj/Release/DesignTimeResolveAssemblyReferences.cache b/DPM2016/obj/Release/DesignTimeResolveAssemblyReferences.cache index a056129..8fd5be3 100644 Binary files a/DPM2016/obj/Release/DesignTimeResolveAssemblyReferences.cache and b/DPM2016/obj/Release/DesignTimeResolveAssemblyReferences.cache differ diff --git a/DPM2016/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/DPM2016/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache index b095882..1e69a03 100644 Binary files a/DPM2016/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and b/DPM2016/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/_FRReporting/DB/clsAuswertung.vb b/_FRReporting/DB/clsAuswertung.vb deleted file mode 100644 index 3ed23a3..0000000 --- a/_FRReporting/DB/clsAuswertung.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'Auswertung'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungNr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • bReport. May be SqlBoolean.Null
    • - '''
  • sFilename. May be SqlString.Null
    • - '''
  • bExcel_Report. May be SqlBoolean.Null
    • - '''
  • sSQL. May be SqlString.Null
    • - '''
  • sSQLType. May be SqlString.Null
    • - '''
  • sBeschreibung. May be SqlString.Null
    • - '''
  • sConnectionstring_Subreport. May be SqlString.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungNr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • bReport. May be SqlBoolean.Null
    • - '''
  • sFilename. May be SqlString.Null
    • - '''
  • bExcel_Report. May be SqlBoolean.Null
    • - '''
  • sSQL. May be SqlString.Null
    • - '''
  • sSQLType. May be SqlString.Null
    • - '''
  • sBeschreibung. May be SqlString.Null
    • - '''
  • sConnectionstring_Subreport. May be SqlString.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungNr
    • - '''
  • sBezeichnung
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
  • bReport
    • - '''
  • sFilename
    • - '''
  • bExcel_Report
    • - '''
  • sSQL
    • - '''
  • sSQLType
    • - '''
  • sBeschreibung
    • - '''
  • sConnectionstring_Subreport
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsAuswertungAuswertungParameter.vb b/_FRReporting/DB/clsAuswertungAuswertungParameter.vb deleted file mode 100644 index f18e0d4..0000000 --- a/_FRReporting/DB/clsAuswertungAuswertungParameter.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'AuswertungAuswertungParameter'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungAuswertungparameternr
    • - '''
  • iAuswertungnr. May be SqlInt32.Null
    • - '''
  • iAuswertungparameternr. May be SqlInt32.Null
    • - '''
  • sDBfeldname. May be SqlString.Null
    • - '''
  • iReihenfolge. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungAuswertungparameternr
    • - '''
  • iAuswertungnr. May be SqlInt32.Null
    • - '''
  • iAuswertungparameternr. May be SqlInt32.Null
    • - '''
  • sDBfeldname. May be SqlString.Null
    • - '''
  • iReihenfolge. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungAuswertungparameternr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungAuswertungparameternr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungAuswertungparameternr
    • - '''
  • iAuswertungnr
    • - '''
  • iAuswertungparameternr
    • - '''
  • sDBfeldname
    • - '''
  • iReihenfolge
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsAuswertungGruppe.vb b/_FRReporting/DB/clsAuswertungGruppe.vb deleted file mode 100644 index 1448127..0000000 --- a/_FRReporting/DB/clsAuswertungGruppe.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'AuswertungGruppe'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeNr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • iParentid. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeNr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • iParentid. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungGruppeNr
    • - '''
  • sBezeichnung
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
  • iParentid
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsAuswertungGruppeAuswertung.vb b/_FRReporting/DB/clsAuswertungGruppeAuswertung.vb deleted file mode 100644 index 46a0871..0000000 --- a/_FRReporting/DB/clsAuswertungGruppeAuswertung.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeAuswertungNr
    • - '''
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • - '''
  • iAuswertungNr. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstllt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeAuswertungNr
    • - '''
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • - '''
  • iAuswertungNr. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstllt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeAuswertungNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungGruppeAuswertungNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungGruppeAuswertungNr
    • - '''
  • iAuswertungGruppeNr
    • - '''
  • iAuswertungNr
    • - '''
  • bAktiv
    • - '''
  • daErstllt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsAuswertungRptDatei.vb b/_FRReporting/DB/clsAuswertungRptDatei.vb deleted file mode 100644 index 3c4e754..0000000 --- a/_FRReporting/DB/clsAuswertungRptDatei.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'AuswertungRptDatei'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungDateiNr
    • - '''
  • sFilename. May be SqlString.Null
    • - '''
  • sReportname. May be SqlString.Null
    • - '''
  • blobReportfile. May be SqlBinary.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungDateiNr
    • - '''
  • sFilename. May be SqlString.Null
    • - '''
  • sReportname. May be SqlString.Null
    • - '''
  • blobReportfile. May be SqlBinary.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungDateiNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungDateiNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungDateiNr
    • - '''
  • sFilename
    • - '''
  • sReportname
    • - '''
  • blobReportfile
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsAuswertungsparameter.vb b/_FRReporting/DB/clsAuswertungsparameter.vb deleted file mode 100644 index 28dbf84..0000000 --- a/_FRReporting/DB/clsAuswertungsparameter.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'Auswertungsparameter'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungparameternr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • sOperator. May be SqlString.Null
    • - '''
  • sFeldbezug. May be SqlString.Null
    • - '''
  • sWert. May be SqlString.Null
    • - '''
  • sParamName. May be SqlString.Null
    • - '''
  • sParamType. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungparameternr
    • - '''
  • sBezeichnung. May be SqlString.Null
    • - '''
  • sOperator. May be SqlString.Null
    • - '''
  • sFeldbezug. May be SqlString.Null
    • - '''
  • sWert. May be SqlString.Null
    • - '''
  • sParamName. May be SqlString.Null
    • - '''
  • sParamType. May be SqlString.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungparameternr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iAuswertungparameternr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iAuswertungparameternr
    • - '''
  • sBezeichnung
    • - '''
  • sOperator
    • - '''
  • sFeldbezug
    • - '''
  • sWert
    • - '''
  • sParamName
    • - '''
  • sParamType
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsConnectionProvider.vb b/_FRReporting/DB/clsConnectionProvider.vb deleted file mode 100644 index 42e9750..0000000 --- a/_FRReporting/DB/clsConnectionProvider.vb +++ /dev/null @@ -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 - ' /// - ' /// 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. - ' /// - 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 - - - ' /// - ' /// Purpose: Implements the IDispose' method Dispose. - ' /// - Overloads Public Sub Dispose() Implements IDisposable.Dispose - Dispose(True) - GC.SuppressFinalize(Me) - End Sub - - - ' /// - ' /// Purpose: Implements the Dispose functionality. - ' /// - 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 - - - ' /// - ' /// Purpose: Initializes class members. - ' /// - 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 - - - ' /// - ' /// Purpose: Opens the connection object. - ' /// - ' /// True, if succeeded, otherwise an Exception exception is thrown. - 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 - - - ' /// - ' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class. - ' /// - ' /// Name of the transaction to start - ' /// True, if transaction is started correctly, otherwise an Exception exception is thrown - 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 - - - ' /// - ' /// Purpose: Commits a pending transaction on the open connection object of this class. - ' /// - ' /// True, if commit was succesful, or an Exception exception is thrown - 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 - - - ' /// - ' /// 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(). - ' /// - ' /// Name of transaction to roll back. Can be name of savepoint - ' /// True, if rollback was succesful, or an Exception exception is thrown - 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 - - - ' /// - ' /// 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. - ' /// - ' /// Name of the savepoint to store the current transaction under. - ' /// True, if save was succesful, or an Exception exception is thrown - 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 - - - ' /// - ' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending - ' /// transaction is commited, or aborted. - ' /// - ' /// 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. - ' /// True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when - ' /// an error occurs - 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 diff --git a/_FRReporting/DB/clsDBInteractionBase.vb b/_FRReporting/DB/clsDBInteractionBase.vb deleted file mode 100644 index f5a00c6..0000000 --- a/_FRReporting/DB/clsDBInteractionBase.vb +++ /dev/null @@ -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 - ' /// - ' /// Purpose: Error Enums used by this LLBL library. - ' /// - Public Enum LLBLError - AllOk - ' // Add more here (check the comma's!) - End Enum - - - ' /// - ' /// Purpose: General interface of the API generated. Contains only common methods of all classes. - ' /// - 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 - - - ' /// - ' /// Purpose: Abstract base class for Database Interaction classes. - ' /// - 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 - - - ' /// - ' /// Purpose: Class constructor. - ' /// - Public Sub New() - ' // Initialize the class' members. - InitClass() - End Sub - - - ' /// - ' /// Purpose: Initializes class members. - ' /// - 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 - - - ' /// - ' /// Purpose: Implements the IDispose' method Dispose. - ' /// - Overloads Public Sub Dispose() Implements IDisposable.Dispose - Dispose(True) - GC.SuppressFinalize(Me) - End Sub - - - ' /// - ' /// Purpose: Implements the Dispose functionality. - ' /// - 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 - - - ' /// - ' /// Purpose: Implements the ICommonDBAccess.Insert() method. - ' /// - Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert - ' // No implementation, throw exception - Throw New NotImplementedException() - End Function - - - ' /// - ' /// Purpose: Implements the ICommonDBAccess.Delete() method. - ' /// - Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete - ' // No implementation, throw exception - Throw New NotImplementedException() - End Function - - - ' /// - ' /// Purpose: Implements the ICommonDBAccess.Update() method. - ' /// - Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update - ' // No implementation, throw exception - Throw New NotImplementedException() - End Function - - - ' /// - ' /// Purpose: Implements the ICommonDBAccess.SelectOne() method. - ' /// - Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne - ' // No implementation, throw exception - Throw New NotImplementedException() - End Function - - - ' /// - ' /// Purpose: Implements the ICommonDBAccess.SelectAll() method. - ' /// - 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 diff --git a/_FRReporting/DB/clsKey_tabelle.vb b/_FRReporting/DB/clsKey_tabelle.vb deleted file mode 100644 index 4105a0a..0000000 --- a/_FRReporting/DB/clsKey_tabelle.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'key_tabelle'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • sBeschreibung
    • - '''
  • iKey_wert
    • - '''
  • iMandantnr. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iKeynr
    • - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iKeynr
    • - '''
  • sBeschreibung
    • - '''
  • iKey_wert
    • - '''
  • iMandantnr. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iKeynr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iKeynr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iKeynr
    • - '''
  • sBeschreibung
    • - '''
  • iKey_wert
    • - '''
  • iMandantnr
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsMitarbeiter_Auswertungsparameter.vb b/_FRReporting/DB/clsMitarbeiter_Auswertungsparameter.vb deleted file mode 100644 index c0cce6c..0000000 --- a/_FRReporting/DB/clsMitarbeiter_Auswertungsparameter.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iMitarbeiternr. May be SqlInt32.Null
    • - '''
  • iAuswertungnr. May be SqlInt32.Null
    • - '''
  • sBeschreibung. May be SqlString.Null
    • - '''
  • sParameterdaten. May be SqlString.Null
    • - '''
  • sTitelzeile1. May be SqlString.Null
    • - '''
  • sTitelzeile2. May be SqlString.Null
    • - '''
  • bParamPrint. May be SqlBoolean.Null
    • - '''
  • sSQLWhere. May be SqlString.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iMitarbeiter_AuswertungsparameterNr
    • - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iMitarbeiter_AuswertungsparameterNr
    • - '''
  • iMitarbeiternr. May be SqlInt32.Null
    • - '''
  • iAuswertungnr. May be SqlInt32.Null
    • - '''
  • sBeschreibung. May be SqlString.Null
    • - '''
  • sParameterdaten. May be SqlString.Null
    • - '''
  • sTitelzeile1. May be SqlString.Null
    • - '''
  • sTitelzeile2. May be SqlString.Null
    • - '''
  • bParamPrint. May be SqlBoolean.Null
    • - '''
  • sSQLWhere. May be SqlString.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iMitarbeiter_AuswertungsparameterNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iMitarbeiter_AuswertungsparameterNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iMitarbeiter_AuswertungsparameterNr
    • - '''
  • iMitarbeiternr
    • - '''
  • iAuswertungnr
    • - '''
  • sBeschreibung
    • - '''
  • sParameterdaten
    • - '''
  • sTitelzeile1
    • - '''
  • sTitelzeile2
    • - '''
  • bParamPrint
    • - '''
  • sSQLWhere
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/DB/clsSecurityObject.vb b/_FRReporting/DB/clsSecurityObject.vb deleted file mode 100644 index 5d07551..0000000 --- a/_FRReporting/DB/clsSecurityObject.vb +++ /dev/null @@ -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 - ''' - ''' Purpose: Data Access class for the table 'SecurityObject'. - ''' - 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 - - - ''' - ''' Purpose: Class constructor. - ''' - Public Sub New() - ' // Nothing for now. - End Sub - - - ''' - ''' Purpose: Insert method. This method will insert one new row into the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iSecurityObjectNr
    • - '''
  • sSecurityForm. May be SqlString.Null
    • - '''
  • sSecurityObjectType. May be SqlString.Null
    • - '''
  • sSecurityObject. May be SqlString.Null
    • - '''
  • sSecurityObjectItem. May be SqlString.Null
    • - '''
  • sSecurityObjectDescriotion. May be SqlString.Null
    • - '''
  • iLevel. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • iMandantnr. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Update method. This method will Update one existing row in the database. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iSecurityObjectNr
    • - '''
  • sSecurityForm. May be SqlString.Null
    • - '''
  • sSecurityObjectType. May be SqlString.Null
    • - '''
  • sSecurityObject. May be SqlString.Null
    • - '''
  • sSecurityObjectItem. May be SqlString.Null
    • - '''
  • sSecurityObjectDescriotion. May be SqlString.Null
    • - '''
  • iLevel. May be SqlInt32.Null
    • - '''
  • bAktiv. May be SqlBoolean.Null
    • - '''
  • daErstellt_am. May be SqlDateTime.Null
    • - '''
  • daMutiert_am. May be SqlDateTime.Null
    • - '''
  • iMutierer. May be SqlInt32.Null
    • - '''
  • iMandantnr. May be SqlInt32.Null
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - ''' - ''' True if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iSecurityObjectNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 - - - ''' - ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties needed for this method: - '''
    - '''
  • iSecurityObjectNr
    • - '''
- ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
  • iSecurityObjectNr
    • - '''
  • sSecurityForm
    • - '''
  • sSecurityObjectType
    • - '''
  • sSecurityObject
    • - '''
  • sSecurityObjectItem
    • - '''
  • sSecurityObjectDescriotion
    • - '''
  • iLevel
    • - '''
  • bAktiv
    • - '''
  • daErstellt_am
    • - '''
  • daMutiert_am
    • - '''
  • iMutierer
    • - '''
  • iMandantnr
    • - '''
- ''' Will fill all properties corresponding with a field in the table with the value of the row selected. - ''' - 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 - - - ''' - ''' Purpose: SelectAll method. This method will Select all rows from the table. - ''' - ''' DataTable object if succeeded, otherwise an Exception is thrown. - ''' - ''' Properties set after a succesful call of this method: - '''
    - '''
  • iErrorCode
    • - '''
- ''' - 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 diff --git a/_FRReporting/Formulare/FrmReportSelect.designer.vb b/_FRReporting/Formulare/FrmReportSelect.designer.vb deleted file mode 100644 index 8aa4451..0000000 --- a/_FRReporting/Formulare/FrmReportSelect.designer.vb +++ /dev/null @@ -1,880 +0,0 @@ - _ -Partial Class FrmReportSelect - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/FrmReportSelect.resx b/_FRReporting/Formulare/FrmReportSelect.resx deleted file mode 100644 index 7f7a2d3..0000000 --- a/_FRReporting/Formulare/FrmReportSelect.resx +++ /dev/null @@ -1,599 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 126, 17 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5 - qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC - A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR - VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg== - - - - - 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= - - - - - 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 - - - - 229, 17 - - - - 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 - - - - 442, 17 - - - - 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 - - - - - 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 - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - - R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX - AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01 - wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw== - - - - 336, 17 - - - - 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== - - - - - 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== - - - - 623, 17 - - - - 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 - - - \ No newline at end of file diff --git a/_FRReporting/Formulare/FrmReportSelect.vb b/_FRReporting/Formulare/FrmReportSelect.vb deleted file mode 100644 index 0c57fde..0000000 --- a/_FRReporting/Formulare/FrmReportSelect.vb +++ /dev/null @@ -1,1157 +0,0 @@ -Imports System.Windows.Forms -Imports System.Drawing -Public Class FrmReportSelect - -#Region "Deklarationen" - Dim auswertungen As New TKB.Auswertung.clsAuswertung - Dim CtrlList As New List(Of Control) - Dim splits() As String - Dim dr As DataRow - Dim s As String = "" - Dim SQLWhere As String = "" - Friend selectPoint As New System.Drawing.Point() - Dim Auswertungsdaten As New DataSet - Dim On_Load As Boolean = False - Dim DescriptionToolTip As New ToolTip - Dim WhereModified As Boolean = False - Dim sec As New Utils.MySecurity - Dim cblist As New Collection -#End Region - -#Region "Formular" - ''' - ''' Formular schliessen - ''' - ''' - ''' - ''' - Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - Me.Close() - End Sub - ''' - ''' Formualr schliessen - ''' - ''' - ''' - ''' - Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click - btnAbbruch_Click(sender, e) - End Sub - - ''' - ''' Formular schliessen - ''' - ''' - ''' - ''' - Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click - btnAbbruch_Click(sender, e) - End Sub -#End Region - - Private Sub FrmReportSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - Try - auswertungen.Get_Auswertungen(Me.TreeAuswertungen) - Me.TreeAuswertungen.ExpandAll() - Me.TreeAuswertungen.SelectedNode = Me.TreeAuswertungen.Nodes(0) - Me.TreeAuswertungen.SelectedNode.ExpandAll() - Catch - End Try - sec.Set_Form_Security(Me) - End Sub - - Private Sub btnAufbereiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAufbereitenCSV.Click - Me.Cursor = Cursors.WaitCursor - - If Me.WhereModified = False Then Get_SQLWhere() - Me.Auswertungsdaten = Me.auswertungen.Get_Auswertungsdaten(Me.auswertungen.Auswertung.sSQL.Value, SQLWhere, Me.auswertungen.Auswertung.sSQLType.Value) - Dim f As New frmAuswertung(Me.TreeAuswertungen.SelectedNode.Text, Me.Auswertungsdaten) - f.MdiParent = Me.MdiParent - Me.Cursor = Cursors.Default - f.Show() - End Sub - - Private Sub BtnAufbereitenCR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAufbereitenCR.Click - showreport() - End Sub - Public Sub showreport() - Me.Cursor = Cursors.WaitCursor - Me.auswertungen.TitelZeile1 = Me.txtTitel1.Text - Me.auswertungen.TitelZeile2 = Me.txtTitel2.Text - - If Me.WhereModified = False Then Get_SQLWhere() - Me.Auswertungsdaten = Me.auswertungen.Get_Auswertungsdaten(Me.auswertungen.Auswertung.sSQL.Value, SQLWhere, Me.auswertungen.Auswertung.sSQLType.Value) - Dim f As New frmcrreporting(Me.Auswertungsdaten, Me.auswertungen.Auswertung.iAuswertungNr.Value, Me.auswertungen, Me.checkboxprintparam.Checked, False) - f.Text = "Auswertung " + Me.TreeAuswertungen.SelectedNode.Text - f.MdiParent = Me.MdiParent - Me.Cursor = Cursors.Default - f.Show() - f.DisplayReport() - End Sub - - Private Sub TreeAuswertungen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeAuswertungen.DoubleClick - 'If Me.TreeAuswertungen.SelectedNode.Tag > -1 Then btnAufbereiten_Click(sender, e) - End Sub - - ''' - ''' Mousedown-Ereignis auf dem Tree - ''' - ''' - ''' - ''' - Private Sub TreeStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeAuswertungen.MouseDown - Try - Dim mouseEvents As MouseEventArgs - mouseEvents = e - selectPoint.Y = mouseEvents.Y - selectPoint.X = mouseEvents.X - Me.TreeAuswertungen.SelectedNode = Me.TreeAuswertungen.GetNodeAt(selectPoint) - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - ''' - ''' Nach Selektion eines Nodes Parameter neu aufbereiten und Auswerungsmöglichkeit (CR/CSV) anzeigen - ''' - ''' - ''' - ''' - Private Sub TreeAuswertungen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeAuswertungen.AfterSelect - Me.On_Load = True - Me.WhereModified = False - Me.PictureBox1.Visible = False - Try - Me.txtTitel1.Text = Me.TreeAuswertungen.SelectedNode.Text - Me.txtTitel2.Text = "" - Me.checkboxprintparam.Checked = True - Me.txtbeschreibung.Text = Me.TreeAuswertungen.SelectedNode.ToolTipText - DescriptionToolTip.SetToolTip(Me.txtbeschreibung, Me.txtbeschreibung.Text) - If Me.TreeAuswertungen.SelectedNode.Tag < 1 Then - Me.GrpParameter.Enabled = False - Me.BtnAufbereitenCR.Enabled = False - Me.btnAufbereitenCSV.Enabled = False - Me.grpcr.Enabled = False - Me.grpdb.Enabled = False - Exit Sub - End If - - Me.auswertungen.Get_Auswertung(Me.TreeAuswertungen.SelectedNode.Tag) - If Me.auswertungen.MitarbeiterAuswertungsparameter.Rows.Count > 0 Then - Me.ComboboxMAParameter.Visible = True - Try - Me.ComboboxMAParameter.DataSource = Nothing - Me.ComboboxMAParameter.DataSource = Me.auswertungen.MitarbeiterAuswertungsparameter - Me.ComboboxMAParameter.DisplayMember = "Beschreibung" - Me.ComboboxMAParameter.ValueMember = "Mitarbeiter_AuswertungsparameterNr" - Me.ComboboxMAParameter.SelectedIndex = -1 - Catch ex As Exception - End Try - Else - Me.ComboboxMAParameter.Visible = False - End If - If Me.auswertungen.AuswertungParameter.Rows.Count = 0 Then - Me.GrpParameter.Enabled = False - Else - Me.GrpParameter.Enabled = True - End If - If Me.auswertungen.Auswertung.bReport.Value = True Then - Me.BtnAufbereitenCR.Enabled = True - Me.grpcr.Enabled = True - Else - Me.BtnAufbereitenCR.Enabled = False - Me.grpcr.Enabled = False - End If - If Me.auswertungen.Auswertung.bExcel_Report.Value = True Then - Me.btnAufbereitenCSV.Enabled = True - Me.grpdb.Enabled = True - Else - Me.btnAufbereitenCSV.Enabled = False - Me.grpdb.Enabled = False - End If - - Init_Params() - - Catch ex As Exception - End Try - Me.On_Load = False - End Sub - -#Region "Parameters" - -#Region "Utils" - ''' - ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet - ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung - ''' - ''' Base-Contrlo (z.B. aktuelles Formular - ''' Schlüssel welcher gesucht werden soll - ''' Liste der gefundenen Objekte - ''' True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde. - ''' - ''' - Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean - If L Is Nothing Then L = New List(Of Control) - Dim Gut As Boolean - Dim ReturnFlag As Boolean = False - If Key IsNot Nothing Then Key = Key.ToLower - - If BaseControl.HasChildren = True Then - For Each ctl As Control In BaseControl.Controls - Gut = False - If Key Is Nothing Then - Gut = True - Else - If ctl.Name.Length >= Key.Length Then - Key = Key.ToLower - If Key.StartsWith("*") Then - If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True - ElseIf Key.EndsWith("*") Then - If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True - Else - If Key = ctl.Name.ToLower Then Gut = True - End If - End If - End If - - If Gut = True Then - L.Add(ctl) - If ReturnAtFirstElement = True Then ReturnFlag = True - End If - If ReturnFlag = False Then - Call GetControl(ctl, Key, L) - End If - Next - End If - - If L.Count - 1 > -1 Then - Return True - Else - Return False - End If - End Function -#End Region - - ''' - ''' Parameter initialisieren - ''' - ''' - Private Sub Init_Params(Optional ByVal Initialize_ComboBox As Boolean = True) - If Initialize_ComboBox = True Then Me.ComboboxMAParameter.SelectedIndex = -1 - Me.CtrlList.Clear() - Me.GetControl(Me, "cb*", CtrlList) - For Each x As ComboBox In CtrlList - Try - x.DataSource = Nothing - x.Items.Clear() - x.Enabled = False - x.Text = "" - Catch ex As Exception - End Try - Next - - CtrlList.Clear() - Me.GetControl(Me, "cbandor*", CtrlList) - For Each x As ComboBox In CtrlList - x.Items.Clear() - x.Items.Add("und") - x.Items.Add("oder") - Next - - Me.cbparam1.Enabled = True - Me.cbop1.Enabled = True - Me.cbvalue1.Enabled = True - Me.cbandor1.Enabled = True - - Me.CtrlList.Clear() - Me.GetControl(Me, "cbparam*", CtrlList) - For Each x As ComboBox In CtrlList - For Each dr As DataRow In Me.auswertungen.AuswertungParameter.Rows - x.Items.Add(dr.Item("Bezeichnung")) - Next - Next - End Sub - - - - - - - - - - - ''' - ''' Selektion Parameter - ''' - ''' - ''' - ''' - Private Sub cbparam1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbparam1.SelectedIndexChanged, cbparam2.SelectedIndexChanged, _ - cbparam3.SelectedIndexChanged, cbparam4.SelectedIndexChanged, cbparam5.SelectedIndexChanged, cbparam6.SelectedIndexChanged, cbparam7.SelectedIndexChanged - If Me.On_Load Then Exit Sub - Me.WhereModified = False - Me.PictureBox1.Visible = False - Me.cblist.Clear() - Dim s As String = ParamNr(sender.name) - Dim cbop As String = "cbop" + s - dr = Findrow(sender.text) - - 'Operatoren festlegen - CtrlList.Clear() - Me.GetControl(Me, "cbop" + s, CtrlList) - For Each ob As ComboBox In CtrlList - ob.Items.Clear() - splits = dr.Item("Operator").ToString.Split(";") - For Each x As String In splits - ob.Items.Add(x) - Next - ob.SelectedIndex = 0 - Next - - ' Wenn ein Datenbezug ab DB oder eingegeben, dann aufbereiten - If dr.Item("Feldbezug").ToString <> "" Then - 'Feldbezug ab DB - If UCase(dr.Item("feldbezug").ToString.Substring(0, 3)) = "SP_" Then - Dim fb As New DataTable - fb = Me.auswertungen.get_rptparam_values(dr.Item("Feldbezug")) - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.DataSource = Nothing - x.AutoCompleteCustomSource.Clear() - x.Items.Clear() - x.DataSource = fb - x.DisplayMember = "Bezeichnung" - x.ValueMember = "KeyValue" - x.AutoCompleteSource = AutoCompleteSource.CustomSource - x.AutoCompleteMode = AutoCompleteMode.SuggestAppend - For Each r As DataRow In fb.Rows - x.AutoCompleteCustomSource.Add(r("Keyvalue").ToString + " " + r("Bezeichnung").ToString) - cblist.Add(New cbe(x.Name, r("Keyvalue").ToString, r("Keyvalue").ToString + " " + r("Bezeichnung").ToString)) - - x.AutoCompleteCustomSource.Add(r("keyvalue").ToString) - cblist.Add(New cbe(x.Name, r("Keyvalue").ToString, r("Keyvalue").ToString)) - - x.AutoCompleteCustomSource.Add(r("Searchvalue1").ToString) - cblist.Add(New cbe(x.Name, r("Keyvalue").ToString, r("Searchvalue1").ToString)) - - x.AutoCompleteCustomSource.Add(r("Keyvalue").ToString + " " + r("Searchvalue1").ToString) - cblist.Add(New cbe(x.Name, r("Keyvalue").ToString, r("Keyvalue").ToString + " " + r("Searchvalue1").ToString)) - Next - Next - - Else - 'Fixer Feldbezug - If dr.Item("Feldbezug").ToString <> "" Then - Dim selval() As String = dr.Item("Feldbezug").ToString.Split(";") - Dim cbvalue As String = "cbvalue" + s - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.DataSource = Nothing - x.Items.Clear() - For Each ss As String In selval - x.Items.Add(ss) - Next - Next - End If - End If - - End If - End Sub - - - - - - - ''' - ''' Datenrow in den zur Auswertung gehörenden Parameterliste suchen - ''' - ''' - ''' - ''' - Private Function Findrow(ByVal key As String) As DataRow - For Each dr As DataRow In Me.auswertungen.AuswertungParameter.Rows - If dr.Item("Bezeichnung") = key Then - Return dr - End If - Next - End Function - - 'Param-Nr auslesen - Private Function ParamNr(ByVal s As String) As String - Return s.Substring(Len(s) - 1, 1) - End Function - ''' - ''' Where Bedingung für die Abfrage zusammenstellen - ''' - ''' - Private Sub Get_SQLWhere() - Me.auswertungen.ParamCollection.Clear() - Dim s As String - Dim i As Integer - Me.SQLWhere = "" - - If Me.cbparam1.Text <> "" And Me.cbop1.Text <> "" And Me.cbvalue1.Text <> "" Then - Me.auswertungen.ParamCollection.Add(cbparam1.Text & " " & cbop1.Text & " " & cbvalue1.Text) - s = cbparam1.Text & " " & cbop1.Text & " " & cbvalue1.Text - SQLWhere = SQLWhere + get_where(1) - End If - If Me.cbandor1.Text <> "" And Me.cbparam2.Text <> "" And Me.cbop2.Text <> "" And Me.cbvalue2.Text <> "" Then - If Me.cbandor1.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(2) - If Me.cbandor1.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(2) - Me.auswertungen.ParamCollection.Add(cbandor1.Text + " " + cbparam2.Text & " " & cbop2.Text & " " & cbvalue2.Text) - s = s & "' & Chr(10) & Chr(13) & '" & cbandor1.Text & " " & cbparam2.Text & " " & cbop2.Text & " " & cbvalue2.Text - End If - If Me.cbandor2.Text <> "" And Me.cbparam3.Text <> "" And Me.cbop3.Text <> "" And Me.cbvalue3.Text <> "" Then - If Me.cbandor2.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(3) - If Me.cbandor2.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(3) - Me.auswertungen.ParamCollection.Add(cbandor2.Text + " " + cbparam3.Text & " " & cbop3.Text & " " & cbvalue3.Text) - s = s + " " + cbandor2.Text + " " + cbparam3.Text & " " & cbop3.Text & " " & cbvalue3.Text - End If - If Me.cbandor3.Text <> "" And Me.cbparam4.Text <> "" And Me.cbop4.Text <> "" And Me.cbvalue4.Text <> "" Then - If Me.cbandor3.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(4) - If Me.cbandor3.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(4) - Me.auswertungen.ParamCollection.Add(cbandor3.Text + " " + cbparam4.Text & " " & cbop4.Text & " " & cbvalue4.Text) - s = s + " " + cbandor3.Text + " " + cbparam4.Text & " " & cbop4.Text & " " & cbvalue4.Text - End If - - If Me.cbandor4.Text <> "" And Me.cbparam5.Text <> "" And Me.cbop5.Text <> "" And Me.cbvalue5.Text <> "" Then - If Me.cbandor4.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(5) - If Me.cbandor4.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(5) - Me.auswertungen.ParamCollection.Add(cbandor4.Text + " " + cbparam5.Text & " " & cbop5.Text & " " & cbvalue5.Text) - s = s + " " + cbandor4.Text + " " + cbparam5.Text & " " & cbop5.Text & " " & cbvalue5.Text - End If - If Me.cbandor5.Text <> "" And Me.cbparam6.Text <> "" And Me.cbop6.Text <> "" And Me.cbvalue6.Text <> "" Then - If Me.cbandor5.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(6) - If Me.cbandor5.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(6) - Me.auswertungen.ParamCollection.Add(cbandor5.Text + " " + cbparam6.Text & " " & cbop6.Text & " " & cbvalue6.Text) - s = s + " " + cbandor5.Text + " " + cbparam6.Text & " " & cbop6.Text & " " & cbvalue6.Text - End If - If Me.cbandor6.Text <> "" And Me.cbparam7.Text <> "" And Me.cbop7.Text <> "" And Me.cbvalue7.Text <> "" Then - If Me.cbandor6.Text = "und" Then SQLWhere = SQLWhere + " and " + get_where(7) - If Me.cbandor6.Text = "oder" Then SQLWhere = SQLWhere + " or " + get_where(7) - Me.auswertungen.ParamCollection.Add(cbandor6.Text + " " + cbparam7.Text & " " & cbop7.Text & " " & cbvalue7.Text) - s = s + " " + cbandor6.Text + " " + cbparam7.Text & " " & cbop7.Text & " " & cbvalue7.Text - End If - Me.auswertungen.FullParam = s - End Sub - - ''' - ''' Where zusammenstellen - ''' - ''' - ''' - ''' - Private Function get_where(ByVal nr As Integer) As String - Dim param As New ComboBox - Dim op As New ComboBox - Dim val As New ComboBox - Dim wertvalue As String = "" - Dim wertdbfeld As String = "" - Dim wertop As String = op.Text - - CtrlList.Clear() - Me.GetControl(Me, "cbparam" + Trim(Str(nr)), CtrlList) - param = CtrlList.Item(0) - - CtrlList.Clear() - Me.GetControl(Me, "cbop" + Trim(Str(nr)), CtrlList) - op = CtrlList.Item(0) - - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + Trim(Str(nr)), CtrlList) - val = CtrlList.Item(0) - - dr = Me.Findrow(param.Text) - - wertop = op.Text - - Dim paramtyp As String = "" - Dim paramsplit() As String = dr.Item("Paramtype").ToString.Split(";") - - Dim dbfeldsplit() As String = dr.Item("dbfeldname").ToString.Split(";") - If dbfeldsplit.Length > 1 And val.SelectedIndex > -1 Then - wertvalue = val.SelectedValue - wertdbfeld = dbfeldsplit(0) - paramtyp = paramsplit(0) - Else - wertvalue = val.Text - If dbfeldsplit.Length > 1 Then - wertdbfeld = dbfeldsplit(1) - paramtyp = paramsplit(1) - Else - wertdbfeld = dbfeldsplit(0) - paramtyp = paramsplit(0) - End If - End If - - Select Case UCase(paramtyp) - Case "VARCHAR", "STRING", "CHAR" - Return wertdbfeld + " " + wertop + " '" + wertvalue + "'" - Case "INTEGER", "INT" - Return wertdbfeld + " " + wertop + " " + wertvalue + "" - Case "DATEPART" - Select Case wertvalue - Case "letzte Woche" - Return wertdbfeld & " between dbo.get_dateperiode('LastWeek',1) and dbo.get_dateperiode('LastWeek',0)" - Case "letzter Monat" - Return wertdbfeld & " between dbo.get_dateperiode('LastMonth',1) and dbo.get_dateperiode('LastMonth',0)" - Case "letztes Quartal" - Return wertdbfeld & " between dbo.get_dateperiode('LastQuarter',1) and dbo.get_dateperiode('LastQuarter',0)" - Case "letztes Jahr" - Return wertdbfeld & " between dbo.get_dateperiode('LastYear',1) and dbo.get_dateperiode('LastYear',0)" - Case "aktuelle Woche" - Return wertdbfeld & " between dbo.get_dateperiode('ActWeek',1) and dbo.get_dateperiode('ActWeek',0)" - Case "aktueller Monat" - Return wertdbfeld & " between dbo.get_dateperiode('ActMonth',1) and dbo.get_dateperiode('ActMonth',0)" - Case "aktuelles Quartal" - Return wertdbfeld & " between dbo.get_dateperiode('ActQuarter',1) and dbo.get_dateperiode('ActQuarter',0)" - Case "aktuelles Jahr" - Return wertdbfeld & " between dbo.get_dateperiode('ActYear',1) and dbo.get_dateperiode('ActYear',0)" - End Select - 'Dim dtfrom As DateTime - 'Dim dtto As DateTime - 'dtfrom = Today - 'CalcDate(wertvalue, dtfrom, dtto) - 'Return wertdbfeld & " between '" & Formateddate(dtfrom, True) & "' and '" & Formateddate(dtto, False) + "'" - 'Dim dp As String - 'Select Case wertvalue - ' Case "letzte Woche" - ' CalcDate(wertvalue, dtfrom, dtto) - ' Case "letzte Woche" - ' Return "cast(datepart(week," & wertdbfeld & ") as int) " & wertop & " cast(datepart(week, getdate()) as int) - 1" - ' Case "letzer Monat" - ' Return "cast(datepart(month," & wertdbfeld & ") as int) " & wertop & " cast(datepart(month, getdate()) as int) - 1" - ' Case "letztes Quartal" - ' Return "cast(datepart(quarter," & wertdbfeld & ") as int) " & wertop & " cast(datepart(quarter, getdate()) as int) - 1" - ' Case "letztes Jahr" - ' Return "year(" & wertdbfeld & ") " & wertop & " year(getdate()) - 1" - ' Case "aktuelle Woche" - ' Return "cast(datepart(week," & wertdbfeld & ") as int) " & wertop & " cast(datepart(week, getdate()) as int)" - ' Case "aktueller Monat" - ' Return "cast(datepart(month," & wertdbfeld & ") as int) " & wertop & " cast(datepart(month, getdate()) as int)" - ' Case "aktuelles Quartal" - ' Return "cast(datepart(quarter," & wertdbfeld & ") as int) " & wertop & " cast(datepart(quarter, getdate()) as int)" - ' Case "aktuelles Jahr" - ' Return "year(" & wertdbfeld & ") " & wertop & " year(getdate())" - 'End Select - Case "DATUM" - Select Case wertop - Case "=" - Return wertdbfeld + " > convert(datetime,'" + wertvalue + " 00:00:00',104) and " + wertdbfeld + " < convert(datetime,'" + wertvalue + " 23:59:59',104)" - Case "<>" - Return wertdbfeld + " < convert(datetime,'" + wertvalue + " 00:00:00',104) and " + wertdbfeld + " > convert(datetime,'" + wertvalue + " 23:59:59',104)" - Case ">=" - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 00:00:00',104)" - Case ">" - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 23:59:59',104)" - Case "<" - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 00:00:00',104)" - Case "<=" - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 23:59:59',104)" - Case Else - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 00:00:00',104)" - End Select - Case "DATUM+1" - Dim d As DateTime = wertvalue - d = DateAdd(DateInterval.Day, 1, d) - wertvalue = d.ToString - Return wertdbfeld + " " + wertop + " convert(datetime,'" + wertvalue + " 00:00:00',104)" - Case "BOOLEAN" - If UCase(wertvalue) = "TRUE" Or UCase(wertvalue) = "JA" Then - Return wertdbfeld + " " + wertop + " 1" - Else - Return wertdbfeld + " " + wertop + " 0" - End If - Case Else - End Select - - End Function -#End Region - - - - Private Sub cbvalue1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbvalue1.DropDown, cbvalue2.DropDown, _ - cbvalue3.DropDown, cbvalue4.DropDown, cbvalue5.DropDown, cbvalue6.DropDown, cbvalue7.DropDown - Try - Dim s As String = ParamNr(sender.name) - Dim nr As Integer = s - Dim param As New ComboBox - Dim op As New ComboBox - Dim val As New ComboBox - CtrlList.Clear() - Me.GetControl(Me, "cbparam" + Trim(Str(nr)), CtrlList) - param = CtrlList.Item(0) - - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + Trim(Str(nr)), CtrlList) - val = CtrlList.Item(0) - - dr = Me.Findrow(param.Text) - - If dr.Item("Paramtype") = "Datum" Then - Dim LocalMousePosition As Point - LocalMousePosition = val.PointToClient(Cursor.Position) - - Dim f As New frmCalendar - - f.Top = Me.Top + val.Top + 200 - f.Left = Me.Left + val.Width + 399 - f.ShowDialog() - If f.DialogResult = Windows.Forms.DialogResult.OK Then - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + Trim(Str(nr)), CtrlList) - param = CtrlList.Item(0) - param.Text = f.MonthCalendar1.SelectionRange.Start.Date - param.Focus() - End If - End If - Catch ex As Exception - End Try - End Sub - - Private Sub BtnInitParam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInitParam.Click - Me.Init_Params() - End Sub - - Private Sub cbandor1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbandor1.SelectedIndexChanged, _ - cbandor2.SelectedIndexChanged, cbandor3.SelectedIndexChanged, cbandor3.SelectedIndexChanged, cbandor4.SelectedIndexChanged, cbandor5.SelectedIndexChanged, _ - cbandor6.SelectedIndexChanged - If Me.On_Load Then Exit Sub - Me.WhereModified = False - Me.PictureBox1.Visible = False - s = Me.ParamNr(sender.name) - s = s + 1 - CtrlList.Clear() - Me.GetControl(Me, "cbparam" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Enabled = True - Next - CtrlList.Clear() - Me.GetControl(Me, "cbop" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Enabled = True - Next - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Enabled = True - Next - CtrlList.Clear() - Me.GetControl(Me, "cbandor" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Enabled = True - Next - End Sub - - Private Sub Init_ParamRow(ByVal s As String) - s = s + 1 - CtrlList.Clear() - Me.GetControl(Me, "cbparam" + s, CtrlList) - For Each x As ComboBox In CtrlList - Try - x.Text = "" - Catch ex As Exception - End Try - x.Enabled = False - Next - CtrlList.Clear() - Me.GetControl(Me, "cbop" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Text = "" - x.Enabled = False - Next - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Text = "" - x.Enabled = False - Next - CtrlList.Clear() - Me.GetControl(Me, "cbandor" + s, CtrlList) - For Each x As ComboBox In CtrlList - x.Text = "" - Next - End Sub - - - Private Sub BtnParamDel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnParamDel1.Click, BtnParamDel2.Click, _ - BtnParamDel3.Click, BtnParamDel4.Click, BtnParamDel5.Click, BtnParamDel6.Click - Init_ParamRow(Me.ParamNr(sender.name)) - End Sub - - Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click - Me.On_Load = True - Dim s As String - CtrlList.Clear() - Me.GetControl(Me, "cbandor*", CtrlList) - For Each x As ComboBox In CtrlList - s = s + ParamNr(x.Name) + "~" + x.Text + ";" - Next - s = s + "|" - CtrlList.Clear() - Me.GetControl(Me, "cbparam*", CtrlList) - For Each x As ComboBox In CtrlList - s = s + ParamNr(x.Name) + "~" + x.Text + ";" - Next - s = s + "|" - CtrlList.Clear() - Me.GetControl(Me, "cbop*", CtrlList) - For Each x As ComboBox In CtrlList - s = s + ParamNr(x.Name) + "~" + x.Text + ";" - Next - s = s + "|" - CtrlList.Clear() - Me.GetControl(Me, "cbval*", CtrlList) - For Each x As ComboBox In CtrlList - s = s + ParamNr(x.Name) + "~" + x.Text + ";" - Next - Dim Bez As String = InputBox("Bezeichnung für die Parameter:", "Auswertungsparameter sichern") - If Me.WhereModified = False Then - If Bez <> "" Then Me.auswertungen.Save_MAParameter(Me.auswertungen.Auswertung.iAuswertungNr.Value, Bez, s, Me.txtTitel1.Text, Me.txtTitel2.Text, Me.checkboxprintparam.Checked, "") - Else - If Bez <> "" Then Me.auswertungen.Save_MAParameter(Me.auswertungen.Auswertung.iAuswertungNr.Value, Bez, s, Me.txtTitel1.Text, Me.txtTitel2.Text, Me.checkboxprintparam.Checked, Me.SQLWhere) - End If - If Me.auswertungen.MitarbeiterAuswertungsparameter.Rows.Count > 0 Then - Me.ComboboxMAParameter.Visible = True - Try - Me.ComboboxMAParameter.DataSource = Nothing - Me.ComboboxMAParameter.DataSource = Me.auswertungen.MitarbeiterAuswertungsparameter - Me.ComboboxMAParameter.DisplayMember = "Beschreibung" - Me.ComboboxMAParameter.ValueMember = "Mitarbeiter_AuswertungsparameterNr" - Catch ex As Exception - End Try - Else - Me.ComboboxMAParameter.Visible = False - End If - Me.On_Load = False - Try - For Each dr As DataRow In Me.auswertungen.MitarbeiterAuswertungsparameter.Rows - If dr.Item("Beschreibung") = Bez Then - Me.ComboboxMAParameter.SelectedValue = dr.Item(0) - Me.ComboboxMAParameter_SelectedIndexChanged(sender, e) - End If - Next - Catch - End Try - - End Sub - - Private Sub ComboboxMAParameter_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboboxMAParameter.SelectedIndexChanged - If Me.On_Load = True Then Exit Sub - Dim wheremod As Boolean = False - Me.WhereModified = False - Me.PictureBox1.Visible = False - Try - Dim s As String = "" - For Each dr As DataRow In Me.auswertungen.MitarbeiterAuswertungsparameter.Rows - If dr.Item("Mitarbeiter_AuswertungsparameterNr") = Me.ComboboxMAParameter.SelectedValue Then - s = dr.Item("Parameterdaten") - Me.txtTitel1.Text = dr.Item("Titelzeile1") - Me.txtTitel2.Text = dr.Item("Titelzeile2") - Me.checkboxprintparam.Checked = dr.Item("ParamPrint") - If dr.Item("SQLWhere").ToString <> "" Then - Me.SQLWhere = dr.Item("SQLWhere").ToString - Me.WhereModified = True - wheremod = True - Me.PictureBox1.Visible = True - End If - End If - Next - If s = "" Then Exit Sub - - Me.Init_Params(False) - - - Dim grp() As String = s.Split("|") - Dim andor As String = grp(0) - Dim param As String = grp(1) - Dim op As String = grp(2) - Dim val As String = grp(3) - - Dim tmpvalue() As String - Dim ValueItem() As String - Dim tmpparam() As String - Dim ParamItem() As String - Dim tmpop() As String - Dim opItem() As String - Dim tmpandor() As String - Dim andorItem() As String - Dim tmpcbidx As Integer - Dim vals() As String - - Dim CTLIndex As Integer - Dim CTLAndOr As String - Dim CTLParam As String - Dim CTLOP As String - Dim CTLValue As String - Dim CTLSplit() As String - Dim SelIndexSet As Boolean - - - Dim i As Integer - For i = 6 To 0 Step -1 - tmpvalue = val.ToString.Split(";") - If tmpvalue(i).ToString.Length > 2 Then - ValueItem = tmpvalue(i).Split("~") - CTLIndex = ValueItem(0) - CTLValue = ValueItem(1) - - tmpparam = param.Split(";") - ParamItem = tmpparam(i).Split("~") - CTLParam = ParamItem(1) - - tmpop = op.Split(";") - opItem = tmpop(i).Split("~") - CTLOP = opItem(1) - - If i > 1 Then - tmpandor = andor.Split(";") - andorItem = tmpandor(i - 1).Split("~") - CTLAndOr = andorItem(1) - End If - - 'Parameter - Dim l As New List(Of Control) - Me.GetControl(Me, "cbparam" + Trim(Str(CTLIndex)), l) - Dim x As ComboBox = l(0) - - SelIndexSet = False - Dim ii As Integer = 0 - For ii = 0 To x.Items.Count - 1 - If x.Items(ii).ToString = CTLParam Then - x.SelectedIndex = ii - SelIndexSet = True - End If - Next - If SelIndexSet = False Then x.Text = CTLParam - - 'Operator - l.Clear() - Me.GetControl(Me, "cbop" + Trim(Str(CTLIndex)), l) - x = l(0) - SelIndexSet = False - For ii = 0 To x.Items.Count - 1 - If x.Items(ii).ToString = CTLOP Then - x.SelectedIndex = ii - SelIndexSet = True - End If - Next - If SelIndexSet = False Then x.Text = CTLOP - - 'value - l.Clear() - Me.GetControl(Me, "cbvalue" + Trim(Str(CTLIndex)), l) - x = l(0) - SelIndexSet = False - For ii = 0 To x.Items.Count - 1 - If x.Items(ii).ToString = CTLValue Then - x.SelectedIndex = ii - SelIndexSet = True - End If - Next - If SelIndexSet = False Then x.Text = CTLValue - - 'andor - l.Clear() - Me.GetControl(Me, "cbandor" + Trim(Str(CTLIndex)), l) - x = l(0) - SelIndexSet = False - For ii = 0 To x.Items.Count - 1 - If x.Items(ii).ToString = CTLAndOr Then - x.SelectedIndex = ii - SelIndexSet = True - End If - Next - If SelIndexSet = False Then x.Text = CTLAndOr - - End If - Next - - If wheremod = True Then - Me.WhereModified = True - Me.PictureBox1.Visible = True - End If - - - Catch ex As Exception - End Try - End Sub - - - - - - - Private Sub ComboboxMAParameter_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboboxMAParameter.VisibleChanged - Me.btnDeleteSavedParam.Visible = Me.ComboboxMAParameter.Visible - End Sub - - Private Sub btnDeleteSavedParam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSavedParam.Click - Me.On_Load = True - If Me.ComboboxMAParameter.SelectedIndex = -1 Then Exit Sub - - Me.auswertungen.Delete_Parameter(Me.ComboboxMAParameter.SelectedValue) - 'Me.Init_Params() - Me.txtTitel1.Text = Me.TreeAuswertungen.SelectedNode.Text - Me.txtTitel2.Text = "" - Me.checkboxprintparam.Checked = True - - If Me.auswertungen.MitarbeiterAuswertungsparameter.Rows.Count > 0 Then - Me.ComboboxMAParameter.Visible = True - Try - Me.ComboboxMAParameter.DataSource = Nothing - Me.ComboboxMAParameter.DataSource = Me.auswertungen.MitarbeiterAuswertungsparameter - Me.ComboboxMAParameter.DisplayMember = "Beschreibung" - Me.ComboboxMAParameter.ValueMember = "Mitarbeiter_AuswertungsparameterNr" - Me.ComboboxMAParameter.SelectedIndex = -1 - Catch ex As Exception - End Try - Me.On_Load = False - Else - Me.ComboboxMAParameter.Visible = False - End If - - End Sub - - Private Sub AlleKnotenSchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleKnotenSchliessenToolStripMenuItem.Click - Me.TreeAuswertungen.CollapseAll() - End Sub - - Private Sub AlleKnotenÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleKnotenÖffnenToolStripMenuItem.Click - Me.TreeAuswertungen.ExpandAll() - End Sub - - '#Region "Datumsfunktionen" - - ' Private Function CalcDate(ByVal typ As String, ByRef dtfrom As DateTime, ByRef dtto As DateTime) - ' Select Case UCase(typ) - ' Case "LETZTE WOCHE" - ' GetDates(dtfrom, dtto) - ' Case "LETZTER MONAT" - ' dtfrom = DateAdd(DateInterval.Month, -1, dtfrom) - ' dtto = GetLastDayOfMonth(dtfrom) - ' dtfrom = GetFirstDayOfMonth(dtfrom) - ' Case "LETZTES QUARTAL" - ' Dim d As DateTime - ' d = DateAdd(DateInterval.Quarter, -1, dtfrom) - ' dtfrom = FirstDayOfQuarter(d) - ' dtto = LastDayOfQuarter(d) - ' Case "LETZTES JAHR" - ' dtfrom = DateAdd(DateInterval.Year, -1, dtfrom) - ' Dim y As Integer = Year(dtfrom) - ' dtfrom = "01.01." + Str(y) - ' dtto = "31.12." + Str(y) - ' Case "AKTUELLE WOCHE" - ' dtfrom = DateAdd(DateInterval.Day, 7, dtfrom) - ' GetDates(dtfrom, dtto) - ' Case "AKTUELLER MONAT" - ' dtfrom = dtfrom - ' dtto = GetLastDayOfMonth(dtfrom) - ' dtfrom = GetFirstDayOfMonth(dtfrom) - ' Case "AKTUELLES QUARTAL" - ' Dim d As DateTime - ' d = dtfrom - ' dtfrom = FirstDayOfQuarter(d) - ' dtto = LastDayOfQuarter(d) - ' Case "AKTUELLES JAHR" - ' Dim y As Integer = Year(dtfrom) - ' dtfrom = "01.01." + Str(y) - ' dtto = "31.12." + Str(y) - ' End Select - ' End Function - - ' Private Sub GetDates(ByRef stDate As Date, ByRef endDate As Date) - ' Dim offset As Double = 0 - ' Select Case stDate.DayOfWeek - ' Case DayOfWeek.Monday : offset = 0 - ' Case DayOfWeek.Tuesday : offset = -1 - ' Case DayOfWeek.Wednesday : offset = -2 - ' Case DayOfWeek.Thursday : offset = -3 - ' Case DayOfWeek.Friday : offset = -4 - ' Case DayOfWeek.Saturday : offset = -5 - ' Case DayOfWeek.Sunday : offset = -6 - ' End Select - ' endDate = DateAdd(DateInterval.Day, (offset - 1), stDate) - ' stDate = DateAdd(DateInterval.Day, -7 + offset, stDate) - ' End Sub - - ' Private Function GetFirstDayOfMonth(ByVal dtDate As Date) As DateTime - ' Dim dtFrom As Date = dtDate - ' dtFrom = dtFrom.AddDays(-(dtFrom.Day - 1)) - ' Return dtFrom - ' End Function - - - ' Private Function GetLastDayOfMonth(ByVal dtDate As Date) As DateTime - ' Dim dtTo As Date = dtDate - ' dtTo = dtTo.AddMonths(1) - ' dtTo = dtTo.AddDays(-(dtTo.Day)) - ' Return dtTo - ' End Function - - ' Public Function FirstDayOfQuarter(ByVal DateIn As DateTime) _ - ' As DateTime - ' ' Calculate first day of DateIn quarter, - ' ' with quarters starting at the beginning of Jan/Apr/Jul/Oct - ' Dim intQuarterNum As Integer = (Month(DateIn) - 1) \ 3 + 1 - ' Return DateSerial(Year(DateIn), 3 * intQuarterNum - 2, 1) - ' End Function - - - ' Public Function LastDayOfQuarter(ByVal DateIn As Date) As Date - ' ' Calculate last day of DateIn quarter, - ' ' with quarters ending at the end of Mar/Jun/Sep/Dec - ' Dim intQuarterNum As Integer = (Month(DateIn) - 1) \ 3 + 1 - ' Return DateSerial(Year(DateIn), 3 * intQuarterNum + 1, 0) - ' End Function - - - ' Private Function Formateddate(ByVal dt As DateTime, ByVal start As Boolean) As String - ' If start Then - ' Return Format(dt, Globals.clsapplication.sReport_Datum_Format.Value) & " 00:00:00" - ' Else - ' Return Format(dt, Globals.clsapplication.sReport_Datum_Format.Value) & " 23:59:59" - ' End If - - ' End Function - '#End Region - - - Private Sub btnEditSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSQL.Click - If Me.WhereModified = False Then Get_SQLWhere() - Dim f As New frmEditWhere - f.sql = Me.SQLWhere - f.ShowDialog() - If f.DialogResult = Windows.Forms.DialogResult.OK Then - If f.sql <> "" Then - Me.SQLWhere = f.sql - Me.WhereModified = True - Me.PictureBox1.Visible = True - Else - Me.WhereModified = False - Me.PictureBox1.Visible = False - End If - End If - f.Dispose() - End Sub - - Private Sub cbop1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbop1.SelectedIndexChanged, cbop2.SelectedIndexChanged, _ - cbop3.SelectedIndexChanged, cbop4.SelectedIndexChanged, cbop5.SelectedIndexChanged, cbop6.SelectedIndexChanged, cbop7.SelectedIndexChanged - If Me.On_Load Then Exit Sub - Me.WhereModified = False - Me.PictureBox1.Visible = False - End Sub - - Private Sub cbvalue1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbvalue1.SelectedIndexChanged, _ - cbvalue2.SelectedIndexChanged, cbvalue3.SelectedIndexChanged, cbvalue4.SelectedIndexChanged, cbvalue5.SelectedIndexChanged, cbvalue6.SelectedIndexChanged, cbvalue7.SelectedIndexChanged, _ - cbvalue1.TextChanged, cbvalue2.TextChanged, cbvalue3.TextChanged, cbvalue4.TextChanged, cbvalue5.TextChanged, cbvalue6.TextChanged, cbvalue7.TextChanged - If Me.On_Load Then Exit Sub - Me.WhereModified = False - Me.PictureBox1.Visible = False - End Sub - - - Private Sub tsbtnReportDesign_Click(sender As Object, e As EventArgs) Handles tsbtnReportDesign.Click - Try - Me.Cursor = Cursors.WaitCursor - Me.auswertungen.TitelZeile1 = Me.txtTitel1.Text - Me.auswertungen.TitelZeile2 = Me.txtTitel2.Text - - If Me.WhereModified = False Then Get_SQLWhere() - Me.Auswertungsdaten = Me.auswertungen.Get_Auswertungsdaten(Me.auswertungen.Auswertung.sSQL.Value, SQLWhere, Me.auswertungen.Auswertung.sSQLType.Value) - Dim f As New frmcrreporting(Me.Auswertungsdaten, Me.auswertungen.Auswertung.iAuswertungNr.Value, Me.auswertungen, Me.checkboxprintparam.Checked, True) - f.Text = "Auswertung " + Me.TreeAuswertungen.SelectedNode.Text - f.MdiParent = Me.MdiParent - Me.Cursor = Cursors.Default - f.Show() - f.DesignReport() - Catch - Me.Cursor = Cursors.Default - MsgBox("Keine Auswertung für die Bearbeitung ausgewählt") - End Try - - - End Sub - - Private Sub TSBtnSetSecurityObject_Click(sender As Object, e As EventArgs) Handles TSBtnSetSecurityObject.Click - If InputBox("Passwort:") <> "341211" Then Exit Sub - sec.List_Form_Controls(Me) - sec.Print_Screen(Me) - End Sub - - Private Sub cbvalue1_KeyDown(sender As Object, e As KeyEventArgs) Handles cbvalue1.KeyDown - If e.KeyCode = Keys.F1 Then - Dim d As New DataTable - d = cbvalue1.DataSource - Dim x As New DataTable - x = d.Copy - Dim f As New frmDataSelect - f.C1Daten.DataSource = x - f.C1Daten.DataMember = x.TableName - f.ShowDialog() - If f.selectedvalue <> "" Then Me.cbvalue1.Text = f.selectedvalue - End If - End Sub - - - Private Sub cbvalue1_Leave(sender As Object, e As EventArgs) Handles cbvalue1.Leave, cbvalue2.Leave, cbvalue3.Leave, cbvalue4.Leave, cbvalue5.Leave, cbvalue6.Leave, cbvalue7.Leave - Try - Dim s As String = ParamNr(sender.name) - Dim nr As Integer = s - Dim param As New ComboBox - Dim op As New ComboBox - Dim val As New ComboBox - - CtrlList.Clear() - Me.GetControl(Me, "cbvalue" + Trim(Str(nr)), CtrlList) - val = CtrlList.Item(0) - For i = 1 To cblist.Count - Dim cb As cbe = cblist.Item(i) - If cb.ComboboxName = val.Name And cb.Name = val.Text Then - val.SelectedValue = cb.Keyvalue - End If - Next - Catch ex As Exception - End Try - End Sub -End Class - - -Public Class cbe - Dim m_keyvalue As String - Dim m_name As String - Dim m_comboboxname As String - Property Keyvalue As String - Get - Return m_keyvalue - End Get - Set(value As String) - m_keyvalue = value - End Set - End Property - - Property Name As String - Get - Return m_name - End Get - Set(value As String) - m_name = value - End Set - End Property - Property ComboboxName As String - Get - Return m_comboboxname - End Get - Set(value As String) - m_comboboxname = value - End Set - End Property - Sub New(ByVal comboboxname As String, ByVal keyvalue As String, name As String) - Me.Keyvalue = keyvalue - Me.Name = name - Me.ComboboxName = comboboxname - End Sub -End Class \ No newline at end of file diff --git a/_FRReporting/Formulare/frmAuswertung.designer.vb b/_FRReporting/Formulare/frmAuswertung.designer.vb deleted file mode 100644 index 71221da..0000000 --- a/_FRReporting/Formulare/frmAuswertung.designer.vb +++ /dev/null @@ -1,185 +0,0 @@ - _ -Partial Class frmAuswertung - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/frmAuswertung.resx b/_FRReporting/Formulare/frmAuswertung.resx deleted file mode 100644 index 47b66f1..0000000 --- a/_FRReporting/Formulare/frmAuswertung.resx +++ /dev/null @@ -1,944 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 229, 17 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5 - qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC - A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR - VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg== - - - - - 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= - - - - - 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 - - - - - 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= - - - - 469, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 - vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC - - - - - 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= - - - - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor: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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 832, 393</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 832, 393</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> - - - 332, 17 - - - 626, 17 - - - - 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= - - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmAuswertung.vb b/_FRReporting/Formulare/frmAuswertung.vb deleted file mode 100644 index 0b67064..0000000 --- a/_FRReporting/Formulare/frmAuswertung.vb +++ /dev/null @@ -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 - - - - ''' - ''' Initialisierung des Formulars - ''' - ''' - ''' - 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 \ No newline at end of file diff --git a/_FRReporting/Formulare/frmCRReporting.designer.vb b/_FRReporting/Formulare/frmCRReporting.designer.vb deleted file mode 100644 index 9a08198..0000000 --- a/_FRReporting/Formulare/frmCRReporting.designer.vb +++ /dev/null @@ -1,52 +0,0 @@ - _ -Partial Class frmcrreporting - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/frmCRReporting.resx b/_FRReporting/Formulare/frmCRReporting.resx deleted file mode 100644 index d58980a..0000000 --- a/_FRReporting/Formulare/frmCRReporting.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmCRReporting.vb b/_FRReporting/Formulare/frmCRReporting.vb deleted file mode 100644 index 5a54781..0000000 --- a/_FRReporting/Formulare/frmCRReporting.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Formulare/frmCalendar.designer.vb b/_FRReporting/Formulare/frmCalendar.designer.vb deleted file mode 100644 index 56cca9b..0000000 --- a/_FRReporting/Formulare/frmCalendar.designer.vb +++ /dev/null @@ -1,62 +0,0 @@ - _ -Partial Class frmCalendar - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/frmCalendar.resx b/_FRReporting/Formulare/frmCalendar.resx deleted file mode 100644 index d58980a..0000000 --- a/_FRReporting/Formulare/frmCalendar.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmCalendar.vb b/_FRReporting/Formulare/frmCalendar.vb deleted file mode 100644 index 90f8294..0000000 --- a/_FRReporting/Formulare/frmCalendar.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Formulare/frmDataSelect.Designer.vb b/_FRReporting/Formulare/frmDataSelect.Designer.vb deleted file mode 100644 index ea252c0..0000000 --- a/_FRReporting/Formulare/frmDataSelect.Designer.vb +++ /dev/null @@ -1,92 +0,0 @@ - _ -Partial Class frmDataSelect - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - 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 diff --git a/_FRReporting/Formulare/frmDataSelect.resx b/_FRReporting/Formulare/frmDataSelect.resx deleted file mode 100644 index ab02966..0000000 --- a/_FRReporting/Formulare/frmDataSelect.resx +++ /dev/null @@ -1,172 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5 - qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC - A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR - VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 - vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC - - - - - 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= - - - - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor: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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 449, 282</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 449, 282</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob> - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmDataSelect.vb b/_FRReporting/Formulare/frmDataSelect.vb deleted file mode 100644 index 37dd3b5..0000000 --- a/_FRReporting/Formulare/frmDataSelect.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Formulare/frmEditWhere.designer.vb b/_FRReporting/Formulare/frmEditWhere.designer.vb deleted file mode 100644 index 53e2ce3..0000000 --- a/_FRReporting/Formulare/frmEditWhere.designer.vb +++ /dev/null @@ -1,62 +0,0 @@ - _ -Partial Class frmEditWhere - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - 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 diff --git a/_FRReporting/Formulare/frmEditWhere.resx b/_FRReporting/Formulare/frmEditWhere.resx deleted file mode 100644 index 4d79d5c..0000000 --- a/_FRReporting/Formulare/frmEditWhere.resx +++ /dev/null @@ -1,418 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - 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== - - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmEditWhere.vb b/_FRReporting/Formulare/frmEditWhere.vb deleted file mode 100644 index 489dba5..0000000 --- a/_FRReporting/Formulare/frmEditWhere.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Formulare/frmViewer.Designer.vb b/_FRReporting/Formulare/frmViewer.Designer.vb deleted file mode 100644 index 31989a4..0000000 --- a/_FRReporting/Formulare/frmViewer.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ - _ -Partial Class frmViewer - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/frmViewer.resx b/_FRReporting/Formulare/frmViewer.resx deleted file mode 100644 index 7080a7d..0000000 --- a/_FRReporting/Formulare/frmViewer.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/_FRReporting/Formulare/frmViewer.vb b/_FRReporting/Formulare/frmViewer.vb deleted file mode 100644 index fba6276..0000000 --- a/_FRReporting/Formulare/frmViewer.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class frmViewer - -End Class \ No newline at end of file diff --git a/_FRReporting/Formulare/sample.Designer.vb b/_FRReporting/Formulare/sample.Designer.vb deleted file mode 100644 index 88417b6..0000000 --- a/_FRReporting/Formulare/sample.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ - _ -Partial Class sample - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.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 diff --git a/_FRReporting/Formulare/sample.resx b/_FRReporting/Formulare/sample.resx deleted file mode 100644 index 1af7de1..0000000 --- a/_FRReporting/Formulare/sample.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/_FRReporting/Formulare/sample.vb b/_FRReporting/Formulare/sample.vb deleted file mode 100644 index 03bb3da..0000000 --- a/_FRReporting/Formulare/sample.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class sample - -End Class \ No newline at end of file diff --git a/_FRReporting/Klassen/Crypto.vb b/_FRReporting/Klassen/Crypto.vb deleted file mode 100644 index e6f4afa..0000000 --- a/_FRReporting/Klassen/Crypto.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Klassen/Globals.vb b/_FRReporting/Klassen/Globals.vb deleted file mode 100644 index d9a675b..0000000 --- a/_FRReporting/Klassen/Globals.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/_FRReporting/Klassen/MyDocMgmt.vb b/_FRReporting/Klassen/MyDocMgmt.vb deleted file mode 100644 index 1f30119..0000000 --- a/_FRReporting/Klassen/MyDocMgmt.vb +++ /dev/null @@ -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 - ''' - ''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank - ''' - ''' - ''' Es werden folgende Datebanktabellen berücksichtigt: - ''' - ''' - ''' Dokument Attribut DocImage - ''' - ''' Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der - ''' Vertragsübersicht|Vertragselemente - ''' - ''' yes - Public Class MyDocMgmt - ''' - ''' Grid-Layoutfile speichern - ''' - ''' C1Truedbgrind, von welchem das Layout gespeichert werden soll - ''' Nummer des Grids: 1=Vertragsübersicht... - ''' - ''' - 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 - - ''' - ''' Dokument in der Tabelle Dokument speichern - ''' - ''' Nummer des Dokument-Datensatzes - ''' Zu speichender Dateiname - ''' - ''' - - 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 - - ''' - ''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab - ''' - ''' - ''' - ''' - 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 diff --git a/_FRReporting/Klassen/MySecurity.vb b/_FRReporting/Klassen/MySecurity.vb deleted file mode 100644 index 14a6518..0000000 --- a/_FRReporting/Klassen/MySecurity.vb +++ /dev/null @@ -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 - ''' - ''' Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen - ''' - ''' - - 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 = "" - - - - ''' - ''' Formularsecurity setzen - ''' - ''' Aktuelles Formular - ''' - ''' - 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 - - - - ''' - ''' Daten ab Datenbank laden - ''' - ''' - 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 - ''' - ''' Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt - ''' - ''' - 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 - - ''' - ''' Security-Einstellungen setzen - ''' - ''' Betroffenes Objeckt (Menuitem, Conrol usw.) - ''' Readonly ja/nein - ''' Sichtbar ja/nein - ''' Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet - ''' - 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 - ''' - ''' Alle Controls des Formulars zusammensuchen und auf der DB speichern - ''' - ''' Betroffenes Formular - ''' - ''' - - 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 - - ''' - ''' Sämtliche Controls vom Formular auslesen - ''' - ''' - ''' - ''' - 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 - - ''' - ''' Auslesen von MenuItems - ''' - ''' - ''' - ''' - ''' - 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 - ''' - ''' Auslesen von ContextMenuItems - ''' - ''' - ''' - ''' - ''' - - 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 - ''' - ''' Auslesen von Menu-Subitems - ''' - ''' - ''' - ''' - 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 - - - - ''' - ''' Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - ''' - ''' Formular - ''' Objekttyp - ''' Objektname - ''' Objektitem - ''' - ''' - 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 - ''' - ''' Klasse für ein Control-Objekt - ''' - ''' - 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 - - ''' - ''' Neue Instanz erstellen - ''' - ''' Control-Objekt - ''' Betroffenes Formular - ''' Objekttyp - ''' Objektname - ''' Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids) - ''' - 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 - - ''' - ''' Schreibt einen Datnsatz in die Tabelle SecurityObjects - ''' - ''' - ''' - 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 - - - ''' - '''Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - ''' - ''' - ''' - 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 diff --git a/_FRReporting/Klassen/clsAuswertung.vb b/_FRReporting/Klassen/clsAuswertung.vb deleted file mode 100644 index 88076b9..0000000 --- a/_FRReporting/Klassen/clsAuswertung.vb +++ /dev/null @@ -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 - - - - ''' - ''' Auswertungen, für welche der User berechtigt ist, auslesen - ''' - ''' - ''' - 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 - - ''' - ''' Interne Relation aufbauen und Tree aufbauen - ''' - ''' - ''' - ''' - 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 - - ''' - ''' Tree aufbauen - ''' - ''' - ''' - ''' - 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 - - ''' - ''' Child-Nodes hinzufügen - ''' - ''' - ''' - ''' - 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 diff --git a/_FRReporting/Klassen/clsMyKey_Tabelle.vb b/_FRReporting/Klassen/clsMyKey_Tabelle.vb deleted file mode 100644 index b6c51fb..0000000 --- a/_FRReporting/Klassen/clsMyKey_Tabelle.vb +++ /dev/null @@ -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 diff --git a/_FRReporting/My Project/Application.Designer.vb b/_FRReporting/My Project/Application.Designer.vb deleted file mode 100644 index 8ab460b..0000000 --- a/_FRReporting/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/_FRReporting/My Project/Application.myapp b/_FRReporting/My Project/Application.myapp deleted file mode 100644 index 758895d..0000000 --- a/_FRReporting/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/_FRReporting/My Project/AssemblyInfo.vb b/_FRReporting/My Project/AssemblyInfo.vb deleted file mode 100644 index 87aee83..0000000 --- a/_FRReporting/My Project/AssemblyInfo.vb +++ /dev/null @@ -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 - - - - - - - - - - -'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird - - -' 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: -' - - - diff --git a/_FRReporting/My Project/Resources.Designer.vb b/_FRReporting/My Project/Resources.Designer.vb deleted file mode 100644 index 9689ed2..0000000 --- a/_FRReporting/My Project/Resources.Designer.vb +++ /dev/null @@ -1,63 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("_FRReporting.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Ãœberschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/_FRReporting/My Project/Resources.resx b/_FRReporting/My Project/Resources.resx deleted file mode 100644 index af7dbeb..0000000 --- a/_FRReporting/My Project/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/_FRReporting/My Project/Settings.Designer.vb b/_FRReporting/My Project/Settings.Designer.vb deleted file mode 100644 index 23e6932..0000000 --- a/_FRReporting/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) - -#Region "Funktion zum automatischen Speichern von My.Settings" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global._FRReporting.My.MySettings - Get - Return Global._FRReporting.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/_FRReporting/My Project/Settings.settings b/_FRReporting/My Project/Settings.settings deleted file mode 100644 index 85b890b..0000000 --- a/_FRReporting/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/_FRReporting/My Project/licenses.licx b/_FRReporting/My Project/licenses.licx deleted file mode 100644 index 02a7aaa..0000000 --- a/_FRReporting/My Project/licenses.licx +++ /dev/null @@ -1 +0,0 @@ -C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da diff --git a/_FRReporting/My Project/licenses.licx.bak b/_FRReporting/My Project/licenses.licx.bak deleted file mode 100644 index 02a7aaa..0000000 --- a/_FRReporting/My Project/licenses.licx.bak +++ /dev/null @@ -1 +0,0 @@ -C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da diff --git a/_FRReporting/_FRReporting.vb b/_FRReporting/_FRReporting.vb deleted file mode 100644 index c283b63..0000000 --- a/_FRReporting/_FRReporting.vb +++ /dev/null @@ -1,90 +0,0 @@ -Imports System.Windows.Forms - -Public Class _FRReporting - Dim m_connectionstring As String - -#Region "Properties" - Public Property ConnectionString() As String - Get - ConnectionString = m_connectionstring - End Get - Set(ByVal Value As String) - If m_connectionstring <> Value Then - m_connectionstring = Value - Globals.sConnectionString = m_connectionstring - Globals.conn.sConnectionString = m_connectionstring - End If - End Set - End Property - - - Dim m_Mitarbeiternr As Integer - Public Property Mitarbeiternr As Integer - Get - Mitarbeiternr = m_Mitarbeiternr - End Get - Set(value As Integer) - If m_Mitarbeiternr <> value Then - m_Mitarbeiternr = value - Globals.Mitarbeiternr = m_Mitarbeiternr - End If - End Set - End Property - - Dim m_TempFilePath As String - Public Property TempFilePath As String - Get - TempFilePath = m_TempFilePath - End Get - Set(value As String) - If m_TempFilePath <> value Then - m_TempFilePath = value - Globals.TmpFilepath = m_TempFilePath - End If - End Set - End Property - - Sub New() - - End Sub -#End Region - - - Public Function ReportSelect(ByVal Parentform As Form) - Dim f As New FrmReportSelect - f.MdiParent = Parentform - f.Show() - End Function - - Public Function DefaultReport(ByVal auswertungnr As Integer, param As String, ByVal ParamValue As String, Optional Parent As Object = Nothing) - Dim f As New FrmReportSelect - f.MdiParent = Parent - f.Show() - f.TreeAuswertungen.SelectedNode = FindNode(f.TreeAuswertungen.Nodes, auswertungnr, "") - f.cbparam1.Text = param - f.cbop1.Text = "=" - f.cbvalue1.Text = ParamValue - f.showreport() - f.Close() - End Function - - Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode - Dim tmpNode As TreeNode - For Each _child As TreeNode In _nodeCollection - If _child.Tag = SearchVal Then - - Return _child - End If - ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then - ' Return _child - ' End If - tmpNode = FindNode(_child.Nodes, SearchVal, SearchString) - If Not tmpNode Is Nothing Then - Return tmpNode - End If - Next - Return Nothing - End Function - - -End Class diff --git a/_FRReporting/_FRReporting.vbproj b/_FRReporting/_FRReporting.vbproj deleted file mode 100644 index 4bf44d4..0000000 --- a/_FRReporting/_FRReporting.vbproj +++ /dev/null @@ -1,215 +0,0 @@ - - - - - Debug - AnyCPU - {C04C6268-6402-4DEB-8BFA-E6A233B55DBF} - Library - _FRReporting - _FRReporting - 512 - Windows - v4.0 - - - - true - full - true - true - bin\Debug\ - _FRReporting.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - _FRReporting.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - False - ..\..\_Klassen\XLSLib\XLSLib\bin\Debug\FlexCel.dll - - - - - - - - - - - - - ..\..\_Klassen\XLSLib\XLSLib\bin\Debug\XLSLib.dll - - - - - - - - - - - - - - - - - - - - - - - - - - frmAuswertung.vb - - - Form - - - frmCalendar.vb - - - Form - - - frmCRReporting.vb - - - Form - - - frmDataSelect.vb - - - Form - - - frmEditWhere.vb - - - Form - - - sample.vb - - - Form - - - - - - - - - - FrmReportSelect.vb - - - Form - - - frmViewer.vb - - - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - frmAuswertung.vb - Designer - - - frmCalendar.vb - - - frmCRReporting.vb - - - frmDataSelect.vb - - - frmEditWhere.vb - - - FrmReportSelect.vb - - - frmViewer.vb - - - sample.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - \ No newline at end of file diff --git a/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.dll b/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.dll deleted file mode 100644 index bf25d2b..0000000 Binary files a/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.dll and /dev/null differ diff --git a/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.xml b/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.xml deleted file mode 100644 index 433945e..0000000 --- a/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.xml +++ /dev/null @@ -1,10613 +0,0 @@ - - - - C1.Win.C1TrueDBGrid.2 - - - - - - - - - Gets the data source. - - - - - - - Gets the data view. - - - - - - - - - - - Sets the bound control. - - The bound control. - The name. - - - - Gets the size of the virtual segment. - - - - - - - Sets the visible row count. - - The value. - The name. - - - - Bounds the control scrolled. - - - - - - - - - Gets the first visible row. - - - - - - - Gets the visible row count. - - - - - - - Scrolls to row. - - The first visible row. - The row count. - - - - - - - - Requests the modification. - - - - - - - - - Sets the row filter. - - The value. - - - - Sets the sort. - - The value. - - - - Refreshes this instance. - - - - - Interfaces used by bound controls and other C1Data consumers: - Dynamic, late bound access to the interfaces, via reflection - - - - - Gets the data source. - - The obj. - - - - - - - - - - News the late binding I c1 complex bound control. - - The obj. - - - - - - - - - - Gets the data view. - - The obj. - - - - - - Holds a Graphics object together with (printer) device or bitmap that was used - to create it, if any. The point is to dispose the device or bitmap together - with the graphics when it is no longer needed (i.e. to avoid resource leaks). - - - - - An empty graphics holder instance. - - - - - Creates a graphics holder from a device context. - When the holder is disposed, both graphics and the device context are released (DeleteDC is called on the device context). - - The device context from which graphics is created. - The new instance of the graphics holder. - - - - Creates a graphics holder from a graphics instance. - When the holder is disposed, the graphics is left alone (i.e. NOT disposed). - - The graphics to store in the new holder. - The new instance of the graphics holder. - - - - Creates a graphics holder from screen. If that fails (e.g. on Azure), the graphics is created from a bitmap. - When the holder is disposed, both graphics and the bitmap are released. - - The new instance of the graphics holder. - - - - Creates a graphics holder from a bitmap. The graphics and the bitmap are released when the holder is disposed. - This should never fail. - - The new instance of the graphics holder. - - - - Disposes the current graphics holder. - - - - - Gets the graphics object held by the current instance. - - - - - Gets the horizontal resolution of graphics held by the current instance. - - - - - Gets the vertical resolution of graphics held by the current instance. - - - - - Represents an exception that occurred during C1DX or C1MDX serialization/deserialization - if the underlying zip stream has invalid format. - - - - - Abstract base class for and - classes. - - - - - Gets the list of strings describing the actions that lead to the exception that occurred - during serialization or deserialization. - - - - - Represents an exception that occurred during serialization. - - - - - Represents an exception that occurred during deserialization. - - - - - Gets the line number associated with the exception. - - - - - Gets the position in line associated with the exception. - - - - - Represents range of character codes. - - - - - Initialization of the range of character codes - - Adding character. - - - - Initialization of the range of character codes - - The first character code. - The last character code. - - - - - - - - - - - - - - - - - The begin code of character. - - - The end code of character. - - - - Represents collection of unique objects. - All CodeRange objects within collection not intersect and sorted - by First field. - - - - - Adds object to current without any check, typically used during deserialization. - - - to add. - - - - Gets the array of chars contained in this list of code ranges. - - Array of char - - - - Gets a value indicating whether the collection - contains all characters from 0x0000 to 0xFFFF. - - - - - - - Static class containing UI strings used by the designer. - - - - - Represents a handler for an item related event. - - - - - Provides data for an item related event. - - - - - Gets key of the item being added or changed. - - The key. - - - - Gets the string value. - - The value. - - - - Gets a value indicating whether this instance is default. - - - true if this instance is default; otherwise, false. - - - - - Gets the description. - - The description. - - - - Represents a collection of end user visible UI strings. - - - - - Adds a string to the collection, specifying the ordinal. - - The key of the string. - The ordinal of the string. - The string. - The description of the string. - - - - Adds a string to the collection in alphabetical order. - - The key of the string. - The string. - The description of the string. - - - - Adds a string to the collection, preserving the order. - - The key of the string. - The string. - The description of the string. - - - - Sets all strings in collection to their default values. - - - - - Indicates whether any of the strings in the current collection - have non-default values. - - - true if any of the strings have non-default values, false otherwise. - - - - Tests whether a string in the collection has default value. - - The key of the string to test. - - true if the string has default value, false otherwise. - - - - Returns the description of a string. - - The key of the string to get the description of. - The string's description - - - - Resets a string to its default value. - - The key of the string to reset. - - - - Returns the key of an item with the specified index. - - The item index. - The item's key. - - - - Gets the string by its index. - - The string index. - The string. - - - - Sets the value of a string with the specified index. - - The string index. - The new string value. - - - - Fires the event. - - The event data. - - - - Fires the event. - - The event data. - - - - Fires the event. - - The event data. - - - - Gets the number of elements contained in the collection. - - - - - Occurs when a new item is added to the collection. - - - - - Occurs when an item in the collection is changed. - - - - - Occurs when the collection has been changed. - - - - - Provides type conversion for the type. - - - - - For internal use. - - - - - - - - - - - - - - - For internal use. - - - - - - - - - - - - - For internal use. - - - - - - - - - C1TrueDBGrid control object. - - - - - Summary description for BaseGridFrame. - - - - - For internal use. - - - - - Ctor for the split container class. - - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - Raised when the Binding Context changes. - - - - - - - ISupportInitialize interface. - - - - - ISupportInitialize interface. - - - - - Called after the control has been added to another container. - - - - - Inherited from Control. - - - - - - - Raises the VisibleChanged event when the Visible property value of the control's container changes. - - An that contains the event data. - - - - Initializes root and named styles. - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - - - Inherited from Control. - - - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Processes Windows messages. - - - - - - - Helper method for serializing images. - - - - - Recomputes the sizes of the splits based on the client size of the control. - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Inherited from Control. - - - - - - - Creates the view. - - - - - - - Creates the view. - - The other. - - - - - - Called when the datasource changes. - - The new datasource. - The new datamember. - True to force a new binding. - - - - - - - - - - - - - - - - - - - - - - - - - - - - Resets to the default value. - - - - - Tests whether should be serialized. - - True if should be serialized, false otherwise. - - - - Raises the event. - - The instance containing the event data. - - - - Raised after the datasource has been updated for a column. - - - - - - - Raised after a row has been deleted. - - - - - - - Raised after a row has been inserted. - - - - - - - Raised after a row has been updated. - - - - - - - Raised before a column has been updated. - - - - - - - Raised before a row is deleted. - - - - - - - Raised before a row is inserted. - - - - - - - Raised before a row is updated. - - - - - - - Raised when a column has been resized. - - - - - - - Raised when a column header has been clicked. - - - - - - - Raised when a column footer has been clicked. - - - - - - - Raised when a cell has to be rendered. - - - - - - - Raised when a cell has to be printed. - - - - - - - Raised when Page header needs to be printed. - - - - - - - Raised when a Page footer needs to be printed. - - - - - - - Raised before a row or column currency is changed. - - - - - - - Raised after a row or column currency has been changed. - - - - - - - Raised before a row is resized. - - - - - - - Raised when the grid scrolls. - - - - - - - Raised when a selection has changed. - - - - - - - Raised when split currency has changed. - - - - - - - Raised when a split has been added. - - - - - - - Raised when a split has been removed. - - - - - - - Raised when the grids cell content has been modified. - - - - - - - Raised to fetch data for an unbound column. - - - - - - - Raised when an unbound column has been updated. - - - - - - - Raised after a column has been edited. - - - - - - - Raised before a column edit. - - - - - - - Raised when a column has been edited. - - - - - - - Raised when the top row has changed. - - - - - - - Raised when the left column has changed. - - - - - - - Raised when a cell value needs custom formatting. - - - - - - - Raised when a button in a cell has been clicked. - - - - - - - Raised when a value in the combobox has been selected. - - - - - - - Raised when a value item is selected that's not in the ValueItems collection. - - - - - - - Raised when a custom style is to be used for rendering a cell. - - - - - - - Raised when a custom style is to be used for renderind a grouped cell. - - - - - - - Raised when a custom style is to be used for a row. - - - - - - - Raised when a new row is added. - - - - - - - Raised when a column is dragged. - - - - - - - Raised when a cell tip is to be displayed. - - - - - - - Raised when the grid is initialized. - - - - - - - Raised when the datasource is changed. - - - - - - - Raised when a band is collasped in a hierarchical grid. - - - - - - - Raised when a band is expanded in a hierarchical grid. - - - - - - - Raised when a grouped column is moved. - - - - - - - Raised when a column header in the grouping area is clicked. - - - - - - - Raised when scroll tips are to be displayed. - - - - - - - Raised when a filter condition has changed. - - - - - - - Raised when a button in the filter bar is clicked. - - - - - - - Raised before a child grid is displayed. - - - - - - - Rasied before a child grid is closed. - - - - - - - Raised when the datasource is sorted by clicking the column header. - - - - - - - Raised when AllowFilter is false. - - - - - - - Raised after the datasource has been filtered. - - - - - - - Raised after the datasource has been sorted. - - - - - - - Raised when the grid encounters an error through the UI. - - - - - - - Raised when custom values are to be used for the group text. - - - - - - - Raised when custom aggregates are used for a grouped grid. - - - - - - - Raised when custom group intervals are used for a grouped grid. - - - - - - - Binds the grid at runtime - - Source of the data - The table to bind to within the object returned by the DataSource property - True to preserve design time layout - /// True to keep previously expanded groups in GroupBy mode. - - - Binds the grid at runtime - - Source of the data - The table to bind to within the object returned by the DataSource property - True to preserve design time layout - - - - Binds the grid at runtime - - Source of the data - The table to bind to within the object returned by the DataSource property - The call to SetDataBinding(object dataSource, string dataMember) assumes false for the holdFields arguments. - - - - Configures the grid for use without a datasource. - - - - - Adds a row to an unbound grid. - - The data used to populate the new row. Column data is delimited by ';' char. - The index of the row that was added. - - - - Adds a row to an unbound grid. - - The data used to populate the new row. - Character used to separate the data fields. - The index of the row that was added. - - - - Adds the number of given rows to an unbound grid. - - The number of rows to add. - The index of the first row that was added. - - - - Deletes the given row from an unbound grid. - - The index of the row to remove. - - - - Deletes a range of rows from an unbound grid. - - The starting index of the row to remove. - The number of rows to remove. - - - - Creates a new System.Data.DataRow with the same schema as the unbound grid. - - - - - - - Gets the default size of the control. - - - - - The default of the control. - - - - - Allows us to set the borderstyle. - - - - - Gets the current position from the currency manager. - - - - - Gets or sets the border for the control. - - - - - Gets or sets a value indicating whether the InactiveStyle is applied to the grid when it loses focus. - - - - - Gets or sets a value indicating the ability of the grid to automatically sort data when a column header is clicked. - - - If True, and if the property is set to GroupBy, the grid will automatically filter column data upon grouping action. - If False, the grid will fire the event. - If the property is set to Group By and the user attempts to drag a column header into the grouping area, the grid will automatically sort the column data. - If False, the event allows the application to sort the data. - - - - - Gets or sets a value indicating the ability of the grid to automatically filter data. - - - If True, and if the Filter Bar is active, the grid will automatically filter data. - If False, the grid will fire the event. - If the property is true and the user attempts to filter column data, the grid will automatically filter the column data according to the value in the Filter Bar. - If False, the event allows the application to filter the data. - - - - - Gets or sets the grid's caption. - - - For a control, this property determines the text displayed in the caption bar at the top of the grid. - Setting the Caption property to an empty string for a control hides its caption bar. - For a object, this property determines the text displayed in the object's heading area. - Setting the Caption property to an empty string for a object clears the text in the column's heading area but does not hide the heading. Column captions are only displayed if the grid's property is set to True. - Setting the Caption property to an empty string for a object hides the heading area, even if other splits have non-empty captions. - - - - - Gets or sets the height of the grid's caption. - - This property requires that the property of the grid has a value. - - - - Gets or sets the height of grid rows. - - - - - Gets or sets the specific data member in a multimember data source that the grid binds to. - - - This property returns or sets the name of the data member used to populate the grid. Typically, a data member represents a database table or query. - A bound can expose multiple sets of data that consumers can bind to. Each set of data is called a data member, and is identified by a unique string. - - - - - Gets or sets the source containing a list of values used to populate the items within the control. - - The DataSource property specifies the list of values used to bind a or control. - - - - Gets or sets a value indicating whether the control should use an off-screen buffer when painting to redue flicker. - - - Setting this value to False may cause the grid to flicker when the control is painting. - You may want to set DoubleBuffer to False to increase performance when deploying applications that run on terminal servers. - - - - - Gets or sets the general appearance of 3D elements for the entire grid. - - - - - Gets the DataRowCollection for an unbound grid. - - - - - Gets or sets a value that controls how the grid scrolls when the scroll thumb is moved. - - - - - - The size of the split divider. - - - - Gets the number of rows in an unbound grid. - - - - - Gets or sets a value indicating whether Style information is applied from the datasource. - - - - - Occurs when visual style property has been changed. - - - - - Gets or sets a value that determines the overall appearance of the control. - - - This property allows you to quickly customize the appearance of the grid so - it matches the appearance of your application. - The settings available include System, various Microsoft Office color - schemes, and Custom, which relies on the controls standard styles and appearance - properties. - - - - - Gets or sets the renderer used to render visual styles. - - The renderer. - - - - Specifies whether text rendering should be compatible with previous releases of WinForms. - - - This property determines whether the control should render text using the - class (compatible with previous versions), or the new class - (available in .NET 2.0 and later). - The class supports complex scripts and Uniscribe APIs, making - it better suited for some international applications. - However, the class seems to render about 25% slower than the - traditional method. - You may want to try both modes and select the one that matches the appearance of other - controls and forms in your application. - - - - - The C1TrueDBGrid control. - - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - Creates a new accessibility object for the control. - - A new for the control. - - - - Creates the view. - - - - - - - Creates the view. - - The other view. - - - - - - - - - - End initialization. - - - - - - - - - - - - - - - - - - - - - - - Gets a top-level object bound to the specified view row. - - Returns null if the specified view row is not a data row. - - - - Shoulds the width of the record selector be serialized. - - - - - - - Should the row divider be serialized. - - - - - - - - - - - - - Adds a row to an unbound grid. - - The data used to populate the new row. Column data is delimited by ';' char. - The index of the row that was added. - - - - Adds a row to an unbound grid. - - The data used to populate the new row. - Character used to separate the data fields. - The index of the row that was added. - - - - Adds the number of given rows to an unbound grid. - - The number of rows to add. - The index of the first row that was added. - - - - Instructs the grid to temporarily ignore IBindingList.ListChange notifications from the data source. - - - - - Resumes IBindingList.ListChange notifications from the data source to the grid. - - - - - Controls the used to change the appearance for cells meeting the specified condition. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - - - Controls the used to change the appearance of cells according to their contents. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - A regular expression string. - - - - - Returns the row index of the DataSource for a display row index. - - - The row index of the grid. - - - The underlying row index of the DataSource. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - A regular expression string. - - - - - Restores the default grid layout. - - - - - Returns the column index for the column containing the specified X coordinate. - - - The horizontal coordinate (X value) in pixels. - - - The index of the column in the collection beneath the specified X coordinate. - - - - - Returns the column index for the column containing the specified point. - - - The point. - - - The index of the column in the collection beneath the specified point. - - [C1Description("Identifies the index of the DisplayColumn under a point")] - - - - Returns the zero-based index of the display row containing the Y specified coordinate. - - - The vertical coordinate (Y value) in pixels. - - - The display row index beneath the specified Y coordinate. - - - - - Returns the Y coordinate of the top of a visible row. - - - The displayed row index. - - - The Y coordinate of the specified display row, based on the client coordinates of the grid. - - - - - Scrolls the grid data area by the specified number of rows and columns. - - - Number of columns to scroll. - - - Number of rows to scroll. - - - - - Returns one of the enumerations, which indicates the kind of grid element beneath the specified coordinate. - - - The Point in client coordinates. - - - The enumerations under the given coordinate. - - - - - Returns one of the constants, which indicates the kind of grid element beneath the specified coordinate. - - - The x-coordinate. - - - The y-coordinate. - - - The enumerations under the given coordinate. - - - - - Reinitializes grid with data from its data source. - - - True to preserves current column layout. False retrieves the schema from the datasource. - - - - - - - - - Returns the of the split containing the specified coordinate. - - - The x-coordinate. - - - The y-coordinate. - - - The beneath the specified coordinate pair. - - - - - Updates any changes on the current row to the data source. - - - - - Moves the current row positions of the grid by the given offset. - - - The number of records to move. A positive value indicates forward movement; a negative value indicates backward movement. - - - - - Moves the current row positions of the grid by the given offset from the given row. - - - The number of records to move. A positive value indicates forward movement; a negative value indicates backward movement. - - - The origin of the relative movement. - - - - - Positions to the last row of the datasource. - - - - - Positions to the first row of the datasource. - - - - - Positions to the next row of the datasource. - - - - - Positions to the previous row of the datasource. - - - - - Deletes the current row. - - - - - Loads a saved layout from the given file. - - - The file containing a saved layout. - - - - - Loads a saved layout from the given stream. - - - The Stream containing a saved layout. - - - - - Saves the grid's layout. - - - File to contain the grid layout. - - - - - Saves the grid's layout. - - - The Stream to contain the grid layout. - - - - - Saves the grid's layout. - - - File to contain the grid layout. - - - Specifies whether default values are serialized. - - - - - Saves the grid's layout. - - - The Stream to contain the grid layout. - - - Specifies whether default values are serialized. - - - - - Returns the cell position for a set of coordinates. - - - The x-coordinate. - - - The y-coordinate. - - - The row under the coordinate pair. - - - The column index under the coordinate pair. - - - A value indicating whether a data cell is beneath the specified coordinate pair. - - - The CellContaining method combines the and methods into one call. If the coordinate pair specified by x and y points to a data cell, this method returns True, and the rowindex and colindex arguments receive zero-based indexes that identify the cell. - This method is useful when working with mouse and drag events when trying to determine where the user clicked or dropped another control in terms of a grid cell. - If the specified coordinate is outside of the grid's data area, this method returns False. Use the method to determine what kind of grid element, if any, is beneath the specified coordinate. - - - - - Invalidates the current row. - - - The RefreshRow method causes a repaint of the entire row in the grid. Normally, the grid repaints automatically as needed. However, if handlers have been written for the event, use this method to force a row to be repainted and hence cause the appropriate events to fire. - - - - - Invalidates the current row. - - - The row to refresh. - - - The RefreshRow method causes a repaint of the entire row in the grid. Normally, the grid repaints automatically as needed. However, if handlers have been written for the event, use this method to force a row to be repainted and hence cause the appropriate events to fire. - - - - - Invalidates the current column. - - - The RefreshCol method causes a repaint of the entire column in the grid. Normally, the grid repaints automatically as needed. However, if handlers have been written for the event, use this method to force a column to be repainted and hence cause the appropriate events to fire. - - - - - Invalidates the specified column. - - - The split column index to repaint. - - - The RefreshCol method causes a repaint of the entire column in the grid. Normally, the grid repaints automatically as needed. However, if handlers have been written for the event, use this method to force a column to be repainted and hence cause the appropriate events to fire. - - - - - Retreives data from the datasource for the current row and refreshes the row. - - - The RefetchRow method repopulates the specified row from a data source. It also repaints the row, firing all events necessary for redisplay. - By default, the grid retrieves data automatically as needed. In some circumstances, the underlying datasource may change without the grid receiving notification that a change has occurred. The RefetchRow method is provided for this purpose. - - - - - Retreives data from the datasource for the specified row and refreshes the row. - - - The row to refetch. - - - The RefetchRow method repopulates the specified row from a data source. It also repaints the row, firing all events necessary for redisplay. - By default, the grid retrieves data automatically as needed. In some circumstances, the underlying datasource may change without the grid receiving notification that a change has occurred. The RefetchRow method is provided for this purpose. - - - - - Expands the given row in GroupBy DataView. - - - The row to expand. - - - Expanding/collapsing a row in a GroupBy grid also expands/collapses the row in a split that shares the same vertical scroll group. - - - - - - - Expands the given row in GroupBy DataView and optionally exapands the subrows. - - The row to expand. - True to expand subrows. - - - - Collapses a grouped row. - - - - - Obtains the band given a column index. - - - - - Obtains the underlying row object for the given band and row. - - - - - Obtains the expanded state of a band for a hierarchical grid. - - - - - Collapses a gvien band in a hierarchical grid. - - - - - Expand the given band in a hierarchical grid. - - - - - Closes the Child Grid. - - - - - Displays the Child grid. - - - - - Exports the grid to an HTML file. - - - - - Exports the grid to a PDF file. - - - - - Exports the grid to an RTF file. - - - - - Exports the grid to a XLS file. - - - - - Exports the grid to a XLS file. - - - - - Opens a dialog in which the user can select the export format. - - - - - Exports the grid based upon the file extension. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Exports the specified rows from the grid to the specified file as delimited text. - - - - - Inserts vertical splits at the given position. - - - - - Removes all vertical splits at the given index. - - - - - - - - - Inserts new horizontal splits at the given position. - - - - - Removes all the horizontal splits at the given index. - - - - - Clears any cached styles and forces the grid to repaint. - - - - - Sets the focus to the given cell. - - The zero based index of the row. - The zero based index of the column. - - - - Extends the last column in each subrow so that all rows have the same width. - - - - - Raises the AfterColUpdate event. - - - - - - - Raises the AfterDelete event. - - - - - - - Raises the AfterInsert event. - - - - - - - Raises the AfterUpdate event. - - - - - - - Raises the BeforeColUpdate event. - - - - - - - Raises the BeforeDelete event. - - - - - - - Raises the BeforeInsert event. - - - - - - - Raises the BeforeUpdate event. - - - - - - - Raises the ColResize event. - - - - - - - Raises the HeadClick event. - - - - - - - Raises the FootClick event. - - - - - - - Raises the OwnerDrawCell event. - - - - - - - Raises the OwnerDrawCellPrint event. - - - - - - - Raises the OwnerDrawPageHeader event. - - - - - - - Raises the OwnerDrawPageFooter event. - - - - - - - Raises the BeforeRowColChange event. - - - - - - - Raises the RowColChange event. - - - - - - - Raises the RowResize event. - - - - - - - Raises the Scroll event. - - - - - - - Raises the SelChange event. - - - - - - - Raises the SplitChange event. - - - - - - - Raises the SplitRemoved event. - - - - - - - Raises the SplitRemoved event. - - - - - - - Raises the Change event. - - - - - - - Raises the UnboundColumnFetch event. - - - - - - - Raises the UnboundColumnUpdated event. - - - - - - - Raises the AfterColEdit event. - - - - - - - Raises the BeforeColEdit event. - - - - - - - Raises the ColEdit event. - - - - - - - Raises the FirstRowChange event. - - - - - - - Raises the LeftColChange event. - - - - - - - Raises the FromatText event. - - - - - - - Raises the ButtonClick event. - - - - - - - Raises the ComboSelect event. - - - - - - - Raises the ValueItemError event. - - - - - - - Raises the FetchCellStyle event. - - - - - - - Raises the FetchGroupCellStyle event. - - - - - - - Raises the FetchRowStyle event. - - - - - - - Raises the OnAddNew event. - - - - - - - Raises the ColMove event. - - - - - - - Raises the FetchCellTips event. - - - - - - - Raises the OnInit event. - - - - - - - Raises the DataSourceChanged event. - - - - - - - Raises the Collapse event. - - - - - - - Raises the Expand event. - - - - - - - Raises the GroupColMove event. - - - - - - - Raises the GroupText event. - - - - - - - Raises the GroupAggregate event. - - - - - - - Raises the GroupHeadClick event. - - - - - - - Raises the GroupInterval event. - - - - - - - Raises the FetchScrollTips event. - - - - - - - Raises the FilterChange event. - - - - - - - Raises the FilterButtonClick event. - - - - - - - Raises the BeforeOpen event. - - - - - - - Raises the BeforeClose event. - - - - - - - Raises the Sort event. - - - - - - - Raises the Filter event. - - - - - - - Raises the AfterFilter event. - - - - - - - Raises the AfterSort event. - - - - - - - Raises the Error event - - - - - - - - - - - - - Gets a top-level object bound to a current data row. - - Returns null if no data row is selected. - - - - Gets or sets the language to use when localizing the column filters. - - - - - Gets the row object associated with the given row. - - - - - Gets or sets the cell value at the given row and column. - - - - - Gets or sets the cell value at the given row and column. - - - - - Gets a value that describes the current AddNew state. - - - - - Gets or sets a value indicating the ability to delete records from the grid. - - - - - Gets or sets a value indicating the ability to add new rows. - - - - - Gets or sets a value indicating whether arrow keys can be used to navigate around the grid. - - - - - Gets or sets a value indicating the ability to move columns in the grid. - - - - - Gets or sets a value indicating the ability to select columns in the grid. - - - - - Gets or sets a value indicating the ability to drag from the grid. - - - - - Gets or sets a value indicating the ability to select rows in the grid. - - - - - Gets or sets a value indicating the ability of a user to modify data. - - - - - Gets or sets a value indicating how the grid updates modifed data when the grid loses focus. - - - - - Gets the number of levels within a hierarchical grid. - - - - - Gets or sets the current row position of the underlying CurrencyManager. - - - - - Gets or sets whether the grid displays a pop-up text window when the cursor is idle. - - - - - Gets or sets the amount of time in milliseconds before the cell tip window is displayed. - - - - - Gets or sets the width of the cell tip window. - - - - The CellTipsWidth property returns or sets the width of the cell tip window in pixels. - - - By default, this property is set to zero, which causes the cell tip window to grow or shrink to accommodate the cell tip text. Override this behavior and give the cell tip window a fixed width by specifying a non-zero value for this property. - - - - - - Gets or sets the column position of the current cell in the current split. - - - - - Gets or sets the color of the collapse icon. - - - - - Gets a reference to the cell editor that is currently active. - - - - - Gets the Split that has focus. - - - - - Gets or sets the default width for all grid columns. - - - - - Gets or sets the color of the expand icon in hierarchical grids. - - - - - Gets or sets a value indicating the visibility of column headers. - - - - - Gets or sets a value indicating the visibility of column footers. - - - - - Gets the collection of C1DataColumn objects. - - - - - Gets or sets a value indicating the visibility of the current cell in a split. - - - - - Gets or sets a value indicating the modification status of the current row. - - - - - Gets the split index which will be current after cell movement. - - - - - Gets the row which will be current after cell movement. - - - - - Gets the column which will be current after cell movement. - - - - - Gets or sets a value indicating the editing status of the current cell. - - - - - Gets or sets a value indicating whether editing will take place in a popup window or within cell boundaries. - - - - - Gets or sets a value that determines how the grid displays rows below the last data row. - - - - - Gets or sets the image used for ErrorProvider. - - - - - Gets or sets a value that determines how the last column will extend to fill the dead area of the grid. - - - - - Gets or sets how the rightmost column reacts when clicked by the user. - - - - - Gets or sets a value indicating whether the event will be raised. - - - - - Gets or sets a value indicating whether the filter bar has focus. - - - - - Gets or sets a value indicating the visibility of the FilterBar. - - - - - Gets or sets the row index for the first visible row in a grid or split. - - - - - Gets or sets the zero-based index of the leftmost column in a grid or split. - - - - - Gets or sets the MarqueeStyle for a grid. - - - - - Gets or sets the time (milliseconds) in which the incremental search string will reset for a dropdown when the property is True. - - - - - Gets or sets the selection state of the grid. - - - - - Gets or sets the Image used in the record selector to indicate the Current row. - - - - - Gets or sets the Image used in the record selector to indicate the Modified row. - - - - - Gets or sets the Image used in the record selector to indicate the AddNew row. - - - - - Gets or sets the Image used in the record selector to indicate the FilterBar row. - - - - - Gets or sets the Image used in the record selector to indicate the Standard row. - - - - - Gets or sets the Image used in the record selector to indicate the Header row. - - - - - Gets or sets the Image used in the record selector to indicate the Footer row. - - - - - Gets the object. - - - - - Gets the object. - - - - - Gets or sets a value indicating the visibility of row headers for a grid or split. - - - - - Gets or sets the width of the row headers. - - - - - Gets or sets the the current row. - - - - - Gets or sets a value that determines whether the grid displays a pop-up text window when the scrollbar thumb is dragged. - - - - - Gets the collection of rows that are currently selected. - - - - - Gets the collection of columns that are currently selected. - - - - - Gets or sets the number of characters selected within the grid's editing window. - - - - - Gets or sets the starting point of the text selection within the grid's editing window. - - - - - Gets or sets the string containing the currently selected text within the grid's editing window. - - - - - Gets a value indicating whether a range of cells has been selected. - - - - - Gets or sets the index of the current within the . - - - - - Gets or sets a value that determines how columns will resize when the grid is resized. - - - - - Gets or sets a value indicating the behavior of the tab and arrow keys at split borders. - - - - - Gets or sets the behavior of the tab key. - - - - - Gets the number of visible columns in the current Split. - - - - - Gets the number of visible rows in the current Split. - - - - - Gets or sets a value indicating the behavior of Tab and arrow keys at row boundaries. - - - - - Gets the object that controls the appearance of the vertical scrollbar. - - - - - Gets the object that controls the appearance of the horizontal scrollbar. - - - - - Gets or sets the layout by which the grid will display data. - - - - - Gets or sets a value that determines the relative position of the next cell when the user presses the Enter key. - - - - - Gets or sets the text displayed in the grouping area when no columns have been grouped. - - - - - Gets the collection of columns that are grouped. - - - - - Gets or sets a value indicating the visibility of the Grouping area of the grid when the property is set to GroupBy. - - - - - Gets the rectangle occupied by the grouping area. - - - - - Gets or sets the number of subrows of the grid when the property is set to MutlipleLinesFixed. - - - - - Gets or sets a value indicating the behavior of the grid and row currency when the grid's datasource is sorted. - - - - - Gets or sets the style of the border drawn between grid rows. - - - - - Gets or sets the color of the subrow divider in a multi-line grid. - - - - - Gets or sets the C1TrueDBGrid control used as a child grid in a hierarchical presentation. - - - - - Gets or sets the object that controls the appearance of the caption area. - - - - - Gets or sets the object that controls the appearance of the cell editor within a grid. - - - - - Gets or sets the object that controls the appearance of an even-numbered row when using . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of column footers. - - - - - Gets or sets the object that controls the appearance of grouping area. - - - - - Gets or sets the object that controls the appearance of the grids column headers. - - - - - Gets or sets the object that controls the current row/cell when the is set to Highlight Row/Cell. - - - - - Gets or sets the object that controls the grids caption when it doesn't have focus. - - - - - Gets or sets the object that controls the appearance of an odd-numbered row when using . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of selected rows and columns. - - - - - Gets or sets the root object. - - - - - Gets the collection of named objects. - - - - - Gets or sets a value indicating whether the grid or split uses the for odd-numbered rows and for even-numbered rows. - - - - - Gets or sets how interactive row resizing is performed. - - - - - Gets or sets a value indicating whether a user is allowed to create horizontal splits. - - - - - Gets or sets a value indicating whether a user is allowed to create vertical splits. - - - - - Gets the collection of objects. - - - - - Gets or sets the width of a column when the is set to Inverted or Form. - - - - - Gets or sets the width of the column caption when the is set to Inverted or Form. - - - - - Occurs after a cell has been updated. - - - - - Occurs after a row has been deleted. - - - - - Occurs after a row has been added. - - - - - Occurs after a row has been updated. - - - - - Occurs before a cell is updated to the datasource. - - - - - Occurs before a row is deleted. - - - - - Occurs before a new row is added to the datasource. - - - - - Occurs before a row is updated to the datasource. - - - - - Occurs whenever a column is resized. - - - - - Occurs whenever a column header is clicked. - - - - - Occurs whenever a column footer is clicked. - - - - - Occurs before a cell is rendered and the is true. - - - - - Occurs before a cell is to be printed and the is true. - - - - - Occurs before the page header is to be printed. - - - - - Occurs before the page footer is to be printed. - - - - - Occurs prior to focus moving to another cell. - - - - - Occurs when the focus moves to a different cell. - - - - - Occurs whenever the user resizes a row. - - - - - Occurs whenever the user scrolls the grid. - - - - - Occurs whenever the user selected a different range of rows or columns. - - - - - Occurs whenever a Split changes focus. - - - - - Occurs when a split is removed. - - - - - Occurs when a split is added. - - - - - Occurs whenever the user changes the value of a cell. - - - - - Occurs when the grid needs to access the value of an unbound column. - - - - - Occurs when the value of an unbound column has been updated. - - - - - Occurs after editing is completed. - - - - - Occurs before a cell enters edit mode. - - - - - Occurs whenever a cell first enters edit mode. - - - - - Occurs whenever the first row changes. - - - - - Occurs whenever the left column changes. - - - - - Occurs whenever a cell is about to be rendered and whose property has been set to FormatTextEvent. - - - - - Occurs whenever a button is clicked in a cell. - - - - - Occurs whenever a selection has been made to the built-in combo or TrueDBDropdown. - - - - - Occurs whenever a user attempts to enter invalid data into a column that is using valueitems. - - - - - Occurs whenever a cell is to be rendered and the is true. - - - - - Occurs whenever a grouped cell that contains an aggregate is to be rendered and is true. - - - - - Occurs whenever the grid renders a row and the property has been set. - - - - - Occurs whenever an AddNew operation has been initiated. - - - - - Occurs whenever the user has finished moving a column. - - - - - Occurs when the grid needs to display CellTips. - - - - - Occurs after the grid has been initialized. - - - - - Occurs whenever the datasource changes. - - - - - Occurs whenever a hierarchical row is collapsed. - - - - - Occurs whenever a hierarchical row is expanded. - - - - - Occurs whenever a column is moved into or out of the grouping area. - - - - - Occurs when the property is set to custom. - - - - - Occurs when the is set to Custom for a grouped row. - - - - - Occurs whenever a column in the grouping area is clicked. - - - - - Occurs whenever a row is being grouped and a custom interval has been specified. - - - - - Occurs whenever the grid has focus and the scrollbar thumb is moved using the mouse. - - - - - Occurs when the contents of a cell in the filterbar changes. - - - - - Occurs when a button is clicked in the filterbar. - - - - - Occurs when the user attempts to open a child grid. - - - - - Occurs when the user attempts to close a child grid. - - - - - Occurs when the user drags a column into the grouping area. - - - - - Occurs when the user types in the filterbar and the property is false. - - - - - Occurs after the datasource has been filtered. - - - - - Occurs after a column has been sorted. - - - - - Occurs whenever an exception is thrown during end user interaction. - - - - - C1TrueDBDropdown control. - - - - - Creates a new instance of the object. - - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - Creates the view. - - - - - - - Creates the view. - - The other. - - - - - - - - - - - - - - - - Controls the used to change the appearance for cells meeting the specified condition. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - - - Controls the used to change the appearance of cells according to their contents. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - A regular expression string. - - - - - Restores the default layout. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Restores the default layout. - - - - - Returns the column index for the column containing the specified X coordinate. - - - The horizontal coordinate (X value) in pixels. - - - The index of the column in the collection beneath the specified X coordinate. - - - - - Returns the zero-based index of the display row containing the Y specified coordinate. - - - The vertical coordinate (Y value) in pixels. - - - The display row index beneath the specified Y coordinate. - - - - - Reinitializes grid with data from its data source. - - - True to preserves current column layout. False retrieves the schema from the datasource. - - - - - - - - - Scrolls the data area by the specified number of rows and columns - - - - - - - - - Occurs when the user has moved a column. - - - - - Occurs when the user has resized a column. - - - - - Occurs when the grids DataSource has changed. - - - - - Occurs when the dropdown is opened. - - - - - Occurs when the dropdown closes. - - - - - Occurs whenever the grid is about to display a row of data and the FetchRowStyles property is True. - - - - - Occurs when the first displayed row of a control or split is changed. - - - - - Occurs when the user clicks on the column footer. - - - - - Occurs when the grid is about to display cell data in a column whose NumberFormat property is set to the string FormatText Event. - - - - - Occurs when the user clicks on the column header. - - - - - Occurs when the first visible column of a grid or split is changed. - - - - - Occurs when the focus moves to a different row. - - - - - Occurs when the user has finished resizing a grid row. - - - - - Occurs when the user scrolls the grid. - - - - - Occurs when the user selects a different range of rows or columns. - - - - - Occurs when the grid needs to display the value of a cell in an unbound column. - - - - - Occurs when the user attempts to enter invalid data into a column that is using value lists. - - - - - Occurs whenever the grid has focus and the scrollbar thumb is moved using the mouse. - - - - - Gets the current selected index. - - - - - - - - - - - - - - - - - - - Raises the MouseUp event. - - A MouseEventArgs that contains the event data. - - - - Raises event. - - A that contains the event data. - - - - Inherited from control. - - A that contains the event data. - - - - - - - - - - Gets the default size of the control. - - - - - The default of the control. - - - - - Gets or sets a value indicating the ability to move columns. - - - - - Gets or sets a value indicating the ability to select columns. - - - - - Gets or sets how interactive row resizing is performed. - - - - - Gets or sets a value indicating whether the dropdown uses the for odd-numbered rows and for even-numbered rows. - - - - - Gets or sets the current row position of the underlying CurrencyManager. - - - - - Gets or sets the column position. - - - - - Gets or sets a value indicating the visibility of column footers. - - - - - Gets or sets the height of column captions. - - - - - Gets or sets the height of column footers. - - - - - Gets or sets a value indicating the visibility of column headers. - - - - - Gets the collection of C1DataColumn objects. - - - - - Gets the collection of C1DisplayColumn objects. - - - - - Gets or sets a value indicating the visibility of the current cell. - - - - - Gets or sets the property used to update the associated grid column. - - - - - Gets or sets the default width for all grid columns. - - - - - Gets or sets the width of the dropdown. - - - - - Gets or sets a value that determines how the grid displays rows below the last data row. - - - - - Gets or sets the object that controls the appearance of an even-numbered row when using . - - - - - Gets or sets a value that determines how the last column will extend to fill the dead area of the dropdown. - - - - - Gets or sets a value indicating whether the event will be raised. - - - - - Gets or sets the row index for the first visible row. - - - - - Gets or sets the object that controls the appearance of column footers. - - - - - Gets or sets the object that controls the appearance of the grids column headers. - - - - - Gets or sets the object that controls the appearance of a highlighted row. - - - - - Gets or sets a value indicating whether the control should resize to avoid showing partial items. - - - - - Gets or sets the zero-based index of the leftmost column. - - - - - Gets or sets the property used for incremental search. - - - - - Gets or sets the object that controls the appearance of an odd-numbered row when using . - - - - - Gets or sets the the current row. - - - - - Gets or sets the style of the border drawn between rows. - - - - - Gets or sets the color of the subrow divider in a multi-line dropdown. - - - - - Gets or sets a value that determines if rows are highlighted under the mouse. - - - - - Gets the object that controls the appearance of the vertical scrollbar. - - - - - Gets the object that controls the appearance of the horizontal scrollbar. - - - - - Gets or sets a value that determines whether the grid displays a pop-up text window when the scrollbar thumb is dragged. - - - - - Gets or sets the root object. - - - - - Gets the collection of named objects. - - - - - Gets or sets a value that determines how the grid display values in a column. - - - - - Gets the number of visible columns in the dropdown. - - - - - Gets the number of visible rows in the dropdown. - - - - - Occurs when the user has moved a column. - - - - - Occurs when the user has resized a column. - - - - - Occurs when the grids DataSource has changed. - - - - - Occurs when the dropdown is opened. - - - - - Occurs when the dropdown closes. - - - - - Occurs whenever the grid is about to display a row of data and the FetchRowStyles property is True. - - - - - Occurs when the first displayed row of a control or split is changed. - - - - - Occurs when the user clicks on the column footer. - - - - - Occurs when the grid is about to display cell data in a column whose NumberFormat property is set to the string FormatText Event. - - - - - Occurs when the user clicks on the column header. - - - - - Occurs when the first visible column of a grid or split is changed. - - - - - Occurs when the focus moves to a different row. - - - - - Occurs when the user has finished resizing a grid row. - - - - - Occurs when the user scrolls the grid. - - - - - Occurs when the user selects a different range of rows or columns. - - - - - Occurs when the grid needs to display the value of a cell in an unbound column. - - - - - Occurs when the user attempts to enter invalid data into a column that is using value lists. - - - - - Occurs whenever the grid has focus and the scrollbar thumb is moved using the mouse. - - - - - Gets or sets the object that controls the appearance of the caption area. - - - - - Represents operators used in filter conditions. - - - - - Disables the operator. - - - - - Return true if the value equals the operator parameter. - - - - - Return true if the value does not equal the operator parameter. - - - - - Return true if the value is greater than the operator parameter. - - - - - Return true if the value is less than the operator parameter. - - - - - Return true if the value is greater than or equal to the operator parameter. - - - - - Return true if the value is less than or equal to the operator parameter. - - - - - Return true if the string representation of the value contains the operator parameter. - - - - - Return true if the string representation of the value does not contain the operator parameter. - - - - - Return true if the string representation of the value begins with the operator parameter. - - - - - Return true if the string representation of the value ends with the operator parameter. - - - - - Represents a condition within a . - - - Each contains up to two conditions that - can be combined with 'And' or 'Or' operators. - - - - - Clears this condition by setting the to 'None' - and the to null. - - - - - Applies the condition to a given value. - - Value to test. - True if the value satisfies the condition, false otherwise. - - - - Gets a value that indicates whether the condition is active. - - - - - Gets or sets the operator used by this condition. - - - - - Gets or sets the parameter used by this condition. - - - - - Gets or sets the parameter as a string used by this condition. - - - - - Specifies the type of filter to be used for a . - - - - - Filter column using a . - - - - - Filter column by values using a . - - - - - Filter column by conditions using a . - - - - - Filter column using a filter specified by the caller. - - - - - Do not provide a filter for this column. - - - - - - - - - - - - - - - - - - - - - Specifies the language to be used for localizing the control. - - - - - Localize the control to the language specified by the CurrentUICulture. - - - - - Localize the control to Arabic. - - - - - Localize the control to Czech. - - - - - Localize the control to Danish. - - - - - Localize the control to Dutch. - - - - - Localize the control to English. - - - - - Localize the control to Finnish. - - - - - Localize the control to French. - - - - - Localize the control to German. - - - - - Localize the control to Greek. - - - - - Localize the control to Hebrew. - - - - - Localize the control to Italian. - - - - - Localize the control to Japanese. - - - - - Localize the control to Norwegian. - - - - - Localize the control to Polish. - - - - - Localize the control to Portuguese. - - - - - Localize the control to Russian. - - - - - Localize the control to Slovak. - - - - - Localize the control to Spanish. - - - - - Localize the control to Swedish. - - - - - Localize the control to Chinese (simplified). - - - - - Localize the control to Turkish. - - - - - Base class for splits. - - - - - - - - - Releases the resources used by the view. - - - - - Releases the resources used by the view. - - - - - - - Returns the string that represents the current object. - - - - - - - Returns the style associated with a given cell. - - Row to fetch the style for. - Column to fetch the style for. - The text of the cell. - - - - - - Returns a value indicating whether a line should be rendered for a given row and column. - - The row index. - The column index. - - - - - - Raised when the scrollbar visibility changes. - - The scrollbar object. - The new visible state. - - - - - - - - - - - - - - - - - - - - Notifies what curent row or column is changed. - - - - - - - - - - - - - - - - - - - - - - - - - - - autosizes the height of the given row - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Performs internal reset. - - - - - - - - - - - - - - - - - checks to see if the mouse is over a 3d element - - - - - - - Called when C1DisplayColumn properties have been changed. - - - - - - - - - - - - - - - - - - - - - - - - - - - creates a datasource from the valueitems so for the internal combobox. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Gets or sets an XML string containing the current filter state. - - - - - potential properties - - - - - - - - - Gets or sets the type of border rendered for a split. - - - - - Base class for typeconverter. - - - - - Returns an object from it's string representation. - - - - - - - - - Returns a string representation from a given object. - - - - - - - - - Returns true if the source type is string. - - - - - - - - - - - Returns true of the type of string. - - - - - - - - - - - Overloaded. Returns whether this converter can convert an object of one type to the type of this converter. - - - - - - - - - - - - - Overloaded. Converts the given value object to the specified type. - - - - - - - - - - - - - - - Typeconverter for bitmaps. Used for serialization. - - - - - Override. Returns the object given a string. - - - - - - - - - Override. Returns a string given an object. - - - - - - - - - Expandable object converter that doesn't handle strings. - - - - - Overloaded. Returns whether this converter can convert an object of one type to the type of this converter. - - - - - - - - - - - Overloaded. Returns whether this converter can convert the object to the specified type. - - - - - - - - - - - - - - - Initializes a new instance of the class. - - - - - Converts from. - - The CTX. - The ci. - The obj. - - - - - - Defined the relationship of a column. - - - - - Column is not related. - - - - - Column is the parent. - - - - - Column is the child. - - - - - Represents a column that defines binding information for the datasource. - - - - - Creates a new instance of this object. - - - - - Creates a new instance of this object. - - The column caption. - The data type. - - - - Creates a new instance of this object. - - The column caption. - The field from the data source. - The data type. - - - - - - - - - - Resets ButtonPicture to its default value. - - - - - Resets FilterButtonPicture to its default value. - - - - - Gets the display value for a cell in a given row. - - The row to fetch. - The display value. - - - - Gets the cell value for a given row. - - The row to fetch. - The underlying data from the data source. - - - - Invalidate the current column in all visible rows. - - - - - Invalidates the current cell. - - - - - Invalidates the cell at the given row. - - Row to invalidate. - - - - Repopulate the entire grid from the data source. - - - - - Repopulates the current cell from the data source. - - - - - Repopulates the specified data from the data source. - - The row to refetch. - - - - Gets or sets the level of this column in a hierarchical data source. - - - - - - - - - - - - - Gets or sets the type of aggregate computed for a grouped row. - - - - - Gets or sets the image shown in a drop-down button in a column. - - - - - Index of button picture. - - - - - Tag of button picture. - - - - - Gets or sets the text in the column header. - - - - - Gets or sets a value indicating whether data in this column has been modified. - - - - - Gets or sets the database field name for a column. - - - - - Gets or sets the type of object stored for a column. - - - - - - - - - Gets or sets the maximum number of characters which may be entered for cells in this column. - - - - - Gets or sets the default value for a column when a new row is added by the grid. - - - - - Gets or sets the edit mask for a column. - - - The property allows an input mask to be specified for automatic input formatting and validation. The mask syntax is similar to the one used by Microsoft Access. Setting the input mask for a column will prevent the user from entering any information in the cell that is not in the format of the string. - The must be a string composed of the following symbols: - - Wildcards - - - - 0 - Digit. - - - 9 - Digit or space. - - - # - Digit or sign. - - - L - Letter. - - - ? - Letter or space. - - - A - Letter or digit. - - - a - Letter, digit or space. - - - & - Any character. - - - - Localized characters - - - - . - Localized decimal separator. - - - , - Localized thousand separator. - - - : - Localized time separator. - - - / - Localized date separator. - - - - Command characters - - - - \ - Next character is taken as a literal. - - - > - Translate letters to uppercase. - - - < - Translate letters to lowercase. - - - - - - - Gets or sets a value indicating whether literal characters in the edit mask are stored to the underlying data source. - - - - - Gets or sets the editor that is used to edit cell data. - - - - - Gets or sets a value indicating whether a DateTime picker is used to edit this column. - - - - - Gets or sets the image shown as the column's filter button. - - - - - - - - - Gets or sets the key used to initiate the filtering operation as the user types in the filterbar. - - - - - Gets the number of values in the filter drop-down list. - - - - - Gets or sets the text displayed in the column footer. - - - - - Gets or sets the characters that should be ignored when applying the filter criteria to the datasource. - - - - - Gets or sets the operator that is used for a filter expression. - - - - - Gets or sets the data associated with the value of the filter for a column. - - - - - Specifies the text that is rendered in an empty cell in the Filterbar. - - - - - Gets or sets a value indicating whether a drop-down list is displayed in the filter cell that lists all the values of the field. - - - - - Gets or sets the value indicating All when the FilterDropdown property is True. - - The filter dropdown text. - - - - Gets or sets a value indicating whether multiple values can be selected in the filter drop-down list. - - If FilterMultiSelect is true then the user is able to enter several values using comma separator. - - - - Gets or sets a character used to separate values in the filter drop-down list when multiple values are selected. - - - - - Gets or sets the text of Apply button in the filter drop-down list when the FilterMultiSelect property is True. - - - - - Gets or sets the text of Cancel button in the filter drop-down list when the FilterMultiSelect property is True. - - - - - Gets or sets the text of Clear button in the filter drop-down list when the FilterMultiSelect property is True. - - - - - Specifies the ImeMode used to edit this column. - - - - - Gets or sets the formatting string for a column. - - - - - Gets the object for this column. - - - - - Gets or sets the display value for the current cell. - - - - - Gets or sets the value of the current cell. - - - - - Gets or sets a user defined objects associated with this column. - - - - - Gets or sets a user defined object associated with this column. - - - - - Gets or sets the state of the sorting glyph in the column caption bar. - - - - - Gets or sets the associated with this column. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Represents an object used to render grid elements. - - - - - Creates a new instance of this object. - - - - - Called when the class is being disposed. - - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - - - - - - - Renders the given string using the style properties. - - Graphics object to render too. - Rectangle to render in. - String to render. - - - - Renders the given string using the style properties. - - Graphics object to render too. - Rectangle to render in. - String to render. - The draw flags. - - - - Reset BackColor to its default value. - - - - - Resets ForeColor to its default value. - - - - - Resets Font to its default value. - - - - - Resets HorizontalAlignment to its default value. - - - - - Resets VerticalAlignment to its default value. - - - - - Resets BackgroundPictureDrawMode to its default value. - - - - - Resets the BackgroundImage to its default value. - - - - - Resets ForGroundImagePosition to its default value. - - - - - Resets ForegroundImage to its default value. - - - - - Resets Locked to its default value. - - - - - Resets WrapText to its default value. - - - - - Resets Trimming to its default value. - - - - - Resets all specialized attributes. - - - - - Gets the associated with this Style. - - - - - Gets or sets the background color associated with a Style. - - - - - Gets or sets the background color associated with a Style. - - - - - Gets or sets a value indicating whether gamma correction is enabled when a linear gradient style is rendered. - - - true if gamma correction is enabled; otherwise, false. - - - - Gets or sets the direction of a linear gradient. - - The gradient mode. - - - - Gets or sets the alpha component when the style is rendered. - - - - - Gets or sets the foreground color associated with a Style. - - - - - Gets or sets the Font associated with a Style. - - - - - Gets or sets the horizontal text alignment. - - - - - Gets or sets the vertical text alignment. - - - - - Gets or sets the rendering method for a . - - - - - Gets or sets the background image associated with a Style. - - - - - Gets or sets the position that the ForGroupImage is rendered. - - - - - Gets or sets the foreground image associated with a style. - - - - - Gets or sets a value indicating whether data entry is permitted for the assocated object. - - - - - Gets or sets a value indicating whether text is word-wrapped when it does not fit into a layout shape. - - - - - Gets or sets the name of the Style. - - - - - Gets or sets the trim characters for a string that does not completely fit into a layout shape. - - - - - Gets or sets the spacing between cell content and its edges. - - - - - Represents the border in a - - - - Gets or sets the type of border. - - - - - Gets or sets the width of the left border. - - - - - Gets or sets the width of the right border. - - - - - Gets or sets the width of the top border. - - - - - Gets or sets the width of the bottom border. - - - - - Gets or sets the color of the border. - - - - - Represents an object that defines how cells are rendered. - - - - - Returns a that represents the current . - - - A that represents the current . - - - - - Gets or sets a value indicating whether both Value and Display Value are rendenered when Display value is an image. - - - - - Gets or sets a value indicating whether users can cycle through by clicking on a cell. - - - - - Gets or sets the index of the default or -1 for no default. - - - - - Gets or sets the maximum number of visible rows in the combobox. - - - - - Gets or sets the method in which cells are rendered. - - - - - Gets or sets a value indicating whether data values are translated using matching . - - - - - Gets or sets a value indicating whether values entered by the user must match on of the objects. - - - - - Gets the collection of Value/Display Value pairs. - - - - - - - - - Represents a collection of objects. - - - - - Initializes a new instance of the class. - - - - - Adds a to the end of the collection. - - The ValueItem to add. - The index at which the ValueItem has been added. - - - - - - - - - - - - Inserts a at the specified index. - - The zero-based index at which the ValueItem should be inserted. - The ValueItem to insert. - - - - Gets the index of the specified . - - The ValueItem to search. - The index of the ValueItem. - - - - Gets or sets the specified from the collection at the specified index. - - - - - Represents an object that defines a value/display value pair. - - - - - Initializes a new instance of the ValueItem class. - - - - - Initializes a new instance of the ValueItem class. - - Underlying data value. - Translated value. - - - - Returns a string that represents the current object. - - - - - - - Gets or sets the raw (untranslated) value of this item. - - - - - Gets or sets the display value of this item. - - - - - - - - - - - - - Represents the columns in a split. - - - - - Releases the resources used by the component. - - - - - Returns a that represents the current . - - - A that represents the current . - - - - - Releases the resources used by the component. - - - - - - - - - - - Gets the filter expression for the column. - - The filter expression for the column - Use this method in your implementations of custom filtering. - Example shows how to build a row filter using method. - "" Then - If sb.ToString() <> "" Then - sb.Append(" AND ") - End If - sb.Append(cond) - End If - - Next dc - ' filter the data - Me.DataSet11.Tables(0).DefaultView.RowFilter = sb.ToString() - End Sub]]> - - - - Controls the used to change the appearance for cells meeting the specified condition. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - - - Controls the used to change the appearance of cells according to their contents. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - A regular expression string. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - A regular expression string. - - - - - Adjusts the width of a column to accommodate the longest visible field within that column. - - - - - Gets or sets a value indicating whether the dropdown opens automatically when a key is typed. - - - - - Gets or sets a value indicating whether the dropdown auto fills the edit portion with the matched entry. - - - - - Gets the vertical offset of the top of the cell for the current row. - - - - - Gets or sets a value indicating whether the dropdown acts like a dropdown list (text portion is not editable). - - - - - Gets or sets the that controls the appearance of the column headers. - - - - - Gets or sets the root for this column. - - - - - Gets or sets the object that controls the appearance of column footers. - - - - - Gets or sets the used for the cell editor. - - - - - Gets or sets the used to render the cell in the grouped header row. - - - - - Gets or sets the used to render the cell in the grouped footer row. - - - - - Gets or sets a value indicating the visibility of a column. - - - - - Gets or sets the style of the border drawn between columns. - - - - - Gets or sets the width of a column. - - - - - Gets or sets the height of the column. - - - - - Gets or sets a value indicating the ability of a column to receive focus. - - - - - Gets or sets a value indicating whether editing is permitted in a column. - - - - - Gets or sets a value indicating whether contiguous like-value cells of this column are merged into one large cell. - - - - - Gets or sets a value indicating whether this is frozen. - - - true if frozen; otherwise, false. - - - - Gets or sets a value indicating whether column resizing is allowed. - - - - - Gets or sets a value indicating whether cells in this column look like buttons. - - - - - Gets or sets a value indicating whether buttons will be displayed when the cell does not contain focus. - - - - - Gets or sets a value indicating whether a dropdown button will be displayed in this column. - - - - - Gets or sets a value indicating whether a dropdown button will be displayed in this column. - - - - - Gets or sets the minimum width a column can be resized to when in . - - - - - Gets or sets a value indicating whether to display the column divider in the header area. - - - - - Gets or sets a value indicating whether to display the column divider in the footer area. - - - - - Gets or sets a value indicating whether the FetchCellStyle event will be raised for a column. - - - - - Gets or sets a value indicating whether a column header will act like a button. - - - - - Gets or sets a value indicating whether a column footer will act like a button. - - - - - Gets or sets a value indicating whether cells in this column are drawn by the user in the OwnerDrawCell event. - - - - - Gets the associted associated with this object. - - - - - - - - - Gets the caption of the associated objects. - - - - - Enumerates the type of changes made to a display column for event listeners - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TypeConverter for the GridLines object. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Froms the STR. - - The STR. - - - - - - - - - - - - - - - - Represents the line used for row and column dividers. - - - - - Creates a new instance of this object. - - - - - Gets or sets the color of lines used for row and column dividers. - - - - - Gets or sets the style of lines used for row and column dividers. - - - - - - - - - Initializes a new instance of the class. - - - - - Gets or sets the width. - - The width. - - - - Gets or sets the border3D style. - - The border3D style. - - - - Represents a collection of ViewRow objects. - - - - - Performs additional custom processes when clearing the contents of the instance. - - - - - Performs additional custom processes when removing an element from the instance. - - The zero-based index at which value can be found. - The value of the element to remove from index. - - - - Owner of the row list. - - - - - Gets or sets the at the specified index. - - - - - Represents a row in a split. - - - - - Adjust the size of the row to fully display cell data. - - - - - Gets or sets the visiblity of a row. - - - - - Gets the type of row. - - - - - Gets or sets the height of a row. - - - - - Gets or sets the width of a row. - - - - - Gets index of the row in data source. - - - - Returns -1 if there is not corresponding data row. - For example, for a group row. - - - Use DataRowIndex property to translate view row index to data row index. - - - - - private void c1TrueDBGrid1_FetchCellStyle(object sender, C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs e) - { - ViewRow row = this.c1TrueDBGrid1.Splits[0].Rows[e.Row]; - if (row.RowType == RowTypeEnum.DataRow) - { - bool val = (bool)this.c1TrueDBGrid1[row.DataRowIndex, 3]; - if (val == true) - e.CellStyle.BackColor = Color.Red; - } - } - - - - - - Represents a horizontal or vertical pane to display and edit data. - - - - - Initializes a new instance of the class. - - - - - Initializes a new instance of the class. - - The f. - - - - Initializes a new instance of the class. - - The other. - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - - - - - - - - - - - - - - - - - Draws the filter cell. - - The instance containing the event data. - The col. - - - - - - - - - - - - - - - - returns true if the data at the given row is the same as the passed in string - - - - absolute row number - - - - - - - - - - Called when C1DisplayColumn properties have been changed. - - - - - Returns the upper and lower bounds for a merged column. - - Starting row - Starting colum. - The CellRange object that defines the rows and columns for a merged cell. - - - - Exits editing mode. - - - - - - - short circuits exiting the editor on row change when actively filtering - - - - - - - - - - - - - - - - - - - - - - - - - - - Adds the row. - - The newrow. - - - - Deletes the rows. - - - - - Gets the drop down for the current column if one exists. - - - - - - - Determines whether we have an internal combo. - - - true if combo is not a valueitem otherwise, false. - - - - - Determines whether this instance has combo. - - - true if this instance has combo; otherwise, false. - - - - - Creates the internal dropdown for use in the filterbar. - - - - - - - Sets the flat mode. - - The mode. - - - - - - - - - - - - - - Controls the used to change the appearance for cells meeting the specified condition. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - - - Controls the used to change the appearance of cells according to their contents. - - - Combination of one or more enumerations. - - - object that specifies appearance attributes. - - - A regular expression string. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - - - Removes a cell condition established with a previous call to the method. - - - Combination of one or more enumerations. - - - A regular expression string. - - - - - Returns the Rectangle for the given Row and Column - - Visible row number - Visible column index - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Gets or sets a value indicating whether the split can recive focus. - - - - - Gets or sets a value indicating the ability to move columns. - - - - - Gets or sets a value indicating the ability to select columns. - - - - - Gets or sets a value indicating the ability to select rows. - - - - - Gets or sets the name of a split. - - - - - Gets or sets how interactive row resizing is performed. - - - - - Gets or sets a value indicating whether a user is allowed to resize horizontal splits. - - - - - Gets or sets a value indicating whether a user is allowed to resize vertical splits. - - - - - Gets or sets a value indicating whether the split uses the for odd-numbered rows and for even-numbered rows. - - - - - Gets or sets the caption. - - - - - Gets or sets the height of the caption. - - - - - Gets or sets the height of the column captions. - - - - - Gets or sets the height of column footers. - - - - - Gets or sets a value indicating the visibility of the current cell in a split. - - - - - Gets or sets a value that determines how the last column will extend to fill the dead area of the split. - - - - - Gets or sets a value indicating whether the event will be raised. - - - - - Gets or sets a value indicating whether the filter bar has focus. - - - - - Gets or sets a value indicating the visibility of the FilterBar. - - - - - Gets or sets the filter border style. - - The filter border style. - - - - Gets or sets the row index for the first visible row in a split. - - - - - Gets or sets the left most visible column for a split. - - - - - Gets or sets the MarqueeStyle for a Split. - - - - - Gets or sets a value indicating if the cells of a split can be edited. - - - - - Gets or sets the width of the row headers. - - - - - - - - - Gets or sets a value indicating the visibility of row headers for Split. - - - - - Gets the collection of Rows displayed in the Split. - - - - - Gets or sets the group which synchronizes verticall scrolling between splits. - - - - - Gets or sets the minimum width that a split can be interactively resized. - - - - - Gets or sets the minimum height that a split can be interactively resized. - - - - - Gets or sets the group which synchronizes horizontal scrolling between splits. - - - - - Gets or sets the position of the Horizontal scrollbar. - - - - - Gets or sets the position of the Vertical scrollbar. - - - - - Gets or sets a value that determines how columns will resize when the grid is resized. - - - - - Gets the object that controls the appearance of the vertical scrollbar. - - - - - Gets the object that controls the appearance of the horizontal scrollbar. - - - - - Gets or sets the size of a split. - - - - - Gets or sets the height of a split. - - - - - Gets or sets a value indicating how the property is used to determine the actual size of a split. - - - - - Gets or sets the object that controls the appearance of the caption area. - - - - - Gets or sets the object that controls the appearance of the cell editor within a grid. - - - - - Gets or sets the object that controls the appearance of an even-numbered row when using . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of column footers. - - - - - Gets or sets the object that controls the appearance of the grids column headers. - - - - - Gets or sets the object that controls the current row/cell when the is set to Highlight Row/Cell. - - - - - Gets or sets the object that controls the grids caption when it doesn't have focus. - - - - - Gets or sets the object that controls the appearance of an odd-numbered row when using . - - - - - Gets or sets the object that controls the appearance of the . - - - - - Gets or sets the object that controls the appearance of selected rows and columns. - - - - - Gets or sets the root object for the Split. - - - - - Gets a collection of objects. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Initializes a new instance of the struct. - - The row. - The col. - - - - Initializes a new instance of the struct. - - The row1. - The col1. - The row2. - The col2. - - - - Determines whether the range is a single cell. - - - true if [is single cell]; otherwise, false. - - - - - Represents a collection of named . - - - - - - - - - - - - - - - - - - - Adds a to the end of the collection. - - The Style to add. - The index at which the has been added. - - - - Inserts a at the specified index. - - The zero-based index at which the Style should be inserted. - The Style to insert. - - - - Gets the index of the specified . - - - - The index of the Style. - - - - Removes the at the specified index. - - Teh zero-based index of the Style to remove. - - - - Gets the specified Style from the collection given its index. - - - - - Gets the specified Style from the collection given its name. - - - - - Represents a collection of in a . - - - - - Inserts a at the specified index. - - The zero-based index at which the C1DisplayColumn should be inserted. - The C1DataColumn to insert. - - - - Gets the index of the . - - - - The index of the C1DisplayColumn. - - - - Gets the index of the specified by the . - - - - The index of the C1DisplayColumn. - - - - - - - - - - - - - - - - - - - - - - - - - - - - Gets the specified from the collection at the specified index. - - - - - Gets the specified from the collection wich contains the specified . - - - - - Gets the specified from the collection with the specified name. - - - - - Contains a collection of objects. - - - - - - - - - - - - - Removes all elements from the collection. - - - - - Adds a C1DataColumn to the end of the collection. - - The C1DataColumn to add. - The index at which the C1DataColumn has been added. - - - - Removes the C1DataColumn at the specified index. - - The zero-based index of the row to remove. - - - - Inserts a at the specified index. - - The zero-based index at which the C1DataColumn should be inserted. - The C1DataColumn to insert. - - - - Gets the index of the specified . - - - - The index of the the C1DataColumn. - - - - Gets the index of a with the specified DataField. - - - - The index of the the C1DataColumn. - - - - Gets the specified C1DataColumn from the collection at the specified index. - - - - - Gets the specified C1DataColumn from the collection with the specified name. - - - - - Contains a collection of objects that represent columns that are selected. - - - - - Removes all elements from the collection. - - - - - Removes the C1DataColumn at the specified index. - - The zero-based index of the row to remove. - - - - Adds a C1DataColumn to the end of the collection. - - The C1DataColumn to add. - The index at which the C1DataColumn has been added. - - - - Inserts a at the specified index. - - The zero-based index at which the C1DataColumn should be inserted. - The C1DataColumn to insert. - - - - Contains a collection of objects that represent columns that are grouped. - - - - - Removes all elements from the collection. - - - - - Exchanges the C1DataColumn objects at the specified index. - - The zero-based index of the first C1DataColumn. - The zero-based index of the second C1DataColumn. - - - - Removes the C1DataColumn at the specified index. - - The zero-based index of the row to remove. - - - - Adds a C1DataColumn to the end of the collection. - - The C1DataColumn to add. - The index at which the C1DataColumn has been added. - - - - Inserts a at the specified index. - - The zero-based index at which the C1DataColumn should be inserted. - The C1DataColumn to insert. - - - - Represents a collection of Selected rows. - - - - - Removes all elements from the collection. - - - - - Removes the row at the specified index. - - The zero-based index of the row to remove. - - - - Adds a row to the end of the collection. - - Row number to add. - The index at which the row has been added. - - - - Inserts a row at the specified index. - - The zero-based index at which row should be inserted. - The row to insert. - - - - Gets the index of the specified row. - - - - The index of the row. - - - - Gets or sets the specified Row index from the collection. - - - - - Represents a collection of Split objects. - - - - - This interface is used to allow objects and collection to serialize - types of their members in a custom way. - If a collection implements this interface, TypeToString is invoked during - serialization of collection items, and for all items for which it returns a - non-null string, that string is used as the element name of the item. - If a class implements this interface, AND a member of that class has - attribute TypeNameSerialization.Custom, AND does not have attribute - XmlAttribute (i.e. is serialized as an element), TypeToString is invoked - on the owner when that member is serialized, and if that returns a non-null - string, that string is used as the value of TypeName attribute. - When deserializing a collection which implements this interface, - StringToType is invoked for each new item in the collection, and if that - returns a non-null type, that type is used to create the item. Otherwise, - TypeNameSerialization attribute is used. - When deserializing a class which implements this interface, StringToType - is invoked on that class for members with TypeNameSerialization.Custom - attribute set. - - - - - Returns a string representing the type of the object - - - - - Returns the type restored from the serialized string - - - - - - - - - - - - - Gets the index if the specified Split. - - - - - - - - - Gets the specified Split object from the collection. - - - - - Gets the specified Split object from the collection. - - - - - Gets the specified Split object from the collection. - - - - - Gets the number of vertical splits in the collection. - - - - - Gets the number of horizontal splits in the collection. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Specifies the glyph used to denote a sort direction in the column header. - - - - - Column is not sorted. - - - - - Column is sorted in ascending order. - - - - - Column is sorted in descending order. - - - - - Specifies the UI behavior for selecting rows and columns. - - - - - Multiple selection is disabled but single selection is permitted. When the user clicks a record selector, the current selection is cleared, and the clicked row is then selected and added to either the SelectedRows or SelectedCols collections. The Ctrl and Shift keys are ignored, and the user can only select one row at a time. - - - - - Multiple selection is enabled using the mouse. When the user clicks a record selector, the selection is cleared and the clicked row is selected and added to either the SelectedRows or Selected Cols collections. However, if the user holds down the Ctrl key while clicking, the clicked row is added to the current selection. The user can also select a range of rows by selecting the first row in the range, then selecting the last row in the range while holding down the Shift key. - - - - - Multiple selection is enabled using the mouse. The user can also select records with the following key combinations: Shift + Up Arrow, Shift + Down Arrow, Shift + PgUp, and Shift + PgDn. NOTE: The user will not be able to select a single cell, instead the entire corresponding row will be selected. - - - - - Specifies how 3D elements are rendered. - - - - - The grid’s column headers and recordselectors are rendered with an inset three-dimensional look - - - - - Three-dimensional elements appear flat - - - - - Three-dimensional elements are flat, but when the user drags the cursor over a column heading or recordselector, they become three-dimensional and appear to pop up. - - - - - Three-dimensional elements uses XP Themes if available. - - - - - Specifies the sizing mode for splits. - - - - - The indicates the relative size of the split with respect to other scalable splits. - - - - - The indicates the size of the split in pixels. - - - - - The indicates the number of columns displayed in the split. - - - - - Specifies the vertical alignment of text or images in a cell. - - - - - Text is rendered at the top of the cell. - - - - - Text is rendered at the center of the cell. - - - - - Text is rendered at the bottom of the cell. - - - - - Specifies the horizontal alignment of text or images in a cell. - - - - - Text is aligned Near and numeric values Far - - - - - Text is aligned to the left. - - - - - Text is aligned centered. - - - - - Text is aligned to the right. - - - - - Text is aligned with respect to the cells boundries. - - - - - Specifies the visibility of ScrollBars. - - - - - ScrollBars are never displayed. - - - - - ScrollBars are always displayed. - - - - - ScrollBars are displayed only if the object's contents extend beyond its borders. - - - - - Specifies the line style for row and column dividers. - - - - - No line. - - - - - Single line. - - - - - Double line. - - - - - Line with 3D raised appearance. - - - - - Line with 3D inset appearance. - - - - - Specifies how the grid displays its data. - - - - - The grid will only display flat files and will not support a hierarchical view. If the data source is a hierarchical dataset, the grid will only display data from the master table. - - - - - Rows will be represented horizontally and columns vertically. - - - - - The data will be displayed in a convenient data entry form. - - - - - A grouping area is created at the top of the grid; any columns that are placed into this area become part of the GroupedColumn collection. When in group mode, grid columns can be moved into or out of the grouping area with the Add and RemoveAt methods, respectively. Users can also perform this action by selecting and dragging a column into or out of the grouping. Users can customize the display of the grouped row with styles and automatically compute aggregates for columns that are grouped. The expanded/collapsed state of the grouping can also be specified. - - - - - The grid will display all the fields in the current grid area with multiple lines. - - - - - The grid will display DataSets in a hierarchical format. At run time, users can expand and collapse hierarchical recordset Bands using a treeview-like interface. - - - - - The grid will display all the fields in the current grid area with multiple lines. The number of subrows does not change once set. The number of subrows can be set using the LinesPerRow property. - - - - - Provides a description of the current addnew state with respect to the current cell. - - - - - The current cell is not on the addnew row. - - - - - The current cell is on the addnew row. - - - - - There is an Add New operation pending. - - - - - Specifies the behavior of the pop-up window when the cursor is idle over the grid. - - - - - No cell tips will be displayed. - - - - - Cell tips will be displayed in the bounding rectable of the cell. - - - - - Cell tips will be displayed under the mouse cursor. - - - - - Specifies how the grid exposes the rightmost column when it gets focus. - - - - - The grid will scroll to the left to display the rightmost column in its entirety. - - - - - The grid will not move when the rightmost column is clicked initially. However, if the user attempts to edit the cell, then the grid will scroll to the left to display the rightmost column in its entirety. - - - - - The grid will always leave the rightmost column clipped. - - - - - Specifies the location of the foreground image in a cell. - - - - - Image is rendered in the near side of the cell. - - - - - Image is rendered in the far side of the cell. - - - - - Image is rendered to the left of any text in the cell. - - - - - Image is rendered to the right of any text in the cell. - - - - - Image is rendered on top of any text in the cell. - - - - - Image is rendered below any text in the cell. - - - - - Text is not displayed. - - - - - Image is not displayed. - - - - - Specifies how the background image is rendered. - - - - - The image is rendered in the center of the cell. - - - - - The image is tiled in the cell. - - - - - The image is stretched to fit within the cell. - - - - - Specifies how rows can be resized. - - - - - Row can not be resized. - - - - - All rows will be sized to the same height or width. - - - - - Rows can be sized indepentently. - - - - - Specifies which rows are to be previewed/printed. - - - - - All rows are to be previewed/printed. - - - - - Only selected rows will be previewed/printed. - - - - - Only the current row will be previewed/printed. - - - - - Specifies the type of ui-element for a coordinate. - - - - - Coordinates are not in the grid. - - - - - Coordinates are in the caption area - - - - - Coordinates are in the split's header - - - - - Coordinates are in the split's resizing box - - - - - Coordinates are in the row selector. - - - - - Coordinates are in the row resizing box. - - - - - Coordinates are in the column headers. - - - - - Coordinates are in the column footers. - - - - - Coordinates are in the column resizing box. - - - - - Coordinates are in the data area. - - - - - Coordinates are in the grouping area. - - - - - Coordinates are in the group header. - - - - - Coordinates are in the empty row area. - - - - - Coordinates are in the addnew row. - - - - - Coordinates are in the empty column area. - - - - - Coordinates are in the filter bar. - - - - - Specifies how ValueItems are rendered. - - - - - Values are displayed as text or graphics. - - - - - Values are displayed as a group of Radio Buttons. - - - - - Values are displayed as a dropdown combobox. - - - - - Values are displayed as a dropdown combobox in sorted order. - - - - - Values are displayed as a checkbox. - - - - - Specifies how focus is handled when the Tab key is entered. - - - - - The tab key moves to the next or previous control on the form. - - - - - The tab key moves the current cell to the next or previous column. However, if this action would cause the current row to change, then the next or previous control on the form receives focus. - - - - - The tab key moves the current cell to the next or previous column. The behavior of the tab key at row boundaries is determined by the property. When this setting is used, the tab key never results in movement to another control. - - - - - Specifies the borders for a . - - - - - No borders. - - - - - Borders have a Flat appearance. - - - - - Borders have a 3D raised appearance. - - - - - Borders have a 3D inset appearance. - - - - - A line around the inside of the border. - - - - - A fillet type border. - - - - - Borders have a 3D raised with a bevel. - - - - - Borders have a 3D inset with a bevel. - - - - - Specifies which cell gets focus when the enter key is pressed. - - - - - Cell currency doesn't change. - - - - - The next cell will be the cell to the right of the current cell. - - - - - The next cell will be the cell below the current cell. - - - - - The next cell will be the cell to the left of the current cell. - - - - - The next cell will be the cell above the current cell. - - - - - Describes the disposition of a cell. - This enumeration has a FlagsAttribute attribute that allows a bitwise combination of its member values. - - - - The cell satisfies none of the conditions. For grouped rows, this is the only applicable cell style. - - - - - The cell is the that currently has focus. At any given time, only one cell can have this status. When the MarqueeStyle property is set to Floating Editor, this condition is ignored. - - - - - The cell is part of a highlighted row marquee. When the MarqueeStyle property indicates that the entire current row is to be highlighted, all visible cells in the current row have this additional condition set. - - - - - The cell contents have been modified by the user but not yet written to the datasource. This condition is also set when cell contents have been modified in code with the Text or Value properties. - - - - - The cell is part of a row selected by the user or in code. The SelectedRowCollection contains the index for each selected row. - - - - - All cells. - - - - - Specifies how the current cell is highlighted. - - - - - The current cell within the current row will be highlighted by drawing a dotted border around the cell. In Microsoft Windows terminology, this is usually called a focus rectangle. - - - - - The current cell within the current row will be highlighted by drawing a solid box around the current cell. This is more visible than the dotted cell border, especially when 3D divider properties are used for the grid. - - - - - The entire current cell will be drawn using the attributes of the HighlightRowStyle property. This provides a very distinctive block-style highlight for the current cell. - - - - - The entire row containing the current cell will be drawn using the attributes of the HighlightRowStyle property. In this mode, it is not possible to visually determine which cell is the current cell, only the current row. When the grid or split is not editable, this setting is often preferred, since cell position is then irrelevant. - - - - - The entire row will be highlighted as in setting 3, but the current cell within the row will be "raised" so that it appears distinctive. This setting does not appear clearly with all background color and divider settings. The best effect is achieved by using 3D dividers and a light gray background. - - - - - The marquee will not be shown. This setting is useful for cases where the current row is irrelevant, or when not wanting to draw the user's attention to the grid until necessary. - - - - - The current cell will be highlighted by a floating text editor window with a blinking caret (as in Microsoft Access). - - - - - The entire current row will be highlighted by drawing a dotted border around it. This effect is similar to setting 0. - - - - - Identifies the type of scrollbar. - - - - - The Horizontal scrollbar. - - - - - The Vertical scrollbar. - - - - - Identifies the type of row. - - - - - Row is a datarow. - - - - - Row is a collapsed group row. - - - - - Row is an expanded group row. - - - - - Row is a footerrow. - - - - - Row is a childrow. - - - - - Specifies the initial expanded or collapsed state of a grouped row. - - - - - Grouped rows initial display is collapsed (default). - - - - - Grouped rows initial display is expanded. - - - - - Specifies how the grouped column should be displayed. - - - - - Grouped columns contain just a header row (default). - - - - - Grouped columns contain a header and footer row. - - - - - Grouped columns contain a header and footer row, but aggregates are shown only in the footer row. - - - - - Specifies the type of aggregate that is computed for a grouped row. - - - - - No aggregate is calculated or displayed. - - - - - Count of non-empty values. - - - - - Sum of numerical values. - - - - - Average of the numerical values. - - - - - Minimum value (numerical, string, or date). - - - - - Maximum value (numerical, string, or date). - - - - - Standard deviation (using formula for Sample, n-1). - - - - - Standard deviation (using formula for Population, n). - - - - - Variance (using formula for Sample, n-1). - - - - - Variance (using formula for Population, n). - - - - - Causes the GroupAggregate event to be raised. - - - - - Specifies the width of a C1TrueDBDropdown for a cell. - - - - - The width of the dropdown is the control width. - - - - - The width of the dropdown is the column width. - - - - - Specifies how columns are merged. - - - - - - - - - - - - - - - - - Specifies the type of gradient. - - - - - - - - - - - - - - - - - - - - - - - - - Specifies how rows are grouped. - - - - - Rows are grouped by their values. - - - - - Rows are grouped by the date portion of their values. - - - - - Rows are grouped by the month portion of their values. - - - - - Rows are grouped by the year portion of their values. - - - - - Rows are grouped by the first character of their values. - - - - - Rows are grouped according to their date values. - - - - - Rows are grouped by raising the event. - - - - - Raised before an action is performed on the grid and the action can be canceled. - - - - - Provides data for the , , , , , , , , and events. - - - - - Gets or sets a value indicating that the action should not be performed. - - - - - Provides data for the event. - - - - - Gets the current scroll position. - - - - - Gets the new scroll position. - - - - - Raised before a column enters edit mode. - - - - - Provides data for the BeforeColEdit event. - - - - - Gets or sets a value indicating that editing should be disallowed. - - If event procedure sets the Cancel argument to True, the cell will not enter edit mode. Otherwise, the ColEdit event is raised immediately, followed by the Change event for the KeyChar property, if non-zero. - - - - Indicates the character that initiated the editing operation. - - The BeforeColEdit event occurs just before the user enters edit mode by typing a character. If a floating editor marquee is not in use, this event also occurs when the user clicks the current cell or double clicks another cell. - - - - Indicates the position in the DisplayColumns collection. - - - - - Gets the C1DisplayColumn for the column being edited. - - - - - Raised after editing is completed in a cell. - - The BeforeColUpdate event occurs after editing is completed in a cell, but before data is moved from the cell to the grid's internal copy buffer. - The data specified by the OldValue argument moves from the cell to the grid's copy buffer when the user completes editing within a cell, as when tabbing to another column in the same row, pressing the Enter key, or clicking on another cell. Before the data has been moved from the cell into the grid's copy buffer, the BeforeColUpdate event is triggered. This event gives the application an opportunity to check the individual grid cells before they are committed to the grid's copy buffer. - If your event procedure sets the Cancel argument to True, the previous value is restored in the cell, the grid retains focus, and the AfterColUpdate event is not triggered. Change the current cell text by setting OldValue to the value wanted to display (other than the previous value). - To restore OldValue in the cell and permit the user to move focus off of the cell, set Cancel to False and set the cell to OldValue as follows: - - - - Provides data for the BeforeColUpdate event. - - - - - Gets or sets a value that prevents the user from moving focus to another cell. - - - - - Gets or sets the value of the original cell data. - - - - - Indicates the position in the DisplayColumns collection. - - - - - Gets the C1DisplayColumn for the column being edited. - - - - - Raised after a column has been resized. - - - - - Provides data for the ColReisize event. - - - - - Indicates the position in the DisplayColumns collection. - - - - - Gets or sets a value indicating that sizing should be ignored. - - - - - Gets the C1DisplayColumn for the column being sized. - - - - - Raised when an action is perfored on a column. - - - - - Provides data for the , , , , , , , , and events. - - - - - Indicates the position in the DisplayColumns collection. - - - - - Gets the C1DisplayColumn. - - - - - Raised when grouping columns. - - - - - Provides data for the event. - - - - - Indicates the position in the DisplayColumns collection. - - - - - The C1DataColumn that was clicked. - - - - - Raised when a cell is to rendered by the event code. - - - - - Provides data for the and events. - - - - - The bounding rectangle for the cell that needs to be rendered. - - - - - The index of the row for the cell being rendered. - - - - - The index of the split for the cell being rendered. - - - - - The index of the column in the DisplayColumns collection. - - - - - The GDI+ graphics object to render on. - - - - - The text of the cell. - - - - - The Style used to render the cell. - - - - - Indicates whether the event code rendered the cell. - - - - - The C1DisplayColumn being rendered. - - - - - Indicates whether the custom renderer handles the background, border or content. - - - - - Raised when custom page headers and footers need to be rendered. - - - - - Provides data for the and events. - - - - - The object used to render the custom header or footer - - - - - Raised after the current Row or Column changes. - - - - - Provides data for the event. - - - - - The previous row index. - - - - - The previous column index of the DisplayColumns collection. - - - - - Raised when an unbound column needs to be rendered. - - - - - Provides data for the event. - - - - - The index of the row. - - - - - Indicates the position in the Columns collection. - - - - - The object. - - - - - Gets or sets the value of the Column. - - - - - Raised when Split specific actions are performed. - - - - - Provides data for the and events. - - - - - Indicates the position of the Split in the Splits collection. - - - - - Raised when a cell needs custom formatting. - - - - - Provides data for the FromatText event. - - - - - Indicates the position in the Columns collection. - - - - - The row index for the cell to be formatted. - - - - - The value to format. - - - - - The object. - - - - - Raised when the used to render a cell needs customization. - - - - - Provides data for the event. - - - - - The sum of one or more constants describing the disposition of the cell being rendered. - - - - - Indicates the position in the Splits collection. - - - - - The index of the row for the cell being rendered. - - - - - The index of the column in the DisplayColumns collection. - - - - - The Style used to render the cell. - - - - - The C1DisplayColumn being rendered. - - - - - Provides data for the event. - - - - - Value that the data is being grouped on. - - - - - First row index that is being grouped. - - - - - Last row index that is being grouped. - - - - - Raised when the used to render a row needs customization. - - - - - Provides data for the event. - - - - - Indicates the position in the Splits collection. - - - - - The index of the row for the cell being rendered. - - - - - The Style used to render the row. - - - - - Raised when a column is being repositioned. - - - - - Provides data for the event. - - - - - Indicates the target index of the column being moved. - - - - - Indicates the starting position in the DisplayColumns collection. - - - - - Gets or sets a value indicating that the action should not be performed. - - - - - Gets the C1DisplayColumn that is being moved. - - - - - Raised when a column is moved into or out of the grouping area. - - - - - Provides data for the event. - - - - - The C1DataColumn for the column being moved. - - - - - Raised when cell tips are to be displayed. - - - - - Provides data for the event. - - - - - Indicates the position of the Split in the Splits collection. - - - - - Indicates the position in the DisplayColumns collection. - - - - - The index of the row for the cell tip. - - - - - The text to be displayed in the cell tip. - - - - - Indicates if the contents of the cell is fully displayed. - - - - - The Style used to render the cell tip. - - - - - The C1DisplayColumn that this tip is associated with. - - - - - Raised when a hierarchical node is expanded or collapsed. - - - - - Provides data for the and events. - - - - - Indicates the recordset level that holds the current row within a master-detail hierarchy. - - - - - Gets or sets a value indicating that the action should not be performed. - - - - - Raised when scroll tips are to be displayed. - - - - - Provides data for the event. - - - - - Indicates the position of the Split in the Splits collection. - - - - - Indicates the position in the DisplayColumns collection. - - - - - The index of the topmost row for the scroll tip. - - - - - Indicates the scrollbar that was moved. - - - - - The text to be displayed in the scroll tip. - - - - - The Style used to render the scroll tip. - - - - - The current C1DisplayColumn. - - - - - Raised when the grid is sorted or filtered. - - - - - Provides data for the , , , and - - - - The filter or sort condition. - - - - - Raised when an excpetion is thrown via the UI. - - - - - Provides data for the event. - - - - - The exception which caused the Event to be raised. - - - - - True if the exception has been handled. - - - - - True to continue as if no exception was raised. - - - - - Raised when text is grouped. - - - - - Provides data for the event. - - - - - Custom text for the grouped row. - - - - - Value that the data is being grouped on. - - - - - Column that is being grouped. - - - - - Type of row being grouped. - - - - - First row index that is being grouped. - - - - - Last row index that is being grouped. - - - - - Raised when text is grouped. - - - - - Provides data for the event. - - - - - Underlying value of the row being grouped. - - - - - Column that is being grouped. - - - - - Row index that is being grouped. - - - - - Object that represents a groupby split. - - - - - Gets the type of row. - - - - - Gets the text that is being grouped. - - - - - Gets the level of the grouping. - - - - - Gets the starting row index of the datasource that belong to this group. - - - - - Gets the ending row index of the datasource that belong to this group. - - - - - Gets the number of rows that belong to this group. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Interface used to provide feedback and the ability to cancel potentially long operations - - - - - - - - - - - - - - - - - - - - - - - - - - - Simple stack with indexed access, based on System.Collections.ArrayList - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - General purpose pair class. (Should be moved to gp utils.) - - - - - - - - - - - - - - - - - - - - - - - - - Attribute used to specify which properties get serialized when saving layouts. - - - - - Attribute used to specify which properties get serialized when saving layouts. - - - - - Determines how item types are serialized - - - - - Item type is not serialized (this is the default) - - - - - Item type is serialized as a fully qualified name - - - - - Item type is serialized as a fully qualified name and assembly name - - - - - Use owner's IMemberTypeEncoder for members - (for collection items, this is done automatically). - - - - - Helper class for implementors of IMemberTypeEncoder - - - - - - - - - - - - - - - - - - - - - Forces the serializer to serialize the type name of a property or field - - - - - - - - - - - - - - - - - - - - - This attribute allows to specify collection's element type name - (in that case there is no need to store it). - - - - - - - - - - - - - - - Serializes and deserializes objects into and from XML. - - - All the methods in this class are static (Shared in Visual Basic). - You cannot create an instance of this class. - - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified Stream. - DOES NOT close the underlying stream. Useful for copying objects. - Caller is responsible to call out writer.Close() to close writer and underlying stream. - - The Stream used to write the XML-document instance - The Object to serialize - The XmlSerializerNamespaces referenced by the object - The XmlWriter object reference. Call writer.Close after working with stream/writer. - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified Stream. - - The Stream used to write the XML-document instance - The Object to serialize - The XmlSerializerNamespaces referenced by the object - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified XmlWriter - - The XmlWriter used to write the XML-document instance - The Object to serialize - The XmlSerializerNamespaces referenced by the object - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified Stream. - DOES NOT close the underlying stream. Useful for copying objects. - Caller is responsible to call out writer.Close() to close writer and underlying stream. - - The Stream used to write the XML-document instance - The Object to serialize - The FieldInfo or MemberInfo object context for the object to serialize - The XmlSerializerNamespaces referenced by the object - The XmlWriter object reference. Call writer.Close after working with stream/writer. - - - - - - - - - - - - - - - - - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified Stream. - - The Stream used to write the XML-document instance - The Object to serialize - The FieldInfo or MemberInfo object context for the object to serialize - The XmlSerializerNamespaces referenced by the object - - - - Serializes the specified Object and writes the XML-document instance to a file using the specified XmlWriter - - The XmlWriter used to write the XML-document instance - The Object to serialize - The FieldInfo or MemberInfo object context for the object to serialize - The XmlSerializerNamespaces referenced by the object - Array of attributes that specify what to serialize - - - - Serializes the specified object to an XML formatted string. - - - - - - - - - - - - - Deserializes an XML-document instance - - The Stream containing the XML-document instance to deserialize - The type of object being deserialized - The Object being deserialized - - - - Deserializes an XML-document instance - - The XmlReader containing the XML-document instance to deserialize - The type of object being deserialized - The Object being deserialized - - - - Deserializes object - - The XmlReader containing the XML-document instance to deserialize - The Object being deserialized - The type of object being deserialized - The type of array elements (in case the object is an array) - The Object being deserialized - - - - Deserializes an XML document string - - - - - - - - - - - Deserializes text of element or attribute into object of appropriate type - - The XmlReader containing the XML-document instance to deserialize - The type of object being deserialized - The Object being deserialized - - - - Sets or returns the object implementing IOnLongOpInProgressProvider interface - (can be used to provide visual feedback to the user during serialization). - - - - - Gets or sets a value indicating whether all the values are to be persistent. - - - - - Sets or returns formatting used by the XML writer. - - - - - Sets or returns indentation used by the XML writer. - - - - - Sets or returns serialization of non-public properties. If true non-public properties - are included, but are hidden by default. Public properties are always visible by default. - - - - - - - - - Initializes a new instance of the class. - - - - - Raises the event. - - - - - Raises the event. - - - true if this object can be changed; otherwise, false. - - - - - Gets the service object of the specified type. - - An object that specifies the type of service object to get. - - A service object of type . - -or- - null if there is no service object of type . - - - - - Gets the container representing this request. - - - - - Gets the object that is connected with this type descriptor request. - - - - - Gets the that is associated with the given context item. - - - - - The that describes the given context item; otherwise, null if there is no responsible for the call. - - - - - GroupInfo - Property of the C1DataColumn object, used to control grouping and - rendering of group headers and footers - - - - - Creates a new instance of the object. - - The column this object is associated with. - - - - Override. The string representation of the object. - - - - - - - Gets or sets the position of the grouped row. - - - - - Gets or sets the initial expanded/collapsed state of the grouped row. - - - - - Gets or sets the text that is displayed in the group header row. - - - - - Gets or sets the text that is displayed in the group footer row. - - - - - Gets or sets the text that is displayed with the Aggregates value - - - - - Gets or sets the way rows are grouped. - - - - - Gets or set a value indicating the visibility of a column when it's grouped. - - - - - Represents print/export options form. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Creates a new instance of the PrintOptionsFrom class. - - - - - Called when the class is being disposed. - - - True to cleanup. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Gets or sets the output file name. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Creates a new instance of the ActionItem class. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Object to manage custom page headers and footers when printing and previewing. - - - - - Renders text for the document. - - X-coordinate to start the rendering. - Y-coordinate to start the rendering. - The text to render. - The width for the rendered text. - The font to use. - The color of the text. - The alignment to render the text. - - - - Renders an image for the document. - - X-coordinate. - Y-coordinate. - Image to render. - Width to render. - Height to render. - Alignment options. - - - - Renders a line for the document. - - Start x-coordinate. - Start y-coordinate. - End x-coordinate. - End y-coordinate. - Color of the line. - Width of the line. - - - - The height of drawing area in inches - - - - - Specifies how a should be printed - or exported when using such methods as - , - etc. - - - - - - - - - - - Indicates whether the property should be serialized. - - - true if should be serialized, false otherwise. - - - - Indicates whether the property should be serialized. - - - true if should be serialized, false otherwise. - - - - Resets the property to its default value. - - - - - Indicates whether the property should be serialized. - - - true if should be serialized, false otherwise. - - - - Resets the property to its default value. - - - - - Opens a separate modal window in which end users can preview the output - that would be generated by the print operation. - - - allows to specify a custom form for - the preview dialog. - - - - - Prints the grid. - - - - - Prints the grid. - - Specifies the printer settings (including the printer) to use. - - - - Saves the current grid to a stream in C1D - (native C1PrintDocument) format. - - Note that unlike most other print/export methods, this method - does not require C1Report assemblies. - - The output stream. - - - The stream's Position is set to 0 when the method returns. - - This method does not show progress dialog - (ignoring property). - - - - - - Saves the current grid to a memory stream in C1D - (native C1PrintDocument) format. - - The stream's Position is set to 0 when the method returns. - - The stream containing the saved grid. - - - - Saves the current grid as a C1D file, which can later be loaded - into a C1PrintDocument (provided by C1Report product). - - Note that unlike most other print/export methods, this method - does not require C1Report assemblies. - - The name of the output file. - - true if the file was successfully saved, - false otherwise. - - - - Saves the current grid to a stream in C1D - (native C1PrintDocument) format. - - Note that unlike most other print/export methods, this method - does not require C1Report assemblies. - - The output stream. - - true if the stream was successfully written, - false otherwise. - - Unlike the method, - this method does not reset the stream's position after saving. - - - - - Gets or sets a value indicating whether the grid rows can split between pages. - - - This new property helps to print very long text in columns on multiple pages. - - - - - Gets or sets a value indicating whether the grid's color scheme is translated to the print page. - - - - - Gets or sets a value indicating whether the page header is owner-drawn. - - - - - Gets or sets a value indicating whether the page footer is owner-drawn. - - - - - Gets or sets the style used to render the page header. - - - - - Gets or sets the string to be printed at the top of each page. - - - - - Gets or sets the height of the Page header. - - - - - Gets or sets the style used to render the page footer. - - - - - Gets or sets the page footer height in hundredths of an inch. - - - - - Gets or sets a string to be printed at the bottom of each page. - - - - - Gets or sets a value indicating whether column footers should appear on each page. - - - - - Gets or sets a value indicating whether the grid caption should appear on each page. - - - - - Gets or sets a value inidcating whether split captions should appear on each page. - - - - - Gets or sets a value indicating whether horizontal splits are previewed and printed. - - - - - Gets or sets a value indicating whether column headers should appear on each page. - - - - - Gets or sets a value indicating how empty space left on a printed page is handled. - - - - - Gets or sets the horizontal page break mode. - - - - - Gets or sets a value that controls how text is wrapped in a cell. - - - - - Gets or sets a value whether to print a grid if it has no data rows. - - - - - Gets or sets the maximum row height in hundredths of an inch - (used if is ). - - - - - Gets or sets a value indicating how row height of the printed grid is determined. - - - - - Gets or sets a value indicating how grid lines are rendered. - - - - - Gets or sets a value indicating whether the options dialog is displayed - when the grid is printed or exported. - - - - - Gets or sets a value indicating whether the progress dialog is displayed when the grid is printed or exported. - - - - - Gets or sets a value indicating whether the grid in Form view style is printed each record per page. - - - - - Gets or sets a value indicating whether selected cells will be highlighted when previewing or printing. - - - - - Gets or sets the PageSettings for printing. - - - - - Gets or sets the caption of the print progress dialog. - - - - - Gets or sets the class name of the form used as the print options dialog. - - - - - Gets or sets the class name of the form used as the preview form. - - - - - Specifies how empty space left on a printed page is handled (filled or otherwise). - - - - - All columns are extended proportionally to fill the page. - - - - - Empty space on the right of the page is left as is. - - - - - Rightmost column on the page is extended to fill the empty space. - - - - - Specifies how grid is broken into extension (horizontal) pages - when it is too wide to fit into one page. - - - - - All columns are made narrow enough to fit into one page. - - - - - Columns that do not fit into one page are clipped. - - - - - Horizontal page breaks can be inserted on grid splits as necessary. - - - - - Horizontal page breaks can be inserted on any column as necessary. - - - - - Specifies how cell text is wrapped. - - - - - Text can wrap in any cell as needed. - - - - - Text in cells never wraps. - - - - - Use column's property. - - - - - Specifies how grid lines are rendered. - - - - - Grid lines are rendered. - - - - - Grid lines are not rendered. - - - - - Specifies how rows' heights are determined. - - - - - Stretch rows vertically to fit all data. - - - - - Use the grid's row height. - - - - - Stretch rows vertically but not greater than . - - - - - Specify allowed print options. - - - - - No print/export operations are allowed. - - - - - Printing is allowed. - - - - - Preview is allowed. - - - - - Export is allowed. - - - - - All print/export operations are allowed. - - - - - The print preview form. - - - - - Creates a new instance of the PrintFrom class. - - - - - Additional initialization of the form. - - - To override properties like FormBorderStyle, MaximizeBox, MinimizeBox, ControlBox etc. of a Form, - inherited from "C1.Win.C1TrueDBGrid.PrintForm", override the Init method of the PrintForm. - First call the base.Init(), then set the properties you want. - - - The example is a custom PrintForm which has sizable border, control box is on, and minimize and maximize boxes are off. - - public class CustPrintForm : C1.Win.C1TrueDBGrid.PrintForm - { - public CustPrintForm(): base() - { - } - - protected override void Init() - { - base.Init(); - FormBorderStyle = FormBorderStyle.Sizable; - this.ControlBox = true; - this.MinimizeBox = false; - this.MaximizeBox = false; - } - } - - - - - Overloaded. Overridden. Releases all resources used by the Control. - - - - - - - - - - - - - - - Represents exception that is thrown if printing or exporting - a is cancelled by the user. - - - - - Initializes a new instance of the class. - - - - - Specifies the characteristics of the print preview window - shown by the method. - - - - - - - - - - - - - - - - - Resets the array of UIStrings back to the default locale. - - - - - Gets or sets the caption of the preview window. - - - - - Gets or sets the position and manner in which the control is docked in the navigation page. - - - - - Gets or sets the location of the preview window. - - - - - Gets or sets a value indicating whether the end user has the ability to size the preview window. - - - - - Gets or sets the zoom factor for print preview. - - - - - Gets or sets the size of the form. - - - - - Gets or sets a value indicating the visibiity of toolbars. - - - - - Gets the array of user interface strings. - - - - - Print progress window. - - - - - Initializes a new instance of the C1PrintProgress class. - - - - - Initializes a new instance of the C1PrintProgress class with a language. - - UI Language - - - - Overloaded. Releases the resources used by the component. - - - - - Gets or sets the text used to display the current progress when the grid is printed/previewed. - - - - - Gets or sets the text for the Cancel button. - - - - - Gets or sets the text for the Windows caption. - - - - - Gets a value indicating if the print/preview was cancelled. - - - - - Base class for the grid's scrollbars - - - - - Initializes a new instance of the SBar class - - - - - - - - - Overloaded. Releases the resources used by the class. - - - - - - - Occurs when the scroll box has been moved by either a mouse or keyboard action. - - - - - - - - - Gets or sets the visibility of the scrollbars. - - - - - Gets or sets a value indicating whether the scrollbar is displayed. - - - - - Gets or sets a numeric value that represents the current position of the scroll box on the scroll bar control. - - - - - Represents a vertical scrollbar. - - - - - Initializes a new instance of the VBar class. - - - - - - - Overloaded. Occurs when the scroll box has been moved by either a mouse or keyboard action. - - - - - - - - - Returns a string the represents the current object. - - - - - - - Gets or sets a numeric value that represents the current position of the scroll box on the scroll bar control. - - - - - Gets or sets the width of the vertical scrollbar. - - - - - Represents a horizontal scrollbar. - - - - - Initializes a new instance of the VBar class. - - - - - - - Overloaded. Occurs when the scroll box has been moved by either a mouse or keyboard action. - - - - - - - - - Returns a string the represents the current object. - - - - - - - Gets or sets the height of the horizontal scrollbar. - - - - - Specifies which elements of the cell should be drawn by the grid. - - - This enumeration is used when rendering owner-drawn cells. - - - - - Draw nothing. - - - - - Draw the cell background. - - - - - Draw the cell border. - - - - - Draw the cell content (text, images, checkboxes, etc). - - - - - Draw all cell elements (background, border, and contents). - - - - - Specifies a visual style to use when rendering the control. - - - - - Do not use any visual styles. Render the control using the styles and properties only. - - - - - Render the control with an appearance based on the current system settings. - - - - - Render the control with an appearance based on the Office 2007 Blue color scheme. - - - - - Render the control with an appearance based on the Office 2007 Silver color scheme. - - - - - Render the control with an appearance based on the Office 2007 Black color scheme. - - - - - Render the control with an appearance based on the Office 2010 Blue color scheme. - - - - - Render the control with an appearance based on the Office 2010 Silver color scheme. - - - - - Render the control with an appearance based on the Office 2010 Black color scheme. - - - - - Base class for the grid renderers. - - - - - Initializes a new instance of the class. - - - - - - - - - Gets the background brush. - - The grid. - Type of the cell. - The r. - - - - - - Gets the border pen. - - Type of the cell. - - - - - - Styles the has custom background. - - The style. - - - - - - Styles the has custom border. - - The style. - - - - - - Styles the has right border. - - the style - - - True is has right border - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/_FRReporting/bin/Debug/FlexCel.dll b/_FRReporting/bin/Debug/FlexCel.dll deleted file mode 100644 index 235a65c..0000000 Binary files a/_FRReporting/bin/Debug/FlexCel.dll and /dev/null differ diff --git a/_FRReporting/bin/Debug/XLSLib.dll b/_FRReporting/bin/Debug/XLSLib.dll deleted file mode 100644 index d0324ca..0000000 Binary files a/_FRReporting/bin/Debug/XLSLib.dll and /dev/null differ diff --git a/_FRReporting/bin/Debug/_FRReporting.dll b/_FRReporting/bin/Debug/_FRReporting.dll deleted file mode 100644 index cb9db4b..0000000 Binary files a/_FRReporting/bin/Debug/_FRReporting.dll and /dev/null differ diff --git a/_FRReporting/bin/Debug/_FRReporting.pdb b/_FRReporting/bin/Debug/_FRReporting.pdb deleted file mode 100644 index 2538213..0000000 Binary files a/_FRReporting/bin/Debug/_FRReporting.pdb and /dev/null differ diff --git a/_FRReporting/bin/Debug/_FRReporting.xml b/_FRReporting/bin/Debug/_FRReporting.xml deleted file mode 100644 index 064c1c8..0000000 --- a/_FRReporting/bin/Debug/_FRReporting.xml +++ /dev/null @@ -1,1327 +0,0 @@ - - - - -_FRReporting - - - - - - Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - - - - - Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - - - - - Ãœberschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - - - - - Purpose: Data Access class for the table 'Auswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • bReport
    • -
  • sFilename
    • -
  • bExcel_Report
    • -
  • sSQL
    • -
  • sSQLType
    • -
  • sBeschreibung
    • -
  • sConnectionstring_Subreport
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungAuswertungParameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr
    • -
  • iAuswertungparameternr
    • -
  • sDBfeldname
    • -
  • iReihenfolge
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppe'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iParentid
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr
    • -
  • iAuswertungNr
    • -
  • bAktiv
    • -
  • daErstllt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungRptDatei'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungDateiNr
    • -
  • sFilename
    • -
  • sReportname
    • -
  • blobReportfile
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungparameternr
    • -
  • sBezeichnung
    • -
  • sOperator
    • -
  • sFeldbezug
    • -
  • sWert
    • -
  • sParamName
    • -
  • sParamType
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'key_tabelle'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iKeynr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr
    • -
  • iAuswertungnr
    • -
  • sBeschreibung
    • -
  • sParameterdaten
    • -
  • sTitelzeile1
    • -
  • sTitelzeile2
    • -
  • bParamPrint
    • -
  • sSQLWhere
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'SecurityObject'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iSecurityObjectNr
    • -
  • sSecurityForm
    • -
  • sSecurityObjectType
    • -
  • sSecurityObject
    • -
  • sSecurityObjectItem
    • -
  • sSecurityObjectDescriotion
    • -
  • iLevel
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iMandantnr
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Initialisierung des Formulars - - - - - - - Auswertungen, für welche der User berechtigt ist, auslesen - - - - - - - Interne Relation aufbauen und Tree aufbauen - - - - - - - - Tree aufbauen - - - - - - - - Child-Nodes hinzufügen - - - - - - - - Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank - - - Es werden folgende Datebanktabellen berücksichtigt: - - - Dokument Attribut DocImage - - Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der - Vertragsübersicht|Vertragselemente - - yes - - - - Grid-Layoutfile speichern - - C1Truedbgrind, von welchem das Layout gespeichert werden soll - Nummer des Grids: 1=Vertragsübersicht... - - - - - - Dokument in der Tabelle Dokument speichern - - Nummer des Dokument-Datensatzes - Zu speichender Dateiname - - - - - - Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab - - - - - - - - Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen - - - - - - Formularsecurity setzen - - Aktuelles Formular - - - - - - Daten ab Datenbank laden - - - - - - Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt - - - - - - Security-Einstellungen setzen - - Betroffenes Objeckt (Menuitem, Conrol usw.) - Readonly ja/nein - Sichtbar ja/nein - Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet - - - - - Alle Controls des Formulars zusammensuchen und auf der DB speichern - - Betroffenes Formular - - - - - - Sämtliche Controls vom Formular auslesen - - - - - - - - Auslesen von MenuItems - - - - - - - - - Auslesen von ContextMenuItems - - - - - - - - - Auslesen von Menu-Subitems - - - - - - - - Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - Formular - Objekttyp - Objektname - Objektitem - - - - - - Klasse für ein Control-Objekt - - - - - - Neue Instanz erstellen - - Control-Objekt - Betroffenes Formular - Objekttyp - Objektname - Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids) - - - - - Schreibt einen Datnsatz in die Tabelle SecurityObjects - - - - - - -Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - - - - - - Formular schliessen - - - - - - - - Formualr schliessen - - - - - - - - Formular schliessen - - - - - - - - Mousedown-Ereignis auf dem Tree - - - - - - - - Nach Selektion eines Nodes Parameter neu aufbereiten und Auswerungsmöglichkeit (CR/CSV) anzeigen - - - - - - - - Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet - die gefundnen Controls in der Liste L zur weiteren Bearbeitung - - Base-Contrlo (z.B. aktuelles Formular - Schlüssel welcher gesucht werden soll - Liste der gefundenen Objekte - True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde. - - - - - - Parameter initialisieren - - - - - - Selektion Parameter - - - - - - - - Datenrow in den zur Auswertung gehörenden Parameterliste suchen - - - - - - - - Where Bedingung für die Abfrage zusammenstellen - - - - - - Where zusammenstellen - - - - - - - diff --git a/_FRReporting/obj/Debug/BEA.vbproj.FileListAbsolute.txt b/_FRReporting/obj/Debug/BEA.vbproj.FileListAbsolute.txt deleted file mode 100644 index c264a1b..0000000 --- a/_FRReporting/obj/Debug/BEA.vbproj.FileListAbsolute.txt +++ /dev/null @@ -1,67 +0,0 @@ -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FastReport.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FastReport.Bars.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\csvadapter.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FlexCel.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\MWTreeView.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\XLSLib.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FlexCel.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\MWTreeView.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\es\FlexCel.resources.dll -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbprojResolveAssemblyReference.cache -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.ResolveComReference.cache -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDatenbankauswahl.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmAbout.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmExportContainer.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmFortschritt.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmLogin.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmMsgBox.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSplash.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmTempBerechtigung.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDatenverarbeitung.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmExcelSheets.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmUpdate.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmMain.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.Resources.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDomainEditor.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDomainEditorExtTables.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmFormSelector.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSysadminMenu.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSysadminTableSelector.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.FrmToolTipEditor.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmVerbindungEditor.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSuche.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmUebersicht.resources -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.GenerateResource.Cache -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.exe.licenses -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.exe -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe.config -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.pdb -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.xml -E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\System.Windows.Forms.DataVisualization.dll -E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.vbproj.ResolveComReference.cache -E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.exe -E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.xml -E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.pdb -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\BEA.exe.config -E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\BEA.exe.config diff --git a/_FRReporting/obj/Debug/CoreCompileInputs.cache b/_FRReporting/obj/Debug/CoreCompileInputs.cache deleted file mode 100644 index 3628cfb..0000000 --- a/_FRReporting/obj/Debug/CoreCompileInputs.cache +++ /dev/null @@ -1 +0,0 @@ -c8d5817ed5154cef347ad9c584c7bef5e03cc590 diff --git a/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferences.cache deleted file mode 100644 index e47ebe6..0000000 Binary files a/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferences.cache and /dev/null differ diff --git a/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache deleted file mode 100644 index fd6e09b..0000000 Binary files a/_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and /dev/null differ diff --git a/_FRReporting/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/_FRReporting/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll deleted file mode 100644 index 6f5aceb..0000000 Binary files a/_FRReporting/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.FrmReportSelect.resources b/_FRReporting/obj/Debug/_FRReporting.FrmReportSelect.resources deleted file mode 100644 index 7beae8b..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.FrmReportSelect.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.Resources.resources b/_FRReporting/obj/Debug/_FRReporting.Resources.resources deleted file mode 100644 index 6c05a97..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.Resources.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.dll b/_FRReporting/obj/Debug/_FRReporting.dll deleted file mode 100644 index cb9db4b..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.dll and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmAuswertung.resources b/_FRReporting/obj/Debug/_FRReporting.frmAuswertung.resources deleted file mode 100644 index a952a83..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmAuswertung.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmCalendar.resources b/_FRReporting/obj/Debug/_FRReporting.frmCalendar.resources deleted file mode 100644 index 6c05a97..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmCalendar.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmDataSelect.resources b/_FRReporting/obj/Debug/_FRReporting.frmDataSelect.resources deleted file mode 100644 index ab87685..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmDataSelect.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmEditWhere.resources b/_FRReporting/obj/Debug/_FRReporting.frmEditWhere.resources deleted file mode 100644 index 3b2904d..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmEditWhere.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmViewer.resources b/_FRReporting/obj/Debug/_FRReporting.frmViewer.resources deleted file mode 100644 index 6c05a97..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmViewer.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.frmcrreporting.resources b/_FRReporting/obj/Debug/_FRReporting.frmcrreporting.resources deleted file mode 100644 index 6c05a97..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.frmcrreporting.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.pdb b/_FRReporting/obj/Debug/_FRReporting.pdb deleted file mode 100644 index 2538213..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.pdb and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.sample.resources b/_FRReporting/obj/Debug/_FRReporting.sample.resources deleted file mode 100644 index 6c05a97..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.sample.resources and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.vbproj.FileListAbsolute.txt b/_FRReporting/obj/Debug/_FRReporting.vbproj.FileListAbsolute.txt deleted file mode 100644 index d3e28a1..0000000 --- a/_FRReporting/obj/Debug/_FRReporting.vbproj.FileListAbsolute.txt +++ /dev/null @@ -1,47 +0,0 @@ -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FlexCel.xml -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.pdb -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.xml -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FlexCel.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.pdb -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.xml -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\es\FlexCel.resources.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmAuswertung.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmCalendar.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmcrreporting.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmDataSelect.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmEditWhere.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.FrmReportSelect.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmViewer.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.sample.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.Resources.resources -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbproj.GenerateResource.Cache -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.dll.licenses -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.dll -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.xml -E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.pdb -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmAuswertung.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmCalendar.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmcrreporting.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmDataSelect.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmEditWhere.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.FrmReportSelect.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.frmViewer.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.sample.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.Resources.resources -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbproj.GenerateResource.Cache -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.dll.licenses -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbprojResolveAssemblyReference.cache -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.xml -E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\_FRReporting.dll -E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\_FRReporting.pdb -E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\_FRReporting.xml -E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.dll -E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.dll -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.pdb -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbproj.CoreCompileInputs.cache -E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbproj.CopyComplete diff --git a/_FRReporting/obj/Debug/_FRReporting.vbproj.GenerateResource.Cache b/_FRReporting/obj/Debug/_FRReporting.vbproj.GenerateResource.Cache deleted file mode 100644 index 602b2b7..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.vbproj.GenerateResource.Cache and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.vbprojResolveAssemblyReference.cache b/_FRReporting/obj/Debug/_FRReporting.vbprojResolveAssemblyReference.cache deleted file mode 100644 index 279547b..0000000 Binary files a/_FRReporting/obj/Debug/_FRReporting.vbprojResolveAssemblyReference.cache and /dev/null differ diff --git a/_FRReporting/obj/Debug/_FRReporting.xml b/_FRReporting/obj/Debug/_FRReporting.xml deleted file mode 100644 index 064c1c8..0000000 --- a/_FRReporting/obj/Debug/_FRReporting.xml +++ /dev/null @@ -1,1327 +0,0 @@ - - - - -_FRReporting - - - - - - Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - - - - - Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - - - - - Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - - - - - Purpose: Data Access class for the table 'Auswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • bReport. May be SqlBoolean.Null
    • -
  • sFilename. May be SqlString.Null
    • -
  • bExcel_Report. May be SqlBoolean.Null
    • -
  • sSQL. May be SqlString.Null
    • -
  • sSQLType. May be SqlString.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sConnectionstring_Subreport. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • bReport
    • -
  • sFilename
    • -
  • bExcel_Report
    • -
  • sSQL
    • -
  • sSQLType
    • -
  • sBeschreibung
    • -
  • sConnectionstring_Subreport
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungAuswertungParameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • iAuswertungparameternr. May be SqlInt32.Null
    • -
  • sDBfeldname. May be SqlString.Null
    • -
  • iReihenfolge. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungAuswertungparameternr
    • -
  • iAuswertungnr
    • -
  • iAuswertungparameternr
    • -
  • sDBfeldname
    • -
  • iReihenfolge
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppe'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iParentid. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeNr
    • -
  • sBezeichnung
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iParentid
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr. May be SqlInt32.Null
    • -
  • iAuswertungNr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstllt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungGruppeAuswertungNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungGruppeAuswertungNr
    • -
  • iAuswertungGruppeNr
    • -
  • iAuswertungNr
    • -
  • bAktiv
    • -
  • daErstllt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'AuswertungRptDatei'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
  • sFilename. May be SqlString.Null
    • -
  • sReportname. May be SqlString.Null
    • -
  • blobReportfile. May be SqlBinary.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungDateiNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungDateiNr
    • -
  • sFilename
    • -
  • sReportname
    • -
  • blobReportfile
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
  • sBezeichnung. May be SqlString.Null
    • -
  • sOperator. May be SqlString.Null
    • -
  • sFeldbezug. May be SqlString.Null
    • -
  • sWert. May be SqlString.Null
    • -
  • sParamName. May be SqlString.Null
    • -
  • sParamType. May be SqlString.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iAuswertungparameternr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iAuswertungparameternr
    • -
  • sBezeichnung
    • -
  • sOperator
    • -
  • sFeldbezug
    • -
  • sWert
    • -
  • sParamName
    • -
  • sParamType
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'key_tabelle'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iKeynr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iKeynr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iKeynr
    • -
  • sBeschreibung
    • -
  • iKey_wert
    • -
  • iMandantnr
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr. May be SqlInt32.Null
    • -
  • iAuswertungnr. May be SqlInt32.Null
    • -
  • sBeschreibung. May be SqlString.Null
    • -
  • sParameterdaten. May be SqlString.Null
    • -
  • sTitelzeile1. May be SqlString.Null
    • -
  • sTitelzeile2. May be SqlString.Null
    • -
  • bParamPrint. May be SqlBoolean.Null
    • -
  • sSQLWhere. May be SqlString.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iMitarbeiter_AuswertungsparameterNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iMitarbeiter_AuswertungsparameterNr
    • -
  • iMitarbeiternr
    • -
  • iAuswertungnr
    • -
  • sBeschreibung
    • -
  • sParameterdaten
    • -
  • sTitelzeile1
    • -
  • sTitelzeile2
    • -
  • bParamPrint
    • -
  • sSQLWhere
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Data Access class for the table 'SecurityObject'. - - - - - Purpose: Class constructor. - - - - - Purpose: Insert method. This method will insert one new row into the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Update method. This method will Update one existing row in the database. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
  • sSecurityForm. May be SqlString.Null
    • -
  • sSecurityObjectType. May be SqlString.Null
    • -
  • sSecurityObject. May be SqlString.Null
    • -
  • sSecurityObjectItem. May be SqlString.Null
    • -
  • sSecurityObjectDescriotion. May be SqlString.Null
    • -
  • iLevel. May be SqlInt32.Null
    • -
  • bAktiv. May be SqlBoolean.Null
    • -
  • daErstellt_am. May be SqlDateTime.Null
    • -
  • daMutiert_am. May be SqlDateTime.Null
    • -
  • iMutierer. May be SqlInt32.Null
    • -
  • iMandantnr. May be SqlInt32.Null
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. - - True if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties needed for this method: -
    -
  • iSecurityObjectNr
    • -
- Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
  • iSecurityObjectNr
    • -
  • sSecurityForm
    • -
  • sSecurityObjectType
    • -
  • sSecurityObject
    • -
  • sSecurityObjectItem
    • -
  • sSecurityObjectDescriotion
    • -
  • iLevel
    • -
  • bAktiv
    • -
  • daErstellt_am
    • -
  • daMutiert_am
    • -
  • iMutierer
    • -
  • iMandantnr
    • -
- Will fill all properties corresponding with a field in the table with the value of the row selected. - - - - - Purpose: SelectAll method. This method will Select all rows from the table. - - DataTable object if succeeded, otherwise an Exception is thrown. - - Properties set after a succesful call of this method: -
    -
  • iErrorCode
    • -
- - - - - Initialisierung des Formulars - - - - - - - Auswertungen, für welche der User berechtigt ist, auslesen - - - - - - - Interne Relation aufbauen und Tree aufbauen - - - - - - - - Tree aufbauen - - - - - - - - Child-Nodes hinzufügen - - - - - - - - Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank - - - Es werden folgende Datebanktabellen berücksichtigt: - - - Dokument Attribut DocImage - - Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der - Vertragsübersicht|Vertragselemente - - yes - - - - Grid-Layoutfile speichern - - C1Truedbgrind, von welchem das Layout gespeichert werden soll - Nummer des Grids: 1=Vertragsübersicht... - - - - - - Dokument in der Tabelle Dokument speichern - - Nummer des Dokument-Datensatzes - Zu speichender Dateiname - - - - - - Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab - - - - - - - - Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen - - - - - - Formularsecurity setzen - - Aktuelles Formular - - - - - - Daten ab Datenbank laden - - - - - - Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt - - - - - - Security-Einstellungen setzen - - Betroffenes Objeckt (Menuitem, Conrol usw.) - Readonly ja/nein - Sichtbar ja/nein - Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet - - - - - Alle Controls des Formulars zusammensuchen und auf der DB speichern - - Betroffenes Formular - - - - - - Sämtliche Controls vom Formular auslesen - - - - - - - - Auslesen von MenuItems - - - - - - - - - Auslesen von ContextMenuItems - - - - - - - - - Auslesen von Menu-Subitems - - - - - - - - Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - Formular - Objekttyp - Objektname - Objektitem - - - - - - Klasse für ein Control-Objekt - - - - - - Neue Instanz erstellen - - Control-Objekt - Betroffenes Formular - Objekttyp - Objektname - Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids) - - - - - Schreibt einen Datnsatz in die Tabelle SecurityObjects - - - - - - -Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist - - - - - - - Formular schliessen - - - - - - - - Formualr schliessen - - - - - - - - Formular schliessen - - - - - - - - Mousedown-Ereignis auf dem Tree - - - - - - - - Nach Selektion eines Nodes Parameter neu aufbereiten und Auswerungsmöglichkeit (CR/CSV) anzeigen - - - - - - - - Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet - die gefundnen Controls in der Liste L zur weiteren Bearbeitung - - Base-Contrlo (z.B. aktuelles Formular - Schlüssel welcher gesucht werden soll - Liste der gefundenen Objekte - True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde. - - - - - - Parameter initialisieren - - - - - - Selektion Parameter - - - - - - - - Datenrow in den zur Auswertung gehörenden Parameterliste suchen - - - - - - - - Where Bedingung für die Abfrage zusammenstellen - - - - - - Where zusammenstellen - - - - - - - diff --git a/_FRReporting/obj/Debug/_frreporting.dll.licenses b/_FRReporting/obj/Debug/_frreporting.dll.licenses deleted file mode 100644 index 5bedb2e..0000000 Binary files a/_FRReporting/obj/Debug/_frreporting.dll.licenses and /dev/null differ diff --git a/_FRReporting/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/_FRReporting/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache deleted file mode 100644 index 46a2666..0000000 Binary files a/_FRReporting/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and /dev/null differ diff --git a/_FRReporting/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/_FRReporting/obj/Release/TempPE/My Project.Resources.Designer.vb.dll deleted file mode 100644 index a04c924..0000000 Binary files a/_FRReporting/obj/Release/TempPE/My Project.Resources.Designer.vb.dll and /dev/null differ